fprintf(1,'Processing...');
Nc=length(sprintf('%d',Nf+1));
fmt=sprintf('[%%0%dd/%%0%dd]',Nc,Nc);
fprintf(1,fmt,0,Nf+1);
for nf=1:Nf
	im=double(imread([idir '/' dr(nf).name]));
	aim(nf)=mean(flat(im(box(1):box(2),box(3):box(4),1)));
	sim(nf)=std(flat(im(box(1):box(2),box(3):box(4),1)));
	backspace(1,fmt,nf,Nf+1);
	fprintf(1,fmt,nf,Nf+1);
end
