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

//   Vertical Escalier
   #declare X_Position =   1;
   #declare Z_Position = 215;
      #declare Compteur = 1;
      #while (Compteur < 5)
         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
   #declare X_Position =  13;
   #declare Z_Position = 301;
   #declare Compteur = 1;
   #while (Compteur < 9)
      #if (Compteur = 2)
         #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>}
         object{V_Brique    translate <X_Position -12,0,Z_Position - 12>}
            #else
               #if (Compteur = 5)
                  #declare X_Position = X_Position +12;
                  object{H_Joint     translate <X_Position - 14,0,Z_Position>}
                  object{H12_Joint     translate <X_Position - 1,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
      #end
      #declare X_Position = X_Position + 24;
      #declare Compteur = Compteur + 1;
   #end

 //   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 = 1;
   #while (Compteur_1 < 3)
   #declare Compteur_2 = 1;
      #while (Compteur_2 < 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_2 = Compteur_2 + 1;
      #end
      #if (Compteur_1 = 1)
      object{V_Joint     translate <X_Position,0,Z_Position + 22>}
      object{H_Brique    translate <X_Position - 12,0,Z_Position + 12 >}

      #end
         #declare Z_Position = Z_Position - 12;
              #declare Compteur_1 = Compteur_1 + 1;
   #end

//   Horizontal Devant
  #declare Z_Position = 1;
  #declare X_Position = 217;
  #declare Compteur = 1;
  #while (Compteur < 6)
     #if (Compteur = 1)
        object{V_Joint     translate <X_Position + 12,0,Z_Position + 10>}
     #end
     object{H_Brique    translate <X_Position,0,Z_Position>}
     #if (Compteur > 1)
        object{H_Joint     translate <X_Position + 22,0,Z_Position>}
     #end
     #declare X_Position = X_Position - 24;
     #declare Compteur = Compteur + 1;
  #end

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


//   Horizontal Escalier
  #declare Z_Position = 169;
  #declare X_Position =  61;
  #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 Compteur_1 = 1;
   #while (Compteur_1 < 3)
      #declare Z_Position = Z_Position - 12;
      #declare Compteur_2 = 1;
      #while (Compteur_2 < 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_2 = Compteur_2 + 1;
      #end
      object{V_Joint     translate <X_Position,0,Z_Position - 2>}
      #declare Compteur_1 = Compteur_1 + 1;
   #end





//   Horizontal Milieu
  #declare Z_Position =  85;
  #declare X_Position = 193;
  #declare Compteur = 1;
  #while (Compteur < 9)
     #if (Compteur = 4)
        object{H_Joint     translate <X_Position + 22,0,Z_Position>}
        #declare X_Position = X_Position + 6;
        object{H34_Brique    translate <X_Position,0,Z_Position>}
           #else
              #if (Compteur = 5)
                 object{H_Joint     translate <X_Position + 22,0,Z_Position>}
                 #declare X_Position = X_Position + 6;
                 object{H34_Brique    translate <X_Position,0,Z_Position>}
                   #else
                       object{H_Joint     translate <X_Position + 22,0,Z_Position>}
                       object{H_Brique    translate <X_Position,0,Z_Position>}
              #end
     #end
     #declare X_Position = X_Position - 24;
     #declare Compteur = Compteur + 1;
  #end

 //   Dalle Escalier
   #declare X_Position =  11;
   #declare Z_Position = 215;
   object{E_Dalle_Paire  translate <X_Position,0,Z_Position     >}
   object{E_Dalle        translate <X_Position,0,Z_Position + 12>}
 object{Tour_Paire}
     }
