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!