papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
reset make "r2 exp (0.5 * ln 2) to puntos penwidth 10 make "y 200 repeat 3[ make "x 200 repeat 3[setxy :x :y fw 1 make "x :x + 50] make "y :y + 50 ] end to solucion penwidth 1 color [250 0 0] make "x 350 make "y 150 setxy :x :y lt 135 fw (150 * :r2) rt 135 fw 150 rt 135 fw (150 * :r2) rt 135 fw 150 end puntos solucion
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
>
