Beispiele zum Raytracer POV-Ray von Friedrich A. Lohmüller

Rad - mit und ohne #while-Anweisung

Beispiel für die Verwendung von "#while"

Objekte:    "torus", "cylinder"
Methoden: "declare", "union", "#while"

...
#declare SpeichenAnzahl = 16; 
#declare W = 360/SpeichenAnzahl;  
//---------------------------------------------------- Rad
union{
torus{0.9,0.20 scale <1,1,1> rotate<90,0,0>
         texture{Felgentex}} // Felge
torus{1.0,0.25 scale <1,1,1> rotate<90,0,0>
         texture{Reifentex}} // Reifen
cylinder {<0,0,-0.48>,<0,0, 0.48>,0.05
         texture{Felgentex}} // Rad-Nabe
//---------------------- ohne #while-Schleife: --------<<1

union{
 cylinder {<-1,0, 0>,<1,0, 0>,0.05 rotate<0,0, 0*W>}
 cylinder {<-1,0, 0>,<1,0, 0>,0.05 rotate<0,0, 1*W>}
 cylinder {<-1,0, 0>,<1,0, 0>,0.05 rotate<0,0, 2*W>}
 cylinder {<-1,0, 0>,<1,0, 0>,0.05 rotate<0,0, 3*W>}
 cylinder {<-1,0, 0>,<1,0, 0>,0.05 rotate<0,0, 4*W>}
 cylinder {<-1,0, 0>,<1,0, 0>,0.05 rotate<0,0, 5*W>}
 cylinder {<-1,0, 0>,<1,0, 0>,0.05 rotate<0,0, 6*W>}
 cylinder {<-1,0, 0>,<1,0, 0>,0.05 rotate<0,0, 7*W>}
 texture{Felgentex}}

//---------------------------------------------- end --<<2
translate<0,1.25,0> rotate<0,40,0>} // end of union 
//---------------------------------------------- end ----

//oder von <<1 bis <<2 --- mit while-Schleife --------->>1
#declare Nr= 0;  
#declare EndNr = SpeichenAnzahl/2;

#while ( Nr < EndNr )
  cylinder {<-1,0, 0>,<1,0, 0>,0.05
            rotate<0,0,180/EndNr*Nr>
            texture{Felgentex}}
  #declare Nr = Nr +1;
#end // ----------------------------------------------->>2
translate<0,1.25,0> rotate<0,40,0>} // end of union 
//---------------------------------------------- end ----