Esercizi di programmazione in Pascal->Grafica - Spirali

Grafica - Spirali

In questo piccolo tutorial verrà spiegato come implementare un algoritmo in pascal che disegna spirali sullo schermo.

Il sorgente è stato scritto per l'ambiente di sviluppo Turbo Pascal, e come impostazione grafica, viene utilizzata la modalità grafica VGA con risoluzione 640X480.
Data una variabile 'angolo', l'algoritmo consiste in una semplice iterazione di disegni di linee sullo schermo, dove ogni linea successiva è 4 pixel più lunga della precedente, e con angolazione spostata in base alla variabile 'angolo'. La prima linea parte al centro dello schermo cioè nella coordinata (320,280) ed a lunghezza di 2 pixel.
L'iterazione termina fino a riempire lo schermo.
Ogni nuova linea viene calcolata mediate le funzioni trigonometriche cos(α) e sin(α). Poiché queste funzioni ricevono come input una variabile espressa in radianti, è necessario convertire la variabile 'angolo' contenente il valore in gradi, in un'altra variabile 'radianti' contenente il valore in radianti. Di seguito il calcolo:
radianti:=angolo*p/180;
dove p corrisponde a π (3,141592654...).

Vediamo il codice

Si può notare che se vogliamo visualizzare una spirale avente una forma a n lati, dobbiamo inserire un valore in gradi pari a 360/n, ad esempio per visualizzare un tringolo dobbiamo inserire 360/3 cioè 120, mentre per il quadrato 90.
Se vogliamo ottenere degli effetti interessanti, possiamo inserire valori come ad esempio 123 oppure 118.
Altri effetti particolari possiamo ottenerli inserendo valori come 150 oppure 200.


Scarica sorgente ed eseguibile (21 Kb)