home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 500-599 / ff513.lzh / DKBTrace / dkb212dt.lzh / shapes.dat < prev    next >
Text File  |  1991-04-23  |  4KB  |  185 lines
  1. DECLARE Sphere = QUADRIC
  2.     <1.0 1.0 1.0>
  3.     <0.0 0.0 0.0>
  4.     <0.0 0.0 0.0>
  5.     -1.0
  6. END_QUADRIC
  7.  
  8.  
  9. DECLARE Cylinder_X = QUADRIC
  10.     <0.0 1.0 1.0>
  11.     <0.0 0.0 0.0>
  12.     <0.0 0.0 0.0>
  13.     -1.0
  14. END_QUADRIC
  15.  
  16.  
  17. DECLARE Cylinder_Y = QUADRIC
  18.     <1.0 0.0 1.0>
  19.     <0.0 0.0 0.0>
  20.     <0.0 0.0 0.0>
  21.     -1.0
  22. END_QUADRIC
  23.  
  24.  
  25. DECLARE Cylinder_Z = QUADRIC
  26.     <1.0 1.0 0.0>
  27.     <0.0 0.0 0.0>
  28.     <0.0 0.0 0.0>
  29.     -1.0
  30. END_QUADRIC
  31.  
  32.  
  33. DECLARE Cone_X = QUADRIC
  34.     <-1.0 1.0 1.0>
  35.     <0.0 0.0 0.0>
  36.     <0.0 0.0 0.0>
  37.     0.0
  38. END_QUADRIC
  39.  
  40.  
  41. DECLARE Cone_Y = QUADRIC
  42.     <1.0 -1.0 1.0>
  43.     <0.0 0.0 0.0>
  44.     <0.0 0.0 0.0>
  45.     0.0
  46. END_QUADRIC
  47.  
  48.  
  49. DECLARE Cone_Z = QUADRIC
  50.     <1.0 1.0 -1.0>
  51.     <0.0 0.0 0.0>
  52.     <0.0 0.0 0.0>
  53.     0.0
  54. END_QUADRIC
  55.  
  56.  
  57. DECLARE Plane_YZ = QUADRIC
  58.     <0.0 0.0 0.0>
  59.     <0.0 0.0 0.0>
  60.     <1.0 0.0 0.0>
  61.     0.0
  62. END_QUADRIC
  63.  
  64.        
  65. DECLARE Plane_XZ = QUADRIC
  66.     <0.0 0.0 0.0>
  67.     <0.0 0.0 0.0>
  68.     <0.0 1.0 0.0>
  69.     0.0
  70. END_QUADRIC
  71.  
  72.        
  73. DECLARE Plane_XY = QUADRIC
  74.     <0.0 0.0 0.0>
  75.     <0.0 0.0 0.0>
  76.     <0.0 0.0 1.0>
  77.     0.0
  78. END_QUADRIC
  79.  
  80.  
  81. { y^2 + z^2 - x = 0 }
  82. DECLARE Paraboloid_X = QUADRIC
  83.     <0.0  1.0  1.0>
  84.     <0.0  0.0  0.0>
  85.     <-1.0 0.0  0.0>
  86.     0.0
  87. END_QUADRIC
  88.  
  89.  
  90. { x^2 + z^2 - y = 0 }
  91. DECLARE Paraboloid_Y = QUADRIC
  92.     <1.0  0.0  1.0>
  93.     <0.0  0.0  0.0>
  94.     <0.0 -1.0  0.0>
  95.     0.0
  96. END_QUADRIC
  97.  
  98.  
  99. { x^2 + y^2 - z = 0 }
  100. DECLARE Paraboloid_Z = QUADRIC
  101.     <1.0  1.0  0.0>
  102.     <0.0  0.0  0.0>
  103.     <0.0  0.0 -1.0>
  104.     0.0
  105. END_QUADRIC
  106.  
  107.  
  108. { y - x^2 + z^2 = 0 }
  109. DECLARE Hyperboloid = QUADRIC
  110.     < -1.0  0.0  1.0>
  111.     <  0.0  0.0  0.0>
  112.     <  0.0  1.0  0.0>
  113.     0.0
  114. END_QUADRIC
  115.  
  116.  
  117. DECLARE Hyperboloid_Y = QUADRIC  { Vertical hyperboloid }
  118.     <1.0 -1.0  1.0>          {                      }
  119.     <0.0  0.0  0.0>          {            \   /     }
  120.     <0.0  0.0  0.0>          { Like this:  ) (      }
  121.     -1.0                     {            /   \     }
  122. END_QUADRIC
  123.  
  124.  
  125. DECLARE Cube = INTERSECTION
  126.     PLANE <0.0 0.0 1.0> 1.0 END_PLANE
  127.     PLANE <0.0 0.0 -1.0> 1.0 END_PLANE
  128.     PLANE <0.0 1.0 0.0> 1.0 END_PLANE
  129.     PLANE <0.0 -1.0 0.0> 1.0 END_PLANE
  130.     PLANE <1.0 0.0 0.0> 1.0 END_PLANE
  131.     PLANE <-1.0 0.0 0.0> 1.0 END_PLANE
  132. END_INTERSECTION
  133.  
  134.  
  135. DECLARE Tetrahedron = INTERSECTION
  136.     PLANE <0.0 -1.0 0.0> 1.0 END_PLANE
  137.     PLANE <0.0 0.0 1.0> 1.0 ROTATE <-30.0 0.0 0.0> END_PLANE
  138.     PLANE <1.0 0.0 0.0> 1.0 ROTATE <0.0 30.0 30.0> END_PLANE
  139.     PLANE <-1.0 0.0 0.0> 1.0 ROTATE <0.0 -30.0 -30.0> END_PLANE
  140. END_INTERSECTION
  141.  
  142.  
  143. DECLARE X_Disk = INTERSECTION       { Capped cylinder, Length in X axis }
  144.   QUADRIC Cylinder_X END_QUADRIC
  145.   PLANE <1.0 0.0 0.0> 0.0 INVERSE END_PLANE
  146.   PLANE <1.0 0.0 0.0> 1.0 END_PLANE
  147. END_INTERSECTION
  148.  
  149.  
  150. DECLARE Y_Disk = INTERSECTION       { Capped cylinder, Length in Y axis }
  151.   QUADRIC Cylinder_Y END_QUADRIC
  152.   PLANE <0.0 1.0 0.0> 0.0 INVERSE END_PLANE
  153.   PLANE <0.0 1.0 0.0> 1.0 END_PLANE
  154. END_INTERSECTION
  155.  
  156.  
  157. DECLARE Z_Disk = INTERSECTION       { Capped cylinder, Length in Z axis }
  158.   QUADRIC Cylinder_Z END_QUADRIC
  159.   PLANE <0.0 0.0 1.0> 0.0 INVERSE END_PLANE
  160.   PLANE <0.0 0.0 1.0> 1.0 END_PLANE
  161. END_INTERSECTION
  162.  
  163.  
  164. DECLARE Hexagon = INTERSECTION            { Hexagonal Solid, axis along X }
  165.     PLANE <0.0 0.0 1.0> 1.0 END_PLANE   { Rotate 90 in Z axis to stand up }
  166.     PLANE <0.0 0.0 1.0> 1.0 ROTATE <60.0 0.0 0.0> END_PLANE
  167.     PLANE <0.0 0.0 1.0> 1.0 ROTATE <120.0 0.0 0.0> END_PLANE
  168.     PLANE <0.0 0.0 1.0> 1.0 ROTATE <180.0 0.0 0.0> END_PLANE
  169.     PLANE <0.0 0.0 1.0> 1.0 ROTATE <240.0 0.0 0.0> END_PLANE
  170.     PLANE <0.0 0.0 1.0> 1.0 ROTATE <300.0 0.0 0.0> END_PLANE
  171.     PLANE <1.0 0.0 0.0> 1.0 END_PLANE
  172.     PLANE <1.0 0.0 0.0> -1.0 INVERSE END_PLANE
  173. END_INTERSECTION
  174.  
  175. DECLARE Rhomboid =            { Three Dimensional 4-Sided Diamond }
  176. INTERSECTION
  177.     PLANE <-1.0  0.0  0.0>  1.0 ROTATE <0.0 0.0 -30.0> END_PLANE
  178.     PLANE < 1.0  0.0  0.0>  1.0 ROTATE <0.0 0.0 -30.0> END_PLANE
  179.     PLANE < 0.0  0.0  1.0>  1.0 END_PLANE
  180.     PLANE < 0.0  0.0 -1.0>  1.0 END_PLANE
  181.     PLANE < 0.0  1.0  0.0>  1.0 END_PLANE
  182.     PLANE < 0.0 -1.0  0.0>  1.0 END_PLANE
  183. END_INTERSECTION
  184.  
  185.