Un poligono di 50 lati, con passo 15, può essere confuso con un cerchio
|
1 2 3 4 5 6 7 8 9 |
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…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
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, …
|
1 2 |
PenWidth=20 QUANTI=24 |
|
1 2 |
PenWidth=2 QUANTI=60 |
