#debug "\nCreation de l'Etage  5 ......\n"
#declare Etage_05=
union{
//   Escalier
   #declare X_Position =   1;
   #declare Z_Position = 217;
   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}}

//   Vertical Escalier
   #declare X_Position =   1;
   #declare Z_Position = 227;
      #declare Compteur = 1;
      #while (Compteur < 4)
         object{V_Brique    translate <X_Position,0,Z_Position + 2>}
         object{V_Joint     translate <X_Position,0,Z_Position    >}
      #declare Z_Position = Z_Position + 24;
      #declare Compteur = Compteur + 1;
      #end



//   Horizontal Fond
   object{V_Joint     translate <X_Position,0,Z_Position    >}
   #declare X_Position =   1;
   #declare Z_Position = 301;
   object{H_Brique    translate <X_Position,0,Z_Position    >}
   #declare X_Position = X_Position + 24;
      #declare Compteur_1 = 1;
      #while (Compteur_1 < 3)
         #declare Compteur_2 = 1;
         #while (Compteur_2 < 3)
            object{H_Joint     translate <X_Position -2,0,Z_Position>}
            object{H34_Brique  translate <X_Position   ,0,Z_Position >}
         #declare X_Position = X_Position + 18;
         #declare Compteur_2 = Compteur_2 + 1;
         #end
         #declare Compteur_2 = 1;
         #while (Compteur_2 < 3)
            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_2 = Compteur_2 + 1;
         #end
      #declare Compteur_1 = Compteur_1 + 1;
      #end
      #declare Compteur = 1;
      #while (Compteur < 3)
         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 Droite
   #declare X_Position = 229;
   #declare Z_Position = 277;
   #declare Compteur = 1;
   #while(Compteur < 5)
   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{V12_Joint     translate <X_Position,0,Z_Position + 23>}
             #declare Z_Position = Z_Position - 6;
   #declare Compteur_1 = 1;
   #while (Compteur_1 < 3)
      #declare Compteur_2 = 1;
      #while (Compteur_2 < 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_2 = Compteur_2 + 1;
      #end

      #declare Z_Position = Z_Position - 6;
      #declare Compteur_2 = 1;
      #while (Compteur_2 < 3)
         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_2 = Compteur_2 + 1;
      #end

  #declare Compteur_1 = Compteur_1 + 1;
  #declare Z_Position = Z_Position + 6;
  #end
  #declare Z_Position = Z_Position - 6;
  object{V_Joint     translate <X_Position,0,Z_Position + 22>}
  object{V_Brique    translate <X_Position,0,Z_Position     >}


//   Horizontal Devant
  #declare Z_Position = 1;
  #declare X_Position = 205;
  #declare Compteur = 1;
  #while (Compteur < 5)
           object{H_Joint     translate <X_Position + 22,0,Z_Position>}
           object{H_Brique    translate <X_Position,0,Z_Position>}
     #declare X_Position = X_Position - 24;
     #declare Compteur = Compteur + 1;
  #end



//   Vertical Gauche
   #declare X_Position =  37;
   #declare Z_Position = 277;
   object{V_Joint     translate <X_Position,0,Z_Position + 22>}
   object{V_Brique    translate <X_Position,0,Z_Position     >}
   #declare Z_Position = Z_Position - 18;
      #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;
      #declare Compteur = 1;
      #while (Compteur < 4)
      #if (Compteur = 1)
      object{H_Joint     translate <X_Position - 2,0,Z_Position>}
      #end
             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

 //   Horizontal Escalier
  #declare Z_Position = 169;
  #declare X_Position =  49;
  #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
 object{H_Joint     translate <X_Position - 2,0,Z_Position>}

//   Vertical Milieu
   #declare X_Position = 121;
   #declare Z_Position = 157;
         object{V_Brique    translate <X_Position,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     >}
      #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;
      #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     >}
      #declare Z_Position = Z_Position - 24;
      #declare Compteur = Compteur + 1;
      #end
          object{V_Joint     translate <X_Position,0,Z_Position + 22>}
         object{V_Brique    translate <X_Position,0,Z_Position     >}
          object{H_Joint     translate <X_Position + 10,0,Z_Position>}



//   Horizontal Milieu
  #declare Z_Position =  85;
  #declare X_Position = 133;
  #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_Joint     translate <X_Position - 2,0,Z_Position>}

  //   Dalle Escalier
   #declare X_Position =  11;
   #declare Z_Position = 227;
   object{E_Dalle_Impaire  translate <X_Position,0,Z_Position     >}
   object{E_Dalle          translate <X_Position,0,Z_Position + 12>}
 object{Tour_Impaire}    }
