Un programma per generare alberi ricorsivi 3D.

Consideriamo le definizioni ricorsive di alberi in tre dimensioni, descrivendo le rotazioni sferiche con gli angoli di Eulero.
La definizione ricorsiva parte dal tronco, e aggiunge ad esso (e ad ogni nuovo ramo, per ord volte) 3 rami più piccoli. Di ogni ramo viene precisato: di quando la sua lunghezza sia minore di quella del ramo da cui proviene; i suoi angoli nello spazio rispetto al ramo da cui proviene; di quanto il suo spessore diminuisca in proporzione al ramo da cui proviene. Una funzione Col[i] decide i colori di ogni ramo: Col[ord] per il tronco, Col[ord-1] per i rami che escono dal tronco, Col[ord-2] per i rami che escono da questi ultimi, e così via. Gli ultimi rami hanno colore Col[1], lo sfondo Col[0].

[Graphics:../Images/index_gr_40.gif]
[Graphics:../Images/index_gr_41.gif]
[Graphics:../Images/index_gr_42.gif]


Converted by Mathematica      February 28, 2003