% coded By Swayam pattanayak
% its Aim is to create binary version of the image.,
BWa1=imread('gry.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);
level=graythresh(Bwaa);
B11=im2bw(Bwaa,level); % intensity to binary exploiting here this function
imshow(B11)
pause(0.333);
movrr(:,i)=getframe;
pause(0.333);
end;
movie(movrr,2);
%pause(0.333);
imshow(B11),colorbar;
disp('Howz the movie Dr Lakaemper!!')