home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / PVDAT.ZIP / SKYVASE.DAT < prev    next >
Encoding:
Text File  |  1991-09-07  |  3.0 KB  |  133 lines
  1. // Persistence of Vision Raytracer
  2. // Sample file
  3. // By Dan Farmer
  4. //    Minneapolis, MN
  5.  
  6. //   skyvase.dat
  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.       
  13.  
  14. #include "shapes.dat"
  15. #include "colors.dat"
  16. #include "textures.dat"
  17.  
  18. #declare DMF_Hyperboloid = quadric  { Like Hyperboloid_Y, but more curvy }
  19.     <1.0 -1.0  1.0>
  20.     <0.0  0.0  0.0>
  21.     <0.0  0.0  0.0>
  22.     -0.5
  23. end_quadric
  24.  
  25. view_point
  26.    location <0.0  28.0  -200.0>
  27.    direction <0.0 0.0  2.0>
  28.    up  <0.0  1.0  0.0>
  29.    right <1.33333 0.0 0.0>
  30.    look_at <0.0  -12.0 0.0>
  31. end_view_point
  32.  
  33. { Light behind viewer postion (pseudo-ambient light) }
  34. object  
  35.    sphere <0.0  0.0  0.0>  2.0 end_sphere
  36.    translate <100.0  500.0  -500.0>
  37.    texture
  38.      colour White
  39.      ambient 1.0
  40.      diffuse 0.0
  41.    end_texture
  42.    light_source
  43.    colour White
  44. end_object
  45.  
  46. composite
  47.    object
  48.       union
  49.         intersection
  50.           plane <0 1 0> 0.7 end_plane
  51.           quadric DMF_Hyperboloid scale <0.75 1.25 0.75> end_quadric
  52.           quadric DMF_Hyperboloid scale <0.70 1.25 0.70> inverse end_quadric
  53.           plane <0.0 1.0 0.0> -1.0 inverse end_plane
  54.         end_intersection
  55.         quadric QSphere scale <1.6 0.75 1.6 > translate <0 -1.15 0> end_quadric
  56.       end_union
  57.       scale <20 25 20>
  58.       texture
  59.         Bright_Blue_Sky
  60.     0.05
  61.     turbulence 0.85
  62.     scale <10.0 10.0 10.0>
  63.     ambient 0.3
  64.     diffuse 0.7
  65.     specular 0.75
  66.     roughness 0.05
  67.     reflection 0.45
  68.       end_texture
  69.       color CGreen
  70.    end_object
  71.    object  { Gold ridge around sphere portion of vase}
  72.       quadric QSphere
  73.          scale <1.6 0.75 1.6 >
  74.          translate <0 -7.0 0>
  75.          scale <20.5 4.0  20.5 >
  76.       end_quadric
  77.       texture
  78.      Metal
  79.      0.05
  80.      color OldGold
  81.       end_texture
  82.       color OldGold
  83.    end_object
  84.    bounded_by
  85.       intersection
  86.       Y_Disk
  87.       translate <0.0 -0.5 0.0>
  88.       scale <34 100 34>
  89.       end_intersection
  90.    end_bound
  91. end_composite
  92.  
  93. object  { Stand for the vase }
  94.     intersection Hexagon
  95.       rotate <0.0 0.0 -90.0>    { Stand it on end (vertical)}
  96.       rotate<0.0 -45.0 0.0>    { Turn it to a pleasing angle }
  97.       scale<40 25 40>
  98.       translate<0 -70 0>
  99.     end_intersection
  100.     texture
  101.       Sapphire_Agate
  102.       scale <10.0 10.0 10.0>
  103.       ambient 0.3
  104.       diffuse 0.7
  105.       reflection 0.85
  106.     end_texture
  107.     color red 1.0          {Color is only for debugging w/o texture}
  108. end_object
  109.  
  110. object    {Left wall}
  111.     plane <0 0 1> 50 end_plane
  112.     rotate <0 -45 0>
  113.     texture
  114.       color Gray
  115.       ambient 0.3
  116.       diffuse 0.7
  117.       reflection 0.5
  118.     end_texture
  119.     color Gray
  120. end_object
  121.  
  122. object     {Right wall}
  123.     plane <0 0 1> 50 end_plane
  124.     rotate <0 45 0>
  125.     texture
  126.       color  Gray
  127.       ambient 0.3
  128.       diffuse 0.7
  129.       reflection 0.5
  130.     end_texture
  131.     color  Gray
  132. end_object
  133.