#declare Nr = 0; // valore di inizio
#while ( Nr < 30 ) // finchè Nr < 30,
      // fa i seguenti ordini:
  sphere{<1,0,0>,0.25
         rotate<0,Nr * 360/30 ,0>
         texture{
              pigment{color rgb<1,0.65,0>}
              finish {phong 1.0}
             } // end texture
        }// end sohere
#declare Nr = Nr + 1; // next Nr
#end // of loop

#declare CH = 3.0; //altezza colonna
#declare Column =
union{
 cone{<0,0,0>,0.40,<0,CH,0>,0.30}
 torus{0.4,0.05 translate<0,0.05,0>}
 torus{0.3,0.05 translate<0,CH-0.05,0>}
 texture{ pigment{ color rgb<1,0.95,0.8>} 
          normal { bumps 0.5 scale 0.01}
          finish { phong 0.1 }
        } // end of texture
 }// end Column
//--------------------------------------
union{ //-------------------------------
 #local Nr = 0;     // start
 #local EndNr = 10; // end
 #while (Nr < EndNr)
  object{ Column translate<-2,0,Nr*2.5>}
  object{ Column translate< 2,0,Nr*2.5>}
 #local Nr = Nr + 1;  // next Nr
 #end // --------------- end of loop
rotate<0,0,0>
translate<0,0,0>
} // end of union -----------------------