/***************
 * NAME:          im_texture.ray
 * VERSION:       1.0 06.08.1995
 * DESCRIPTION:   This ARexx-programm demonstrates Imagine texture mapping
 * 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 200 -200  0 0 0  0 1 0  56.25 45'
SETWORLD 0 0 0  100 100 100
POINTLIGHT '0 200 -200  255 255 255'

NEWSURFACE MAP
IMTEXTURE 'checker.itx 0 0 0  0 0 0  32 32 32'
SPECULAR 255 255 255
DIFFUSE 150 100 50

SPHERE MAP 0 0 0 64

ANTIALIAS 1

STARTRENDER QUICK

SAVEPIC 'im_texture.iff'

CLEANUP

exit 0