1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
axis tight manual % this ensures that getframe() returns a consistent size
filename = 'Severaisse.gif';
tic
h=figure;
for n=1:numel(Image)
fileName = fullfile(folder,dirListing(Image(n)).name);
info=imfinfo(fileName); %% give all info from the file
str = split(info.FileModDate) ; %% Split the name of the file
I = imread(fileName);
imshow(I)
title(info.FileModDate) %Put title
drawnow
frame = getframe(h);
im = frame2im(frame);
[imind,cm] = rgb2ind(im,256);
if n == 1
imwrite(imind,cm,filename,'gif','LoopCount',Inf,'DelayTime',1);
else
imwrite(imind,cm,filename,'gif','WriteMode','append','DelayTime',1);
end
end
toc |
Partager