mkmov.m

function odir=mkmov(pldirs,ndumps)
if ~isempty(pldirs)
 prog='ffmpeg';
 if rtgix(['which ' prog]) || rtgix([prog ' -v error -buildconf | grep enable-libvpx']), prog='mencoder'; end
 if rtgix(['which ' prog]), return, end
 np=length(pldirs);
 rate=3; if ndumps<30, rate=10; end
 [dpath,t2,ext]=fileparts(pldirs{end});
 [dpath,t1,ext]=fileparts(pldirs{1});
 [d,t0a,t0b]=fileparts(dpath);
 odir=sprintf('%s_%s_%d',dpath,t1,np);
 mkdir(odir);
 f=dir(pldirs{1});
 for fn=f'
  [path,name,ext]=fileparts(fn.name);
  if strcmp(ext,'.png')
   if strcmp(prog,'ffmpeg')
    [dum1,dum2]=rtgix(sprintf('%s -r %d -pattern_type glob -i ''%s/*/%s.png'' -metadata title="%s%s %s %s %d" -v error -vcodec libvpx -qmax 50 -y -dn -an %s/%s.webm',prog,rate,dpath,name,t0a,t0b,t1,t2,np,odir,name));
   else
    rtgix(sprintf('find %s -name %s.png > list.txt',dpath,name));
    [dum1,dum2]=rtgix(sprintf('mencoder mf://@list.txt -mf fps=%d:type=png -ovc lavc -o %s/%s.avi',rate,odir,name));
    delete('list.txt');
   end
   for i=1:np
    delete(fullfile(pldirs{i},fn.name));
   end
  elseif strcmp(ext,'.txt') || strcmp(ext,'.html') 
   for i=1:np
    delete(fullfile(pldirs{i},fn.name));
   end
  end
 end
 %for i=1:np
 % rmdir(pldirs{i});
 %end
 rmdir(dpath,'s');
end