home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / arches.dat < prev    next >
Text File  |  1991-04-12  |  4KB  |  152 lines
  1.    {  Author name : Dan Farmer
  2.                     Minneapolis, MN
  3.  
  4.       Parabolic arches on the water.  Is this the St. Louis McDonalds?
  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 "colors.dat"
  11. INCLUDE "shapes.dat"
  12. INCLUDE "textures.dat"        { Includes the new "Polished_Metal" texture }
  13.  
  14. VIEW_POINT
  15.    LOCATION <60.0  0.0  -135.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 0.0 0.0>
  20. END_VIEW_POINT
  21.  
  22. { Light }
  23. OBJECT  
  24.    SPHERE <0.0  0.0  0.0>  2.0 END_SPHERE
  25.    TRANSLATE <200.0  200.0  -150.0>
  26.    TEXTURE
  27.       COLOUR Orange             { Note the color of light}
  28.       AMBIENT 1.0
  29.       DIFFUSE 0.0
  30.    END_TEXTURE
  31.    LIGHT_SOURCE
  32.    COLOUR Orange
  33. END_OBJECT
  34.  
  35. { Now draw the sky (From SUNSET.DAT }
  36. OBJECT
  37.    SPHERE <0.0  0.0  0.0> 300.0 END_SPHERE
  38.    TEXTURE
  39.       0.05
  40.       GRADIENT <0.0  1.0  0.0>
  41.       COLOUR_MAP [0.0 0.8  COLOUR RED 0.5 GREEN 0.1 BLUE 0.7
  42.                            COLOUR RED 0.1 GREEN 0.1 BLUE 0.9]
  43.                  [0.8 1.0 COLOUR RED 0.1 GREEN 0.1 BLUE 0.9
  44.                           COLOUR RED 0.1 GREEN 0.1 BLUE 0.9]
  45.       END_COLOUR_MAP
  46.       SCALE <300.0  300.0  300.0>
  47.       AMBIENT 0.7
  48.       DIFFUSE 0.0   { we don't want clouds casting shadows on the sky }
  49.    END_TEXTURE
  50.    COLOUR RED 0.7  GREEN 0.7 BLUE 1.0
  51. END_OBJECT
  52.  
  53. { Put in a few clouds }
  54.  
  55. OBJECT
  56.    SPHERE <0.0  0.0  0.0> 259.0 END_SPHERE
  57.  
  58.    TEXTURE
  59.       BOZO
  60.       TURBULENCE 0.7
  61.       COLOUR_MAP
  62.           [0.0 0.6  COLOUR RED 1.0 GREEN 1.0 BLUE 1.0 ALPHA 1.0
  63.                     COLOUR RED 1.0 GREEN 1.0 BLUE 1.0 ALPHA 1.0]
  64.           [0.6 0.8 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0 ALPHA 1.0
  65.                     COLOUR RED 1.0 GREEN 1.0 BLUE 1.0]
  66.           [0.8 1.001 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  67.                      COLOUR RED 0.8 GREEN 0.8 BLUE 0.8]
  68.       END_COLOUR_MAP
  69.       SCALE <100.0  20.0  100.0>
  70.       AMBIENT 0.7
  71.       DIFFUSE 0.0
  72.    END_TEXTURE
  73.    COLOUR RED 0.7  GREEN 0.7  BLUE 1.0
  74. END_OBJECT
  75.  
  76.  
  77.  
  78. { Define the ocean surface }
  79. OBJECT
  80.    PLANE <0.0  1.0  0.0> -10.0 END_PLANE
  81.  
  82.    TEXTURE
  83.       COLOUR Blue
  84.       WAVES 0.05
  85.       REFLECTION 0.8
  86.       FREQUENCY 5000.0
  87.       SCALE <3000.0 3000.0 3000.0>
  88.    END_TEXTURE
  89.    COLOUR Blue
  90. END_OBJECT
  91.  
  92. { Put a floor underneath to catch any errant waves from the ripples }
  93. OBJECT
  94.    PLANE <0.0  1.0  0.0> -11.0 END_PLANE
  95.    TEXTURE
  96.       0.05
  97.       COLOUR Blue
  98.       AMBIENT 1.0
  99.       DIFFUSE 0.0
  100.    END_TEXTURE
  101.    COLOUR Blue
  102. END_OBJECT
  103.  
  104.  
  105. COMPOSITE
  106.   OBJECT
  107.     DIFFERENCE
  108.         QUADRIC Paraboloid_Y            { Declared in SHAPES.DAT }
  109.             SCALE <20.0 20.0 5.0>
  110.             ROTATE <180.0 0.0 0.0>
  111.             TRANSLATE <0.0 0.0 0.0>
  112.         END_QUADRIC
  113.         QUADRIC Paraboloid_Y
  114.             SCALE <15.0 20.0 15.0>
  115.             ROTATE <180.0 0.0 0.0>
  116.             TRANSLATE <0.0 -2.0 0.0>
  117.         END_QUADRIC
  118.     END_DIFFERENCE
  119.     TEXTURE
  120.         Polished_Metal                { Declared in TEXTURES.DAT }
  121.     0.05
  122.         COLOR White                { Declared in COLORS.DAT }
  123.     END_TEXTURE
  124.     COLOR White
  125.   END_OBJECT
  126. TRANSLATE <0.0 30.0 -25.0>
  127. END_COMPOSITE
  128.  
  129. COMPOSITE
  130.   OBJECT
  131.     DIFFERENCE
  132.         QUADRIC Paraboloid_Y
  133.             SCALE <20.0 20.0 5.0>
  134.             ROTATE <180.0 0.0 0.0>
  135.             TRANSLATE <0.0 0.0 0.0>
  136.         END_QUADRIC
  137.         QUADRIC Paraboloid_Y
  138.             SCALE <15.0 20.0 15.0>
  139.             ROTATE <180.0 0.0 0.0>
  140.             TRANSLATE <0.0 -2.0 0.0>
  141.         END_QUADRIC
  142.     END_DIFFERENCE
  143.     TEXTURE
  144.         Polished_Metal
  145.     0.05
  146.     COLOR White
  147.     END_TEXTURE
  148.     COLOR White
  149.   END_OBJECT
  150. TRANSLATE <0.0 30.0 50.0>
  151. END_COMPOSITE
  152.