Esercizi con la grafica della tartaruga: FORWARD, HEADING
Esercizio 1
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
n=500 ; numero tratti lunghezza=300 ; lunghezza massima ;-------------------------------------------------------------- CLEARSCREEN ; pagina bianca HOME ; posizione centrale HIDETURTLE ; senza tartaruga PENSIZE 5 ; spessore del tratto ;-------------------------------------------------------------- REPEAT n [ ; ripeti n volte PENUP HOME PENDOWN ; posizione iniziale HEADING ANY ; direzione a caso PENCOLOR ANY ; colore a caso FORWARD RANDOM(lunghezza) ; lunghezza a caso ] |
I raggi più lunghi nascondono quelli più corti precedenti.
Esercizio 2
Se il raggio è decrescente non succede più
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
n=500 ; numero tratti lunghezza=300 ; lunghezza del 1° tratto ;-------------------------------------------------------------- CLEARSCREEN ; pagina bianca HOME ; posizione centrale HIDETURTLE ; senza tartaruga PENSIZE 5 ; spessore del tratto ;-------------------------------------------------------------- REPEAT n [ ; ripeti n volte PENUP HOME PENDOWN ; posizione iniziale HEADING ANY ; direzione a caso PENCOLOR ANY ; colore a caso FORWARD lunghezza ; tratto colorato lunghezza=lunghezza-0.5 ; il prossimo tratto sarà più corto ] |
Esercizio 3
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
n=200 ; meno tratti lunghezza=300 ;-------------------------------------------------------------- CLEARSCREEN HOME HIDETURTLE PENSIZE 5 ;-------------------------------------------------------------- REPEAT n [ PENUP HOME PENDOWN HEADING ANY PENCOLOR ANY FORWARD lunghezza CIRCLE 5 ; le punte lunghezza=lunghezza-1 ; tratti più corti ] |
Esercizio 4
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
n=100 ; numero tratti minore lunghezza=300 ;-------------------------------------------------------------- CLEARSCREEN HOME HIDETURTLE PENSIZE 25 ; spessore del tratto maggiore ;-------------------------------------------------------------- REPEAT n [ PENUP HOME PENDOWN HEADING ANY PENCOLOR ANY PENTRANSPARENCY 50 ; la trasparenza rallenta il codice FORWARD lunghezza lunghezza=lunghezza-2 ; il prossimo tratto sarà più corto ] |
Esercizio 5
Senza la trasparenza
Esercizio 6
Continua…
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
n=200 distanza=300 dimensione=5 ;-------------------------------- CLEARSCREEN HOME HIDETURTLE PENUP ;-------------------------------- REPEAT n [ HOME HEADING ANY FORWARD distanza FILLCOLOR ANY FILLTRANSPARENCY 75 CIRCLE dimensione distanza=distanza-1 dimensione=dimensione+1 ] |
Esercizio 7
Esercizio 8…
…