www.gusucode.com > wavelet工具箱matlab源码程序 > wavelet/wavelet/wtxttitl.m
function wtxttitl(axe,txtStr,tag) %WTXTTITL Set a text as a super title in an axes. % WTXTTITL(AXE,TXTSTR,TAG) % M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-May-96. % Last Revision: 10-Feb-2011. % Copyright 1995-2011 The MathWorks, Inc. if nargin==2 , tag = ''; end newtxt = 1; if ~isempty(tag) h_txt = findobj(axe,'Type','text','Tag',tag); if ~isempty(h_txt) , newtxt = 0; end end if newtxt [ColTitle,FontWeight,FontName] = wtbutils('title_PREFS'); u_axe = get(axe,'Units'); h_tit = get(axe,'title'); u_txt = 'pixels'; set(h_tit,'Units',u_txt); h_txt = text(0,0,txtStr, ... 'Parent',axe, ... 'Units',u_txt, ... 'Color',ColTitle, ... 'FontWeight',FontWeight, ... 'FontName',FontName, ... 'HorizontalAlignment','center', ... 'Visible','off', ... 'Tag',tag ... ); e_tit = get(h_tit,'Extent'); p_tit = get(h_tit,'Position'); px_txt = p_tit(1); if e_tit(4)>0 py_txt = e_tit(2)+1.33*e_tit(4); else py_txt = e_tit(2)-0.32*e_tit(4); end set(h_txt,'Position',[px_txt py_txt+3],'Visible','on'); set([h_txt,h_tit],'Units',u_axe); else set(h_txt,'String',txtStr,'Visible','on'); end drawnow