/* polargraph

guide polargraph(picture pic=currentpicture, 
                 real[] r, real[] theta,
                 interpolate join=operator--);

Returns a polar-coordinate graph using the scaling information for picture pic 
of the elements of the arrays (r,theta), using the given interpolation type.

*/
import graph;

size(7cm,0);

real[] rayonspolaires={2, 3, 2, 3,  2,  3,  2,  3,  2},
       anglespolaires={0,30,60,90,120,150,180,210,240};

anglespolaires *= pi/180;
path g=polargraph(rayonspolaires,anglespolaires,operator ..);

draw(g,1bp+red);

xaxis("$x$");
yaxis("$y$");

draw((0,0)--(1,0),.8bp+blue,Arrow());
draw((0,0)--(0,1),.8bp+blue,Arrow());

shipout(bbox(2mm,Fill(white)));