papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
to gohome :pos home rt 90 pu fw :pos lt 90 end to realign :numr :rept gohome :radius pu lt 90 fw :radius rt 90 repeat :rept[ rt (360/:numr) ] fw :radius end to circflower :radius :num clear gohome :radius make "x 1 repeat :num [ make "r rand 25 make "r :r * 10 make "g rand 25 make "g :g * 10 make "b rand 25 make "b :b * 10 realign :num :x pd color [:r :g :b] circle :radius make "x :x + 1 ] end clear circflower 120 15
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
>
