source: issm/trunk/src/m/exp/expcircle.m@ 16137

function expcircle(filename,x0,y0,radius,numberofnodes)
%EXPCIRCLE - create a circular contour corresponding to given parameters
%
%   Creates a closed argus contour centered on x,y of radius size.
%   The contour is made of numberofnodes
%
%   Usage:
%      expcircle(filename,x0,y0,radius,numberofnodes)
%
%   See also EXPMASTER, EXPDOC

%Calculate the cartesians coordinates of the points
x_list=ones(numberofnodes+1,1);
y_list=ones(numberofnodes+1,1);

theta=(0:2*pi/numberofnodes:2*pi*(1-1/numberofnodes))';
theta=[theta;0];

x_list=radius*x_list.*cos(theta);
y_list=radius*y_list.*sin(theta);

%offset x_list and y_list by x0 and y0:
x_list=x_list+x0;
y_list=y_list+y0;

contour.x=x_list;
contour.y=y_list;
contour.density=1;
contour.name='circle';

expwrite(contour,filename);