clc
close all
clear all
% 
% im = imread('mbari.bmp');
% im = rgb2gray(im);
% 
% img_blur = imfilter(im, fspecial('gaussian', 30, 1e5));
% 
% subplot(2, 1, 1);
% imshow(im);
% subplot(2, 1, 2);
% imshow(img_blur);
% 
% imwrite(img_blur, 'blurred.bmp', 'bmp');


im = imread('leuk100.bmp');
im = rgb2gray(im);

for k=1:4
    figure;
    imshow(im);
    im = imfilter(im, fspecial('gaussian', 5, 1e5));
end