#debug "\nCreation du Parquet .........\n"
#declare X_Position = 0;
#declare Z_Position = 0;

#declare Motif_Plancher =
union{
   #declare Compteur = 0;
   #while (Compteur < Nb_Parquet)
      box{<X_Position - Lar_Parquet,0,Z_Position>,<X_Position - Lar_Parquet + 0.5,Hau_Parquet - 0.05,Z_Position - Lon_Parquet> texture{Tex_Noire}}
      box{<X_Position,0,Z_Position>,<X_Position -  Lar_Parquet,Hau_Parquet - 0.05,Z_Position - 0.5> texture{Tex_Noire}}
      box{<X_Position,0,Z_Position - 0.5>,<X_Position - Lar_Parquet + 0.5,Hau_Parquet,Z_Position - Lon_Parquet> texture{Tex_Parquet rotate 0*y}}
   #declare Compteur = Compteur + 1;
   #declare X_Position = X_Position - Lar_Parquet;
   #end
   #declare Z_Position = Z_Position - Lon_Parquet;
   #declare X_Position = X_Position + Lon_Parquet;
   #declare Compteur = 0;
   #while (Compteur < Nb_Parquet)
      box{<X_Position,0,Z_Position>,<X_Position - Lon_Parquet,Hau_Parquet - 0.05,Z_Position - 0.5> texture{Tex_Noire}}
      box{<X_Position - Lon_Parquet,0,Z_Position>,<X_Position -  Lon_Parquet + 0.5 ,Hau_Parquet - 0.05,Z_Position - Lar_Parquet> texture{Tex_Noire}}
      box{<X_Position ,0,Z_Position - 0.5>,<X_Position - Lon_Parquet + 0.5,Hau_Parquet,Z_Position - Lar_Parquet> texture{Tex_Parquet rotate 90*y}}
   #declare Compteur = Compteur + 1;
   #declare Z_Position = Z_Position - Lar_Parquet;
   #end
   #declare Z_Position = Z_Position + Lon_Parquet;
   #declare X_Position = X_Position - Lon_Parquet;
   #declare Compteur = 0;
   #while (Compteur < Nb_Parquet)
      box{<X_Position - Lar_Parquet,0,Z_Position>,<X_Position - Lar_Parquet + 0.5,Hau_Parquet - 0.05,Z_Position - Lon_Parquet> texture{Tex_Noire}}
      box{<X_Position,0,Z_Position>,<X_Position -  Lar_Parquet,Hau_Parquet - 0.05,Z_Position - 0.5> texture{Tex_Noire}}
      box{<X_Position,0,Z_Position - 0.5>,<X_Position - Lar_Parquet + 0.5,Hau_Parquet,Z_Position - Lon_Parquet> texture{Tex_Parquet rotate 180*y}}
   #declare Compteur = Compteur + 1;
   #declare X_Position = X_Position - Lar_Parquet;
   #end
   #declare Z_Position = Z_Position + Lon_Parquet;
   #declare X_Position = X_Position + Lon_Parquet;
   #declare Compteur = 0;
   #while (Compteur < Nb_Parquet)
      box{<X_Position,0,Z_Position>,<X_Position - Lon_Parquet,Hau_Parquet - 0.05,Z_Position - 0.5> texture{Tex_Noire}}
      box{<X_Position - Lon_Parquet,0,Z_Position>,<X_Position -  Lon_Parquet + 0.5 ,Hau_Parquet - 0.05,Z_Position - Lar_Parquet> texture{Tex_Noire}}
      box{<X_Position ,0,Z_Position - 0.5>,<X_Position - Lon_Parquet + 0.5,Hau_Parquet,Z_Position - Lar_Parquet> texture{Tex_Parquet rotate -90*y}}
   #declare Compteur = Compteur + 1;
   #declare Z_Position = Z_Position - Lar_Parquet;
   #end
     }


#declare Piece_Parquet =
union{
#declare Compteur_1 = 0;
#while(Compteur_1 < int((Z_Piece / Lon_Parquet) / 2))
#declare X_Position = X_Piece;
#declare Z_Position = Z_Piece - (4 * Compteur_1) * Lon_Parquet;
#declare Y_Position = Y_Debut;
   #declare Compteur_2 = 0;
       #while(Compteur_2 <  int((X_Piece / Lon_Parquet)/2) - 2 * Compteur_1)
          object{Motif_Plancher translate <X_Position,Y_Position,Z_Position>}
       #declare X_Position = X_Position - 2 * Lon_Parquet;
       #declare Compteur_2 = Compteur_2 + 1;
       #end
   #declare Z_Position = Z_Position - 2 * Lon_Parquet;
   #declare X_Position = X_Position + 2 * Lon_Parquet;
   #declare Compteur_2 = 0;
       #while(Compteur_2 < int((Z_Piece / Lon_Parquet)/2) - (2 * Compteur_1) - 1)
          object{Motif_Plancher translate <X_Position,Y_Position,Z_Position>}
       #declare Z_Position = Z_Position - 2 * Lon_Parquet;
       #declare Compteur_2 = Compteur_2 + 1 ;
       #end
   #declare Z_Position = Z_Position + 2 * Lon_Parquet;
   #declare X_Position = X_Position + 2 * Lon_Parquet;
   #declare Compteur_2 = 0;
       #while(Compteur_2 < int((Z_Piece / Lon_Parquet)/2) - (2 * Compteur_1) - 1)
          object{Motif_Plancher translate <X_Position,Y_Position,Z_Position>}
       #declare Z_Position = Z_Position + 2 * Lon_Parquet;
       #declare Compteur_2 = Compteur_2 + 1;
       #end
   #declare X_Position = X_Position + 2 * Lon_Parquet;
   #declare Z_Position = Z_Position - 2 * Lon_Parquet;
   #declare Compteur_2 = 0;
       #while(Compteur_2 <  int((X_Piece / Lon_Parquet)/2) - (2 * Compteur_1) - 2)
          object{Motif_Plancher translate <X_Position,Y_Position,Z_Position>}
       #declare X_Position = X_Position + 2 * Lon_Parquet;
       #declare Compteur_2 = Compteur_2 + 1;
       #end

   #declare Z_Position = Z_Position - Lon_Parquet;
   #declare X_Position = X_Position - 2 * Lon_Parquet;

#declare Compteur_1 = Compteur_1 + 1;
#end


  }


