papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
reset setxy 0 300 make "i 100 repeat 50 [forward :i right 45 forward sqrt(:i*:i/2) right 90 forward sqrt(:i*:i/2) right 45 forward :i right 90 forward :i right 90 penup forward :i right 90 forward :i/6 left 90 forward :i/6 pendown forward :i/2 right 90 forward :i/6 right 90 forward :i/3 penup forward :i/3 pendown forward :i/3 left 90 forward :i/3 left 90 forward :i/3 left 90 forward :i/3 penup left 90 forward :i/6 left 90 forward :i/3 pendown left 180 forward :i/3 penup right 90 forward :i/6 right 90 forward :i/6 right 90 pendown forward :i/3 penup forward :i/6 pendown forward :i/2 left 90 penup forward :i/3 left 90 pendown forward :i/2 left 90 forward :i/3 right 180 penup right 90 forward :i/2 left 90 forward :i/2 forward 10 left 90 pendown make "i :i-10]
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
>
