And.. a problem was that gllines was not executing. (gllines <.@(1 2 3 4) forms a verb, but does not execute gllines.)
Also, there's an issue where the isidraw does not update when the jqt session window has focus,. FYI, -- Raul On Wed, Jan 26, 2022 at 2:55 PM Raul Miller <rauldmil...@gmail.com> wrote: > > Ok, so it's not that gllines on isidraw completely fails on my machine. > > That's good to know. > > Thanks, > > -- > Raul > > On Wed, Jan 26, 2022 at 2:25 PM Henry Rich <henryhr...@gmail.com> wrote: > > > > Dissect uses isidraw and gllines on Jqt. > > > > Henry Rich > > > > On 1/26/2022 11:58 AM, Raul Miller wrote: > > > http://www.rosettacode.org/wiki/Fractal_tree#J > > > > > > I had updated the fractal tree implementation to work with j903. (The > > > previous code did not work with any implementation of J which I have > > > installed on my mac -- apparently Apple's changes mean that j504 and > > > j602 no longer function on this machine.) > > > > > > However, I noticed that the window is slow to come up, and I cannot > > > resize it, > > > > > > So, I changed the implementation: > > > > > > require'gl2' > > > > > > L0=: 50 NB. initial length > > > A0=: 1r8p1 NB. initial angle: pi divided by 8 > > > dL=: 0.9 NB. shrink factor for length > > > dA=: 0.75 NB. shrink factor for angle > > > N=: 14 NB. number of branches > > > > > > L=: L0*dL^1+i.N NB. lengths of line segments > > > > > > NB. relative angles of successive line segments > > > A=: A0*(dA^i.N) +/\@:*("1) _1 ^ #:i.2 ^ N > > > > > > NB. end points for each line segment > > > P=: 0 0+/\@,"2 +.*.inv (L0,0),"2 L,"0"1 A > > > > > > wd {{)n > > > pc P closeok; > > > setp wh 480 640; > > > cc C isidraw; > > > pshow; > > > }} > > > > > > glclear_jgl2_'' > > > gllines_jgl2_ <.@(10 + ,/"2 P-"1<./,/P) > > > > > > But this version does not draw the fractal tree. > > > > > > Has anyone been able to get gllines to work in an isidraw? > > > > > > Thanks, > > > > > > > > > -- > > This email has been checked for viruses by AVG. > > https://www.avg.com > > > > ---------------------------------------------------------------------- > > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
