import geometry;
import graph;

unitsize(1cm);

// On définit les pointillés.
pen p=linetype("0 4.94739",offset=0,scale=false,adjust=false);
// Le format("0 %f",pi/18*cm) initial a été remplacé par "0 4.94739"
// pour un problème de virgule à la place du point.

// On définit la fonction polaire
real f(real t) {return 2*cos(t)-1;}
// et sa courbe représentative.
path g=polargraph(f,0,2pi,operator ..)--cycle;

// puis on trace axes, et cercles en pointillés
int nb=4;
for(int j=0; j<12; ++j) draw((0,0)--nb*dir(j*30),palered);
for(int k=1; k<=nb; ++k) draw(circle((0,0),k),p);
// et enfin la courbe.
draw(g,1bp+blue);

// "Découpe" de l'image
clip(square((-.9nb,-.9nb),(.9nb,-.9nb)));