home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / PVDAT.ZIP / SUNSET.DAT < prev    next >
Encoding:
Text File  |  1991-09-07  |  2.4 KB  |  97 lines
  1. // Persistence of Vision Raytracer
  2. // Sample file
  3. // By David Buck
  4.  
  5. #include "shapes.dat"
  6. #include "colors.dat"
  7. #include "textures.dat"
  8.  
  9. view_point
  10.    location <0.0  10.0  200.0>
  11.    direction <0.0  0.0  -1.0>
  12.    up <0.0  1.0  0.0>
  13.    right <1.333333 0.0 0.0>
  14.    look_at <0.0  130.0  -300.0>
  15. end_view_point
  16.  
  17. { Define the ocean surface }
  18. object
  19.    plane <0.0  1.0  0.0> -10.0 end_plane
  20.  
  21.    texture
  22.       colour red 1.0 green 0.3
  23.       waves 0.05
  24.       frequency 5000.0
  25.       scale <3000.0 3000.0 3000.0>
  26.       reflection 1.0
  27.    end_texture
  28.    colour red 1.0 green 0.3
  29. end_object
  30.  
  31. { Put a floor underneath to catch any errant waves from the ripples }
  32. object
  33.    plane <0.0  1.0  0.0> -11.0 end_plane
  34.    texture
  35.       0.05
  36.       colour red 1.0 green 0.3
  37.       ambient 1.0
  38.       diffuse 0.0
  39.    end_texture
  40.    colour red 1.0 green 0.3
  41. end_object
  42.  
  43. { Now draw the sky }
  44. object
  45.    sphere <0.0  0.0  0.0> 300.0 end_sphere
  46.  
  47.    texture
  48.       gradient <0.0  1.0  0.0>
  49.       colour_map [0.0 0.8  colour red 1.0 green 0.3 blue 0.0
  50.                            colour red 0.7 green 0.7 blue 1.0]
  51.                  [0.8 1.0 colour red 0.7 green 0.7 blue 1.0
  52.                           colour red 0.7 green 0.7 blue 1.0]
  53.       end_colour_map
  54.       scale <300.0  300.0  300.0>
  55.       ambient 0.7
  56.       diffuse 0.0   { we don't want clouds casting shadows on the sky }
  57.    end_texture
  58.    colour red 0.7  green 0.7 blue 1.0
  59. end_object
  60.  
  61. { Put in a few clouds }
  62. object
  63.    sphere <0.0  0.0  0.0> 259.0 end_sphere
  64.  
  65.    texture
  66.       bozo
  67.       turbulence 0.5
  68.       colour_map
  69.           [0.0 0.6  colour red 1.0 green 1.0 blue 1.0 alpha 1.0
  70.                     colour red 1.0 green 1.0 blue 1.0 alpha 1.0]
  71.           [0.6 0.8 colour red 1.0 green 1.0 blue 1.0 alpha 1.0
  72.                     colour red 1.0 green 1.0 blue 1.0]
  73.           [0.8 1.001 colour red 1.0 green 1.0 blue 1.0
  74.                      colour red 0.8 green 0.8 blue 0.8]
  75.       end_colour_map
  76.       scale <100.0  20.0  100.0>
  77.       ambient 0.7
  78.       diffuse 0.0
  79.    end_texture
  80.    colour red 0.7 green 0.7 blue 1.0
  81. end_object
  82.  
  83. { Now to cast some light on the subject }
  84. object
  85.    sphere <0.0  0.0  0.0> 40.0 end_sphere
  86.  
  87.    translate <0.0  0.0  -300.0>
  88.    rotate <10.0  0.0  0.0>
  89.    texture
  90.      colour White
  91.      ambient 1.0
  92.      diffuse 0.0
  93.    end_texture
  94.    light_source
  95.    colour White
  96. end_object
  97.