An object animation example follows some remarks.
I may have found the answer to my question.
That short script has the correct behavior so long as the last line is
run in the script and not loaded. If loaded, the same problem occurs. In
the rast case I am trying to open and update the window under program
control. This gives me something to investigate.
dawin=: 3 : 0
0 0 1 1 1 dawin y
:
'a c b d e'=.x
SC=:WIN_WH&*@((-&(a,d)) %((b-a),c-d)"1)"1
sz=.":WIN_WH
PN=.y,'; Animation window bounds are x: ',(":a),' to ',(":b),' y:
',(":c),' to ',":d
nx_WIN ''
z=.'pc ',WIN_nam,' closeok;pn "',PN,'";minwh ',sz,' ;cc g isidraw;'
wd z,';pshow;'
glclear''
DELAY=:e
)
dfillcolor=: 3 : 0 NB. Start Fill Color
wd 'psel ',WIN_nam
if. _1 e.y do. glbrushnull ''
else. glrgb y
glbrush''
end.
)
NB. ------------------------------------------------
NB. dapoly v Displays animated list of 2-D polygons
dapoly=: 3 : 0 NB. Show polygon
0 0 0 dapoly y
:
if. (1=$$x) do. X=.(#y)$,:x else. X=.x end.
Y=.x:^:_1 SC 2{."1 y
wd 'psel ',WIN_nam
k=.0
while. k<#y do.
glclear ''
dfillcolor k{X
glpolygon ,k{Y
glpaintx ''
delay DELAY
k=.>:k
end.
)
delay=:6!:3
WIN_WH=:500 500
sq=:#: 0 1 3 2
_2 _2 2 2 0.1 dawin 'rot'
rot=:(cos,sin),:-@sin,cos
R=:(rot 1r40p1)&(+/ . *)"1
$pl=:R^:(i.120) sq
0 255 0 dapoly pl
On 4/26/2015 2:31 PM, Raul Miller wrote:
Can you post a simple example of what your setup is like?
(Like, for example, minimal code that animates a line or a triangle in
some simple way.)
Thanks,
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
