/*
 * $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 EXIT ; PARSE VAR result name width height depth .

SaveUndo ; Undo Off ; Redraw Off

BeginBar 'Stars' 1000

DO i = 1 TO 1000

   Bar i
   LockGui
   x = randu() * width
   y = randu() * height
   g = random(64,255)
   SetPalette '-1' g g g
   Point x y
   UnlockGui

   END

EndBar

Undo On ; Redraw On ; Redraw

EXIT