/***************
 * NAME:          chess.ray
 * VERSION:       1.0 09.08.1995
 * DESCRIPTION:   Chess scene
 * AUTHORS:       Andreas Heumann
 * BUGS:          none
 * TO DO:         none
 * HISTORY:
 *    DATE     NAME  COMMENT
 *    09.08.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'
'OBJECTPATH /objects'

'SETSCREEN 160 128'
'SETCAMERA <0,-250,-150> <0,0,0> <0,1,0>  25 20'
'SETWORLD [0,0,0] [20,20,20]'
'POINTLIGHT <80,-180,-160> SHADOW'

'LOADOBJ chess.iob'

'STARTRENDER QUICK'

'SAVEPIC chess.iff'

CLEANUP

exit 0

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