/***************
 * NAME:          chess.ray
 * VERSION:       1.0 10.08.1995
 * DESCRIPTION:   Chess scene
 * AUTHORS:       Andreas Heumann
 * BUGS:          none
 * TO DO:         none
 * HISTORY:       DATE     NAME  COMMENT
 *                10.08.95  ah initial release
 ***************/

OPTIONS RESULTS

IF ~SHOW('P','RAYSTORM') THEN DO  /* if not already running, start RayStorm */
   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  255 255 255 SHADOW'

LOADOBJ 'chess.iob'

STARTRENDER QUICK

SAVEPIC 'chess.iff'

CLEANUP

exit 0