Home
- POV-Ray Tutorial
Cicli con POV-Ray
1. For e While
Comparazione
2. Trasformazioni
lineari
3. Trasformazioni
circolari
4. Moebius etc.
5. Viti e spirali
6. Spirali
intrecciate
>7. Chiocciole
e ammoniti
8. Spirali sferiche 1
9. Spirali sferiche 2
10. Spirali Fibonacci
- Download
|
Cicli per Chiocciole e Ammoniti
|
Negli ultimi esempi spirali e sfere avevano sempre
le stesse dimensioni. Adesso vediamo come ridurre costantemente
le dimensioni delle sfere, il raggio e l'altezza della filettatura
di una chiocciola:
|
//-------------------------------------
#declare Ball =
sphere{<0,0,0>,0.5
texture{pigment{color
rgb<1,0.65,0.0>}
finish {phong 1}}}
#declare Radius0=3.0;// basic radius
#declare NR=9;//number of revolutions
#declare NpR=100;//number elements p.r.
#declare Scale=0.75; //per revolution
#declare HpR=0.8;//difference in y p.r.
//-------------------------------------
#local Hd = HpR/NpR;
#local Scale_p = pow(Scale,1/360);
#local Scale_pE = pow(Scale_p,360/NpR);
#local Old_S = Scale_pE;
#local Old_H = Hd;
#declare Nr = 0; //start
#declare EndNr = NR*NpR; // end
#while (Nr< EndNr)
object{Ball
translate<Radius0,0,0>
scale Old_S
translate<0,Old_H,0>
rotate<0,Nr*360/NpR,0>}
#declare Nr = Nr+1; // next Nr
#declare Old_S =Scale_pE*Old_S;
#declare Old_H =Old_H+Hd*Old_S;
#end // ------------ end of loop ----- |
|
|
|
Se riduciamo l'altezza della filettatura a zero otteniamo
la classica forma di
"Ammonitus povrayensis":
//-----------------------------------
#declare Ball =
sphere{<0,0,0>,1.0
texture{...see above...}}}
#declare Radius0 = 3.5;
#declare NR = 9;//number of revolutions
#declare NpR=50;//number of elem.p.r.
#declare Scale = 0.55; //per revolution
#declare HpR = 0.00;
//------------------------------------ |
|
|
|
Scalando l'aspetto dell'elemento di base e facendo del texturing
con pietre e graniti è possibile ottenere quasi qualsiasi tipo
di conchiglia o ammonite.
Cose ne dite per esempi di questa
"Turritella turris var. povensis"?
//---------------------------------
#declare Ball =
sphere{<0,0,0>,0.70
scale <1,1.5,1>
texture{T_Stone3 scale 1.5
finish {phong 0.3}}}
#declare Radius0 = 1.5;
#declare NR=9.1;
//number of revolutions
#declare NpR = 30;
//number of elements per revolution
#declare Scale=0.78;
//per revolution
#declare HpR = 1.6;
//--------------------------------- |
|
|
|
