function [ wynik ] = MaskaDolnoprzepustowa( I,r )

[h w]=size(I);
wynik=zeros(h,w);
x0=w/2;
y0=h/2;


for x=(x0-r):(x0+r)
    for y=(y0-r):(y0+r)
        if(sqrt((x-x0)*(x-x0)+(y-y0)*(y-y0))<=r)
            wynik(y,x)=I(y,x);
        end;
    end;
end;