home *** CD-ROM | disk | FTP | other *** search
/ Ray Tracing Box / RAY_CD.mdf / raytrace / _pov_dat / morein / rings.inc < prev    next >
Text File  |  1993-02-01  |  1KB  |  49 lines
  1. #include "colors.inc"
  2. #include "shapes.inc"
  3. #include "textures.inc"
  4. #include "tori2.inc"
  5.  
  6. //This is a flat ring form like the rings of saturn
  7.  
  8. /*camera { //un-comment the camera and light source to view or make adjustments
  9.   location <0 0 -2>
  10.   direction <0 0 2>
  11.   up        <0 1 0>
  12.   right     <1.33 0 0>
  13.   look_at   <0 0 2>
  14. }*/
  15.  
  16. /*object {
  17.   light_source {<0 10 -2> color White}
  18. }*/
  19.  
  20. #declare Half_Torus = 
  21.   intersection {
  22.       quartic {
  23.         torus07
  24.         rotate <0 0 0>
  25.       }
  26.       plane {<0 1 0> 0 }
  27.   }
  28.  
  29. object { //this is the flat ring
  30.   intersection {
  31.     intersection {
  32.       Half_Torus
  33.       rotate <0 0 180>
  34.     }
  35.     intersection {
  36.       Half_Torus
  37.     }
  38.     translate <0 .2 0>
  39.   }
  40.   texture { //make it any color you like
  41.    colour Red 1.00  colour Green 1.00  colour Blue 0.45
  42.    ambient 0.30
  43.    diffuse 0.30
  44.    phong 0.25
  45.    phong_size 0.20
  46.  }
  47.   rotate <-20 0 0> //to give a better view
  48.   scale <.2 .2 .2> //optional of course
  49. }