home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / PVDAT.ZIP / STONEWAL.DAT < prev    next >
Encoding:
Text File  |  1991-09-07  |  3.4 KB  |  170 lines
  1. // Persistence of Vision Raytracer
  2. // Sample file
  3. // By Dan Farmer
  4. //    Minneapolis, MN
  5. {
  6.       a pastoral scene with a granite stone fence.  This was never really
  7.       "finished", but it works as it is.  Plenty of material to play around
  8.       with here.  The basic building blocks are here... just use your
  9.       imagination.
  10. } 
  11. #include "shapes.dat"    
  12. #include "colors.dat"
  13. #include "textures.dat"
  14.  
  15. view_point
  16.     location <50.0  40.0  -350.0>
  17.     look_at <-100.0 0.0 0.0>
  18.     direction <0.0 0.0 2.0>
  19.     right < 1.3333 0.0 0.0 >
  20. end_view_point
  21.  
  22. { Add light source }
  23. object
  24.     sphere <0.0 0.0 0.0> 20.0 end_sphere
  25.     translate <100.0  200.0  -630.0>
  26.     texture
  27.       color White
  28.       ambient 1.0
  29.       diffuse 0.0
  30.     end_texture
  31.     light_source
  32.     color White
  33. end_object
  34.  
  35. object
  36.     sphere <0.0 0.0 0.0> 50.0 end_sphere
  37.     translate <50.0  20000.0 50.0>
  38.     texture
  39.       color White
  40.       ambient 1.0
  41.       diffuse 0.0
  42.     end_texture
  43.     light_source
  44.     color White
  45. end_object
  46.  
  47. { Add the sky to the picture }
  48. object
  49.     sphere <0.0 0.0 0.0> 1000000.0 end_sphere
  50.     texture
  51.         color SkyBlue
  52.     diffuse 0.0
  53.     ambient 0.5
  54.     end_texture
  55.     color SkyBlue
  56. end_object
  57.  
  58. { Grassy meadow }
  59. object
  60.     plane <0.0 1.0 0.0> -2.0 end_plane
  61.     texture
  62.         0.05  { This value dithers the colors }
  63.     color red 0.2 green 1.0 blue 0.4
  64.     waves 1.0
  65.     frequency 2000.0
  66.     scale <50000.0 50000.0 50000.0>
  67.     ambient 0.1
  68.     diffuse 0.3
  69.     end_texture
  70.     color red 0.2 green 1.0 blue 0.4
  71. end_object
  72.  
  73. { Put up a distant wall to prevent a black line in the middle of the
  74.    screen }
  75. object
  76.     plane <0.0 0.0 1.0> 1000000.0  end_plane
  77.     texture
  78.         color red 0.4 green 0.4 blue 0.8
  79.     ambient 1.0
  80.     diffuse 0.0
  81.     end_texture
  82.     color red 0.4 green 0.4 blue 0.8
  83. end_object
  84.  
  85.  
  86. #declare Wall_Segment = object
  87.     intersection Cube end_intersection
  88.     scale <8.0 50.0 100.0>
  89.     texture
  90.         0.05
  91.         granite
  92.     ambient 0.3
  93.     diffuse 0.7
  94.     brilliance 7.0
  95.     reflection 0.1
  96.     phong 1.0
  97.     phongsize 60
  98.     end_texture
  99.     color White
  100. end_object
  101.  
  102. #declare Granite_Ball = object
  103.     sphere <0.0 0.0 10.0> 10.0 end_sphere
  104.     texture
  105.         0.05
  106.         granite
  107.     ambient 0.3
  108.     diffuse 0.7
  109.     brilliance 7.0
  110.     reflection 0.1
  111.     phong 1.0
  112.     phongsize 60
  113.     end_texture
  114.     color White
  115. end_object
  116.  
  117. #declare Column = object
  118.     intersection Cube end_intersection
  119.     scale <12.0 60.0 12.0>
  120.     texture
  121.         0.05
  122.         granite
  123.     ambient 0.3
  124.     diffuse 0.7
  125.     brilliance 7.0
  126.     reflection 0.1
  127.     phong 1.0
  128.     phongsize 60
  129.     end_texture
  130.     color White
  131. end_object
  132.  
  133. { note: Granite column is 12 wide x 12 deep x 60 high
  134.         Granite ball has a radius of 20 }
  135. #declare Pillar = composite
  136.     object Column       translate <0.0  0.0 0.0> end_object
  137.     object Granite_Ball translate <0.0 70.0 0.0> end_object
  138. end_composite
  139.  
  140. { Note: Wall segments are 100 units long, Pillars are 12 units "long" }
  141. composite
  142.     Pillar
  143.     translate <0.0 0.0 -106.0 >
  144. end_composite
  145. object
  146.     Wall_Segment
  147.     translate <-2.0 0.0 -6.0 >
  148. end_object
  149. composite
  150.     Pillar
  151.     translate <0.0 0.0 0.0 >
  152. end_composite
  153. object
  154.     Wall_Segment
  155.     translate <-2.0 0.0 112.0 >
  156. end_object
  157. composite
  158.     Pillar
  159.     translate <0.0 0.0 112.0 >
  160. end_composite
  161. object
  162.     Wall_Segment
  163.     rotate <0.0 -90.0 0.0>
  164.     translate <76.0 0.0 114.0 >
  165. end_object
  166. composite
  167.     Pillar
  168.     translate <176.0 0.0 112.0 >
  169. end_composite
  170.