home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polymore / fig2-15.pi < prev    next >
Encoding:
Text File  |  1994-09-25  |  562 b   |  36 lines
  1. //PROGRAM: PARABOLA.PI
  2.  
  3. include "d:\polyray\include\colors.inc"
  4. include "d:\polyray\include\texture.inc"
  5.  
  6. viewpoint {
  7.  from      <0, 0, -5.0>
  8.  at        <0.0, 0.0, 0.0>
  9.  up        <0.0, 1.0, 0.0>
  10.  resolution      100,100
  11.  aspect          1.6
  12. }
  13.  
  14. // LIGHT_SOURCE
  15.     light <1, 6, -6>
  16.  
  17. // LIGHT_SOURCE
  18.     light <0, -7, -6>
  19.  
  20. // PARABOLA
  21. object {
  22.         parabola <0, 5, 0>, <0, 0, 0>, 3
  23.         white_marble
  24. }
  25.  
  26.  
  27. // PARABOLA
  28. object {
  29.         parabola <0, 5, 0>, <0, 0, 0>, 3
  30.         rotate <0, 0, 180> 
  31.         sapphire_agate
  32. }
  33.  
  34.  
  35.  
  36.