home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser-CD 2000 January / LCD_01_2000.iso / grafik / cloe / include / polyhedr.inc < prev    next >
Encoding:
Text File  |  1995-06-08  |  3.9 KB  |  112 lines
  1. #define TetraHedron object {
  2.   polyhedron {
  3.     plane <0 1 0> <0 1 0>
  4.     plane <0 0 1> <0 0 1> rotate <19.47 0 0>
  5.     plane <0 0 1> <0 0 1> rotate <19.47 -120 0>
  6.     plane <0 0 1> <0 0 1> rotate <19.47 120 0>
  7.     lower <-3 -3 -3> upper <3 3 3>
  8.   }
  9. }
  10.  
  11. #define OctaHedron object {
  12.   polyhedron {
  13.     plane <0 0 -1> <0 0 -1> rotate <35.26438968275 0 0>
  14.     plane <0 0 -1> <0 0 -1> rotate <-35.26438968275 0 0>
  15.     plane <0 0  1> <0 0  1> rotate <35.26438968275 0 0>
  16.     plane <0 0  1> <0 0  1> rotate <-35.26438968275 0 0>
  17.  
  18.     plane <-1 0 0> <-1 0 0> rotate <0 0 -35.26438968275>
  19.     plane <-1 0 0> <-1 0 0> rotate <0 0 35.26438968275>
  20.     plane < 1 0 0> < 1 0 0> rotate <0 0 -35.26438968275>
  21.     plane < 1 0 0> < 1 0 0> rotate <0 0 35.26438968275>
  22.     lower <-1.8 -1.8 -1.8> upper <1.8 1.8 1.8>
  23.   }
  24. }
  25.  
  26. #define DodecaHedron object {
  27.   polyhedron {
  28.     plane <0 0 1> <0 0  1> rotate <-26.56505117708 0 0>
  29.     plane <0 0 1> <0 0  1> rotate <-26.56505117708 -72.0 0>
  30.     plane <0 0 1> <0 0  1> rotate <-26.56505117708 -144.0 0>
  31.     plane <0 0 1> <0 0  1> rotate <-26.56505117708 -216.0 0>
  32.     plane <0 0 1> <0 0  1> rotate <-26.56505117708 -288.0 0>
  33.  
  34.     plane <0 0 1> <0 0  1> rotate <26.56505117708 -36.0 0>
  35.     plane <0 0 1> <0 0  1> rotate <26.56505117708 -108.0 0>
  36.     plane <0 0 1> <0 0  1> rotate <26.56505117708 -180 0>
  37.     plane <0 0 1> <0 0  1> rotate <26.56505117708 -252.0 0>
  38.     plane <0 0 1> <0 0  1> rotate <26.56505117708 -324.0 0>
  39.  
  40.     plane <0 -1 0> <0 -1 0>
  41.     plane <0  1 0> <0  1 0>
  42.     lower <-1.3 -1.3 -1.3> upper <1.3 1.3 1.3>
  43.   }
  44. }
  45.  
  46. #define IcosaHedron object {
  47.   polyhedron {
  48.     plane <0 0 1> <0 0  1> rotate <52.6625 0 0>
  49.     plane <0 0 1> <0 0  1> rotate <52.6625 -72.0 0>
  50.     plane <0 0 1> <0 0  1> rotate <52.6625 -144.0 0>
  51.     plane <0 0 1> <0 0  1> rotate <52.6625 -216.0 0>
  52.     plane <0 0 1> <0 0  1> rotate <52.6625 -288.0 0>
  53.  
  54.     plane <0 0 1> <0 0  1> rotate <10.8125 0 0>
  55.     plane <0 0 1> <0 0  1> rotate <10.8125 -72.0 0>
  56.     plane <0 0 1> <0 0  1> rotate <10.8125 -144.0 0>
  57.     plane <0 0 1> <0 0  1> rotate <10.8125 -216.0 0>
  58.     plane <0 0 1> <0 0  1> rotate <10.8125 -288.0 0>
  59.  
  60.     plane <0 0 1> <0 0  1> rotate <-52.6625 -36.0 0>
  61.     plane <0 0 1> <0 0  1> rotate <-52.6625 -108.0 0>
  62.     plane <0 0 1> <0 0  1> rotate <-52.6625 -180 0>
  63.     plane <0 0 1> <0 0  1> rotate <-52.6625 -252.0 0>
  64.     plane <0 0 1> <0 0  1> rotate <-52.6625 -324.0 0>
  65.  
  66.     plane <0 0 1> <0 0  1> rotate <-10.8125 -36.0 0>
  67.     plane <0 0 1> <0 0  1> rotate <-10.8125 -108.0 0>
  68.     plane <0 0 1> <0 0  1> rotate <-10.8125 -180 0>
  69.     plane <0 0 1> <0 0  1> rotate <-10.8125 -252.0 0>
  70.     plane <0 0 1> <0 0  1> rotate <-10.8125 -324.0 0>
  71.     lower <-1.3 -1.3 -1.3> upper <1.3 1.3 1.3>
  72.   }
  73. }
  74.  
  75. #define Hexagon object {
  76.   polyhedron {
  77.     plane <0.0 0.0 -1.0> <0.0 0.0 -1.0>
  78.     plane <0.0 0.0 -1.0> <0.0 0.0 -1.0> rotate <60.0 0.0 0.0>
  79.     plane <0.0 0.0 -1.0> <0.0 0.0 -1.0> rotate <120.0 0.0 0.0>
  80.     plane <0.0 0.0 -1.0> <0.0 0.0 -1.0> rotate <180.0 0.0 0.0>
  81.     plane <0.0 0.0 -1.0> <0.0 0.0 -1.0> rotate <240.0 0.0 0.0>
  82.     plane <0.0 0.0 -1.0> <0.0 0.0 -1.0> rotate <300.0 0.0 0.0>
  83.     plane <-1.0 0.0 0.0> <-1.0 0.0 0.0>
  84.     plane <1.0 0.0 0.0> <1.0 0.0 0.0>
  85.     lower <-1.5 -1.5 -1.5> upper <1.5 1.5 1.5>
  86.   }
  87. }
  88.  
  89. #define Rhomboid object {
  90.   polyhedron {
  91.     plane < 1  0  0> < 1  0  0> rotate <0 0 -30>
  92.     plane <-1  0  0> <-1  0  0> rotate <0 0 -30>
  93.     plane < 0  0 -1> < 0  0 -1>
  94.     plane < 0  0  1> < 0  0  1>
  95.     plane < 0 -1  0> < 0 -1  0>
  96.     plane < 0  1  0> < 0  1  0>
  97.     lower <-2.3 -2.3 -2.3> upper <2.3 2.3 2.3>
  98.   }
  99. }
  100.  
  101. #define Pyramid object {
  102.   polyhedron {
  103.     plane <-1  0  0> <-1  0  0> rotate <0 0 40>
  104.     plane < 1  0  0> < 1  0  0> rotate <0 0 -40>
  105.     plane < 0  0 -1> < 0  0 -1> rotate <-40 0 0>
  106.     plane < 0  0  1> < 0  0  1> rotate <40 0 0>
  107.     plane < 0  0  0> < 0  1  0>
  108.     lower <-5 -5 -5> upper <5 5 5>
  109.   }
  110.   translate <0 1 0>
  111. }
  112.