papert―logo in your browser
examples:
koch snowflake
,
hilbert curve
,
spiral
share this program:
link to it
html:
bbcode:
reset make "x 450 make "y 396 penwidth 0.5 to plotpoint setxy int :x int :y circle 1 end repeat 20000 [ make "z random 3 if :z =0 [ make "x (:x/2+125) make "y (:y/2+25) color [255 0 0] ] if :z =1 [ make "x (:x/2+25) make "y (:y/2+198) color [0 255 0] ] if :z =2 [ make "x (:x/2+225) make "y (:y/2+198) color [0 0 255] ] plotpoint ]
Your browser doesn't support canvas tags. Please upgrade to a recent version of Firefox or Opera.
<
>
