function wysiwyg
%WYSIWYG -- this function is called with no args and merely
%       changes the size of the figure on the screen to equal
%       the size of the figure that would be printed, 
%       according to the papersize attribute.  Use this function
%       to give a more accurate picture of what will be 
%       printed.
%       Dan(K) Braithwaite, Dept. of Hydrology U.of.A  11/93
%
%    	modified April 98 : Ian Brooks
% 	  positions fig according to screen size for correct display under
%	  solaris 2.6 CDE (single indent)
 
unis = get(gcf,'units');
ppos = get(gcf,'paperposition');
set(gcf,'units',get(gcf,'paperunits'));
pos = get(gcf,'position');
pos(3:4) = ppos(3:4);
 scrunis=get(0,'units');
 set(0,'units',get(gcf,'paperunits'));
 scr=get(0,'screensize');
 pos(1)=(scr(3)/2)-(ppos(3)/2);
 pos(2)=scr(4)-ppos(4)-2;
set(gcf,'position',pos);
set(gcf,'units',unis);
 set(0,'units',scrunis);