Linee che ruotano intorno a un punto
|
1 2 3 4 5 6 7 8 9 10 11 |
Turtle.Speed=10 numero =100 lunghezza=180 angolo =360/numero For i=1 To numero+1 Turtle.PenDown() Turtle.Move(lunghezza) Turtle.PenUp() Turtle.Move(-lunghezza) Turtle.Turn(angolo) EndFor |
Se la lunghezza è crescente…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Turtle.Speed=10 Turtle.TurnRight() numero =100 angolo =360/numero lungMax =220 lungDelta=lungMax/numero lunghezza=10 For i=1 To numero+1 Turtle.PenDown() Turtle.Move(lunghezza) Turtle.PenUp() Turtle.Move(-lunghezza) lunghezza=lunghezza+lungDelta Turtle.Turn(angolo) EndFor |
Se le linee partono da più punti…
