Here's another approach (beware of email induced line wrap in definition of
show):
N=:0.01*i.629
O=: [: j./ 1 2 o./ ]
delay=:6!:3 NB. "sleep"
show=: [: plot (O N),N*/~0.07 0.11 0.15(*O) 2r24p1 2r60p1 2r60p1*_3{.6!:0
bind ''
show@delay@1:^:9e9''
I think this should work with both jqt and the j602 ide.
Thanks,
--
Raul
On Thu, May 29, 2014 at 1:39 PM, David Lambert <[email protected]>
wrote:
> http://rosettacode.org/wiki/Draw_a_clock#J
>
> The next author need only replace the draw dyad, or rewrite the
> contribution.
> x is the current session time, y is the session time when the verb starts.
>
> round=: [: <. 0.5&+
> PICTURES=: u:16b2190+i.4 NB. arrows
> draw=: [: smoutput PICTURES ((|~ #)~ { [) [: round -
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
