A pretty rosette

to rosette
repeat 6[ repeat 60[fd 2 rt 1] rt 60 repeat 120 [fd 2 rt 1] rt 60]
end

to pretty_rosette
rosette 
repeat 30[fd 2 rt 1]
rosette
repeat 15[fd 2 rt 1]
rosette
repeat 30[fd 2 rt 1]
rosette
end

setsc 0 cs setpc 5 ht rosette pu setpos [-300 0] pd setheading 0 pretty_rosette

Figure: Better than using a compass!