/***************
 * NAME:          eight.rexx
 * VERSION:       1.0 10.07.1995
 * DESCRIPTION:
 * AUTHORS:	      Andreas Heumann
 * BUGS:          none
 * TO DO:         none
 * HISTORY:       DATE		NAME	COMMENT
 *		            10.07.95	ah	   first release
 ***************/

signal on error

options results

IF ~show('P','RAYSTORM') THEN DO
	address COMMAND 'run >NIL: <NIL: /RayStorm'
	address COMMAND WaitForPort RAYSTORM
END  

address RAYSTORM

'OBJECTPATH /objects'
'BRUSHPATH mcpp:work/octree/brushes'

'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> SHADOW'
'POINTLIGHT <-20,200,100> SHADOW'

'NEWSURFACE TABLETOP'
'DIFFUSE [0,80,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>'

'NEWSURFACE WINDOW BRIGHT'

'TRIANGLE WINDOW <600,100,-400> <600,100,-100> <600,300,-200>'
'TRIANGLE WINDOW <600,300,-400> <600,100,-100> <600,300,-50>'
'TRIANGLE WINDOW <600,100,400>  <600,100,100>  <600,300,200>'
'TRIANGLE WINDOW <600,300,400>  <600,100,100>  <600,300,50>'

'STARTRENDER'

'SAVEPIC eight.iff'

'CLEANUP'

exit 0

error:
say "Error" rc "in line" sigl ":"
GETERRORSTR rc
say result
exit 0