plotcircle_black.m

beamlet变化的工具箱

%Tool to draw a circle, it is called by RidgeletTiling.m and DrawFig13.m

function plotcircle(r,ax)
if nargin < 2,
	ax = [];
else
	centerx = (ax(1)+ax(2))/2; 
	centery = (ax(3)+ax(4))/2;
	scalex  = (ax(2)-ax(1))/2;
	scaley  = (ax(4)-ax(3))/2;
end
n = 256;
x = zeros(256,1); y = zeros(256,1);
for l=0:256,
	thetal = 2*pi*l ./ n;
	if isempty(ax),
			x(l+1) = cos(thetal).*r;
			y(l+1) = sin(thetal).*r;
	else
			x(l+1) = centerx + cos(thetal).*r .* scalex;
			y(l+1) = centery + sin(thetal).*r .* scaley;
	end		  
end
plot(x,y,'k') 

%
% 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]
%