home *** CD-ROM | disk | FTP | other *** search
/ Mega A/V / mega_av.zip / mega_av / GRAPHUTL / POVSCN.ZIP / LEVEL1.ZIP / INTEE1.POV < prev    next >
Text File  |  1992-07-03  |  2KB  |  71 lines
  1. // Persistence of Vision Raytracer
  2. // Intersection of two cylinders,  with holes cut from each one, in pink
  3. // marblized stone.  Image by Dan Farmer.
  4. // Demonstrates CSG intersection,  layered stone texture.
  5. // Time: about 3 hours @640x480+a0.2 on 486/33
  6.  
  7. #include "colors.inc"           // Standard colors library
  8. #include "shapes.inc"           // Commonly used object shapes
  9. #include "textures.inc"         // LOTS of neat textures.  Lots of NEW textures.
  10.  
  11. camera {
  12.    location <0.0  10  -26>
  13.    direction <0.0 0.0  1.0>
  14.    up  <0.0  1.0  0.0>
  15.    right <1.33333 0.0 0.0>
  16.    look_at <0 0 0>
  17. }
  18.  
  19.  
  20. // Light source
  21. object { light_source { <-10 20 -25> color White  }}
  22. object { light_source { <0 0 0> color White  }}
  23.  
  24. #declare Color1A = color DustyRose
  25. #declare Color1B = color DarkSlateGray
  26.  
  27. object {
  28.    intersection {
  29.       quadric { Cylinder_X }
  30.       quadric { Cylinder_Y }
  31.       quadric { Cylinder_X inverse scale <1 0.5 0.5> }  // small hole
  32.       quadric { Cylinder_Y inverse scale <0.5 1 0.5> }  // ditto
  33.    }
  34.  
  35.    // A great looking pinkish marble.  Except that it doesn't use marble
  36.    // or agate... it's all done with bozo and granite!
  37.  
  38.    // Underlying surface is very subtly mottled with bozo in pinks and
  39.    // grays.
  40.    texture {
  41.       ambient 0.25
  42.       bozo
  43.       turbulence 0.25
  44.       color_map {
  45.          [0.0 1.0 color red 0.9 green 0.75 blue 0.75
  46.          color red 0.6 green 0.6 blue 0.6 ]
  47.       }
  48.       scale <.4 .4 .4>
  49.    }
  50.  
  51.    // Second layer texture has some alpha values, yet a fair amount of color
  52.    // Viening is kept quite thin.
  53.    texture {
  54.       Glossy
  55.       granite
  56.       color_map {
  57.          [0.0 0.9 color Color1A alpha 1 color Color1A alpha 0.5 ]
  58.          [0.9 1.0  color Color1B color Color1B ]
  59.       }
  60.       scale <2 2 2>
  61.       phong 0.25
  62.       phong_size 75
  63.       brilliance 4
  64.    }
  65.  
  66.  
  67.    scale <10 10 10>
  68.    rotate <0 45 0>
  69. }
  70.  
  71.