/***************
 * NAME:        dof.ray
 * VERSION:     1.0 06.08.1995
 * DESCRIPTION: Test for depth of field
 * 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

TEXTUREPATH '/textures'

SETSCREEN 160 128
SETCAMERA 0 0 80  0 0 0  0 1 0  56.25 45 80 2
SETWORLD 0 0 0  40 40 40
POINTLIGHT '10 -10 100  255 255 255'

NEWSURFACE TEST
AMBIENT 255 0 0
DIFFUSE 255 0 0
IMTEXTURE 'checker.itx 0 0 0  0 0 0  5 5 5'

NEWSURFACE TEST1
AMBIENT 0 0 255
DIFFUSE 0 0 255
IMTEXTURE 'checker.itx 0 0 0  0 0 0  5 5 5'

NEWSURFACE TEST2
AMBIENT 0 255 0
DIFFUSE 0 255 0
IMTEXTURE 'checker.itx 0 0 0  0 0 0  5 5 5'

SPHERE 'TEST 15 15 0  10'
SPHERE 'TEST1 15 -15 40  10'
SPHERE 'TEST1 15 -15 -40  10'
SPHERE 'TEST2 -15 0 50  10'

ANTIALIAS 3

STARTRENDER QUICK

SAVEPIC 'dof.iff'

CLEANUP

exit 0