image_emboss.m

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

function image_emboss
%IMAGE_EMBOSS Emboss the actual image.
%
%		IMAGE_EMBOSS
%
%

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

global I Oldzrange Oldcontrast Oldoffset Oldmap Undofun

if isempty(I)
  return;
end

if ~isimage
  setviewmode('TOPVIEW');
  showimage;
end

statusbar('Embossing image...');
Oldzrange=zrange;
Oldcontrast=getcontrast;
Oldoffset=getoffset;
Oldmap=getmap;

zrange([0 1]);
setcontrast(0);
setoffset(0);
setmap(1);
setimage(mat2gray(filter2(fspecial('sobel'),I)));
Undofun=['global Oldzrange Oldcontrast Oldoffset Oldmap;zrange(Oldzrange);',...
                'setimage(getclipboard,inf,0);setcontrast(Oldcontrast);',...
                'setoffset(Oldoffset);setmap(Oldmap);setclipboard([]);'];

clearstatusbar;

return