Cerchio

Un poligono di 50 lati, con passo 15, può essere confuso con un cerchio

LATI     =50
LUNGHEZZA=15
angolo   =360/LATI

Turtle.Speed=10
Turtle.Angle=3.6 ' Angolo iniziale per "raddrizzare"

For lato=1 To LATI
  Turtle.Move(LUNGHEZZA)
  Turtle.Turn(angolo)
EndFor

Per disegnare più cerchi è necessario aggiungere del codice…

GraphicsWindow.Height=graphicsWindow.Width

QUANTI=5
deltaAngolo=360/QUANTI

LATI=50
LUNGHEZZA=15
angolo=360/LATI

Turtle.Speed=10
Turtle.X=Graphicswindow.Width/2
Turtle.Y=Graphicswindow.Height/2
Turtle.Angle=3.6

For cerchio=1 to QUANTI
  FAI_CERCHIO()
  Turtle.Turn(deltaAngolo)
endfor

sub FAI_CERCHIO
  For lato=1 To LATI
    Turtle.Move(LUNGHEZZA)
    Turtle.Turn(angolo)
  EndFor
EndSub

Fai esperimenti con il numero di cerchi, il colore, lo spessore, la trasparenza, …

PenWidth=20
QUANTI=24

PenWidth=2
QUANTI=60