function figure_tall(num);
%
if nargin == 0;
  num = gcf;
else
  figure(num); num = gcf;
end

orient tall
set(gcf,'Position',[2+10*(num-1) 380-10*(num-1) 560 722])

set( gcf, 'Color', [ 1 1 1 ] );