% coded By Swayam pattanayak
% its Aim is to remove discrete components and show only the monolithic
% Background The Strel function do that.
BWa1=imread('br.jpg');
imshow(BWa1);
pause(0.333);
movrr=moviein(16);
for i=1:15
background=imopen(BWa1,strel('disk',i));
    pause(1.333);
imshow(background);
Bwaa=imsubtract(BWa1,background);
pause(0.333);
movrr(:,i)=getframe;
pause(0.333);
end;
movie(movrr,2);
pause(0.333);
imshow(BWaa),colorbar;
disp('Howz the movie Dr Lakaemper!!')