drdrawfig01.m

来自「beamlet变化的工具箱」· M 代码 · 共 68 行

function dRDrawFig01(OpenNewWindow,HaveTitle,LoadData)

% if you don't want to process it, set LoadData=1

if nargin<3
    LoadData=0;
end

if nargin<2
    HaveTitle=1;
end

if nargin<1
    OpenNewWindow=1;
end

if OpenNewWindow
    figure
end

if LoadData
    load HalfDome
end

% DrawFig1.  Mutilated Gaussian
 
% 

% 1. Make an image

n=128;
if LoadData
    ansel = HalfDome;
    else
    ansel = MakeHalfDomeImage(n,pi/2, pi/2,3);
end
%figure; 
imagesc(ansel); axis('square'); colormap(1-hot);
 axis off

if HaveTitle
        title('HalfDome');
    end
%print -depsc RawFig1.eps


%black and white
%colormap(1-gray)
% axis on
% set (gca,'XTick',[]);
% set (gca,'YTick',[]);

% Copyright (c) 2002 Ana Georgina Flesia

%
% Part of BeamLab Version:200
% Built:Friday,23-Aug-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%
%
% Part of BeamLab Version:200
% Built:Saturday,14-Sep-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%