Category : Printer + Display Graphics
Archive   : DKBDATA.ZIP
Filename : GRANITES.DAT

INCLUDE "BasicShapes.data"

VIEW_POINT
LOCATION <0.0 20.0 -100.0>
DIRECTION <0.0 0.0 1.0>
UP <0.0 1.0 0.0>
RIGHT <1.33333 0.0 0.0>
END_VIEW_POINT

{ Put down the beloved famous raytrace checkered floor }
OBJECT
PLANE <0.0 1.0 0.0> -10.0 END_PLANE

AMBIENT 0.2
DIFFUSE 0.8
TEXTURE
{ 0.05 }
CHECKER COLOUR Red COLOUR Green
TURBULENCE 0.0
SCALE < 20.0 20.0 20.0 >
END_TEXTURE
COLOUR Green
END_OBJECT

{ Now a shiny granite sphere floating in space over the ground }

OBJECT
SPHERE <0.0 25.0 0.0> 40.0 END_SPHERE

COLOR White
AMBIENT 0.3
DIFFUSE 0.7
BRILLIANCE 7.0
REFLECTION 0.1
PHONG 1.0
PHONGSIZE 60

TEXTURE
0.05
GRANITE
SCALE < 5.0 5.0 5.0 >
END_TEXTURE
END_OBJECT

OBJECT
SPHERE <0.0 0.0 0.0> 2.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
SPHERE <0.0 0.0 0.0> 2.0 END_SPHERE

TRANSLATE <-100.0 100.0 -130.0>
COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
AMBIENT 1.0
DIFFUSE 0.0
LIGHT_SOURCE
END_OBJECT