home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma09.dms / ma09.adf / Dkb / BasicShapes.data < prev    next >
Text File  |  1990-06-30  |  4KB  |  207 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. DECLARE Cylinder_X = QUADRIC
  9.        <0.0 1.0 1.0>
  10.        <0.0 0.0 0.0>
  11.        <0.0 0.0 0.0>
  12.        -1.0
  13. END_QUADRIC
  14.  
  15. DECLARE Cylinder_Y = QUADRIC
  16.        <1.0 0.0 1.0>
  17.        <0.0 0.0 0.0>
  18.        <0.0 0.0 0.0>
  19.        -1.0
  20. END_QUADRIC
  21.  
  22. DECLARE Cylinder_Z = QUADRIC
  23.        <1.0 1.0 0.0>
  24.        <0.0 0.0 0.0>
  25.        <0.0 0.0 0.0>
  26.        -1.0
  27. END_QUADRIC
  28.  
  29. DECLARE Cone_X = QUADRIC
  30.        <0.0 1.0 1.0>
  31.        <0.0 0.0 0.0>
  32.        <1.0 0.0 0.0>
  33.        0.0
  34. END_QUADRIC
  35.  
  36. DECLARE Cone_Y = QUADRIC
  37.        <1.0 0.0 1.0>
  38.        <0.0 0.0 0.0>
  39.        <0.0 1.0 0.0>
  40.        0.0
  41. END_QUADRIC
  42.  
  43. DECLARE Cone_Z = QUADRIC
  44.        <1.0 1.0 0.0>
  45.        <0.0 0.0 0.0>
  46.        <0.0 0.0 1.0>
  47.        0.0
  48. END_QUADRIC
  49.  
  50. DECLARE Plane_YZ = QUADRIC
  51.        <0.0 0.0 0.0>
  52.        <0.0 0.0 0.0>
  53.        <1.0 0.0 0.0>
  54.        0.0
  55. END_QUADRIC
  56.        
  57. DECLARE Plane_XZ = QUADRIC
  58.        <0.0 0.0 0.0>
  59.        <0.0 0.0 0.0>
  60.        <0.0 1.0 0.0>
  61.        0.0
  62. END_QUADRIC
  63.        
  64. DECLARE Plane_XY = QUADRIC
  65.        <0.0 0.0 0.0>
  66.        <0.0 0.0 0.0>
  67.        <0.0 0.0 1.0>
  68.        0.0
  69. END_QUADRIC
  70.  
  71.  
  72. { y^2 + z^2 - x = 0 }
  73. DECLARE Paraboloid_X = QUADRIC
  74.        <0.0  1.0  1.0>
  75.        <0.0  0.0  0.0>
  76.        <-1.0 0.0  0.0>
  77.        0.0
  78. END_QUADRIC
  79.  
  80.  
  81. { x^2 + z^2 - y = 0 }
  82. DECLARE Paraboloid_Y = QUADRIC
  83.        <1.0  0.0  1.0>
  84.        <0.0  0.0  0.0>
  85.        <0.0 -1.0  0.0>
  86.        0.0
  87. END_QUADRIC
  88.  
  89.  
  90. { x^2 + y^2 - z = 0 }
  91. DECLARE Paraboloid_Z = QUADRIC
  92.        <1.0  1.0  0.0>
  93.        <0.0  0.0  0.0>
  94.        <0.0  0.0 -1.0>
  95.        0.0
  96. END_QUADRIC
  97.  
  98.  
  99. { y - x^2 + z^2 = 0 }
  100. DECLARE Hyperboloid = QUADRIC
  101.        < -1.0  0.0  1.0>
  102.        <  0.0  0.0  0.0>
  103.        <  0.0  1.0  0.0>
  104.        0.0
  105. END_QUADRIC
  106.  
  107. DECLARE Black = COLOUR RED 0.0 GREEN 0.0 BLUE 0.0
  108. DECLARE White = COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  109. DECLARE Red = COLOUR RED 1.0
  110. DECLARE Green = COLOUR GREEN 1.0
  111. DECLARE Blue = COLOUR BLUE 1.0
  112. DECLARE Yellow = COLOUR RED 1.0 GREEN 1.0
  113. DECLARE Cyan = COLOUR BLUE 1.0 GREEN 1.0
  114. DECLARE Magenta = COLOUR RED 1.0 BLUE 1.0
  115.  
  116. DECLARE Red_Marble = TEXTURE
  117.    MARBLE
  118.    TURBULENCE 1.0
  119.    COLOUR_MAP
  120.         [0.0 0.8  COLOUR RED 0.8 GREEN 0.8 BLUE 0.6
  121.                 COLOUR RED 0.8 GREEN 0.4 BLUE 0.4]
  122.         [0.8 1.001 COLOUR RED 0.8 GREEN 0.4 BLUE 0.4
  123.                 COLOUR RED 0.8 GREEN 0.2 BLUE 0.2]
  124.     END_COLOUR_MAP
  125.     SCALE <10.0 10.0 10.0>
  126. END_TEXTURE
  127.  
  128. DECLARE Brown_Agate = TEXTURE
  129.      AGATE
  130.      TURBULENCE 0.3
  131.      COLOUR_MAP
  132.           [0.0 0.5  COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  133.                   COLOUR RED 0.9 GREEN 0.7 BLUE 0.6]
  134.           [0.5 0.6  COLOUR RED 0.9 GREEN 0.7 BLUE 0.6
  135.                   COLOUR RED 0.9 GREEN 0.7 BLUE 0.4]
  136.           [0.6 1.001 COLOUR RED 0.9 GREEN 0.7 BLUE 0.4
  137.                   COLOUR RED 0.7 GREEN 0.4 BLUE 0.2]
  138.       END_COLOUR_MAP
  139.       SCALE <10.0 10.0 10.0>
  140. END_TEXTURE
  141.  
  142. DECLARE Blue_Marble = TEXTURE
  143.     AGATE
  144.     TURBULENCE 0.3
  145.     COLOUR_MAP
  146.           [0.0 0.5  COLOUR RED 0.30 GREEN 0.30 BLUE 0.50
  147.                   COLOUR RED 0.30 GREEN 0.30 BLUE 0.50]
  148.           [0.5 0.55 COLOUR RED 0.30 GREEN 0.30 BLUE 0.50
  149.                   COLOUR RED 0.20 GREEN 0.20 BLUE 0.30]
  150.           [0.55 0.6 COLOUR RED 0.20 GREEN 0.20 BLUE 0.30
  151.                   COLOUR RED 0.25 GREEN 0.25 BLUE 0.35]
  152.           [0.6 0.7  COLOUR RED 0.25 GREEN 0.25 BLUE 0.35
  153.                   COLOUR RED 0.15 GREEN 0.15 BLUE 0.26]
  154.           [0.7 0.8  COLOUR RED 0.15 GREEN 0.15 BLUE 0.26
  155.                   COLOUR RED 0.10 GREEN 0.10 BLUE 0.20]
  156.           [0.8 0.9  COLOUR RED 0.10 GREEN 0.10 BLUE 0.20
  157.                   COLOUR RED 0.30 GREEN 0.30 BLUE 0.50]
  158.           [0.9 1.001  COLOUR RED 0.30 GREEN 0.30 BLUE 0.50
  159.                   COLOUR RED 0.10 GREEN 0.10 BLUE 0.20]
  160.     END_COLOUR_MAP
  161.     SCALE <10.0 10.0 10.0>
  162. END_TEXTURE
  163.  
  164. DECLARE Dull = TEXTURE
  165.    AMBIENT 0.3
  166.    DIFFUSE 0.7
  167. END_TEXTURE
  168.  
  169. DECLARE Shiny = TEXTURE
  170.    AMBIENT 0.3
  171.    DIFFUSE 0.7
  172.    PHONG 1.0
  173.    PHONGSIZE 20.0
  174. END_TEXTURE
  175.  
  176. DECLARE Mirror = TEXTURE
  177.    AMBIENT 0.0
  178.    DIFFUSE 0.0
  179.    REFLECTION 1.0
  180. END_TEXTURE
  181.  
  182. DECLARE Luminous = TEXTURE
  183.    AMBIENT 1.0
  184.    DIFFUSE 0.0
  185. END_TEXTURE
  186.  
  187. DECLARE Glass = TEXTURE
  188.    AMBIENT 0.0
  189.    DIFFUSE 0.0
  190.    REFLECTION 0.5
  191.    REFRACTION 0.5
  192.    IOR 1.2
  193. END_TEXTURE
  194.  
  195. DECLARE Metal = TEXTURE
  196.    AMBIENT 0.3
  197.    DIFFUSE 0.7
  198.    BRILLIANCE 6.0
  199. END_TEXTURE
  200.  
  201. DECLARE Glass2 = TEXTURE
  202.    AMBIENT 0.0
  203.    DIFFUSE 0.0
  204.    REFLECTION 0.5
  205.    REFRACTION 0.5
  206. END_TEXTURE
  207.