home *** CD-ROM | disk | FTP | other *** search
/ Ray Tracing Box / RAY_CD.mdf / raytrace / _pov_dat / strway / wainscot.inc < prev   
Text File  |  1993-01-01  |  573b  |  19 lines
  1. // First attempt at making wainscot
  2.  
  3. // Wainscot
  4. #declare Wainscot=
  5.  
  6.    intersection {
  7.    plane {<1.0 0.0 0.0> 0 rotate <0.0 -22.5 0.0> translate <2.0 0.0 0.0>}
  8.    plane {<1.0 0.0 0.0> 0 rotate <0.0 22.5 0.0> translate < -2.0 0.0 0.0> inverse}
  9.    difference {
  10.       union {
  11.          intersection {Disk_X scale <4.0 1.0 1.0>}
  12.          box {UnitBox scale <4.0 1.4 0.7> translate <0.0 0.2 0.6>}
  13.          box {UnitBox scale <4.0 1.0 1.5> translate <0.0 -0.3 -0.35>}
  14.       }
  15.       intersection {Disk_X scale <5.0 1.0 1.0> translate <0.0 1.20 -1.58>}
  16.    }
  17.   }
  18.  
  19.