home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / misc / alight.pi next >
Encoding:
Text File  |  1994-02-27  |  980 b   |  64 lines
  1. viewpoint {
  2.    from <0,10,-12>
  3.    at <0,0,0>
  4.    up <0,1,0>
  5.    angle 40
  6.    resolution 480, 240
  7.    aspect 2
  8.    pixelsize 24
  9.    antialias 2
  10.    }
  11.  
  12. background SkyBlue
  13.  
  14. if (0 == 1)
  15.    light <10, 8, 0>
  16. else
  17.    textured_light {
  18.       color white
  19.       sphere <15, 10, 0>, 1.3
  20.       }
  21.  
  22. include "../colors.inc"
  23. include "../texture.inc"
  24.  
  25. // Create some spheres
  26. object {
  27.    sphere <4.5, 0, 1>, 2
  28.    texture {
  29.       surface {
  30.          ambient 0
  31.          diffuse 0.2
  32.          specular 0.1
  33.          reflection white, 0.1
  34.          microfacet Cook 5
  35.          transmission white, 0.8, 3.5
  36.          }
  37.       }
  38.    }
  39.  
  40. object {
  41.    sphere <5,-1,-3>, 1
  42.    mirror
  43.    }
  44.  
  45. object {
  46.    sphere <-8, 1, 5>, 3
  47.    mirror
  48.    }
  49.  
  50. object {
  51.    parabola <-1, 2, -1.5>, <-1, -2, -1.5>, 0.75
  52.    wooden { scale <0.1, 0.1, 0.1> }
  53.    }
  54.  
  55. object {
  56.    sphere <-1, 0.5, 3.5>, 2.5
  57.    bumpy_green
  58.    }
  59.  
  60. object {
  61.    box <-50, -3, -50>, <50, -2, 50>
  62.    matte_white
  63.    }
  64.