%% This is code that will read stacks of TIFF images and play them back
% S. Avery Vigil
% Ivan A. Moreno-Hernandez
% November 2023
%
% for information, see https://github.com/morenohernandezlab/RuO2_Dissolution

video_folder = uigetdir('','*Select Folder for saved videos*'); %call directory for saved videos

%% Get subfolders

d = dir(strcat(video_folder,'\*\*\.*')); % get the folder contents
dfolders = d([d(:).isdir]); % call only folders
dfolders = dfolders(~ismember({dfolders(:).name},{'.'})); % remove '.'

for i = 1:size(dfolders,1)
dfolders(i).frames = dir(strcat(dfolders(i).folder,'\*.tif')); %Build structure of files
end

%% Load frames and visualize them

for v= 1:size(dfolders,1) %all videos
    for f = 1:10:size(dfolders(v).frames,1) %Show every 10 frames
        I = imread(strcat(dfolders(v).frames(f).folder,'\',dfolders(v).frames(f).name)); %Call image
        I_mean = mean(I,'all') %normalize for visualization
        I_norm = I/500; %normalize for visualization
        imshow(I_norm) %show image
        drawnow
    end
end