home *** CD-ROM | disk | FTP | other *** search
/ Mega A/V / mega_av.zip / mega_av / GRAPHUTL / POVSCN.ZIP / LEVEL2.ZIP / ROMO.POV < prev    next >
Text File  |  1992-07-15  |  2KB  |  62 lines
  1. // POV-Ray scene
  2. // Fun reflections of a fertility symbol.
  3. // A strange, but pleasant image.
  4.  
  5. #include "colors.inc"
  6. #include "textures.inc"
  7. #include "shapes.inc"
  8.  
  9. camera {
  10.   location <0 5 -16>
  11.   direction <0 0 1.9>
  12.   right <1.333 0 0>
  13.   look_at <0 4 8>
  14. }
  15. #declare Radius = <.4 .4 .4>
  16. #declare Width = <0 0 2>
  17. object {
  18.   union {
  19.     quadric {Cylinder_Y scale Radius translate Width }
  20.     quadric {Cylinder_Y scale Radius translate Width rotate <0 30 0>}
  21.     quadric {Cylinder_Y scale Radius translate Width rotate <0 60 0>}
  22.     quadric {Cylinder_Y scale Radius translate Width rotate <0 90 0>}
  23.     
  24.     quadric {Cylinder_Y scale Radius translate Width rotate <0 -30 0>}
  25.     quadric {Cylinder_Y scale Radius translate Width rotate <0 -60 0>}
  26.     quadric {Cylinder_Y scale Radius translate Width rotate <0 -90 0>}
  27.     }
  28.   scale<4 4 4>
  29.   texture { Copper_Texture reflection 0.5 }
  30.   translate <0 4 8>
  31. }    
  32. object { // Fertility symbol?
  33.   union {
  34.     sphere { <0 8 8> 2 }
  35.     sphere { <2 7 8> 1 }
  36.     sphere { <-2 7 8> 1 }
  37.     sphere { <0 4 8> 4 }
  38.     sphere { <3 2 8> 2 }
  39.     sphere { <-3 2 8> 2 }
  40.     sphere { <4.5 1 8> 1 }
  41.     sphere { <-4.5 1 8> 1 }
  42.   }
  43.   scale <.7 .7 .7>
  44.   translate <0 0 -3>
  45.   texture { color Red
  46.             phong 1}
  47.   }
  48.   
  49. object { // Floor
  50.   plane { <0 1 0> 0 }
  51.   texture { Brass_Valley scale <2 2 2> }
  52.  }
  53.  
  54. //object {
  55. // sphere { <0 0 0> 100 }
  56. // texture { Blood_Sky }
  57. //}
  58.  
  59. object { 
  60.   light_source { <3 16 -8> color red 1 green 1 blue 1 }
  61. }
  62.