function  E = erosionbinaire(I,a,b,p); 

% function E = erosionbinaire(I,a,b,p); 
%
% Erosion d'une image binaire avec un motif structurant correspondant a la
% bi-boule (a,b) pour la norme de Minkovski d'ordre p. 

[N1,N2] = size(I); 
B = elstructurant (N1,N2,a,b,p); 
J = convelstruct(I,a,b,p); 
E = max (0, J - (sum(B(:))-1)); 
end

