#debug "\nCreation de l'Etage 10 ......\n"
#declare Etage_10=
union{
//   Escalier
   #declare X_Position =   1;
   #declare Z_Position = 277;
   object{H_Brique         translate <X_Position     ,0,Z_Position> texture{Tex_Brique_Blanche}}
   object{H_Joint          translate <X_Position + 22,0,Z_Position>}
   object{H12_Brique       translate <X_Position + 24,0,Z_Position> texture{Tex_Brique_Blanche}}
   object{E_Dalle_Haut_1   translate <X_Position  ,0,Z_Position + 10> texture{Tex_Brique_Blanche}}
   #declare Z_Position = Z_Position + 12;
   object{H12_Brique  translate <X_Position     ,0,Z_Position> texture{Tex_Brique_Blanche}}
   object{H_Joint     translate <X_Position + 10,0,Z_Position>}
   object{H_Brique    translate <X_Position + 12,0,Z_Position> texture{Tex_Brique_Blanche}}
   object{E_Dalle_Haut_2   translate <X_Position  ,0,Z_Position + 10> texture{Tex_Brique_Blanche}}
   #declare Z_Position = Z_Position + 12;
   object{H_Brique  translate <X_Position     ,0,Z_Position> texture{Tex_Brique_Blanche}}
   object{H12_Brique    translate <X_Position + 24,0,Z_Position> texture{Tex_Brique_Blanche}}
   object{H_Joint     translate <X_Position + 22,0,Z_Position>}

//   Vertical Gauche
   #declare X_Position =  37;
   #declare Z_Position = 289;
      object{V_Brique          translate <X_Position,0,Z_Position     >}
      object{E_Dalle_Haut_3    translate <X_Position - 2,0,Z_Position     >}
   #declare Z_Position = Z_Position - 24;
#declare Compteur = 1;
#while (Compteur < 3)
      object{V_Joint     translate <X_Position,0,Z_Position +22>}
      object{V_Brique    translate <X_Position,0,Z_Position     >}
      #if (Compteur = 1)
         object{E_Dalle_Haut_4    translate <X_Position - 2,0,Z_Position  + 12>}
      #end
      #declare Z_Position = Z_Position - 18;
      object{V_Joint     translate <X_Position,0,Z_Position + 16>}
      object{V34_Brique  translate <X_Position,0,Z_Position     >}
      #declare Z_Position = Z_Position - 24;
#declare Compteur = Compteur + 1;
#end
  object{V_Brique    translate <X_Position,0,Z_Position     >}
  object{V_Joint     translate <X_Position,0,Z_Position + 22>}
  object{V_Joint     translate <X_Position,0,Z_Position - 2>}

  //   Horizontal Escalier
  #declare Z_Position = 169;
  #declare X_Position =  61;
           object{H_Brique    translate <X_Position - 24,0,Z_Position>}
  #declare Compteur = 1;
  #while (Compteur < 4)
           object{H_Joint     translate <X_Position - 2,0,Z_Position>}
           object{H_Brique    translate <X_Position,0,Z_Position>}
     #declare X_Position = X_Position + 24;
     #declare Compteur = Compteur + 1;
  #end

//   Vertical Milieu
   #declare X_Position = 121;
   #declare Z_Position = 181;
      #declare Z_Position = Z_Position - 12;
      #declare Compteur = 1;
      #while (Compteur < 4)
         #declare Z_Position = Z_Position - 24;
         object{V_Joint     translate <X_Position,0,Z_Position + 22>}
         object{V_Brique    translate <X_Position,0,Z_Position     >}
         #declare Compteur = Compteur + 1;
      #end
      object{V_Joint     translate <X_Position,0,Z_Position - 2>}

 //   Horizontal Milieu

  #declare Z_Position =  85;
  #declare X_Position = 217;
    object{V_Joint     translate <X_Position + 12,0,Z_Position + 10>}
      #declare Compteur = 1;
  #while (Compteur < 5)
     object{H_Joint     translate <X_Position - 2,0,Z_Position>}
     object{H_Brique    translate <X_Position,0,Z_Position>}
     #declare X_Position = X_Position - 24;
     #declare Compteur = Compteur + 1;
  #end
      object{H_Brique    translate <X_Position,0,Z_Position>}


 //   Vertical Droite
   #declare X_Position = 229;
   #declare Z_Position = 289;
   object{H_Joint     translate <X_Position -2,0,Z_Position + 12>}
   object{V_Joint     translate <X_Position,0,Z_Position - 2>}
   object{V_Brique    translate <X_Position,0,Z_Position     >}
   #declare Z_Position = Z_Position - 24;
   #declare Compteur = 1;
   #while (Compteur < 4)
      object{V_Joint     translate <X_Position,0,Z_Position + 22>}
      object{V_Brique    translate <X_Position,0,Z_Position     >}
      #declare Z_Position = Z_Position - 24;
      #declare Compteur = Compteur + 1;
   #end
   #declare Z_Position = Z_Position + 6;
   #declare Compteur = 1;
   #while (Compteur < 3)
      object{V_Joint     translate <X_Position,0,Z_Position + 16>}
      object{V34_Brique  translate <X_Position,0,Z_Position     >}
      #declare Z_Position = Z_Position - 18;
      #declare Compteur = Compteur + 1;
   #end
    #declare Z_Position = Z_Position + 6;
      object{V_Joint     translate <X_Position,0,Z_Position + 10>}
      object{V12_Brique  translate <X_Position,0,Z_Position     >}
     #declare Z_Position = Z_Position - 24;



   #declare Compteur = 1;
      #while (Compteur < 4)
       object{V_Joint     translate <X_Position,0,Z_Position + 22>}
         object{V_Brique    translate <X_Position,0,Z_Position     >}
         #declare Z_Position = Z_Position - 24;
         #declare Compteur = Compteur + 1;

   #end
      object{V_Joint     translate <X_Position,0,Z_Position + 22>}
      object{H_Brique    translate <X_Position - 12,0,Z_Position + 12 >}


//   Horizontal Fond
   #declare X_Position =  49;
   #declare Z_Position = 301;
   #declare Compteur = 1;
   #while (Compteur < 8)
      #if (Compteur = 4)
          #declare X_Position = X_Position + 12;
          object{H_Joint     translate <X_Position - 14,0,Z_Position>}
          object{H_Joint     translate <X_Position - 2,0,Z_Position>}
          object{H_Brique    translate <X_Position   ,0,Z_Position>}
             #else
                object{H_Joint     translate <X_Position - 2,0,Z_Position>}
                object{H_Brique    translate <X_Position   ,0,Z_Position>}
      #end
      #declare X_Position = X_Position + 24;
      #declare Compteur = Compteur + 1;
   #end
                object{H_Joint     translate <X_Position - 2,0,Z_Position>}


object{Tour_Paire}
     }
