papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
to quarter :l :a ifelse :a = 1 [ fw 4 * :l bw :l lt 90 fw 2 * :l bw 4 * :l fw 2 * :l lt 90 fw 3 * :l lt 180 ][ fw 3 * :l quarter :l / 4 :a - 1 lt 90 quarter :l / 2 :a - 1 lt 180 quarter :l / 2 :a - 1 lt 90 bw 3 * :l ] end reset repeat 4 [quarter 48 8 lt 90]
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
>
