Escalier en Hélice
Escalier en Colimaçon

Exemple pour l'usage de une boucle while.
Objets:   "plane", "box"
Méthodes: "#declare", "union", "while", "intersection", "bounded_by".
Cliquez ici pour un exemple !

La forme des marches d'escalier est defini par intersection de un parallélépipède rectangle ("box") avec deux plans tournés ("plane"). L'escalier est formé avec une boucle while.

//----------- dimensions ---------------
#declare StH = 0.10; // Stepheight
#declare StT = 0.50; // Stepdeapth, max.
#declare StB = 1.20; // StepWide
#declare StI = 0.40; // StepInnerRadius
#declare StAnz = 40; // Number of Steps
#declare A = 360/20; // Step rotation angle
//---------------------------------------

//--------------------- textures
#declare Stex1 =
 texture{ pigment{color White}
          finish {diffuse 0.85}}
#declare Stex2 =
 texture{ pigment{color White}
          finish {diffuse 0.90}}
#declare Step = //-------------
intersection{
box  {<0,0,-StT>,< StB,StH,StT>
      translate<StI,0,0>
      texture{Stex1}}
plane{<0,0, 1>,0 rotate<0,-W/2,0>
      translate<0,0,0.01>
      texture{Stex2}}
plane{<0,0,-1>,0 rotate<0, W/2,0>
      translate<0,0,0.0 >
      texture{Stex2}}
bounded_by{
 box{<0,0,-StT>,<StB,StH,StT>
     translate<StI,0,0>}}
}//-------------- end of Step

La description della scène
pour POV-Ray :
"povwend.txt"
ou "povwend.pov"

union{
//------------------------- #while - loop --------------------
#declare Nr = 0;    // sets counter Nr on start value
#while (Nr<StAnz)  // check if end value is reached
   object{Step    // Object depending from counter Nr
              translate<0,Nr*StH,0>
              rotate <0,-Nr*A,0>}
#declare Nr = Nr+1; // increase counter by 1
#end               // end of the sector to repeat
//----------------------------------------------------------------
rotate<0,90,0> }
//------------------------------------------------------------ end