
function g=sfuoca(f,b)
  % USO: g=sfuoca(f,b) dove f e' l'immagine e b la maschera di blur.
  % Produce un immagine sfuocata g.
  [n,m]=size(f);
  [nb,mb]=size(b);
  if (rem(nb,2)==0|rem(mb,2)==0)
    error('il blur deve essere dispari');
  end
  h1=floor(nb/2); h2=floor(mb/2);
  g=zeros(n,m);
  for i=1:n
    for j=1:m
      for k=-h1:h1
	if(i+k<=0 | i+k>n)
	  continue;
	end
	for s=-h2:h2
	  if((j+s)<=0 | (j+s)>n)
	    continue;
	  end
	  g(i,j)=g(i,j)+b(k+1+h1, s+1+h2)*f(i+k, j+s);
	end
      end
    end
  end
end

      