home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / tetra.dat < prev    next >
Text File  |  1991-04-12  |  2KB  |  112 lines
  1. INCLUDE "shapes.dat"          {Includes New "Tetrahedron" Primitive}
  2. INCLUDE "colors.dat"
  3. INCLUDE "textures.dat"
  4.  
  5. VIEW_POINT
  6.         LOCATION <0.0 30.0 -200.0>
  7.         DIRECTION <0.0 -0.15 1.0>
  8.         UP <0.0 1.0 0.0>
  9.         RIGHT <1.333 0.0 0.0>
  10. END_VIEW_POINT
  11.  
  12. DECLARE Tetra = OBJECT
  13.   INTERSECTION Tetrahedron END_INTERSECTION
  14.  
  15.   TEXTURE
  16.     0.01
  17.     COLOUR Gold
  18.     AMBIENT 0.3
  19.     DIFFUSE 0.7
  20.     REFLECTION 0.4
  21.     BRILLIANCE 6.0
  22.   END_TEXTURE
  23.   COLOUR Gold
  24. END_OBJECT
  25.  
  26. OBJECT Tetra
  27.  SCALE <10.0 10.0 10.0>
  28.  ROTATE <0.0 -45.0 0.0>
  29.  TRANSLATE <-10.0 0.0 -105.0>
  30. END_OBJECT
  31.  
  32. OBJECT Tetra
  33.  SCALE <10.0 10.0 10.0>
  34.  ROTATE <0.0 -40.0 0.0>
  35.  TRANSLATE <75.0 0.0 50.0>
  36. END_OBJECT
  37.  
  38. OBJECT Tetra
  39.  SCALE <10.0 10.0 10.0>
  40.  ROTATE <0.0 30.0 0.0>
  41.  TRANSLATE <-60.0 0.0 -50.0>
  42. END_OBJECT
  43.  
  44. OBJECT Tetra
  45.  SCALE <10.0 10.0 10.0>
  46.  ROTATE <0.0 -75.0 0.0>
  47.  TRANSLATE <60.0 0.0 -65.0>
  48. END_OBJECT
  49.  
  50. OBJECT
  51.    SPHERE <-50.0 50.0 100.0> 100.0 END_SPHERE
  52.    TEXTURE
  53.      0.01
  54.      COLOUR White
  55.      AMBIENT 0.05
  56.      DIFFUSE 0.1
  57.      REFLECTION 0.97
  58.      BRILLIANCE 4.0
  59.    END_TEXTURE
  60.    COLOUR White
  61. END_OBJECT
  62.  
  63. OBJECT
  64.   PLANE <0.0 1.0 0.0> -50.0 END_PLANE
  65.   TEXTURE
  66.    0.01
  67.    CHECKER COLOUR Blue COLOUR Gray
  68.    SCALE <40.0 40.0 40.0>
  69.    AMBIENT 0.3
  70.    DIFFUSE 0.7
  71.    REFLECTION 0.1
  72.    BRILLIANCE 3.0
  73.   END_TEXTURE
  74.   COLOUR Blue
  75. END_OBJECT
  76.  
  77. OBJECT
  78.   PLANE <0.0 1.0 0.0> 500.0 END_PLANE
  79.   TEXTURE
  80.     0.05
  81.     Cloud_Sky
  82.     SCALE <200.0 50.0 100.0>
  83.     AMBIENT 0.7
  84.     DIFFUSE 0.0
  85.   END_TEXTURE
  86.   COLOUR RED 0.5 GREEN 0.5 BLUE 0.8
  87. END_OBJECT
  88.  
  89. OBJECT
  90.   SPHERE <0.0 0.0 0.0> 20.0 END_SPHERE
  91.   TRANSLATE <60.0 60.0 -200.0>
  92.   TEXTURE
  93.     COLOUR White
  94.     AMBIENT 1.0
  95.     DIFFUSE 0.0
  96.   END_TEXTURE
  97.   LIGHT_SOURCE
  98.   COLOUR White
  99. END_OBJECT
  100.  
  101. OBJECT
  102.   SPHERE <0.0 0.0 0.0> 20.0 END_SPHERE
  103.   TRANSLATE <-60.0 60.0 -200.0>
  104.   TEXTURE
  105.     COLOUR White
  106.     AMBIENT 1.0
  107.     DIFFUSE 0.0
  108.   END_TEXTURE
  109.   LIGHT_SOURCE
  110.   COLOUR White
  111. END_OBJECT
  112.