^^ TRIANGLE_SPIRAL

Questo è il disegno introduttivo del repcount, comando importante per evitare molta fatica nella creazione di spirali, ma non solo.
Leggiamo dall'editor la scrittura di questo programma; la prima istruzione semplicemente permette di costruire un triangolo equilatero:

to triangle
repeat 3 [rt 120 fd 100]
end

La somma degli angoli interni di un triangolo è 180°. Quindi per costruire un triangolo equilatero basta ripetere 3 volte la rotazione di 120° del lato del triangolo (la cui misura è ovviamante a scelta del programmatore: le misure degli angoli sono costanti, mentre quelle dei lati variabili).

to trianglespiral
repeat 50 [fd repcount*5 rt 120]
end

Per quest'altra istruzione è necessaria una spiegazione: il repcount applicato, come in questo caso, al forward può essere applicato a più comandi base. Rep-count, contare le ripetizioni, nell'esempio repeat 50, quindi il fd iniziale sarà pari a 50, nella seconda ripetizione a 49, nella terza 48 e così via fino a 1. Moltiplicando il repcount * 5 si fa in modo che il fd iniziale sia il quintuplo delle ripetizioni (nel nostro programma 50 --> 50 * 5 = 250), ma anche che il passo tra i fd sia il quintuplo (da 1 a 5). Sempre riferendoci al nostro trianglespiral, la successione di fd sarà: 250, 245, 240, 235, … .