home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / atari / GRAPHX / POV / 68030.060 / POV31G30 / POVRAY_3.1G / SCENES / CSG / INTEE1.POV < prev   
Text File  |  1999-10-30  |  2KB  |  76 lines
  1. // Persistence Of Vision raytracer version 3.1 sample file.
  2. // Intersection of two cylinders,  with holes cut from each one, in pink
  3. // marblized stone.
  4. // File by Dan Farmer.
  5. // Demonstrates CSG intersection,  layered stone texture.
  6. // POV-Ray 2.0 Time: about 3 hours @640x480+a0.2 on 486/33
  7.  
  8. global_settings { assumed_gamma 2.2 }
  9.  
  10. #include "colors.inc"           // Standard colors library
  11. #include "shapes.inc"           // Commonly used object shapes
  12. #include "textures.inc"         // LOTS of neat textures.  Lots of NEW textures.
  13.  
  14. camera {
  15.    location <0.0, 10, -26>
  16.    direction <0.0, 0.0,  1.0>
  17.    up  <0.0, 1.0, 0.0>
  18.    right <4/3, 0.0, 0.0>
  19.    look_at <0, 0, 0>
  20. }
  21.  
  22. // Light source
  23. light_source { <-10, 20, -25> color White }
  24. light_source { <0, 0, 0> color White }
  25.  
  26. #declare Color1A = color DustyRose;
  27. #declare Color1B = color DarkSlateGray;
  28.  
  29. intersection {
  30.    object { Cylinder_X }
  31.    object { Cylinder_Y }
  32.    object { Cylinder_X inverse scale <1, 0.5, 0.5> }  // small hole
  33.    object { Cylinder_Y inverse scale <0.5, 1, 0.5> }  // ditto
  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.  
  41.    texture {
  42.       finish {ambient 0.25 }
  43.       pigment {
  44.          bozo
  45.          turbulence 0.25
  46.          color_map {
  47.             [0.0 1.0 color red 0.9 green 0.75 blue 0.75
  48.                      color red 0.6 green 0.6 blue 0.6 ]
  49.          }
  50.          scale 0.4
  51.       }
  52.    }
  53.  
  54.    // Second layer texture has some filter values, yet a fair amount of color
  55.    // Viening is kept quite thin.
  56.    texture {
  57.       finish {
  58.          Glossy
  59.          phong 0.25
  60.          phong_size 75
  61.          brilliance 4
  62.       }
  63.       pigment {
  64.          granite
  65.          color_map {
  66.             [0.0 0.9  color Color1A filter 1 color Color1A filter 0.5 ]
  67.             [0.9 1.0  color Color1B color Color1B ]
  68.          }
  69.          scale 2
  70.       }
  71.    }
  72.  
  73.    scale 10
  74.    rotate y*45
  75. }
  76.