%Code by Swayam Pattanayak
% This  is an improved version of ss2.m
RGB=imread('br.jpg');
I1=rgb2gray(RGB);
mov1=moviein(20);
 for i=1:20
     h=[i i+1 i;i-1 i-1 i-1;i-2 i-3 i-2]
     I2=filter2(h,I1);
     imshow(I2,[]),colorbar
      mov(:,i)=getframe;
         end;
       movie(mov1);
pause(9.933);
imshow(I2,[]),colorbar
disp('Howz the movie Dr Lakaemper!!')