home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / misc / rsphere.inc < prev    next >
Encoding:
Text File  |  1993-01-11  |  831 b   |  28 lines
  1. // This object is only included in the very first and very last frames,
  2. // the first to generate depth information, and the last for the full
  3. // image.  The sphere is not included when rendering the
  4. if (frame < 7)
  5.    define rsphere_tex matte_white
  6. else
  7.    define rsphere_tex
  8.    texture {
  9.       special surface {
  10.      color environment_map(reflect(I, N),
  11.                    environment("out001.tga", "out002.tga",
  12.                        "out003.tga", "out004.tga",
  13.                        "out005.tga", "out006.tga"))
  14.      ambient 0.8
  15.      diffuse white, 0.2
  16.      specular white, 0.4
  17.      microfacet Phong 10
  18.      }
  19.       }
  20.  
  21. // The reflective sphere itself.  We only need it in the scene when we are
  22. // building the depth map for the light and when building the final image.
  23. if (frame == 0 || frame == 7)
  24. object {
  25.    sphere sphere_location, 2
  26.    rsphere_tex
  27.    }
  28.