function H=hpfilter(type, M, N, D0, n)
if nargin==4
            n=1;
end
Hlp=lpfilter(type, M, N, D0, n);
H=1-Hlp;
end