/***************
 * NAME:        attrtest.ray
 * VERSION:     1.0 25.06.1995
 * DESCRIPTION: This ARexx-programm demonstrates different attributes
 * AUTHORS:     Andreas Heumann
 * BUGS:        none
 * TO DO:       none
 * HISTORY:
 *    DATE     NAME  COMMENT
 *    25.06.95 ah    initial 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

'TEXTUREPATH /textures'

'SETSCREEN 160 128'
'SETCAMERA <0,0,80> <0,0,0> <0,1,0> 56.25 45'
'SETWORLD [0,0,0] [40,40,40]'
'POINTLIGHT <10,-10,100> SHADOW'

'NEWSURFACE TEST'
'AMBIENT [255,0,0]'
'DIFFUSE [255,0,0]'
'SPECULAR [255,255,255]'
'REFEXP 5'

'NEWSURFACE TEST1'
'AMBIENT [0,255,0]'
'DIFFUSE [0,100,0]'
'TRANSPAR [0,155,0]'
'REFRINDEX 1.33'

'NEWSURFACE TEST2'
'AMBIENT [0,0,255]'
'DIFFUSE [0,0,255]'
'REFLECT [100,100,100]'

'NEWSURFACE TEST3'
'AMBIENT [255,255,0]'
'DIFFUSE [255,255,0]'
'IMTEXTURE checker.itx <0.1,0.1,0.1> <0,0,0> <2,2,2>'

'NEWSURFACE PLANE'
'SPECULAR [0,0,0]'
'IMTEXTURE checker.itx <0.1,0.1,0.1> <0,0,0> <5,5,5>'

'SPHERE TEST <15,15,0>  10'
'SPHERE TEST1 <15,-15,0>  10'
'SPHERE TEST2 <-15,-15,0>  10'
'SPHERE TEST3 <-15,15,0>  10'

'PLANE PLANE <0,0,-50> <0,0,1>'

'STARTRENDER'
'SAVEPIC attrtest.iff'
'CLEANUP'

exit 0

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