home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / misc / gsphere.pi < prev    next >
Encoding:
Text File  |  1992-04-05  |  1.1 KB  |  55 lines
  1. viewpoint {
  2.    from <0,0,-12>
  3.    at   <0,0,0>
  4.    up   <0,1,0>
  5.    angle 45
  6.    resolution 160, 160
  7.    }
  8.  
  9. background black
  10. light <-10, 20, -2>
  11. light < 10, 20, -2>
  12.  
  13. // Create a red sphere with green highlights
  14. object {
  15.    sphere <0, 0, 0>, 2
  16.    texture {
  17.       surface {
  18.          ambient red, 0.2
  19.          diffuse red, 0.6
  20.          specular yellow, 0.6
  21.          transmission blue, 0.6, 1.0
  22.          microfacet Phong 15
  23.          }
  24.       }
  25.    }
  26.  
  27. // Put a green sphere behind the red one.  This sphere should
  28. // not show through.
  29. object {
  30.    sphere <-2, 0, 3>, 2
  31.    texture {
  32.       surface {
  33.          ambient green, 0.2
  34.          diffuse green, 0.8
  35.          specular white, 0.4
  36.          microfacet Phong 15
  37.          }
  38.       }
  39.    }
  40.  
  41. // Put a blue sphere behind the red one - This one should
  42. // show through due to the transmission characteristics of
  43. // the red sphere.
  44. object {
  45.    sphere < 2, 0, 3>, 2
  46.    texture {
  47.       surface {
  48.          ambient blue, 0.2
  49.          diffuse blue, 0.8
  50.          specular white, 0.4
  51.          microfacet Phong 15
  52.          }
  53.       }
  54.    }
  55.