home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / utility / dos / spike1 / spike.inc < prev    next >
Encoding:
Text File  |  1993-03-11  |  388 b   |  16 lines
  1. // Convenient  finite cone primitive, pointing up in the Y axis
  2. // Cone_Y, X & Z in SHAPES.INC should be used instead of this shape
  3. #declare HalfCone_Y = intersection {
  4.    quadric { // QCone_Y
  5.       <1.0 -1.0 1.0>
  6.       <0.0 0.0 0.0>
  7.       <0.0 0.0 0.0>
  8.        0.0
  9.    }
  10.    plane { <0 1 0 >  0 }
  11.    plane { <0 1 0 > -2 inverse }
  12.    translate <0 2 0>
  13.    scale <0.5 1 0.5>
  14. }
  15.  
  16.