/***************
 * NAME:          marble.ray
 * VERSION:       1.0 23.07.1995
 * DESCRIPTION:   Test of marble texture
 * AUTHORS:       Andreas Heumann
 * BUGS:          none
 * TO DO:         none
 * HISTORY:
 *    DATE     NAME  COMMENT
 *    23.07.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'

'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>'

'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

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