% Select input image folder
image_folder = uigetdir('F:\','Select input image folder');filenames=dir(fullfile(image_folder,'*.tiff'));
display(filenames(1));
total_images=numel(filenames);
% Select output image folder
op_im_folder = uigetdir('F:\','Select output image folder');
% Define video writer
videoPathName = strcat(op_im_folder,'\Video',datestr(now,'yyyymmddTHHMMSS'),'.avi');
writerObj = VideoWriter(videoPathName,'Uncompressed AVI');
writerObj.FrameRate = 2;
open(writerObj);
figure;
for n = 2:10
full_name = fullfile(image_folder,filenames(n).name);
input_image = imread(full_name);
% Do image processing here. output_image = result of processing
imagesc(output_image);colormap(gray);
frame = getframe;
writeVideo(writerObj,frame);
end
% Close video writer object
close(writerObj);
disp('Operation completed');
No comments:
Post a Comment