home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polymore / fig2-16.pi < prev    next >
Encoding:
Text File  |  1994-09-25  |  1.3 KB  |  67 lines
  1. //PROGRAM: PLANES.PI
  2.  
  3. include "d:\polyray\include\colors.inc"
  4. include "d:\polyray\include\texture.inc"
  5. include "d:\polyray\include\stones.inc"
  6.  
  7. define Plane_YZ  object {
  8.                   polygon 4, <0,-10000,10000>, <0,10000,10000>, <0,10000,-10000>, <0,-10000,-10000>
  9.                  }
  10. define Plane_XY  object {
  11.                   polygon 4, <-10000,10000,0>, <10000,10000,0>, <10000,-10000,0>, <-10000,-10000,0>
  12.                  }
  13.  
  14. define Plane_XZ  object {
  15.                   polygon 4, <-10000,0,10000>, <-10000,0,-10000>, <10000,0,-10000>, <10000,0,10000>
  16.                  }
  17.  
  18. viewpoint {
  19.  from      <0.0, 1.0, -4.0>
  20.  at        <0.0, -0.25, 0.0>
  21.  up        <0.0, 1.0, 0.0>
  22.  angle           45
  23.  resolution      100,100
  24.  aspect          1.6
  25. }
  26.  
  27. // LIGHT_SOURCE
  28.    light <5.0, 5.0, -5.0>
  29.  
  30. // PLANE (Polygon)
  31. object {
  32. // normal in X direction
  33.     Plane_YZ
  34.     translate <-0.6, 0, 0>
  35.     mirror
  36. }
  37.  
  38. // PLANE (Polygon)
  39. object {
  40. // normal in Z direction
  41.     Plane_XY
  42.     translate <0, 0, 0.6>
  43.     mirror
  44. }
  45.  
  46. // PLANE (Polygon)
  47. object {
  48. // normal in Y direction
  49.     Plane_XZ
  50.     translate <0, -0.6, 0>
  51.     mirror
  52. }
  53.  
  54. // SPHERE
  55. object {
  56.     sphere < 0, 0, 0>, 0.25
  57.     Stone5 
  58. }
  59.  
  60. // CONE
  61. object {
  62.     cone <0.0, -0.5, 0.0>, 0.2, <0.0, 0.0, 0.0>, 0.0
  63.     translate <0.8, 0.4, -0.8>
  64.     Stone6 
  65. }
  66.  
  67.