rename_frame_files.m

function rename_frame_files(movieName)
    dataDir = 'Data';
    
    %% Setup movie framce-cap dir
    frameDir = fullfile(dataDir, [movieName '_frames']);
    if ( ~exist(frameDir, 'dir') )
        mkdir(frameDir);
    end
    
    flist = dir(fullfile(frameDir,'*.png'));
    fnames = {flist.name};
    
    tok = regexpi(fnames, '([-\w]+?)_t(\d+)\.png','tokens', 'once');
    
    bValid = cellfun(@(x)(~isempty(x)), tok);
    
    validNames = fnames(bValid);
    validTok = tok(bValid);
    
    ftimes = cellfun(@(x)(str2double(x{2})), validTok);
    firstT = min(ftimes);
    
    if ( firstT == 0 )
        fprintf('---- %s: Already frame-indexed: skipping\n', frameDir);
        return;
    end
    
    fprintf('---- %s: Renaming frames\n', frameDir);
    for i=1:length(validNames)
        newName = [validTok{i}{1} '_t' num2str(ftimes(i)-firstT,'%04d') '.png'];
        fprintf('Renaming %s - %s\n', validNames{i},newName);
        
        movefile(fullfile(frameDir,validNames{i}), fullfile(frameDir,newName));
    end
end