home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
413b.lha
/
dkbtrace_v2.1
/
data
/
twodice4f.dat
< prev
next >
Wrap
Text File
|
1990-08-27
|
6KB
|
185 lines
INCLUDE "BasicShapes.data"
VIEW_POINT
LOCATION <0.0 15.0 -120.0>
DIRECTION <0.0 0.0 1.0>
UP <0.0 1.0 0.0>
RIGHT <1.333 0.0 0.0>
END_VIEW_POINT
OBJECT { White Marble Dice }
DIFFERENCE
INTERSECTION {and the rounded cube}
PLANE <0.0 0.0 1.0> 1.0 END_PLANE
PLANE <0.0 0.0 -1.0> 1.0 END_PLANE
PLANE <0.0 1.0 0.0> 1.0 END_PLANE
PLANE <0.0 -1.0 0.0> 1.0 END_PLANE
PLANE <1.0 0.0 0.0> 1.0 END_PLANE
PLANE <-1.0 0.0 0.0> 1.0 END_PLANE
SPHERE <0.0 0.0 0.0> 1.4 END_SPHERE
END_INTERSECTION
SPHERE <1.0 0.0 0.0> 0.2 END_SPHERE {pip 1}
SPHERE <-0.5 -0.5 1.0> 0.2 END_SPHERE {pip 2a}
SPHERE <0.5 0.5 1.0> 0.2 END_SPHERE {pip 2b}
SPHERE <-0.5 -1.0 0.5> 0.2 END_SPHERE {pip 3a}
SPHERE <0.0 -1.0 0.0> 0.2 END_SPHERE {pip 3b}
SPHERE <0.5 -1.0 -0.5> 0.2 END_SPHERE {pip 3c}
SPHERE <0.5 1.0 0.5> 0.2 END_SPHERE {pip 4a}
SPHERE <0.5 1.0 -0.5> 0.2 END_SPHERE {pip 4b}
SPHERE <-0.5 1.0 -0.5> 0.2 END_SPHERE {pip 4c}
SPHERE <-0.5 1.0 0.5> 0.2 END_SPHERE {pip 4d}
SPHERE <0.5 0.5 -1.0> 0.2 END_SPHERE {pip 5a}
SPHERE <0.5 -0.5 -1.0> 0.2 END_SPHERE {pip 5b}
SPHERE <0.0 0.0 -1.0> 0.2 END_SPHERE {pip 5c}
SPHERE <-0.5 -0.5 -1.0> 0.2 END_SPHERE {pip 5d}
SPHERE <-0.5 0.5 -1.0> 0.2 END_SPHERE {pip 5e}
SPHERE <-1.0 0.5 0.5> 0.2 END_SPHERE {pip 6a}
SPHERE <-1.0 0.0 0.5> 0.2 END_SPHERE {pip 6b}
SPHERE <-1.0 -0.5 0.5> 0.2 END_SPHERE {pip 6c}
SPHERE <-1.0 -0.5 -0.5> 0.2 END_SPHERE {pip 6d}
SPHERE <-1.0 0.0 -0.5> 0.2 END_SPHERE {pip 6e}
SPHERE <-1.0 0.5 -0.5> 0.2 END_SPHERE {pip 6f}
END_DIFFERENCE
BOUNDED_BY
SPHERE <0.0 0.0 0.0> 1.41 END_SPHERE
END_BOUND
SCALE <10.0 10.0 10.0>
ROTATE <30.0 30.0 0.0>
TRANSLATE <5.0 23.0 0.0>
COLOUR RED 0.7 GREEN 0.4 BLUE 0.2
TEXTURE
AGATE
COLOUR_MAP
[0.0 0.5 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
COLOUR RED 0.9 GREEN 0.7 BLUE 0.6]
[0.5 0.6 COLOUR RED 0.9 GREEN 0.7 BLUE 0.6
COLOUR RED 0.9 GREEN 0.7 BLUE 0.4]
[0.6 1.001 COLOUR RED 0.9 GREEN 0.7 BLUE 0.4
COLOUR RED 0.7 GREEN 0.4 BLUE 0.2]
END_COLOUR_MAP
SCALE <10.0 10.0 10.0>
END_TEXTURE
AMBIENT 0.3
DIFFUSE 0.7
END_OBJECT
OBJECT { Red Marble Dice }
DIFFERENCE
INTERSECTION {and the rounded cube}
PLANE <0.0 0.0 1.0> 1.0 END_PLANE
PLANE <0.0 0.0 -1.0> 1.0 END_PLANE
PLANE <0.0 1.0 0.0> 1.0 END_PLANE
PLANE <0.0 -1.0 0.0> 1.0 END_PLANE
PLANE <1.0 0.0 0.0> 1.0 END_PLANE
PLANE <-1.0 0.0 0.0> 1.0 END_PLANE
SPHERE <0.0 0.0 0.0> 1.4 END_SPHERE
END_INTERSECTION
SPHERE <1.0 0.0 0.0> 0.2 END_SPHERE {pip 1}
SPHERE <-0.5 -0.5 1.0> 0.2 END_SPHERE {pip 2a}
SPHERE <0.5 0.5 1.0> 0.2 END_SPHERE {pip 2b}
SPHERE <-0.5 -1.0 0.5> 0.2 END_SPHERE {pip 3a}
SPHERE <0.0 -1.0 0.0> 0.2 END_SPHERE {pip 3b}
SPHERE <0.5 -1.0 -0.5> 0.2 END_SPHERE {pip 3c}
SPHERE <0.5 1.0 0.5> 0.2 END_SPHERE {pip 4a}
SPHERE <0.5 1.0 -0.5> 0.2 END_SPHERE {pip 4b}
SPHERE <-0.5 1.0 -0.5> 0.2 END_SPHERE {pip 4c}
SPHERE <-0.5 1.0 0.5> 0.2 END_SPHERE {pip 4d}
SPHERE <0.5 0.5 -1.0> 0.2 END_SPHERE {pip 5a}
SPHERE <0.5 -0.5 -1.0> 0.2 END_SPHERE {pip 5b}
SPHERE <0.0 0.0 -1.0> 0.2 END_SPHERE {pip 5c}
SPHERE <-0.5 -0.5 -1.0> 0.2 END_SPHERE {pip 5d}
SPHERE <-0.5 0.5 -1.0> 0.2 END_SPHERE {pip 5e}
SPHERE <-1.0 0.5 0.5> 0.2 END_SPHERE {pip 6a}
SPHERE <-1.0 0.0 0.5> 0.2 END_SPHERE {pip 6b}
SPHERE <-1.0 -0.5 0.5> 0.2 END_SPHERE {pip 6c}
SPHERE <-1.0 -0.5 -0.5> 0.2 END_SPHERE {pip 6d}
SPHERE <-1.0 0.0 -0.5> 0.2 END_SPHERE {pip 6e}
SPHERE <-1.0 0.5 -0.5> 0.2 END_SPHERE {pip 6f}
END_DIFFERENCE
BOUNDED_BY
SPHERE <0.0 0.0 0.0> 1.41 END_SPHERE
END_BOUND
SCALE <10.0 10.0 10.0>
ROTATE <230.0 40.0 60.0>
TRANSLATE <-20.0 45.0 10.0>
COLOUR Red
TEXTURE
Red_Marble
END_TEXTURE
AMBIENT 0.3
DIFFUSE 0.7
END_OBJECT
{ Put down a wooden floor }
OBJECT
QUADRIC
Plane_XZ
TRANSLATE <0.0 0.0 0.0>
END_QUADRIC
AMBIENT 0.3
DIFFUSE 0.7
REFLECTION 0.2
COLOUR RED 0.666 GREEN 0.312 BLUE 0.2
TEXTURE
0.05
WOOD
TURBULENCE 0.1
ROTATE <60.0 0.0 0.0>
SCALE <15.0 8.0 8.0>
COLOUR_MAP
[0.0 0.8 COLOUR RED 0.666 GREEN 0.312 BLUE 0.2
COLOUR RED 0.666 GREEN 0.312 BLUE 0.2]
[0.8 1.01 COLOUR RED 0.4 GREEN 0.133 BLUE 0.066
COLOUR RED 0.2 GREEN 0.065 BLUE 0.033]
END_COLOUR_MAP
END_TEXTURE
END_OBJECT
{ Add the sky to the picture }
OBJECT
QUADRIC
Sphere
SCALE <1000.0 1000.0 1000.0>
TRANSLATE <0.0 -700.0 0.0>
INVERSE
END_QUADRIC
DIFFUSE 0.2
AMBIENT 0.8
COLOUR RED 0.5 GREEN 0.5 BLUE 1.0
TEXTURE
0.05
BOZO
TURBULENCE 0.1
COLOUR_MAP
[0.0 0.8 COLOUR RED 0.5 GREEN 0.5 BLUE 1.0
COLOUR RED 0.5 GREEN 0.5 BLUE 1.0]
[0.8 0.85 COLOUR RED 0.5 GREEN 0.5 BLUE 1.0
COLOUR RED 1.0 GREEN 1.0 BLUE 1.0]
[0.85 1.001 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
COLOUR RED 0.5 GREEN 0.5 BLUE 0.5]
END_COLOUR_MAP
SCALE <100.0 100.0 100.0>
TRANSLATE <0.0 0.0 0.0>
END_TEXTURE
END_OBJECT
OBJECT { bright light behind & to right }
SPHERE <0.0 0.0 0.0> 5.0 END_SPHERE
TRANSLATE <100.0 120.0 -130.0>
COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
AMBIENT 1.0
DIFFUSE 0.0
LIGHT_SOURCE
END_OBJECT
OBJECT { dimmer light behind & to left }
SPHERE <0.0 0.0 0.0> 5.0 END_SPHERE
TRANSLATE <-100.0 120.0 -130.0>
COLOUR RED 0.5 GREEN 0.5 BLUE 0.5
AMBIENT 1.0
DIFFUSE 0.0
LIGHT_SOURCE
END_OBJECT