you are running a tight loop. add wd'msgs'
before the line delay DELAY On Apr 27, 2015 6:52 AM, "Cliff Reiter" <[email protected]> wrote: > You need some access to gl2.ijs too, for for the sake of completeness" > > coinsert 'jgl2' > > require 'trig gl2' > > > 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. > > ) > > > nx_WIN=:3 : 0 > > try. WIN_num=: WIN_num + 1 catch. WIN_num=: 0 end. > > WIN_nam=:'p',": WIN_num > > ) > > > 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 6:47 PM, Cliff Reiter wrote: > >> nx_WIN=:3 : 0 >> >> try. WIN_num=: WIN_num + 1 catch. WIN_num=: 0 end. >> >> WIN_nam=:'p',": WIN_num >> >> ) >> >> >> >> On 4/26/2015 5:54 PM, Raul Miller wrote: >> >>> I get a value error on nx_WIN >>> >>> Thanks, >>> >>> >> ---------------------------------------------------------------------- >> For information about J forums see http://www.jsoftware.com/forums.htm >> >> >> > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
