source: prextra/showfigs.m @ 5

%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