home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / code / graphics / raysh386 / examples / glass.def < prev    next >
Encoding:
Text File  |  1995-05-19  |  368 b   |  21 lines
  1. /*
  2.  * Drinking glass object.
  3.  * C. Kolb 12/89
  4.  */
  5. name glass
  6. union
  7.     torus 0.95 0.06 0 0 2 0 0 1
  8.     difference
  9.         list /* outer glass */
  10.             cone 0.9 0 0 -0.001 1.0 0 0 2
  11.             disc 1 0 0 2 0 0 1
  12.             disc 0.9 0 0 -.001 0 0 -1
  13.         end
  14.         list /* inner glass */
  15.             cone 0.7 0 0 0.1   0.9 0 0 2.2
  16.             disc .9 0 0 2.2 0 0 1
  17.             disc .7 0 0 0.1 0 0 -1
  18.         end
  19.     end
  20. end
  21.