home *** CD-ROM | disk | FTP | other *** search
- // Persistence of Vision Raytracer
- // PvRay sample image mapper data file
- // by Alexander Enzmann
-
- #include "shapes.dat"
- #include "colors.dat"
- #include "textures.dat"
-
- #declare Clear = colour red 1.0 green 1.0 blue 1.0 alpha 1.0
- #declare Bi = 2.0
- #declare Texture0 = { Planar image map }
- texture imagemap 0 gif "rough.gif" once interpolate Bi end_map end_texture
- #declare Texture1 = { Spherical image map }
- texture imagemap 1 gif "rough.gif" interpolate Bi end_map end_texture
- //#declare Texture2 = { Cylindrical image map }
- //texture imagemap 2 gif "rough.gif" once interpolate Bi end_map end_texture
- //#declare Texture5 = { Torus image map }
- //texture imagemap 5 <6.325 1 0> gif "rough.gif" interpolate Bi end_map end_texture
-
- {object
- intersection
- quadric Cylinder_Y
- texture Texture2 end_texture
- end_quadric
- plane <0 1 0> 1
- texture color Clear end_texture
- end_plane
- plane <0 -1 0> 0
- texture color Clear end_texture
- end_plane
- end_intersection
- translate <0 -0.5 0>
- scale <1 2 1>
- scale <7 7 7>
- rotate <40 -60 0>
- translate <-25 15 20>
- color CRed
- end_object}
-
- object
- quadric QSphere end_quadric
- texture Texture1 end_texture
- scale <10 10 10>
- rotate <0 -90 0>
- translate <0 15 20>
- color CRed
- end_object
-
- object
- plane <0 0 1> 0 end_plane
- clipped_by
- quadric Cylinder_Y translate <1 0 0> scale <0.5 1 0.5> end_quadric
- quadric Cylinder_X translate <0 1 0> scale <1 0.5 0.5> end_quadric
- end_clip
- texture Texture0 end_texture
- translate <-0.5 -0.5 0>
- scale <2 2 2>
- scale <10 10 10>
- rotate <20 30 0>
- translate <25 15 20>
- color CRed
- end_object
-
- {object
- intersection
- quadric Hyperboloid_Y
- translate <0 1 0> scale <1 0.5 1>
- texture Texture2 end_texture
- scale <1 2 1> translate <0 -1 0>
- end_quadric
- plane <0 1 0> 1
- texture color Clear end_texture
- end_plane
- plane <0 -1 0> 1
- texture color Clear end_texture
- end_plane
- end_intersection
- scale <5 7 5>
- rotate <-40 -90 0>
- translate <-25 -15 20>
- color CRed
- end_object
- }
- { Torus having major radius sqrt(40) = 6.3246, minor radius sqrt(12) = 3.4641 }
- {
- object
- quartic
- < 1.0 0.0 0.0 0.0 2.0 0.0 0.0 2.0 0.0 -104.0
- 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
- 1.0 0.0 0.0 2.0 0.0 56.0 0.0 0.0 0.0 0.0
- 1.0 0.0 -104.0 0.0 784.0 >
- end_quartic
- bounded_by
- sphere <0 0 0> 10 end_sphere
- end_bound
- texture Texture5 end_texture
- rotate <0 -90 0>
- rotate <-20 0 0>
- translate <0 -15 20>
- color CRed
- end_object
-
- object
- intersection
- quadric Paraboloid_Y
- texture Texture2 end_texture
- end_quadric
- plane <0 1 0> 1
- texture color Clear end_texture
- end_plane
- plane <0 -1 0> 0
- texture color Clear end_texture
- end_plane
- end_intersection
- translate <0 -0.5 0>
- scale <1 2 1>
- scale <8 8 8>
- rotate <-40 0 0>
- translate <25 -15 20>
- color CRed
- end_object
- }
- view_point
- location <0.0 0.0 -90.0>
- direction <0.0 0.0 1.0>
- up <0.0 0.5 0.0>
- right <0.6666 0.0 0.0>
- end_view_point
-
- object
- sphere <0.0 0.0 0.0> 1 end_sphere
- translate <0 300 -200>
- texture
- colour White
- ambient 1.0
- diffuse 0.0
- end_texture
- light_source
- colour White
- end_object
-