filename=dir('data/a7*.mat');
figure(1)
set(1,'doublebuffer','on');
for i=1:length(filename)
  load(filename(i).name);i
  subplot(4,4,mod(i,16)+1 );imshow(gamen);title(filename(i).date(13:end),'fontsize',8)
  drawnow;
end
