%% this script is used to pull all the frames from a video file and save
% them as indiviual images

filename = uigetfile('', 'select video file'); % opens up user interface to select video file

fileVideo = filename; % gets input file name

% NewFolderName = uiputfile; % prompts the user to name the new  folder 
% 
% mkdir(NewFolderName);
 

videoFileReader = vision.VideoFileReader(fileVideo);

videoPlayer = vision.VideoPlayer('Position', [100, 100, 1280, 720]);

objectFrame = step(videoFileReader);

n=1; % counter

while ~isDone(videoFileReader)
    
    
    frame = step(videoFileReader);% reads in frame from video file
    framename = sprintf('frame %g.png', n); % creates filename
    imwrite(frame,framename,'png') %writes image file
    
   % FrameArray(:,:,:,n) = [frame]; % use if you want a 4-D array with all
   % the frames saved
    
    n=n+1; % counter step
    
end

%% release video reader/player

release(videoPlayer);
release(videoFileReader);



%% finish

msgbox('RIP Complete')