Poligono regolare con 5 lati di lunghezza 150
For lato=1 To 5 Turtle.Move(150) Turtle.Turn(72) EndFor
Continua…
GraphicsWindow.Height=GraphicsWindow.Width
Turtle.Y=GraphicsWindow.Height/2
Turtle.Speed=10
QUANTI=15
ANGOLO=360/QUANTI
For pentagono=1 To QUANTI
For lato=1 To 5
Turtle.Move(150)
Turtle.Turn(72)
EndFor
Turtle.Turn(ANGOLO)
EndFor