/***************
 * NAME:          eight.ray
 * VERSION:       1.0 06.08.1995
 * DESCRIPTION:   Billard scene
 * AUTHORS:       Andreas Heumann
 * BUGS:          none
 * TO DO:         none
 * HISTORY:       DATE     NAME  COMMENT
 *                06.08.95 ah    initial release
 ***************/

OPTIONS RESULTS

IF ~SHOW('P','RAYSTORM') THEN DO  /* if not allready running, start RayStorm */
   ADDRESS COMMAND 'run >NIL: <NIL: /raystorm'
   ADDRESS COMMAND WaitForPort RAYSTORM
END  

ADDRESS RAYSTORM

BRUSHPATH '/brushes'
OBJECTPATH '/objects'

SETSCREEN 160 128
SETCAMERA '100 100 -120  0 5 5  0 1 0 25 20'
SETWORLD 0 0 0  50 50 50
POINTLIGHT '-20 200 -100 255 255 255 SHADOW'
POINTLIGHT '-20 200 100 255 255 255 SHADOW'

NEWSURFACE TABLETOP
DIFFUSE 0 100 0

PLANE 'TABLETOP 0 0 0 0 1 0'

NEWSURFACE EIGHT
DIFFUSE 0 0 0
AMBIENT 38 38 38
REFLECT 38 38 38
BRUSH 'eight_brush.iff COLOR FLAT -4 1 -5.1  0 0 0  8 8 10.2'

SPHERE 'EIGHT 0 5 0 5'

NEWSURFACE WHITE
DIFFUSE 255 255 255
AMBIENT 51 51 51
REFLECT 38 38 38

SPHERE 'WHITE 0 5 10 5'

LOADOBJ 'eight_queue.iob 20 0 0 0 0 0 1 1 1'

ANTIALIAS 2

STARTRENDER

SAVEPIC 'eight.iff'

CLEANUP

exit 0