1 |
mlosch |
1.1 |
function hout=suptitle(str) |
2 |
|
|
%SUPTITLE Puts a title above all subplots. |
3 |
|
|
% SUPTITLE('text') adds text to the top of the figure |
4 |
|
|
% above all subplots (a "super title"). Use this function |
5 |
|
|
% after all subplot commands. |
6 |
|
|
|
7 |
|
|
% Drea Thomas 6/15/95 drea@mathworks.com |
8 |
|
|
|
9 |
|
|
% Warning: If the figure or axis units are non-default, this |
10 |
|
|
% will break. |
11 |
|
|
|
12 |
|
|
% Parameters used to position the supertitle. |
13 |
|
|
|
14 |
|
|
% Amount of the figure window devoted to subplots |
15 |
|
|
plotregion = .92; |
16 |
|
|
|
17 |
|
|
% Y position of title in normalized coordinates |
18 |
|
|
titleypos = .95; |
19 |
|
|
|
20 |
|
|
% Fontsize for supertitle |
21 |
|
|
fs = get(gcf,'defaultaxesfontsize')+4; |
22 |
|
|
|
23 |
|
|
% Fudge factor to adjust y spacing between subplots |
24 |
|
|
fudge=1; |
25 |
|
|
|
26 |
|
|
haold = gca; |
27 |
|
|
figunits = get(gcf,'units'); |
28 |
|
|
|
29 |
|
|
% Get the (approximate) difference between full height (plot + title |
30 |
|
|
% + xlabel) and bounding rectangle. |
31 |
|
|
|
32 |
|
|
if (~strcmp(figunits,'pixels')), |
33 |
|
|
set(gcf,'units','pixels'); |
34 |
|
|
pos = get(gcf,'position'); |
35 |
|
|
set(gcf,'units',figunits); |
36 |
|
|
else, |
37 |
|
|
pos = get(gcf,'position'); |
38 |
|
|
end |
39 |
|
|
ff = (fs-4)*1.27*5/pos(4)*fudge; |
40 |
|
|
|
41 |
|
|
% The 5 here reflects about 3 characters of height below |
42 |
|
|
% an axis and 2 above. 1.27 is pixels per point. |
43 |
|
|
|
44 |
|
|
% Determine the bounding rectange for all the plots |
45 |
|
|
|
46 |
|
|
% h = findobj('Type','axes'); |
47 |
|
|
|
48 |
|
|
% findobj is a 4.2 thing.. if you don't have 4.2 comment out |
49 |
|
|
% the next line and uncomment the following block. |
50 |
|
|
|
51 |
|
|
h = findobj(gcf,'Type','axes'); % Change suggested by Stacy J. Hills |
52 |
|
|
|
53 |
|
|
% If you don't have 4.2, use this code instead |
54 |
|
|
%ch = get(gcf,'children'); |
55 |
|
|
%h=[]; |
56 |
|
|
%for i=1:length(ch), |
57 |
|
|
% if strcmp(get(ch(i),'type'),'axes'), |
58 |
|
|
% h=[h,ch(i)]; |
59 |
|
|
% end |
60 |
|
|
%end |
61 |
|
|
|
62 |
|
|
|
63 |
|
|
|
64 |
|
|
|
65 |
|
|
max_y=0; |
66 |
|
|
min_y=1; |
67 |
|
|
|
68 |
|
|
oldtitle =0; |
69 |
|
|
for i=1:length(h), |
70 |
|
|
if (~strcmp(get(h(i),'Tag'),'suptitle')), |
71 |
|
|
pos=get(h(i),'pos'); |
72 |
|
|
if (pos(2) < min_y), min_y=pos(2)-ff/5*3;end; |
73 |
|
|
if (pos(4)+pos(2) > max_y), max_y=pos(4)+pos(2)+ff/5*2;end; |
74 |
|
|
else, |
75 |
|
|
oldtitle = h(i); |
76 |
|
|
end |
77 |
|
|
end |
78 |
|
|
|
79 |
|
|
if max_y > plotregion, |
80 |
|
|
scale = (plotregion-min_y)/(max_y-min_y); |
81 |
|
|
for i=1:length(h), |
82 |
|
|
pos = get(h(i),'position'); |
83 |
|
|
pos(2) = (pos(2)-min_y)*scale+min_y; |
84 |
|
|
pos(4) = pos(4)*scale-(1-scale)*ff/5*3; |
85 |
|
|
set(h(i),'position',pos); |
86 |
|
|
end |
87 |
|
|
end |
88 |
|
|
|
89 |
|
|
np = get(gcf,'nextplot'); |
90 |
|
|
set(gcf,'nextplot','add'); |
91 |
|
|
if (oldtitle), |
92 |
|
|
delete(oldtitle); |
93 |
|
|
end |
94 |
|
|
ha=axes('pos',[0 1 1 1],'visible','off','Tag','suptitle'); |
95 |
|
|
ht=text(.5,titleypos-1,str);set(ht,'horizontalalignment','center','fontsize',fs); |
96 |
|
|
set(gcf,'nextplot',np); |
97 |
|
|
axes(haold); |
98 |
|
|
if nargout, |
99 |
|
|
hout=ht; |
100 |
|
|
end |
101 |
|
|
|
102 |
|
|
|
103 |
|
|
|