home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 279 / POVSCN20.ZIP / SKYVASE.POV < prev    next >
Text File  |  1993-09-28  |  3KB  |  115 lines
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2.  
  3. // By Dan Farmer
  4. //    Minneapolis, mn
  5.  
  6. //   skyvase.pov
  7. //   Vase made with Hyperboloid and sphere {, sitting on a hexagonal
  8. //   marble column.  Take note of the color and surface characteristics
  9. //   of the gold band around the vase.  It seems to be a successful
  10. //   combination for gold or brass.
  11. //
  12. // Contains a Disk_Y object which may have changed in shapes.dat
  13.  
  14.  
  15. #include "shapes.inc"
  16. #include "shapes2.inc"
  17. #include "colors.inc"
  18. #include "textures.inc"
  19.  
  20. #declare DMF_Hyperboloid = quadric {  /* Like Hyperboloid_Y, but more curvy */
  21.    <1.0, -1.0,  1.0>,
  22.    <0.0,  0.0,  0.0>,
  23.    <0.0,  0.0,  0.0>,
  24.    -0.5
  25. }
  26.  
  27. camera {
  28.    location <0.0, 28.0, -200.0>
  29.    direction <0.0, 0.0, 2.0>
  30.    up  <0.0, 1.0, 0.0>
  31.    right <4/3, 0.0, 0.0>
  32.    look_at <0.0, -12.0, 0.0>
  33. }
  34.  
  35. /* Light behind viewer postion (pseudo-ambient light) */
  36. light_source { <100.0, 500.0, -500.0> colour White }
  37.  
  38. union {
  39.    union {
  40.       intersection {
  41.          plane { y, 0.7 }
  42.          object { DMF_Hyperboloid scale <0.75, 1.25, 0.75> }
  43.          object { DMF_Hyperboloid scale <0.70, 1.25, 0.70> inverse }
  44.          plane { y, -1.0 inverse }
  45.       }
  46.       sphere { <0, 0, 0>, 1 scale <1.6, 0.75, 1.6 > translate <0, -1.15, 0> }
  47.  
  48.       scale <20, 25, 20>
  49.  
  50.       pigment {
  51.          Bright_Blue_Sky
  52.          turbulence 0.3
  53.          quick_color Blue
  54.          scale <8.0, 4.0, 4.0>
  55.          rotate 15*z
  56.       }
  57.       finish {
  58.          ambient 0.1
  59.          diffuse 0.75
  60.          phong 1
  61.          phong_size 100
  62.          reflection 0.35
  63.       }
  64.    }
  65.  
  66.    sphere {  /* Gold ridge around sphere portion of vase*/
  67.       <0, 0, 0>, 1
  68.       scale <1.6, 0.75, 1.6>
  69.       translate -7*y
  70.       scale <20.5, 4.0, 20.5>
  71.  
  72.       finish { Metal }
  73.       pigment { OldGold }
  74.    }
  75.  
  76.    bounded_by {
  77.       object {
  78.          Disk_Y
  79.          translate -0.5*y  // Remove for new Disk_Y definition
  80.          scale <34, 100, 34>
  81.       }
  82.    }
  83. }
  84.  
  85. /* Stand for the vase */
  86. object { Hexagon
  87.    rotate -90.0*z             /* Stand it on end (vertical)*/
  88.    rotate -45*y               /* Turn it to a pleasing angle */
  89.    scale <40, 25, 40>
  90.    translate -70*y
  91.  
  92.    pigment {
  93.       Sapphire_Agate
  94.       quick_color Red
  95.       scale 10.0
  96.    }
  97.    finish {
  98.       ambient 0.2
  99.       diffuse 0.75
  100.       reflection 0.85
  101.    }
  102. }
  103.  
  104. union {
  105.    plane { z, 50  rotate -45*y }
  106.    plane { z, 50  rotate +45*y }
  107.  
  108.    pigment { DimGray }
  109.    finish {
  110.       ambient 0.2
  111.       diffuse 0.75
  112.       reflection 0.5
  113.    }
  114. }
  115.