home *** CD-ROM | disk | FTP | other *** search
- // Persistence of Vision Raytracer
- // a very simple file to demonstrate material_map - CdW
- // 7/29/91
-
- #include "shapes.dat"
- #include "colors.dat"
- #include "textures.dat"
-
- #declare Bi = 2.0
- #declare Texture0 = { Planar image map }
- texture imagemap 0 gif "rough.gif" interpolate 0 end_map end_texture
-
-
- view_point
- location <0.0 20.0 -125.0>
- direction <0.0 0.0 2.0>
- up <0.0 1.0 0.0>
- right <1.33333 0.0 0.0>
- look_at <0.0 25.0 0.0>
- end_view_point
-
- object
- // QSphere with radius 30 (diameter 60 )
- sphere <0.0 25.0 0.0> 20.0 end_sphere
- texture { Declare it like a normal image map }
- Glass
- // scale <10.0 10.0 10.0>
- end_texture
- end_object
-
- object
- plane <0 0 1> 150 end_plane
- texture Texture0
- scale <90 90 90>
- end_texture
- end_object
-
-
- object
- sphere <0.0 0.0 0.0> 2.0 end_sphere
- translate <100.0 140.0 -130.0>
-
- texture
- colour red 0.5 green 0.5 blue 0.5
- ambient 1.0
- diffuse 0.0
- end_texture
- light_source
- colour White
- end_object
- {
- object
- sphere <0.0 0.0 0.0> 2.0 end_sphere
- translate <-100.0 100.0 -130.0>
-
- texture
- colour White
- ambient 1.0
- diffuse 0.0
- end_texture
- light_source
- colour White
- end_object
- }
-