alexhelp.m

matlab处理图像的一些基本方法。其中有一部分mex程序需要安装编译

function alexhelp(fname)
%ALEXHELP - Display an help file in a scrolling text window.
%
%    ALEXHELP(FNAME)
%
%        inputs:
%            FNAME - Is the file name to display.
%
%        Without arguments ask for the filename using the uigetfile
%        and pointing to the help_path directory.
%
%    Claudio 2 Oct. 1995
%

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

global Uibgcolor filelist help_path Pt_filelist prevb nextb see_also
global AlexDir extrafun_path

c=screencenter;

if nargin==1
  fname=strrep(fname, ' ', '');
  if isempty(find(fname=='/'))
    S=readstr([help_path fname]);
  else
    S=readstr(fname);
  end
else
  [fname, p]=uigetfile([help_path '*.hlp'],'Alex Help Index',c(1)-200, c(2)-200);
  if fname==0 | isempty(fname)
    return;
  else
    S=readstr([p fname]);
  end
end

S=S';
g1=find(S=='{');
g2=find(S=='}');
if length(g1) ~= length(g2)
  g1=[];
  g2=[];
end

for i=1:length(g1)
  s=S(g1(i)+1:g2(i)-1);
  if ~isempty(find(s=='['))
    s=eval(s);
  end
  m=max(find(s=='/'));
  if isempty(m), m=0;end
  str=[str, '|', s(m+1:length(s))];
  strmat=str2mat(strmat, s);
  S(g1(i):g2(i))=blanks(g2(i)-g1(i)+1);
end
str=str(2:length(str));
strmat=strmat(2:size(strmat,1),:);
S=S';


oldf=findobj(0, 'name', 'Alex Help');
if ~isempty(oldf)
  figure(oldf);
  if gco ~= prevb & gco ~= nextb
    filelist=str2mat(filelist, [p fname]);
	Pt_filelist=size(filelist,1);
  end
  scrledit('close', get(oldf,'userdata'));
  scred=scrledit('init',[0 0.2 0.97 .8], S, [p fname]);
  set(oldf, 'userdata', scred);
  set(see_also, 'string', str, 'userdata', strmat, 'value', 1, 'Enable', 'on');
else
  filelist=[p fname];
  Pt_filelist=1;
  pos=[c(1)-775/2   c(2)-450/2   775   450];
  fig_ed=figure('pos',pos,'Name','Alex Help','color',Uibgcolor,'Numb','off');

  scred=scrledit('init',[0 0.2 0.97 .8], S, [p fname]);
  set(fig_ed, 'userdata', scred);
   
  uicontrol(fig_ed, 'style', 'frame',...
                'units', 'normalized',...
                'pos', [0.02 0.02 0.96 0.16],...
                'background', Uibgcolor);

  okb=uicontrol(fig_ed, 'style', 'push',...
                'units', 'normalized',...
                'pos', [0.85 0.05 0.1 0.06],...
                'horiz', 'center',...
                'string', 'Close',...
                'Callback', 'close(gcf);');

  prevb=uicontrol(fig_ed, 'style', 'push',...
                'units', 'normalized',...
                'pos', [0.60 0.05 0.1 0.06],...
                'horiz', 'center',...
                'string', 'Previous',...
                'Callback', 'global Pt_filelist filelist;Pt_filelist=Pt_filelist-1;alexhelp(filelist(Pt_filelist,:));');

  nextb=uicontrol(fig_ed, 'style', 'push',...
                'units', 'normalized',...
                'pos', [0.725 0.05 0.1 0.06],...
                'horiz', 'center',...
                'string', 'Next',...
                'Callback', 'global Pt_filelist filelist;Pt_filelist=Pt_filelist+1;alexhelp(filelist(Pt_filelist,:));');

  indexb=uicontrol(fig_ed, 'style', 'push',...
                'units', 'normalized',...
                'pos', [0.475 0.05 0.1 0.06],...
                'horiz', 'center',...
                'string', 'Index',...
                'Callback', 'alexhelp;');
				
  uicontrol(fig_ed, 'style', 'text',...
                'units', 'normalized',...
                'pos', [0.05 0.10 0.2 0.06],...
				'background', Uibgcolor,...
				'fore', [.2 .2 .2],...
                'horiz', 'left',...
                'string', 'See Also...');

  see_also=uicontrol(fig_ed, 'style', 'popup',...
                'units', 'normalized',...
                'pos', [0.05 0.05 0.38 0.06],...
                'horiz', 'left',...
                'string', str,...
				'userdata', strmat,...
                'Callback', 'fn=get(gco, ''userdata'');alexhelp(fn(get(gco, ''value''),:));');
end


if Pt_filelist==1
  set(prevb, 'Enable', 'off');
else
  set(prevb, 'Enable', 'on');
end

if Pt_filelist==size(filelist,1)
  set(nextb, 'Enable', 'off');
else
  set(nextb, 'Enable', 'on');
end

if isempty(str)
  set(see_also, 'Enable', 'off')
end


return