#declare Nr = 0; // start
#while ( Nr < 30 ) // as long as Nr < 30,
  //do the following commands:
  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 sphere
  #declare Nr = Nr + 1; // next
#end // ------- end of loop

#declare CH = 3.0; //column height
#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 -----------------------