/***************
 * NAME:        checker.ray
 * DESCRIPTION: Checker texture test
 * AUTHOR:      Andreas Heumann
 ***************/

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 <5,10,10> <0,0,0> <0,1,0> 25 20'
'SETWORLD [0,0,150]'
'POINTLIGHT <10,20,20>'

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

'TRIANGLE test <-1,-1,-1> <1,-1,-1> <1,1,-1>'
'TRIANGLE test <-1,-1,-1> <-1,1,-1> <1,1,-1>'
'TRIANGLE test <-1,-1,-1> <-1,-1,1> <-1,1,1>'
'TRIANGLE test <-1,-1,-1> <-1,1,-1> <-1,1,1>'
'TRIANGLE test <1,-1,-1>  <1,-1,1>  <1,1,1>'
'TRIANGLE test <1,-1,-1>  <1,1,-1>  <1,1,1>'
'TRIANGLE test <1,-1,1>   <-1,-1,1> <-1,1,1>'
'TRIANGLE test <1,-1,1>   <1,1,1>   <-1,1,1>'
'TRIANGLE test <-1,1,-1>  <1,1,-1>  <1,1,1>'
'TRIANGLE test <-1,1,-1>  <-1,1,1>  <1,1,1>'
'TRIANGLE test <-1,-1,-1> <1,-1,-1> <1,-1,1>'
'TRIANGLE test <-1,-1,-1> <-1,-1,1> <1,-1,1>'

'STARTRENDER QUICK'

'SAVEPIC checker.iff'

CLEANUP

exit 0

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