/***************
 * NAME:          im_texture.rexx
 * VERSION:       1.0 04.05.1995
 * DESCRIPTION:   This ARexx-programm demonstrates imagine texture mapping
 *	AUTHORS:			Andreas Heumann
 * BUGS:          none
 * TO DO:         none
 * HISTORY:
 *    DATE		NAME	COMMENT
 *		04.05.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 imagine:textures'

'SETSCREEN 100 100'
'SETCAMERA <0,0,-150> <0,0,0> <0,1,0> 45 45'
'SETWORLD [0,0,0] [100,100,100]'
'POINTLIGHT <100,100,-150>'

'NEWSURFACE MAP'
'IMTEXTURE frogskin.itx <0,0,0> <0,0,0> <32,32,32>'
'SPECULAR [0,0,0]'
'DIFFUSE [255,255,0]'

'PLANE MAP <0,0,0> <0,0,1>'

'STARTRENDER QUICK'

'SAVEPIC im_texture.iff'

'CLEANUP'

exit 0

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