writematlab.m

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

function writeMATLAB
%writeMATLAB Save the image in MATLAB file formart.
%
%	writeMATLAB ask for the file name 

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



global I H map ed_contrast ed_offset savepath Handlefig

[name, path] = uiputfile([savepath '*.mat']);

if ~isempty(name) & name ~= 0
	f=watchon;
	statusbar('Writing MATLAB file...');
	MTLname = [path name];
	
	ex=findobj('tag', 'EXP_TYPE');
        if onoff(get(ex, 'checked'))
	  Contrast=get(ed_contrast,'Value');
	  Offset=get(ed_offset,'Value');
	  Zrange=zrange;

	  csave=['save ' MTLname ' I H map Contrast Offset Zrange'];
	  eval(csave);
        else
	  figure(Handlefig);
	  drawnow;
          [Image Map]=capture(Handlefig);
          csave=['save ' MTLname ' Image Map'];
	  eval(csave);
	end

	watchoff(f);
	clearstatusbar;
end