home *** CD-ROM | disk | FTP | other *** search
/ Ray Tracing Box / RAY_CD.mdf / raytrace / rayshade / examples / glass.def < prev    next >
Text File  |  1992-02-09  |  368b  |  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.