preferences.m

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

function preferences(command)
%PREFERENCES Set the ALEX preferences

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


global B_frame Handlefig Handlebar Handleimgax Handleframeax f Fast3Dplot AutoZrange

if strcmp(upper(command), 'START')

  if isempty(Fast3Dplot)
    Fast3Dplot=1;
  end

  % position variables------------------
  pos=get(B_frame, 'Position');
  uiwidth=0.14;
  uithick=0.03;
  middle=pos(1)+(pos(3)-uiwidth)/2;
  %-------------------------------------

  fcbk='set(get(gco, ''UserData''), ''visible'',onoff(get(gco, ''value'')))';

  whendone='preferences(''MENUISOFF'');';
  figure(Handlefig);
  initbuttons('PREFERENCES', 'Done', whendone);

  str=[    'Axis     ';...
    'ColorBar ';...
    'ColorMap ';...
    'MenuBar  ';...
    'Note     ';...
    'StatusBar';...
    'Title    '];

  handles=zeros(7,20);
  if isobj(Handleimgax)
    handles(1,1)=Handleimgax;
  end
  cbh=[Handlebar;get(Handlebar, 'children');get(Handlebar, 'Userdata')'];
  handles(2,1:length(cbh))=cbh';
  cmh=findobj(Handlefig, 'tag', 'cmapui');
  handles(3,1:length(cmh))=cmh';
  uimh=finduimenu(Handlefig);
  handles(4,1:length(uimh))=uimh;
  nth=findobj(Handlefig, 'tag', 'noteui');
  handles(5,1:length(nth))=nth';
  sbh=findobj(Handlefig, 'tag', 'statusbarui');
  handles(6,1:length(sbh))=sbh';
  th=get(Handleframeax, 'title');
  handles(7,1:length(th))=th';


  n=size(str,1);
  f=zeros(n,1);

  for i=1:n
    fpos = [middle pos(2)+0.75-i*0.04 uiwidth, uithick];
    f(i)=uicontrol(Handlefig, 'Style', 'check', ...
                'String', str(i,:), ...
                'Units', 'normalized', ...
                'value', onoff(get(handles(i,1), 'visible')),...
                'Position', fpos,...
                'Userdata', handles(i,1:min(find(handles(i,:)==0))-1),...
                'CallBack', fcbk);

  end

  i=i+1;
  fpos = [middle pos(2)+0.75-i*0.04 uiwidth, uithick];
  uicontrol(Handlefig, 'Style', 'check', ...
                'String', 'Fast3Dplot', ...
                'Units', 'normalized', ...
                'value', Fast3Dplot,...
                'Position', fpos,...
                'CallBack', 'global Fast3Dplot;Fast3Dplot=get(gco, ''value'');');
				
  i=i+1;
  fpos = [middle pos(2)+0.75-i*0.04 uiwidth, uithick];
  uicontrol(Handlefig, 'Style', 'check', ...
                'String', 'Auto Zrange', ...
                'Units', 'normalized', ...
                'value', AutoZrange,...
                'Position', fpos,...
                'CallBack', 'global AutoZrange;AutoZrange=get(gco, ''value'');');
				
			
  fpos = [middle pos(2)+0.75-(i+1.5)*0.04 uiwidth, uithick];
  uicontrol(Handlefig, 'style', 'push',...
                'String', 'Figure Color', ...
				'Interruptible','yes',...
                'Units', 'normalized', ...
                'Position', fpos, ...
                'CallBack', 'setfigcolor');
				
  fpos = [middle pos(2)+0.75-(i+2.5)*0.04 uiwidth, uithick];
  uicontrol(Handlefig, 'style', 'push',...
                'String', 'Axes Color', ...
				'Interruptible','yes',...
                'Units', 'normalized', ...
                'Position', fpos, ...
                'CallBack', 'setaxcolor');



end  % START


if strcmp(upper(command), 'MENUISOFF')
 
  if get(f(4), 'value')==0 
    showmenubotton;
   end

end  % MENUISOFF

return