papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
to tree :x :n :a ifelse :x>2 [ if :n=0 pu fw :x lt :a tree :x*0.5 :n :a rt :a tree :x*0.5 :n :a rt :a tree :x*0.5 :n :a lt :a bw :x ] [ if :n=0 pd circle 1 if :n=0 pu ] end reset setxy 251 450 tree 200 50 120
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
>