home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / PVDAT.ZIP / SUNSETHF.DAT < prev    next >
Encoding:
Text File  |  1991-09-06  |  3.2 KB  |  134 lines
  1. // Persistence of Vision Raytracer
  2. // Height field sample
  3. // by Douglas Muir
  4. // Note: Original used 640 X 480 height field.
  5. //       This version is scaled down for distribution.
  6.  
  7.  
  8. #include "shapes.dat"
  9. #include "colors.dat"
  10. #include "textures.dat"
  11.  
  12. view_point
  13.    location <0.0  80.0  -300.0>
  14.    direction <0.0  0.0  1.0>
  15.    up <0.0  1.0  0.0>
  16.    right <1.333333 0.0 0.0>
  17.    look_at <0.0  30.0  200.0>
  18. end_view_point
  19.  
  20. object
  21.     height_field gif "fract003.gif" 
  22.     water_level 101.0 
  23.     end_height_field
  24.  
  25.     texture
  26.     imagemap <1.0 0.0 -1.0> gif "fract003.gif" end_map
  27.     scale <320.0 1.0 200.0>
  28.     translate <0.0 0.0 -1.0>
  29.     end_texture
  30.  
  31.     scale <2.0 0.5 2.0>
  32.     translate <-160.0 -63.5 -100.0>
  33.     rotate <0.0 10.0 0.0>
  34.     translate <-80.0 0.0 -30.0>
  35.  
  36.     colour White
  37. end_object
  38.  
  39. // Define the ocean surface 
  40. object
  41.    plane <0.0  1.0  0.0> -10.0 end_plane
  42.  
  43.    texture
  44.       colour Aquamarine
  45.       waves 0.06
  46.       frequency 5000.0
  47.       ambient 0.1
  48.       diffuse 0.1
  49.       reflection 0.8
  50.       scale <1000.0 1000.0 1000.0>
  51.       end_texture
  52.    colour red 1.0 green 0.3
  53. end_object
  54.  
  55. // Put a floor underneath to catch any errant waves from the ripples 
  56. object
  57.    plane <0.0  1.0  0.0> -11.0 end_plane
  58.    texture
  59.       0.05
  60.       colour red 1.0 green 0.6
  61.       ambient 0.8
  62.       diffuse 0.0
  63.    end_texture
  64.    colour red 1.0 green 0.6
  65. end_object
  66.  
  67. // Now draw the sky 
  68. object
  69.    sphere <0.0  0.0  0.0> 3000.0 end_sphere
  70.    texture
  71.       onion
  72.       colour_map [0.0 0.6  colour red 1.0 green 0.6 blue 0.0
  73.                            colour red 0.3 green 0.6 blue 0.6]
  74.                  [0.6 1.0 colour red 0.3 green 0.6 blue 0.6
  75.                           colour red 0.1 green 0.4 blue 0.6]
  76.       end_colour_map
  77.       scale <6000.0  1700.0  4000.0>
  78.       translate <-1200.0 220.0 2500.0>
  79.       ambient 0.8
  80.       diffuse 0.0   { we don't want clouds casting shadows on the sky }
  81.    end_texture
  82.    colour red 0.7  green 0.7 blue 1.0
  83. end_object
  84.  
  85. // Put in a few clouds 
  86. object
  87.    plane <0.0 1.0 0.0> 300.0 end_plane
  88.  
  89.    texture
  90.       bozo
  91.       turbulence 0.5
  92.       colour_map
  93.           [0.0 0.6  colour red 1.0 green 1.0 blue 1.0 alpha 1.0
  94.                     colour red 1.0 green 1.0 blue 1.0 alpha 1.0]
  95.           [0.6 0.8 colour red 1.0 green 1.0 blue 1.0 alpha 1.0
  96.                     colour red 1.0 green 0.8 blue 0.1]
  97.           [0.8 1.001 colour red 1.0 green 0.8 blue 0.1
  98.                      colour red 0.8 green 0.4 blue 0.2]
  99.       end_colour_map
  100.       scale <1000.0  200.0  800.0>
  101.       ambient 0.7
  102.       diffuse 0.0
  103.    end_texture
  104.    translate <-500.0 0.0 0.0>
  105.    rotate <6.0 0.0 0.0>
  106.    colour red 0.7 green 0.7 blue 1.0
  107. end_object
  108.  
  109. // Now to cast some light on the subject 
  110. object
  111.    sphere <0.0  0.0  0.0> 40.0 end_sphere
  112.    translate <-150.0  250.0  -400.0>
  113.    texture
  114.      colour MediumGoldenrod
  115.      ambient 1.0
  116.      diffuse 0.0
  117.    end_texture
  118.    light_source
  119.    colour MediumGoldenrod
  120. end_object
  121.  
  122. // Now to cast some more light on the subject 
  123. object
  124.    sphere <0.0  0.0  0.0> 190.0 end_sphere
  125.    translate <-1300.0  380.0  2500.0>
  126.    texture
  127.      colour red 1.0 green 0.6
  128.      ambient 1.0
  129.      diffuse 0.0
  130.    end_texture
  131.    light_source
  132.    colour red 1.0 green 0.7
  133. end_object
  134.