GraphicsWindow.Height=GraphicsWindow.Width
GraphicsWindow.PenWidth=25
numero =30
lunghezza=250
angolo =180/numero
'-----------------------------------------------------------
Turtle.Speed=10
Turtle.X=30
Turtle.Y=GraphicsWindow.Height/2
VENTAGLIO()
'-----------------------------------------------------------
Turtle.X=GraphicsWindow.Width/2
Turtle.Y=30
Turtle.Angle=90
VENTAGLIO()
'-----------------------------------------------------------
Turtle.X=GraphicsWindow.Width-30
Turtle.Y=GraphicsWindow.Height/2
Turtle.Angle=180
VENTAGLIO()
'-----------------------------------------------------------
Turtle.X=GraphicsWindow.Width/2
Turtle.Y=GraphicsWindow.Height-30
Turtle.Angle=-90
VENTAGLIO()
'-----------------------------------------------------------
Sub VENTAGLIO
For i=1 To numero+1
c=GraphicsWindow.GetRandomColor()
GraphicsWindow.PenColor="#99"+Text.GetSubText(c,2,6)
Turtle.PenDown()
Turtle.Move(lunghezza)
Turtle.PenUp()
Turtle.Move(-lunghezza)
Turtle.Turn(angolo)
EndFor
EndSub