home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / DKBTRACE.ZIP / BASICSHA.DAT < prev    next >
Encoding:
Text File  |  1990-07-22  |  4.2 KB  |  199 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.  
  108. DECLARE Red_Marble = TEXTURE
  109.    MARBLE
  110.    TURBULENCE 1.0
  111.    COLOUR_MAP
  112.         [0.0 0.8  COLOUR RED 0.8 GREEN 0.8 BLUE 0.6
  113.                 COLOUR RED 0.8 GREEN 0.4 BLUE 0.4]
  114.         [0.8 1.001 COLOUR RED 0.8 GREEN 0.4 BLUE 0.4
  115.                 COLOUR RED 0.8 GREEN 0.2 BLUE 0.2]
  116.     END_COLOUR_MAP
  117.     SCALE <10.0 10.0 10.0>
  118. END_TEXTURE
  119.  
  120. DECLARE Brown_Agate = TEXTURE
  121.      AGATE
  122.      TURBULENCE 0.3
  123.      COLOUR_MAP
  124.           [0.0 0.5  COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  125.                   COLOUR RED 0.9 GREEN 0.7 BLUE 0.6]
  126.           [0.5 0.6  COLOUR RED 0.9 GREEN 0.7 BLUE 0.6
  127.                   COLOUR RED 0.9 GREEN 0.7 BLUE 0.4]
  128.           [0.6 1.001 COLOUR RED 0.9 GREEN 0.7 BLUE 0.4
  129.                   COLOUR RED 0.7 GREEN 0.4 BLUE 0.2]
  130.       END_COLOUR_MAP
  131.       SCALE <10.0 10.0 10.0>
  132. END_TEXTURE
  133.  
  134. DECLARE Blue_Marble = TEXTURE
  135.     AGATE
  136.     TURBULENCE 0.3
  137.     COLOUR_MAP
  138.           [0.0 0.5  COLOUR RED 0.30 GREEN 0.30 BLUE 0.50
  139.                   COLOUR RED 0.30 GREEN 0.30 BLUE 0.50]
  140.           [0.5 0.55 COLOUR RED 0.30 GREEN 0.30 BLUE 0.50
  141.                   COLOUR RED 0.20 GREEN 0.20 BLUE 0.30]
  142.           [0.55 0.6 COLOUR RED 0.20 GREEN 0.20 BLUE 0.30
  143.                   COLOUR RED 0.25 GREEN 0.25 BLUE 0.35]
  144.           [0.6 0.7  COLOUR RED 0.25 GREEN 0.25 BLUE 0.35
  145.                   COLOUR RED 0.15 GREEN 0.15 BLUE 0.26]
  146.           [0.7 0.8  COLOUR RED 0.15 GREEN 0.15 BLUE 0.26
  147.                   COLOUR RED 0.10 GREEN 0.10 BLUE 0.20]
  148.           [0.8 0.9  COLOUR RED 0.10 GREEN 0.10 BLUE 0.20
  149.                   COLOUR RED 0.30 GREEN 0.30 BLUE 0.50]
  150.           [0.9 1.001  COLOUR RED 0.30 GREEN 0.30 BLUE 0.50
  151.                   COLOUR RED 0.10 GREEN 0.10 BLUE 0.20]
  152.     END_COLOUR_MAP
  153.     SCALE <10.0 10.0 10.0>
  154. END_TEXTURE
  155.  
  156. DECLARE Dull = TEXTURE
  157.    AMBIENT 0.3
  158.    DIFFUSE 0.7
  159. END_TEXTURE
  160.  
  161. DECLARE Shiny = TEXTURE
  162.    AMBIENT 0.3
  163.    DIFFUSE 0.7
  164.    PHONG 1.0
  165.    PHONGSIZE 20.0
  166. END_TEXTURE
  167.  
  168. DECLARE Mirror = TEXTURE
  169.    AMBIENT 0.0
  170.    DIFFUSE 0.0
  171.    REFLECTION 1.0
  172. END_TEXTURE
  173.  
  174. DECLARE Luminous = TEXTURE
  175.    AMBIENT 1.0
  176.    DIFFUSE 0.0
  177. END_TEXTURE
  178.  
  179. DECLARE Glass = TEXTURE
  180.    AMBIENT 0.0
  181.    DIFFUSE 0.0
  182.    REFLECTION 0.5
  183.    REFRACTION 0.5
  184.    IOR 1.2
  185. END_TEXTURE
  186.  
  187. DECLARE Metal = TEXTURE
  188.    AMBIENT 0.3
  189.    DIFFUSE 0.7
  190.    BRILLIANCE 6.0
  191. END_TEXTURE
  192.  
  193. DECLARE Glass2 = TEXTURE
  194.    AMBIENT 0.0
  195.    DIFFUSE 0.0
  196.    REFLECTION 0.5
  197.    REFRACTION 0.5
  198. END_TEXTURE
  199.