home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
413b.lha
/
dkbtrace_v2.1
/
data
/
lenses.dat
< prev
next >
Wrap
Text File
|
1990-08-27
|
3KB
|
145 lines
INCLUDE "BasicShapes.data"
{ Created by Pete Patterson
This is two lenses positioned along the Z-Axis looking at an object about
110 units away. To get the object to look the same size as it does
magnified, it has to be about 5 units away. This is a magnification
of 22.
}
VIEW_POINT
LOCATION <0.0 0.0 -125.0>
DIRECTION <0.0 0.0 1.0>
UP <0.0 1.0 0.0>
RIGHT <1.3333 0.0 0.0>
END_VIEW_POINT
{ Add the sky to the picture }
OBJECT
PLANE <0. 1. 0.> 600.0 END_PLANE
DIFFUSE 0.2
AMBIENT 0.54
COLOUR RED 1.0 GREEN 0.66 BLUE 0.2
TEXTURE
0.082
BOZO
TURBULENCE 0.078
COLOUR_MAP
[0.0 0.5 COLOUR RED 1.0 GREEN 0.5 BLUE 0.5
COLOUR RED 1.0 GREEN 0.5 BLUE 0.5]
[0.5 0.6 COLOUR RED 1.0 GREEN 0.5 BLUE 0.5
COLOUR RED 1.0 GREEN 1.0 BLUE 1.0]
[0.6 1.001 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
COLOUR RED 1.0 GREEN 0.5 BLUE 0.5]
END_COLOUR_MAP
SCALE <1000.0 400.0 700.0>
TRANSLATE <500.0 400.0 -100.0>
END_TEXTURE
END_OBJECT
{ Define the desert floor }
OBJECT
PLANE <0. 1. 0.> -600.0 END_PLANE
COLOUR RED 1.0 GREEN 0.66 BLUE 0.2
AMBIENT 0.3
DIFFUSE 0.7
TEXTURE
0.05
RIPPLES 0.5
FREQUENCY 2000.0
SCALE <50000.0 50000.0 50000.0>
END_TEXTURE
END_OBJECT
{ Put up a distant wall to prevent a black line in the middle of the
screen }
OBJECT
PLANE <0. 0. 1.> 100000.0 END_PLANE
AMBIENT 0.6
DIFFUSE 0.0
COLOUR RED 0.84 GREEN 0.4 BLUE 0.4
TEXTURE
0.05
RIPPLES 0.5
FREQUENCY 2000.0
SCALE <50000.0 50000.0 50000.0>
END_TEXTURE
END_OBJECT
{ Add a light source }
OBJECT
SPHERE <60.0 50.0 -110.0> 20 END_SPHERE
LIGHT_SOURCE
COLOUR White
AMBIENT 1.0
DIFFUSE 0.0
END_OBJECT
{ Make a convex lens }
OBJECT
INTERSECTION
SPHERE <0.0 0.0 -1.75> 2. END_SPHERE
SPHERE <0.0 0.0 1.75> 2. END_SPHERE
END_INTERSECTION
SCALE <25. 25. 25.>
TRANSLATE <0.0 0.0 -75.0>
AMBIENT 0.01
DIFFUSE 0.01
REFRACTION 1.0
{ IOR 1.33}
IOR 1.525
COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
END_OBJECT
{ Make another convex lens formaing a telescope with the first lens }
OBJECT
INTERSECTION
SPHERE <0.0 0.0 -1.75> 2. END_SPHERE
SPHERE <0.0 0.0 1.75> 2. END_SPHERE
END_INTERSECTION
SCALE <25. 25. 25.>
TRANSLATE <0.0 0.0 -58.0>
AMBIENT 0.01
DIFFUSE 0.01
REFRACTION 1.0
IOR 1.525
{ IOR 1.7}
COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
END_OBJECT
{
SPHERE <0.0 0.0 -10.0> 1. END_SPHERE
}
OBJECT
SPHERE <0.0 0.0 -10.0> 1. END_SPHERE
AMBIENT 0.95
DIFFUSE 0.01
TEXTURE
MARBLE
TURBULENCE 1.0
COLOUR_MAP
[0.0 0.65 COLOUR RED 0.8 GREEN 0.8 BLUE 0.9
COLOUR RED 0.4 GREEN 0.4 BLUE 0.9]
{
[0.65 0.725 COLOUR RED 0.4 GREEN 0.4 BLUE 0.8
COLOUR RED 0.9 GREEN 0.9 BLUE 0.0]
[0.725 0.8 COLOUR RED 0.9 GREEN 0.9 BLUE 0.0
COLOUR RED 0.4 GREEN 0.4 BLUE 0.8]
}
[0.65 1.001 COLOUR RED 0.4 GREEN 0.4 BLUE 0.9
COLOUR RED 0.2 GREEN 0.2 BLUE 0.9]
END_COLOUR_MAP
SCALE <0.5 0.5 0.5>
TRANSLATE <-2. -1.75 110.75>
END_TEXTURE
END_OBJECT