#debug "\nCreation des Papiers peints ...........\n"


#declare Papiers_Droite =
union{
#declare X_Position = X_Piece;
#declare Z_Position = Z_Piece;
#declare Compteur   = 0;
#while (Compteur < int(X_Piece/Lar_Papier))
   box{<X_Position,Bas_Papier,Z_Position>,<X_Position - Lar_Papier,Haut_Papier,Z_Position + E_Papier> texture{Tex_Papier_Droite}}
#declare X_Position = X_Position - Lar_Papier;
#declare Compteur = Compteur + 1 ;
#end
box{<X_Position,Bas_Papier,Z_Position>,<0,Haut_Papier,Z_Position + E_Papier> texture{Tex_Papier_Droite}}
     }

#declare Papiers_Gauche =
union{
#declare X_Position = 0;
#declare Z_Position = Z_Piece;
#declare Compteur   = 0;
#while (Compteur < int(Z_Piece/Lar_Papier))
   box{<X_Position,Bas_Papier,Z_Position>,<X_Position - E_Papier,Haut_Papier,Z_Position - Lar_Papier> texture{Tex_Papier_Gauche}}
#declare Z_Position = Z_Position - Lar_Papier;
#declare Compteur = Compteur + 1;
#end
box{<X_Position,Bas_Papier,Z_Position>,<X_Position - E_Papier,Haut_Papier,0> texture{Tex_Papier_Gauche}}
    }


#declare Piece_Papiers =
union{
   object{Papiers_Droite}
   object{Papiers_Gauche}
     }
