home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 284.lha / DkbTrace_v1.1 / BasicShapes.data < prev    next >
Text File  |  1989-09-10  |  2KB  |  91 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. DECLARE White = COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  72. DECLARE Red = COLOUR RED 1.0
  73. DECLARE Green = COLOUR GREEN 1.0
  74. DECLARE Blue = COLOUR BLUE 1.0
  75. DECLARE Yellow = COLOUR RED 1.0 GREEN 1.0
  76. DECLARE Cyan = COLOUR BLUE 1.0 GREEN 1.0
  77. DECLARE Magenta = COLOUR RED 1.0 BLUE 1.0
  78.  
  79. DECLARE Red_Marble = TEXTURE
  80.    MARBLE
  81.    TURBULENCE 1.0
  82.    COLOUR_MAP
  83.         [0.0 0.8  COLOUR RED 0.8 GREEN 0.8 BLUE 0.6
  84.                 COLOUR RED 0.8 GREEN 0.4 BLUE 0.4]
  85.         [0.8 1.001 COLOUR RED 0.8 GREEN 0.4 BLUE 0.4
  86.                 COLOUR RED 0.8 GREEN 0.2 BLUE 0.2]
  87.     END_COLOUR_MAP
  88.     SCALE <10.0 10.0 10.0>
  89. END_TEXTURE
  90.  
  91.