home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Computing 64
/
ac064.adf
/
Rexx
/
Stars.ifx
< prev
Wrap
Text File
|
1978-01-13
|
633b
|
46 lines
/*
* $VER: Stars 1.00.00 (24.9.92)
*
* Arexx program for the ImageFX image processing system.
* Written by Thomas Krehbiel
*
* Draws a lot of random stars into the current buffer.
*
*/
OPTIONS RESULTS
GetMain
IF result = "" THEN DO
CreateBuffer 320 200 Force
GetMain
END
IF result = "" THEN EXIT
PARSE VAR result name width height depth
SaveUndo ; Undo Off ; Redraw Off
BeginBar 'Stars' 500
DO i = 1 TO 500
Bar i
LockGui
x = random(0,width-1)
y = random(0,height-1)
g = random(0,128) + 10
SetPalette '-1' g g g
Point x y
UnlockGui
END
EndBar
Undo On ; Redraw On ; Redraw
EXIT