pointscircunference(x=0, y=0, diameter=1, ratioxy=1,
npoints= 16, alpha= runif(1, 0, pi/2))
By default, the data are smoothed using a Bezier curve. It gives 60 points.
plot(pointscircunference(x=0, y=0), ylim=c(-1,1), xlim=c(-1,1))
plot(pointscircunference(x=0, y=0), ylim=c(-1,1), xlim=c(-2,2))
plot(pointscircunference(x=0, y=0, ratioxy=2), ylim=c(-1,1), xlim=c(-2,2))
Run the code above in your browser using DataLab