#debug "\nCreation de l'Arche .........\n"
#declare Montant =
union{
   #declare Compteur = 0;
   #while (Compteur < 6)
      object{V_Brique translate<1,12 * Compteur,1>}
         #if (Compteur = 0)
         object{H_Joint_Allee translate<11,0,1>}
         object{H_Joint_Allee translate<11,0,7>}
         object{H_Joint_Allee translate<11,0,15>}
         object{V12_Joint_Allee translate<1,0,23>}
        #end
   #declare Compteur = Compteur + 1;
   #end
     }

#declare Porche =
difference{
   difference{
      cylinder{<66,72,1>,<66,72,23>,65}
      cylinder{<66,72,0.99>,<66,72,23.01>,55}
             }
   box{<0,0,0>,<132,72,24>}
          }


#declare Arche =
union{
   object{Montant}
   difference{
      object{Porche}
      union{
      #declare Angle = 0;
      #while (Angle < 90)
      box{<-1.01,-0.01,-1.01>,<1.01,1.01,1.01> scale <130,2,23> rotate  Angle * z translate <66,72,1>}
      box{<-1.01,-0.01,-1.01>,<1.01,1.01,1.01> scale <130,2,23> rotate -Angle * z translate <66,72,1>}
      #declare Angle = Angle + 12;
      #end
      texture{Tex_Ciment}
                 }
             }
   intersection{
      object{Porche}
      union{
      #declare Angle = 0;
      #while (Angle < 90)
         box{<-1.011,-0.011,-1.011>,<1.011,1.011,1.011> scale <130,2,23> rotate  Angle * z translate <66,72,0>}
         box{<-1.011,-0.011,-1.011>,<1.011,1.011,1.011> scale <130,2,23> rotate -Angle * z translate <66,72,0>}
      #declare Angle = Angle + 12;
      #end
           }
      texture{Tex_Ciment}
               }
    }

