home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / DKBPICS.ZIP / LENSES.DAT < prev    next >
Encoding:
Text File  |  1990-07-02  |  3.3 KB  |  145 lines
  1. INCLUDE "BasicShapes.data"
  2.  
  3. { Created by Pete Patterson
  4.  
  5.   This is two lenses positioned along the Z-Axis looking at an object about
  6.   110 units away. To get the object to look the same size as it does
  7.   magnified, it has to be about 5 units away. This is a magnification
  8.   of 22.
  9. }
  10.  
  11. VIEW_POINT
  12.    LOCATION <0.0 0.0 -125.0>
  13.    DIRECTION <0.0 0.0 1.0>
  14.    UP <0.0 1.0 0.0>
  15.    RIGHT <1.3333 0.0 0.0>
  16. END_VIEW_POINT
  17.  
  18. { Add the sky to the picture }
  19. OBJECT
  20.    PLANE <0. 1. 0.> 600.0 END_PLANE
  21.    DIFFUSE 0.2
  22.    AMBIENT 0.54
  23.    COLOUR RED 1.0 GREEN 0.66 BLUE 0.2
  24.    TEXTURE
  25.        0.082
  26.        BOZO
  27.        TURBULENCE 0.078
  28.        COLOUR_MAP
  29.           [0.0 0.5  COLOUR RED 1.0 GREEN 0.5 BLUE 0.5
  30.                     COLOUR RED 1.0 GREEN 0.5 BLUE 0.5]
  31.           [0.5 0.6  COLOUR RED 1.0 GREEN 0.5 BLUE 0.5
  32.                     COLOUR RED 1.0 GREEN 1.0 BLUE 1.0]
  33.           [0.6 1.001 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  34.                     COLOUR RED 1.0 GREEN 0.5 BLUE 0.5]
  35.        END_COLOUR_MAP
  36.        SCALE <1000.0 400.0 700.0>
  37.        TRANSLATE <500.0 400.0 -100.0>
  38.    END_TEXTURE
  39. END_OBJECT
  40.  
  41. { Define the desert floor }
  42. OBJECT
  43.    PLANE <0. 1. 0.> -600.0 END_PLANE
  44.  
  45.    COLOUR RED 1.0 GREEN 0.66 BLUE 0.2
  46.    AMBIENT 0.3
  47.    DIFFUSE 0.7
  48.    TEXTURE
  49.       0.05
  50.       RIPPLES 0.5
  51.       FREQUENCY 2000.0
  52.       SCALE <50000.0 50000.0 50000.0>
  53.    END_TEXTURE
  54. END_OBJECT
  55.  
  56. { Put up a distant wall to prevent a black line in the middle of the
  57.    screen }
  58. OBJECT
  59.    PLANE <0. 0. 1.> 100000.0 END_PLANE
  60.    AMBIENT 0.6
  61.    DIFFUSE 0.0
  62.    COLOUR RED 0.84 GREEN 0.4 BLUE 0.4
  63.    TEXTURE
  64.       0.05
  65.       RIPPLES 0.5
  66.       FREQUENCY 2000.0
  67.       SCALE <50000.0 50000.0 50000.0>
  68.    END_TEXTURE
  69. END_OBJECT
  70.  
  71. { Add a light source }
  72. OBJECT
  73.     SPHERE <60.0  50.0  -110.0> 20 END_SPHERE
  74.  
  75.     LIGHT_SOURCE
  76.     COLOUR White
  77.     AMBIENT 1.0
  78.     DIFFUSE 0.0
  79. END_OBJECT
  80.  
  81. { Make a convex lens }
  82. OBJECT
  83.    INTERSECTION
  84.    SPHERE <0.0  0.0  -1.75> 2. END_SPHERE
  85.    SPHERE <0.0  0.0   1.75> 2. END_SPHERE
  86.    END_INTERSECTION
  87.  
  88.    SCALE <25. 25. 25.>
  89.    TRANSLATE <0.0 0.0 -75.0>
  90.  
  91.    AMBIENT 0.01
  92.    DIFFUSE 0.01
  93.    REFRACTION 1.0
  94. {   IOR 1.33}
  95.    IOR 1.525
  96.    COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  97. END_OBJECT
  98.  
  99. { Make another convex lens formaing a telescope with the first lens }
  100. OBJECT
  101.    INTERSECTION
  102.    SPHERE <0.0  0.0 -1.75> 2. END_SPHERE
  103.    SPHERE <0.0  0.0  1.75> 2. END_SPHERE
  104.    END_INTERSECTION
  105.  
  106.    SCALE <25. 25. 25.>
  107.    TRANSLATE <0.0 0.0 -58.0>
  108.  
  109.    AMBIENT 0.01
  110.    DIFFUSE 0.01
  111.    REFRACTION 1.0
  112.    IOR 1.525
  113. {   IOR 1.7}
  114.    COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  115. END_OBJECT
  116.  
  117. {
  118.    SPHERE <0.0 0.0 -10.0> 1. END_SPHERE
  119. }
  120. OBJECT
  121.    SPHERE <0.0 0.0 -10.0> 1. END_SPHERE
  122.  
  123.    AMBIENT 0.95
  124.    DIFFUSE 0.01
  125.    TEXTURE
  126.      MARBLE
  127.      TURBULENCE 1.0
  128.      COLOUR_MAP
  129.           [0.0 0.65  COLOUR RED 0.8 GREEN 0.8 BLUE 0.9
  130.                      COLOUR RED 0.4 GREEN 0.4 BLUE 0.9]
  131. {
  132.           [0.65 0.725 COLOUR RED 0.4 GREEN 0.4 BLUE 0.8
  133.                      COLOUR RED 0.9 GREEN 0.9 BLUE 0.0]
  134.           [0.725 0.8  COLOUR RED 0.9 GREEN 0.9 BLUE 0.0
  135.                      COLOUR RED 0.4 GREEN 0.4 BLUE 0.8]
  136. }
  137.           [0.65 1.001 COLOUR RED 0.4 GREEN 0.4 BLUE 0.9
  138.                      COLOUR RED 0.2 GREEN 0.2 BLUE 0.9]
  139.       END_COLOUR_MAP
  140.       SCALE <0.5 0.5 0.5>
  141.       TRANSLATE <-2. -1.75 110.75>
  142.    END_TEXTURE
  143. END_OBJECT
  144.  
  145.