home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / graphic / dkb / sunset.dat < prev    next >
Text File  |  1992-07-18  |  2KB  |  93 lines
  1. INCLUDE "shapes.dat"
  2. INCLUDE "colors.dat"
  3. INCLUDE "textures.dat"
  4.  
  5. VIEW_POINT
  6.    LOCATION <0.0  10.0  200.0>
  7.    DIRECTION <0.0  0.0  -1.0>
  8.    UP <0.0  1.0  0.0>
  9.    RIGHT <1.333333 0.0 0.0>
  10.    LOOK_AT <0.0  130.0  -300.0>
  11. END_VIEW_POINT
  12.  
  13. { Define the ocean surface }
  14. OBJECT
  15.    PLANE <0.0  1.0  0.0> -10.0 END_PLANE
  16.  
  17.    TEXTURE
  18.       COLOUR RED 1.0 GREEN 0.3
  19.       WAVES 0.05
  20.       FREQUENCY 5000.0
  21.       SCALE <3000.0 3000.0 3000.0>
  22.       REFLECTION 1.0
  23.    END_TEXTURE
  24.    COLOUR RED 1.0 GREEN 0.3
  25. END_OBJECT
  26.  
  27. { Put a floor underneath to catch any errant waves from the ripples }
  28. OBJECT
  29.    PLANE <0.0  1.0  0.0> -11.0 END_PLANE
  30.    TEXTURE
  31.       0.05
  32.       COLOUR RED 1.0 GREEN 0.3
  33.       AMBIENT 1.0
  34.       DIFFUSE 0.0
  35.    END_TEXTURE
  36.    COLOUR RED 1.0 GREEN 0.3
  37. END_OBJECT
  38.  
  39. { Now draw the sky }
  40. OBJECT
  41.    SPHERE <0.0  0.0  0.0> 300.0 END_SPHERE
  42.  
  43.    TEXTURE
  44.       GRADIENT <0.0  1.0  0.0>
  45.       COLOUR_MAP [0.0 0.8  COLOUR RED 1.0 GREEN 0.3 BLUE 0.0
  46.                            COLOUR RED 0.7 GREEN 0.7 BLUE 1.0]
  47.                  [0.8 1.0 COLOUR RED 0.7 GREEN 0.7 BLUE 1.0
  48.                           COLOUR RED 0.7 GREEN 0.7 BLUE 1.0]
  49.       END_COLOUR_MAP
  50.       SCALE <300.0  300.0  300.0>
  51.       AMBIENT 0.7
  52.       DIFFUSE 0.0   { we don't want clouds casting shadows on the sky }
  53.    END_TEXTURE
  54.    COLOUR RED 0.7  GREEN 0.7 BLUE 1.0
  55. END_OBJECT
  56.  
  57. { Put in a few clouds }
  58. OBJECT
  59.    SPHERE <0.0  0.0  0.0> 259.0 END_SPHERE
  60.  
  61.    TEXTURE
  62.       BOZO
  63.       TURBULENCE 0.5
  64.       COLOUR_MAP
  65.           [0.0 0.6  COLOUR RED 1.0 GREEN 1.0 BLUE 1.0 ALPHA 1.0
  66.                     COLOUR RED 1.0 GREEN 1.0 BLUE 1.0 ALPHA 1.0]
  67.           [0.6 0.8 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0 ALPHA 1.0
  68.                     COLOUR RED 1.0 GREEN 1.0 BLUE 1.0]
  69.           [0.8 1.001 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  70.                      COLOUR RED 0.8 GREEN 0.8 BLUE 0.8]
  71.       END_COLOUR_MAP
  72.       SCALE <100.0  20.0  100.0>
  73.       AMBIENT 0.7
  74.       DIFFUSE 0.0
  75.    END_TEXTURE
  76.    COLOUR RED 0.7 GREEN 0.7 BLUE 1.0
  77. END_OBJECT
  78.  
  79. { Now to cast some light on the subject }
  80. OBJECT
  81.    SPHERE <0.0  0.0  0.0> 40.0 END_SPHERE
  82.  
  83.    TRANSLATE <0.0  0.0  -300.0>
  84.    ROTATE <10.0  0.0  0.0>
  85.    TEXTURE
  86.      COLOUR White
  87.      AMBIENT 1.0
  88.      DIFFUSE 0.0
  89.    END_TEXTURE
  90.    LIGHT_SOURCE
  91.    COLOUR White
  92. END_OBJECT
  93.