/***************
 * NAME:          title.ray
 * VERSION:       1.0 06.08.1995
 * DESCRIPTION:   This ARexx-programm renders the RayStorm title
 *						(For this you need at last 3 MB of !!FREE!! memory)
 * AUTHORS:       Andreas Heumann
 * BUGS:          none
 * TO DO:         none
 * HISTORY:       DATE     NAME  COMMENT
 *                06.08.95 ah    initial release
 ***************/

OPTIONS RESULTS

IF ~SHOW('P','RAYSTORM') THEN DO  /* if not allready running, start RayStorm */
   ADDRESS COMMAND 'run >NIL: <NIL: /raystorm'
   ADDRESS COMMAND WaitForPort RAYSTORM
END  

ADDRESS RAYSTORM

OBJECTPATH '/objects'

SETSCREEN 160 128
SETCAMERA '0 300 -500  0 0 0  0 1 0 56.25 45'
SETWORLD '0 0 0  30 30 30'
POINTLIGHT '0 0 -700  255 255 255'

LOADOBJ 'title_light.iob'
LOADOBJ 'title.iob'

STARTRENDER 2

SAVEPIC 'title1.iff'

CLEANUP

exit 0