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