function [img] = lpfilter ( n , r , I)

mask=fspecial ('disk', r );  % r yarıçaplı çember matrisi oluşturur

q= floor ( ( n-(2*r+1) ) / 2 ) ;

D = padarray(mask,[q q]);    % çemberin etrafını resmin boyutu kadar sıfırlarla doldurur.
D = padarray(D,[1 1],'pre');
D=D>0;                       % çemberin matris değerlerini 1 yapar.

 Y = fft2(double(I));        % resmin fft'sini alır

 mfft= Y.*D;                 % fft'yi yarattığımız maskeden geçirir.

 img = ifft2(mfft) ;         % inverse fft alınır ve kullanıcaya döndürülür.