Fractal tree: Difference between revisions

J: Updated for current version of J (J903)
(J: Updated for current version of J (J903))
Line 1,440:
P=: 0 0+/\@,"2 +.*.inv (L0,0),"2 L,"0"1 A
 
P_C_paint=: gllines_jgl2_ bind @:<.@(10 + ,/"2 P-"1<./,/P)
wd 0 :0{{)n
pc P closeok;
xywhsetp 0wh 0480 250 300640;
cc C isigraph rightmove bottommove;
pas 0 0;
pshow;
)}}</lang>
 
See the [[Talk:Fractal tree#J Explanation|talk page]] for some implementation notes.
6,962

edits