mytitle.m

matlab源代码

function mytitle(string,varargin)
% Function creates a "standard" title; font size adapted to length of title text
% Written by: E. R.: April 5, 2001
% Last updated: September 20, 2001: Handle underscores
%
%           mytitle(string,varargin)
% INPUT
% string    title string
% varargin  one or more cell arrays; the first element of each cell array is a keyword,
%           the other elements are parameters. Presently, keywords are:
%      'figurehandle'      figure handle. Default: {'fig',gcf} i.e. current figure
%      'color'    Title color. Default {'color','r'}
%      'fontsize' Font size of title text. Default: {'fontsize',ftsze}
%                 where ftsze=15*min([1,66/(length_of_title_string)]) for landscape format
%                       ftsze=15*min([1,48/(length_of_title_string)]) for portrait format
%      'fontname' Font name. Default: {'fontname','Arial'}

global S4M

% 	Set default parameters
param.figurehandle=gcf;
param.color='r';
param.fontsize=[];
param.fontname=S4M.font_name;

%	Read/interpret input arguments
param=assign_input(param,varargin);

if isempty(param.fontsize)
   orient=get(param.figurehandle,'PaperOrientation');
   if iscell(string)
      lstring=0;
      for ii=1:length(string)
         lstring=max([lstring,length(string{ii})]);
      end
      sph=gca;
      pos=get(sph,'Position');
      pos(2)=0.95*pos(2);
      pos(4)=0.91*pos(4);
      set(sph,'Position',pos); 
   else
      lstring=length(string);
   end
   if strcmp(orient,'landscape')
      param.fontsize=min([1,66/lstring])*15;
   else
     param.fontsize=min([1,40/lstring])*15;
   end
end

figure(param.figurehandle);
if isempty(param.fontname)
   title(mnem2tex(string),'Color',param.color,'FontSize',param.fontsize);
else
   title(mnem2tex(string),'Color',param.color,'FontSize',param.fontsize, ...
     'FontName',param.fontname);
end