papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
to tree :scale :n :r :g :b if :n > 0 [ color [:r :g :b] pendown penwidth :scale * 3 make "len 10 + random 30 make "len :len * :scale fd :len color [:r :g :b] make "x 10 + random 25 lt :x tree :scale * 0.8 :n - 1 100 100 0 rt :x make "x 10 + random 25 rt :x color [:r :g :b] tree :scale * 0.8 :n - 1 0 200 0 lt :x penup backward :len ] end reset setxy 250 400 tree 3 9 80 80 0
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
>
