papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
to wing :s repeat 18 [ fd :s/10 rt 10 ] if :s < 40 [stop] repeat 18 [ lt 10 bk :s/10 ] wing :s/3 lt 180 wing :s/3 lt 180 wing :s/3 end to dhead bk 100 repeat 3 [ fd 40 rt 120 ] fd 100 end to dtail :s if :s < 1 [stop] repeat 4 [ fd :s*0.1 lt 120 ] rt 120 lt 15 dtail :s*0.9 end clear home color [0 255 0] setxy 100 200 wing 100 lt 180 wing 100 setxy 213 200 dhead dtail 300 lt 180 ; wing 100
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
>
