home *** CD-ROM | disk | FTP | other *** search
- // Persistence of Vision Raytracer
- // Sample file
- // By David Buck
-
- // This is the "classic" sunset scene by David K. Buck. I'm resurrecting it
- // because I always thought it looked very realistic... - Aaron A. Collins
-
-
- #include "shapes.dat"
- #include "colors.dat"
- #include "textures.dat"
-
- view_point
- location <0.0 100.0 200.0>
- direction <0.0 0.0 -1.0>
- up <0.0 1.0 0.0>
- right <1.333333 0.0 0.0>
- end_view_point
-
- { Define the ocean surface }
- object
- plane <0.0 1.0 0.0> -10.0 end_plane
-
- texture
- waves 0.06
- frequency 5000.0
- scale <1000.0 1000.0 1000.0>
- reflection 1.0
- end_texture
- colour red 1.0 green 0.3
- end_object
-
- { Put a floor underneath to catch any errant waves from the ripples }
- object
- plane <0.0 1.0 0.0> -11.0 end_plane
-
- texture
- 0.05
- colour red 1.0 green 0.3
- ambient 1.0
- diffuse 0.0
- end_texture
- colour red 1.0 green 0.3
- end_object
-
- { Now draw the sky, a distant rear wall }
- object
- plane <0.0 0.0 1.0> -200.0 end_plane
-
- texture
- 0.05
- colour red 1.0 green 0.3
- ambient 0.3
- diffuse 0.7
- end_texture
- colour red 1.0 green 0.3
- end_object
-
- { Now to cast some light on the subject }
- object
- sphere <0.0 0.0 0.0> 20.0 end_sphere
- translate <0.0 30.0 -160.0>
-
- texture
- colour red 1.0 green 0.6
- ambient 1.0
- diffuse 0.0
- end_texture
-
- light_source
- colour red 1.0 green 0.6
- end_object
-