function [imm]=morfo(imb)
%
% Aplica morfologia binaria
%		[imm]=morfo(imb)
%
%		imb 	- imagenen binaria.

bola=[0 0 1 0 0;0 1 1 1 0;1 1 1 1 1;0 1 1 1 0;0 0 1 0 0];
r=2;

imm=imb;

%Apertura
ero=conv2(bola,~imm);
ero=(ero==13);
dif=conv2(bola,ero);
dif=dif>0;
imm=dif;

n=2^r;% Recorto la imagen al tamaņo original.
imm=imm(1+n:end-n,1+n:end-n);

% figure
% colormap(gray)
% subplot(1,2,1)
% imagesc(~imm)
% title('Apertura')
% 
% %Cierre
% dif=conv2(bola,~imb);
% dif=dif>0;
% ero=conv2(bola,dif);
% ero=(ero==13);
% imc=ero;
% 
% n=2^r;% Recorto la imagen al tamaņo original.
% imc=imc(1+n:end-n,1+n:end-n);

% subplot(1,2,2)
% imagesc(~imc)
% title('Cierre')

%Cierre
dif=conv2(bola,imm);
dif=dif>0;
ero=conv2(bola,dif);
ero=(ero==13);
imm=ero;

n=2^r;% Recorto la imagen al tamaņo original.
imm=imm(1+n:end-n,1+n:end-n);

% figure
% colormap(gray)
% imagesc(~imm)
%