\HeaderA{pointsCircle}{Functions to plot circular related figures}{pointsCircle}
\aliasA{arrowsArc}{pointsCircle}{arrowsArc}
\aliasA{linesArc}{pointsCircle}{linesArc}
\aliasA{linesCircle}{pointsCircle}{linesCircle}
\aliasA{pointsArc}{pointsCircle}{pointsArc}
\aliasA{polygonArc}{pointsCircle}{polygonArc}
\aliasA{polygonDisk}{pointsCircle}{polygonDisk}
\keyword{aplot}{pointsCircle}
\begin{Description}\relax
Functions to plot circular related figures
\end{Description}
\begin{Usage}
\begin{verbatim}
linesCircle(radius, center.x = 0, center.y = 0, edges = 300, ...)
polygonDisk(radius, center.x = 0, center.y = 0, edges=300,
...)
arrowsArc(theta0, theta1, radius, center.x = 0, center.y = 0, edges = 10,
          length = 0.25, angle = 30, code = 2, ...)
pointsArc(theta0, theta1, radius, center.x = 0, center.y = 0, ...)
linesArc(theta0, theta1, radius, center.x = 0, center.y = 0, ...)
polygonArc(theta0, theta1, radius.in, radius.out,
           center.x = 0, center.y = 0,
           edges = 10,
           col = "black",
           border = NA,
           ...)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{theta0, theta1}] start and end angles for the arc
\item[\code{radius}] radius of the circle 
\item[\code{radius.in}] inner radius 
\item[\code{radius.out}] outer radius 
\item[\code{center.x, center.y}] Coordinates for the center of the circle
(default to (0, 0))
\item[\code{edges}] number of edges the shape is made of 
\item[\code{col}] 
\item[\code{border}] border (see \code{\LinkA{polygon}{polygon}})
\item[\code{length, angle, code}] see the corresponding parameters for the
function \code{\LinkA{arrows}{arrows}}
\item[\code{...}] optional graphical paramaters
\end{ldescription}
\end{Arguments}
\begin{Details}\relax
Details to come\ldots for now the best to run the examples and experiment by
yourself\ldots
\end{Details}
\begin{Value}
Function only used for their border effects.
\end{Value}
\begin{Author}\relax
laurent
\end{Author}
\begin{Examples}
\begin{ExampleCode}
par(mfrow=c(2,2))
n <- 10
thetas <- rev(seq(0, 2 * pi, length=n))

rhos <- rev(seq(1, n) / n)

xy <- polar2xy(rhos, thetas)
colo <- heat.colors(n)

plot(0, 0, xlim=c(-2, 2), ylim=c(-2, 2), type="n")
for (i in 1:n)
  linesCircle(rhos[i]/2, xy$x[i], xy$y[i])

plot(0, 0, xlim=c(-2, 2), ylim=c(-2, 2), type="n")
for (i in 1:n)
  polygonDisk(rhos[i]/2, xy$x[i], xy$y[i], col=colo[i])

plot(0, 0, xlim=c(-2, 2), ylim=c(-2, 2), type="n", xlab="", ylab="")
for (i in 1:n)
  polygonArc(0, thetas[i],
             rhos[i]/2, rhos[i],
             center.x = xy$x[i], center.y = xy$y[i], col=colo[i])

plot(0, 0, xlim=c(-2, 2), ylim=c(-2, 2), type="n", xlab="", ylab="")
for (i in (1:n)[-1]) {
  linesCircle(rhos[i-1], col="gray", lty=2)
  polygonArc(thetas[i-1], thetas[i],
             rhos[i-1], rhos[i], col=colo[i],
             edges=20)
  arrowsArc(thetas[i-1], thetas[i],
             rhos[i] + 1, col=colo[i],
             edges=20)
}
  
\end{ExampleCode}
\end{Examples}

