home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / portray / glass.inc < prev    next >
Encoding:
Text File  |  1993-12-30  |  1.1 KB  |  48 lines
  1. define
  2.    object
  3.       name tumbler
  4.       object
  5.          csg
  6.             subtract
  7.             operand1
  8.                cylinder
  9.                   from (0 0 0)
  10.                   to   (0 15 0)
  11.                   radius 5
  12.                   capped
  13.                ;
  14.                material
  15.                   called glass
  16.                ;
  17.             ;
  18.             operand2
  19.                csg
  20.                   intersect
  21.                   operand1
  22.                      cylinder
  23.                         from (0 0 0)
  24.                         to   (0 16 0)
  25.                         radius 4.5
  26.                         capped
  27.                      ;
  28.                      material
  29.                         called glass
  30.                      ;
  31.                   ;
  32.                   operand2
  33.                      sphere
  34.                         centre (0 9 0)
  35.                         radius 8
  36.                      ;
  37.                      material
  38.                         called glass
  39.                      ;
  40.                   ;
  41.                ;
  42.             ;
  43.          ;
  44.       ;
  45.    ;
  46. ;
  47.  
  48.