papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
reset make "x 1 repeat 500[ make "x :x +1 make "y 60 make "z 35 make "ay 50 make "y :y +1 make "z :z +1 make "ay :ay +1 repeat 20[ fw :x*(sin :y) lt :z*(cos :ay) rt :x*(arctan :z)] color[ rand 500 rand 500 rand 500] home ]
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
>
