home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polymore / fig2-14.pi < prev    next >
Encoding:
Text File  |  1994-09-25  |  1.4 KB  |  77 lines
  1. //PROGRAM: DISCS.PI
  2.  
  3. include "d:\polyray\include\colors.inc"
  4. include "d:\polyray\include\texture.inc"
  5.  
  6. define Plane_XZ  object {
  7.                   polygon 4, <-10000,0,10000>, <-10000,0,-10000>, <10000,0,-10000>, <10000,0,10000>
  8.                  }
  9. define CheckerWB texture {checker matte_white, matte_black}
  10. viewpoint {
  11.  from      <0.0, 1.2, -5.0>
  12.  at        <0.0, 0.0, 0.0>
  13.  up        <0.0, 1.0, 0.0>
  14.  resolution      100,100
  15.  aspect          1.6
  16. }
  17.  
  18. // LIGHT_SOURCE
  19.     light <0, 0, -5>
  20.  
  21. // LIGHT_SOURCE
  22.     light <1, 1, -5>
  23.  
  24.  
  25. // PLANE (Checkered Floor)
  26. object {
  27.     Plane_XZ
  28.     CheckerWB
  29.     scale <2, 1, 1>   // make tiles larger!
  30.     translate <0, -3, 0>
  31. }
  32.  
  33. // SPHERE
  34. object {
  35.     sphere <0, 1, -1>, 0.7
  36.     shiny_red
  37. }
  38.  
  39. // WASHERS(Rings)
  40. object {
  41.     disc < 0, 0, 0>, <0, 1, 0>, 0.7, 0.9    
  42.     reflective_yellow     
  43. }
  44.  
  45. object {
  46.     disc < 0, -0.2, 0>, <0, 1, 0>, 1.2, 1.5    
  47.     reflective_yellow
  48.          
  49. }
  50.  
  51. object {
  52.     disc < 0, -0.4, 0>, <0, 1, 0>, 1.7, 1.9
  53.     reflective_yellow     
  54. }
  55.  
  56. object {
  57.     disc < 0, -0.6, 0>, <0, 1, 0>, 2.2, 2.4
  58.     reflective_yellow     
  59. }
  60.  
  61. object {
  62.     disc < 0, -0.8, 0>, <0, 1, 0>, 2.7, 2.9
  63.     reflective_yellow     
  64. }
  65.  
  66. object {
  67.     disc < 0, -1.0, 0>, <0, 1, 0>, 3.2, 3.4
  68.     reflective_yellow     
  69. }
  70.  
  71. //DISC
  72. object {
  73.     disc <0, -5, 10>, <0, 0, 1>, 10.0
  74.     rotate<-35, 0, 0>
  75.     mirror
  76. }
  77.