writetiff.m

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

function writeTIFF
%WRITETIFF Write the image in a tiff file format

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

 
global savepath Handlefig Handleimg

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

if ~isempty(name) & name ~= 0
	f=watchon;
	statusbar('Writing TIFF file...');
	tiffname = [path name];
	
	ex=findobj('tag', 'EXP_TYPE');
	
	if onoff(get(ex, 'checked'))
	  m=colormap;
	  g=get(Handleimg, 'cdata');
	else
	  figure(Handlefig);
	  drawnow;
	  [g,m] = capture(Handlefig);
	end

	tiffwrite(g, m,tiffname);
	watchoff(f);
	clearstatusbar;
end

return