imagetitle.m

来自「matlab处理图像的一些基本方法。其中有一部分mex程序需要安装编译」· M 代码 · 共 70 行

function imagetitle(tit)
%IMAGETITLE Set the image title

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% [e-mail],    [e-mail]
%

global H I Handleimg CB_imagemode Handlebar Handleimgax Handleframeax Handlefig
global Fname FontName FontSize FontWeight Handleline
global FullFname imginfo


microscopes='NanoscopeII:??  NanoscopeIII:1652E  NanoscopeIIIA:521d';


if nargin==0
  tit=strrep(FullFname,'\','\\');
end

value=[];
if isempty(H)
  dat='';
  mic=Inf;
else
  dat=['Date: ' getparameter(H, 'Date',1)];
  mic=getparameter(H, 'Serial number',1);
end
if isempty(mic) | (mic == inf)
  value = 'Unknown';
else
  while ~isempty(microscopes)
    [m, microscopes]= strtok(microscopes);
    if findstr(m, mic)
      value=strtok(m, ':');
    end
  end
end

if isempty(value)
  value=mic;
end

mic=['Microscope: ' value];
if isempty(H)
  mod='';
  itype=inf;
else
  mod=['Mode: ' getparameter(H, 'Id',1)];
  itype=getparameter(H, 'Image data',inf);
end   
sep='  -  ';

if itype==inf, itype='';end
if ~isempty(itype), itype=['Image data: ' itype];end

imginfo=[mic, sep, mod, sep, itype sep dat];

axes(Handleframeax);
title(tit, 'FontName', FontName, 'FontWeight', FontWeight,...
	'FontSize', FontSize, 'VerticalAlignment', 'bottom',...
	'ButtonDownFcn', 'global imginfo;statusbar(imginfo);');            

if isobj(Handleimgax)
  axes(Handleimgax);
end

return