home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / checker2.dat < prev    next >
Text File  |  1991-04-12  |  3KB  |  118 lines
  1.    {  Author name : Dan Farmer
  2.                     Minneapolis, MN
  3.  
  4.       Demonstrates one use of the powerful ALPHA parameter for colors.
  5.  
  6.       This data file is for use with DKBTrace by David Buck.  This file
  7.       is released to the public domain and may be used or altered by
  8.       anyone as desired. }
  9.  
  10. INCLUDE "shapes.dat"
  11. INCLUDE "colors.dat"
  12. INCLUDE "textures.dat"
  13.  
  14. VIEW_POINT
  15.     LOCATION <-1.5  30.0  -150.0>
  16.     DIRECTION <0.0 0.0 2.0>
  17.     UP  <0.0  1.0  0.0>
  18.     RIGHT <1.33333 0.0 0.0>
  19.     LOOK_AT <0.0  25.0  35.0>
  20. END_VIEW_POINT
  21.  
  22. OBJECT    { Basic Light source }
  23.     SPHERE <0.0 0.0 0.0> 5.0 END_SPHERE
  24.     TRANSLATE <100.0  100.0  -200.0>
  25.     TEXTURE
  26.        COLOUR White
  27.        AMBIENT 1.0
  28.        DIFFUSE 0.0
  29.     END_TEXTURE
  30.     LIGHT_SOURCE
  31.     COLOUR White
  32. END_OBJECT
  33.  
  34. { Now draw the sky }
  35. OBJECT
  36.     SPHERE <0.0  0.0  0.0> 200000.0 END_SPHERE
  37.     TEXTURE
  38.         0.05
  39.         MARBLE
  40.         TURBULENCE 1.0
  41.         COLOUR_MAP
  42.             [0.0 0.5   COLOUR RED 0.5 GREEN 0.6 BLUE 1.0
  43.                        COLOUR RED 0.6 GREEN 0.5 BLUE 1.0]
  44.             [0.5 0.6   COLOUR RED 0.5 GREEN 0.6 BLUE 1.0
  45.                        COLOUR RED 1.0 GREEN 1.0 BLUE 1.0]
  46.             [0.6 1.001 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  47.                        COLOUR RED 0.5 GREEN 0.5 BLUE 0.5]
  48.         END_COLOUR_MAP
  49.         SCALE <10.0 10.0 10.0>
  50.         AMBIENT 1.0
  51.         DIFFUSE 0.0
  52.     END_TEXTURE
  53.     COLOUR SkyBlue
  54. END_OBJECT
  55.  
  56. {*****************************************************************************}
  57. {
  58.   This composite makes a checkerboard with alternating marblized and solid
  59.   checks.
  60.    Ideas:
  61.     1) Sub-plane could also be a smaller-scaled checker pattern.
  62.     2) Also, what if sub-plane was a solid color plane, but farther below
  63.        the upper plane, say y= -2.0 ?
  64.    So many ideas, so little time.  Anybody got a 486 to spare?
  65. }
  66. COMPOSITE
  67.  
  68.     { Marbled checkerboard pattern using ALPHA 1.0 }
  69.     OBJECT
  70.         PLANE <0.0 1.0 0.0 > 0.0 END_PLANE      { Checkerboard surface plane }
  71.         TEXTURE
  72.             CHECKER COLOUR Thistle COLOUR White ALPHA 1.0
  73.             SCALE <10.0 10.0 10.0>
  74.         END_TEXTURE
  75.         COLOR White ALPHA 1.0
  76.     END_OBJECT
  77.  
  78.     { Marble sub-plane. }
  79.     OBJECT
  80.         PLANE <0.0 1.0 0.0 > -0.1 END_PLANE
  81.         TEXTURE
  82.         White_Marble
  83.         SCALE <10.0 10.0 10.0>
  84.         END_TEXTURE
  85.         COLOR White
  86.     END_OBJECT
  87. END_COMPOSITE
  88.  
  89.  
  90. {*****************************************************************************}
  91. {
  92.   This next composite uses the ALPHA parameter to make a sphere with
  93.   a "cutout" checker pattern.  A smaller, reflective sphere inside
  94.   is just there to add interest.
  95.  
  96.   Again, don't limit this to checker patterns.  Try it with GRADIENT and
  97.   BOZO, for example. Or maybe MARBLE with ALPHA 1.0 for all but the
  98.   "veins".
  99.   Try a series of "nested" concentric spheres, all with the transparent
  100.   checker pattern as its surface, perhaps in different colors.
  101. }
  102.  
  103. COMPOSITE
  104.     OBJECT    { Sphere with transparent checker sections }
  105.         SPHERE <0.0 25.0 0.0 > 25.0 END_SPHERE
  106.         TEXTURE
  107.             CHECKER COLOUR YellowGreen COLOUR White  ALPHA 1.0
  108.             SCALE <2.0 500.0 1.0>
  109.             ROTATE <90 0.0 -90.0>
  110.         END_TEXTURE
  111.         COLOR White ALPHA 1.0
  112.     END_OBJECT
  113.  
  114.     BOUNDED_BY
  115.         SPHERE <0.0 25.0 0.0> 25.2 END_SPHERE
  116.     END_BOUND
  117. END_COMPOSITE
  118.