%SHOWFIGS Show all figures on the screen

function showfigs
h = sort(get(0,'children'));
n = length(h);
k = ceil(sqrt(n));
s = 0.9/k;   % screen stitch
r = 0.96;     % image size reduction
t = 0.055;    % top gap
b = 0.005;    % border gap
fig = 0;
for i=1:k
	for j=1:k
		fig = fig+1;
		if fig > n, break; end
		set(h(fig),'units','normalized','position',[(j-1)*s+b,(1-t)-i*s,s*r,s*r]);
		figure(h(fig));
	end
end
