MMTILE Tile Figure Windows MMTILE with no arguments, tiles the current figure windows and brings them to the foreground. Figure size is adjusted so that 4 figure windows fit on the screen Figures are arranged in a clockwise fashion starting in the left corner of the display % MMTILE(N)makes tile n the current figure if it exists Otherwise, the next tile is created for subsequent plotting Tiled figure windows are titled TILE #l, TILE #2, TILE #3, TILE #4 %o Copyright(c)1996 by Prentice-Hall, Inc HT=40 %tile height fudge in pixels WD=20: tilo bigger fudge numbers increase gaps between tiles Hf=sort( get(O, Children)); get handles of current figures nHf-length(Hf) set(O,Units, 'Pixels)% set screen dimensions to pixels SZ=get(O, 'Screensize'); get screen size in pixels tSz=0. 9*sz(3: 4); defaut tile area is almost whole monitor if sz(4)>sz(3), if portrait monitor z 2). tsz(1); take a landscape chunl tsz=min( tsz, [920 690)); hold tile area on large screens to 920 by 690 tI(l, 1=sz(3)-tsz(1)+l; left side of left tiles tl(2, 1)=tl(1, 1)+tsz(1)/2; left side of right tiles tb(1, 1 )=sz(4)-tsz(2)+1; bottom of bottom tiles tb(2, 1)=tb(1, 1)+tsz(2)/2, bottom of top tiles tpos=zeros(4); matrix holding tile Position vectors tpos(, 1)=tI(1],);% left sides tpos(:,2)=t1(2211],1);% bottoms tpos(:, 3=(tsz( 1)/2-WD)*ones(4, 1):% tpos(: 4 =(tsz(2)/2-HT"ones(4, 1);% heights tpos=fix( tpos); make sure pixel Positions are integers if nargin==0 tile figure fori=l:min(nHf.4)% MMTILE Tile Figure Windows. % MMTILE with no arguments, tiles the current figure windows % and brings them to the foreground. % Figure size is adjusted so that 4 figure windows fit on the screen. % Figures are arranged in a clockwise fashion starting in the % upper-left corner of the display % % MMTILE(N) makes tile N the current figure if it exists. % Otherwise, the next tile is created for subsequent plotting % % Tiled figure windows are titled TILE #1,TILE #2, TILE #3, TILE #4. % Copyright (c) 1996 by Prentice-Hall,Inc. HT=40; %tile height fudge in pixels WD=20; % tile width fudge % adjust the above as necessary to eliminate tile overlaps % bigger fudge numbers increase gaps between tiles Hf=sort(get(0,‘Children’)); % get handles of current figures nHf=length(Hf); set(0, ‘Units’ ,‘Pixels’) % set screen dimensions to pixels sz=get(0,‘Screensize’); % get screen size in pixels tsz=0.9*sz(3:4); % defaut tile area is almost whole monitor if sz(4)>sz(3), % if portrait monitor tsz(2)=.75*tsz(1); % take a landscape chunk end tsz=min(tsz,[920 690]); % hold tile area on large screens to 920 by 690 t1(1,1)=sz(3)-tsz(1)+1; % left side of left tiles t1(2,1)=t1(1,1)+tsz(1)/2; % left side of right tiles tb(1,1)=sz(4)-tsz(2)+1; % bottom of bottom tiles tb(2,1)=tb(1,1)+tsz(2)/2; % bottom of top tiles tpos=zeros(4); % matrix holding tile Position vectors tpos(:,1)=t1([1 2 2 1],1); % left sides tpos(:,2)=t1([2 2 1 1],1); % bottoms tpos(:,3)=(tsz(1)/2-WD)*ones(4,1); % widths tpos(:,4)=(tsz(2)/2-HT)*ones(4,1); % heights tpos=fix(tpos); % make sure pixel Positions are integers if nargin==0 % tile figures as needed for i=1:min(nHf,4)