home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 413b.lha / dkbtrace_v2.1 / data / desertmirage.dat < prev    next >
Encoding:
Text File  |  1990-08-27  |  1.4 KB  |  79 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. END_VIEW_POINT
  9.  
  10. { Define the desert floor }
  11. OBJECT
  12.    PLANE <0.0 1.0 0.0> -10.0 END_PLANE
  13.  
  14.    COLOUR RED 1.0 GREEN 0.66 BLUE 0.2
  15.    AMBIENT 0.3
  16.    DIFFUSE 0.7
  17.    TEXTURE
  18.       0.05  { This value dithers the colours }
  19.       RIPPLES 0.5
  20.       FREQUENCY 200.0
  21.       SCALE <50000.0 50000.0 50000.0>
  22.    END_TEXTURE
  23. END_OBJECT
  24.  
  25. { Put a pond of water into the desert }
  26. OBJECT
  27.    INTERSECTION
  28.       QUADRIC
  29.          Sphere
  30.          SCALE <30.0 25.0 35.0>
  31.          TRANSLATE <10.0  0.0  100.0>
  32.       END_QUADRIC
  33.       PLANE <0.0 1.0 0.0> -9.99 END_PLANE
  34.    END_INTERSECTION
  35.  
  36.    REFLECTION 1.0
  37.    TEXTURE
  38.        RIPPLES  0.6
  39.        FREQUENCY 5000.0
  40.        SCALE <10000.0  10000.0  10000.0>
  41.    END_TEXTURE
  42. END_OBJECT
  43.  
  44. { Now draw the sky }
  45. OBJECT
  46.    PLANE <0.0 1.0 0.0> 200.0 END_PLANE
  47.  
  48.    COLOUR BLUE 1.0  GREEN 0.6
  49.    AMBIENT 0.3
  50.    DIFFUSE 0.7
  51.    TEXTURE
  52.       0.05
  53.    END_TEXTURE
  54. END_OBJECT
  55.  
  56. {
  57.   A spurious distant rear wall to catch all rays not hitting anything more
  58.   interesting.
  59. }
  60.  
  61. OBJECT
  62.    PLANE <0.0 0.0 1.0> -1000000.0 END_PLANE
  63.    AMBIENT 0.3
  64.    DIFFUSE 0.0
  65.    COLOUR RED 0.0 GREEN 0.6 BLUE 1.0
  66. END_OBJECT
  67.  
  68. { Now to cast some light on the subject }
  69.  
  70. OBJECT
  71.    SPHERE <0.0 0.0 0.0> 20.0 END_SPHERE
  72.  
  73.    LIGHT_SOURCE
  74.    TRANSLATE <10.0  80.0  20.0>
  75.    COLOUR RED 1.0 GREEN 1.0 BLUE 0.5
  76.    AMBIENT 1.0
  77.    DIFFUSE 0.0
  78. END_OBJECT
  79.