papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
to dong :l RT 60 FW 190*:l pu bk 190*:l lt 60 bk :l*3 rt 90 fw :l*70 lt 90 pd RT 60 FW 130*:l LT 90 BW :l*5 FW :l*47 PD FW :l*3 PU BW :l*25 Pd ARC 25*:l 180 LT 90 PU FW :l*160 LT 150 PD ARC 35*:l 180 PU FW :l*10 PD ARC 35*:l 90 pu bk 44*:l pd lt 90 end to spiral :w :a :x :c :ww if :c = 0 [stop] penwidth (:ww*0.2) color [:w*2 0 0] lt :x dong :w*0.003 pu rt :x fw :w pd rt :a spiral :w +1 :a :x+0.7 :c -1 :ww + 0.1 end reset spiral 10 30 10 150 1
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
>
