Brian,

If you want an animation of 0.5 second of the demo you shown in the
start of this thread, you could do something like this.

sys_timer_z_=: 3 : 0
if. 0>ntry__=: <:ntry__ do. wd 'timer 0 ' return. end.
GS_CLEARCOLOR=: pick...@? 144  NB. choose new color
wd'psel opengl;setinvalid g'   NB. let a paint event happen
)

try1 =: 3 : 0
ntry__=: y
wd 'timer 500'   NB. timer ring each 0.5 sec
)

then  try1 10 or try1 100
if you want a faster animation, change the 500 inside wd 'timer 500' 
to a smaller value,

-- 
regards,
====================================================
GPG key 1024D/4434BAB3 2008-08-24
gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to