home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 284.lha / DkbTrace_v1.1 / DesertMirage.data < prev    next >
Text File  |  1989-09-10  |  1KB  |  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.    QUADRIC
  13.       Plane_XZ
  14.       TRANSLATE <0.0  -10.0  0.0>
  15.    END_QUADRIC
  16.  
  17.    COLOUR RED 1.0 GREEN 0.66 BLUE 0.2
  18.    AMBIENT 0.3
  19.    DIFFUSE 0.7
  20.    TEXTURE
  21.       0.05  { This value dithers the colours }
  22.       RIPPLES 0.5
  23.       FREQUENCY 200.0
  24.       SCALE <50000.0 50000.0 50000.0>
  25.    END_TEXTURE
  26. END_OBJECT
  27.  
  28. { Put a pond of water into the desert }
  29. OBJECT
  30.    INTERSECTION
  31.       QUADRIC
  32.          Sphere
  33.          SCALE <30.0 25.0 35.0>
  34.          TRANSLATE <10.0  0.0  100.0>
  35.       END_QUADRIC
  36.  
  37.       QUADRIC
  38.          Plane_XZ
  39.          TRANSLATE <0.0  -9.99  0.0>
  40.       END_QUADRIC
  41.    END_INTERSECTION
  42.  
  43.    REFLECTION 1.0
  44.    TEXTURE
  45.        RIPPLES  0.6
  46.        FREQUENCY 5000.0
  47.        SCALE <10000.0  10000.0  10000.0>
  48.    END_TEXTURE
  49. END_OBJECT
  50.  
  51. { Now draw the sky }
  52. OBJECT
  53.    QUADRIC
  54.       Plane_XZ
  55.       TRANSLATE <0.0  200.0  0.0>
  56.    END_QUADRIC
  57.  
  58.    COLOUR BLUE 1.0  GREEN 0.6
  59.    AMBIENT 0.3
  60.    DIFFUSE 0.7
  61.    TEXTURE
  62.       0.05
  63.    END_TEXTURE
  64. END_OBJECT
  65.  
  66. { Now to cast some light on the subject }
  67. OBJECT
  68.    QUADRIC
  69.       Sphere
  70.       SCALE <20.0 20.0 20.0>
  71.    END_QUADRIC
  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.