% Code By Swayam Pattanayak
%To make a Movie contasting its Blue value ...
%and finally wrapping  around a cylinder the texture of the original image
x1=imread('br.jpg');
x2=imread('br.jpg');
imshow(x1);
dx1=double(x1);
y=uint8(dx1);
mov=moviein(50);
 for i=1:50                      % Start Blue contrast Operation
 moreblue1(:,:,1)=x1(:,:,1);
    moreblue1(:,:,2)=x1(:,:,2);
     moreblue1(:,:,3)=dx1(:,:,3)*i; % Only Blue value  is being Increased
     imshow(moreblue1);
         mov(:,i)=getframe;   %Record the movie
         end;
movie(mov,3);  % Play the Movie
pause(0.333);
imshow(x1),colorbar;
[x,y,z]= cylinder;
I1=imread('br.jpg');
warp(x,y,z,I1),colorbar; % wrap the  texture around a cylinder
axis off;
disp('Howz the movie Dr Lakaemper!!')