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