


TWOFIG - create two figures
Ths routine seems to be obsolete... move to Trash?
Usage:
twofig(varargin)

0001 function twofig(varargin); 0002 %TWOFIG - create two figures 0003 % 0004 % Ths routine seems to be obsolete... move to Trash? 0005 % 0006 % Usage: 0007 % twofig(varargin) 0008 0009 if nargin==1, 0010 counter=varargin{1}; 0011 else 0012 counter=0; 0013 end 0014 figure(1); 0015 set(1,'Position',[1604+1594/2 4 1594/2 1099/2]); 0016 figure(2); 0017 set(2,'Position',[1604+1594/2 4 1594/2 1099/2]); 0018 0019 set(1,'Position',[1604 683+1099 1594/2 1099/2]); 0020 0021 if (counter==0), 0022 twofig(1); 0023 else 0024 return; 0025 end