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 if :n < 2 [ penwidth :scale * 20 ] make "len 10 + random 30 make "len :len * :scale fd :len make "x 10 + random 25 lt :x tree :scale * 0.8 :n - 1 :n*6 255-:n*30 0 rt :x make "x 10 + random 25 rt :x tree :scale * 0.8 :n - 1 :n*10 255-:n*20 0 lt :x penup backward :len ] end reset setxy 250 400 tree 3 10 90 80 0
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
>
