/***************
 * NAME:          marble.ray
 * VERSION:       1.0 06.08.1995
 * DESCRIPTION:   Test of marble texture
 * 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 already running, start RayStorm */
   ADDRESS COMMAND 'run >NIL: <NIL: /raystorm'
   ADDRESS COMMAND WaitForPort RAYSTORM
END  

ADDRESS RAYSTORM

TEXTUREPATH '/textures'

SETSCREEN 160 128
SETCAMERA '0 0 -25  0 0 0  0 1 0  25 20'
SETWORLD 255 0 255  20 20 20
POINTLIGHT '20 20 -40  255 255 255'

NEWSURFACE MAP
DIFFUSE 255 255 255
SPECULAR 0 0 0
IMTEXTURE 'marble.itx 0 0 0 0 0 0 0.01 0.01 0.01 150 50 50 0 0 0 0 0 0 7'

NEWSURFACE MAP1
DIFFUSE 255 255 255
SPECULAR 0 0 0
IMTEXTURE 'marble.itx 0 0 0 0 0 0 0.01 0.01 0.01 0 0 0 0 0 0 255 255 255 7'

SPHERE 'MAP -2.5 0 0 2'
SPHERE 'MAP1 2.5 0 0 2'

STARTRENDER

SAVEPIC 'marble.iff'

CLEANUP

exit 0