Con un algoritmo molto semplice puoi sperimentare e ottenere immagini molto interessanti
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
ANGOLO=... ' di quanto gira? VOLTE =... ' quante volte? passo =... ' di quanto avanza? DELTA =... ' di quanto aumenta il passo? '----------------------------------------- GraphicsWindow.Height=GraphicsWindow.Width GraphicsWindow.PenWidth=1 Turtle.Y=GraphicsWindow.Height/2 Turtle.Speed=10 '----------------------------------------- For i=1 To VOLTE Turtle.Move(passo) Turtle.Turn(ANGOLO) passo=passo+DELTA EndFor |
Alcune idee
|
1 2 3 4 |
ANGOLO=45 VOLTE =200 passo =5 DELTA =1 |
|
1 2 3 4 |
ANGOLO=60 VOLTE =250 passo =5 DELTA =1 |
|
1 2 3 4 |
ANGOLO=90 VOLTE =100 passo =5 DELTA =5 |
|
1 2 3 4 |
ANGOLO=91 VOLTE =200 passo =5 DELTA =2 |
|
1 2 3 4 |
ANGOLO=120 VOLTE =100 passo =10 DELTA =5 |
|
1 2 3 4 |
ANGOLO=121 VOLTE =300 passo =10 DELTA =1.5 |
|
1 2 3 4 |
ANGOLO=135 VOLTE =100 passo =5 DELTA =5 |
|
1 2 3 4 |
ANGOLO=152 VOLTE =250 passo =5 DELTA =2 |
|
1 2 3 4 |
ANGOLO=175 VOLTE =500 passo =5 DELTA =1 |
|
1 2 3 4 |
ANGOLO=181 VOLTE =500 passo =5 DELTA =1 |
A colori!
|
1 |
GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() |
