home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 79
/
af079sub.adf
/
Raystorm
/
ray.lzx
/
raystorm
/
arexx
/
im_texture.ray
< prev
next >
Wrap
Text File
|
2005-02-11
|
908b
|
44 lines
/***************
* 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