Esagono

Poligono regolare con 6 lati di lunghezza 125

For lato=1 To 6
   Turtle.Move(125)
   Turtle.Turn(60)
EndFor

---

Continua…

---

Difficile: è necessario utilizzare una sequenza di colori e una sequenza di dimensioni per la penna.

GraphicsWindow.Height=GraphicsWindow.Width

Turtle.Y    =GraphicsWindow.Height/2
Turtle.Speed=10

MATITA[1]=15
MATITA[2]=10
MATITA[3]=5
MATITA[4]=5
MATITA[5]=10
MATITA[6]=15

COLORI[1]="brown"
COLORI[2]="green"
COLORI[3]="lime"
COLORI[4]="lime"
COLORI[5]="green"
COLORI[6]="brown"

DIMENSIONE=125
ANGOLO=60

For esagono=1 to 12
   For lato=1 To 6 
      GraphicsWindow.PenWidth=MATITA[i] 
      GraphicsWindow.PenColor=COLORI[i] 
      Turtle.Move(DIMENSIONE) 
      Turtle.Turn(ANGOLO) 
   EndFor
   
   Turtle.Turn(30)
EndFor

Improvvisa!