home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / misc / lego.inc < prev    next >
Encoding:
Text File  |  1992-12-03  |  1.4 KB  |  35 lines
  1. define lego_2_2
  2. object {
  3.      object { box <0, 0, 0>, <2, 1, 2> }
  4.    + object { cylinder <0.5, 1, 0.5>, <0.5, 1.2, 0.5>, 0.4 }
  5.    + object { cylinder <1.5, 1, 0.5>, <1.5, 1.2, 0.5>, 0.4 }
  6.    + object { cylinder <0.5, 1, 1.5>, <0.5, 1.2, 1.5>, 0.4 }
  7.    + object { cylinder <1.5, 1, 1.5>, <1.5, 1.2, 1.5>, 0.4 }
  8.    + object { disc <0.5, 1.2, 0.5>, <0, 1, 0>, 0.4 }
  9.    + object { disc <1.5, 1.2, 0.5>, <0, 1, 0>, 0.4 }
  10.    + object { disc <0.5, 1.2, 1.5>, <0, 1, 0>, 0.4 }
  11.    + object { disc <1.5, 1.2, 1.5>, <0, 1, 0>, 0.4 }
  12.    }
  13.  
  14. define lego_3_2
  15. object {
  16.      object { box <0, 0, 0>, <3, 1, 2> }
  17.    + object { cylinder <0.5, 1, 0.5>, <0.5, 1.2, 0.5>, 0.4 }
  18.    + object { cylinder <1.5, 1, 0.5>, <1.5, 1.2, 0.5>, 0.4 }
  19.    + object { cylinder <2.5, 1, 0.5>, <2.5, 1.2, 0.5>, 0.4 }
  20.    + object { cylinder <0.5, 1, 1.5>, <0.5, 1.2, 1.5>, 0.4 }
  21.    + object { cylinder <1.5, 1, 1.5>, <1.5, 1.2, 1.5>, 0.4 }
  22.    + object { cylinder <2.5, 1, 1.5>, <2.5, 1.2, 1.5>, 0.4 }
  23.    + object { disc <0.5, 1.2, 0.5>, <0, 1, 0>, 0.4 }
  24.    + object { disc <1.5, 1.2, 0.5>, <0, 1, 0>, 0.4 }
  25.    + object { disc <2.5, 1.2, 0.5>, <0, 1, 0>, 0.4 }
  26.    + object { disc <0.5, 1.2, 1.5>, <0, 1, 0>, 0.4 }
  27.    + object { disc <1.5, 1.2, 1.5>, <0, 1, 0>, 0.4 }
  28.    + object { disc <2.5, 1.2, 1.5>, <0, 1, 0>, 0.4 }
  29.    }
  30.  
  31. define lego_4_2
  32. object {
  33.    lego_2_2 + lego_2_2 { translate <2, 0, 0> }
  34.    }
  35.