tortue-logo
Logic and geometry with fun

Russian dolls

to square :x
repeat 4 [fd :x rt 90]
end

to russiandoll :y
square :y
if :y>5 [russiandoll :y-5]
end

russiandoll 200

Star

repeat 6 [fd 100 rt 144]

Rosette

repeat 18 [rt 20 repeat 18 [rt 20 fd 20]]

Polygon

to polygon :nb :len
repeat :nb [fd :len rt 360/:nb]
end

to draw :nb :len
polygon :nb :len
if :nb<12 [draw :nb+1 :len]
end

draw 3 100