home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 79
/
af079sub.adf
/
Raystorm
/
ray.lzx
/
raystorm
/
arexx
/
attrtest.ray
next >
Wrap
Text File
|
1989-06-14
|
1KB
|
68 lines
/***************
* NAME: attrtest.ray
* VERSION: 1.0 06.08.1995
* DESCRIPTION: This ARexx-programm demonstrates different attributes
* 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 'dh1:user/raystorm/textures'
SETSCREEN 160 128
SETCAMERA 0 0 80 0 0 0 0 1 0 56.25 45
SETWORLD 0 0 0 40 40 40
POINTLIGHT '10 -10 100 255 255 255 SHADOW'
NEWSURFACE TEST
AMBIENT 255 0 0
DIFFUSE 255 0 0
SPECULAR 255 255 255
REFEXP 5
NEWSURFACE TEST1
AMBIENT 0 255 0
DIFFUSE 0 100 0
TRANSPAR 0 155 0
REFRINDEX 1.33
NEWSURFACE TEST2
AMBIENT 0 0 255
DIFFUSE 0 0 255
REFLECT 100 100 100
NEWSURFACE TEST3
AMBIENT 255 255 0
DIFFUSE 255 255 0
IMTEXTURE 'checker.itx 0.1 0.1 0.1 0 0 0 2 2 2'
NEWSURFACE PLANE
SPECULAR 0 0 0
IMTEXTURE 'checker.itx 0.1 0.1 0.1 0 0 0 5 5 5'
SPHERE 'TEST 15 15 0 10'
SPHERE 'TEST1 15 -15 0 10'
SPHERE 'TEST2 -15 -15 0 10'
SPHERE 'TEST3 -15 15 0 10'
PLANE 'PLANE 0 0 -50 0 0 1'
STARTRENDER
SAVEPIC 'attrtest.iff'
CLEANUP
exit 0