papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
reset color [250 0 0] to rectangulo :x :y :b :h penwidth 10 setxy :x :y rt 90 fw :b rt 90 fw :h rt 90 fw :b rt 90 fw :h end make "p 200 repeat 7[ rectangulo 0 :p 360 10 make "p :p + 40] color [0 0 250] rectangulo 0 200 160 130 make "p 210 repeat 6[ rectangulo 0 :p 160 10 make "p :p + 20] color [250 250 250] make "xr 10 make "yr 210 make "sep 28 repeat 6[ rectangulo :xr :yr 1 1 rectangulo :xr :yr+:sep 1 1 rectangulo :xr :yr+2*:sep 1 1 rectangulo :xr :yr+3*:sep 1 1 rectangulo :xr :yr+4*:sep 1 1 make "xr :xr + :sep] make "xr 10 + :sep/2 make "yr 210 + :sep/2 repeat 5[ rectangulo :xr :yr 1 1 rectangulo :xr :yr+:sep 1 1 rectangulo :xr :yr+2*:sep 1 1 rectangulo :xr :yr+3*:sep 1 1 make "xr :xr + :sep]
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
<
>
