papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
reset to estrella :pp :qq :lado home setxy :pp :qq penwidth 2 rt 18 repeat 5[ fw :lado rt 144] end ; FRANJAS ROJAS 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] ; RECTANGULO AZUL color [0 0 250] rectangulo 0 200 160 130 make "p 210 repeat 6[ rectangulo 0 :p 160 10 make "p :p + 20] ; ESTRELLAS BLANCAS make "tamano 7 color [250 250 250] make "xr 10 make "yr 210 make "sep 28 repeat 6[ estrella :xr :yr :tamano estrella :xr :yr+:sep :tamano estrella :xr :yr+2*:sep :tamano estrella :xr :yr+3*:sep :tamano estrella :xr :yr+4*:sep :tamano make "xr :xr + :sep] make "xr 10 + :sep/2 make "yr 210 + :sep/2 repeat 5[ estrella :xr :yr :tamano estrella :xr :yr+:sep :tamano estrella :xr :yr+2*:sep :tamano estrella :xr :yr+3*:sep :tamano make "xr :xr + :sep]
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
>
