home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / DKBPICS.ZIP / WATERBAL.DAT < prev    next >
Encoding:
Text File  |  1990-07-02  |  1.9 KB  |  96 lines
  1. {
  2. *** WaterBall 
  3. *** 
  4. *** DKB World Definition Script
  5. *** 11-24-89 Kevin Price
  6. *** Contact: AmAz! BBS (602) 843-6574
  7. }
  8.  
  9. INCLUDE "BasicShapes.data"
  10.  
  11. VIEW_POINT
  12.    LOCATION <0.0 25.0 -150.0>
  13.    DIRECTION <0.0 0.1 1.0>
  14.    UP <0.0 1.0 0.0>
  15.    RIGHT <1.3333 0.0 0.0>
  16. END_VIEW_POINT
  17.  
  18.  
  19. OBJECT 
  20.   SPHERE <0.0 50.0 0.0> 50.0 END_SPHERE
  21.  
  22.    COLOUR RED 0.0 GREEN 0.2 BLUE 0.5
  23.  
  24.    AMBIENT 0.1
  25.    DIFFUSE 0.1
  26.    IOR 1.5
  27.    REFLECTION 0.5
  28.    REFRACTION 0.5
  29.    TEXTURE
  30.       0.05
  31.       RIPPLES 1.0
  32.       SCALE <10.0 10.0 10.0>
  33.    END_TEXTURE
  34.  
  35. END_OBJECT
  36.  
  37.  
  38. { Add the sky to the picture }
  39. OBJECT
  40.    PLANE <0.0 1.0 0.0> 600.0 END_PLANE
  41.    DIFFUSE 0.2
  42.    AMBIENT 0.8
  43.    TEXTURE
  44.        0.05
  45.        BOZO
  46.        TURBULENCE 0.5
  47.        COLOUR_MAP
  48.           [0.0 0.5  COLOUR RED 0.5 GREEN 0.6 BLUE 1.0
  49.                     COLOUR RED 0.5 GREEN 0.6 BLUE 1.0]
  50.           [0.5 0.6  COLOUR RED 0.5 GREEN 0.6 BLUE 1.0
  51.                     COLOUR RED 1.0 GREEN 1.0 BLUE 1.0]
  52.           [0.6 1.001 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  53.                     COLOUR RED 0.5 GREEN 0.5 BLUE 0.5]
  54.        END_COLOUR_MAP
  55.        SCALE <800.0 800.0 800.0>
  56.        TRANSLATE <200.0 400.0 100.0>
  57.    END_TEXTURE
  58. END_OBJECT
  59.  
  60. { Define the desert floor }
  61. OBJECT
  62.    PLANE <0.0 1.0 0.0> -2.0 END_PLANE
  63.  
  64.    COLOUR RED 0.2 GREEN 1.0 BLUE 0.4
  65.    AMBIENT 0.1
  66.    DIFFUSE 0.3
  67.    TEXTURE
  68.       0.05  { This value dithers the colours }
  69.       RIPPLES 1.0
  70.       FREQUENCY 2000.0
  71.       SCALE <50000.0 50000.0 50000.0>
  72.    END_TEXTURE
  73. END_OBJECT
  74.  
  75. { Put up a distant wall to prevent a black line in the middle of the
  76.    screen }
  77. OBJECT
  78.    PLANE <0.0 0.0 1.0> 1000000.0  END_PLANE
  79.    AMBIENT 1.0
  80.    DIFFUSE 0.0
  81.    COLOUR RED 0.4 GREEN 0.4 BLUE 0.8
  82. END_OBJECT
  83.  
  84. { Add a light source }
  85.  
  86. OBJECT
  87.     SPHERE <0.0 0.0 0.0> 20.0 END_SPHERE
  88.  
  89.     TRANSLATE <60.0  50.0  -110.0>
  90.     LIGHT_SOURCE
  91.     COLOUR White
  92.     AMBIENT 1.0
  93.     DIFFUSE 0.0
  94. END_OBJECT
  95.  
  96.