input courbescp13;
beginfig(1);
  depart((0,0),(8,8),(1,4),3,3);
  draw grille(1);
  draw axes;
  graduantx.bot;
  graduanty.llft;
  draw polaire1(0,2*pi,100,1+cos(theta)) withcolor jaune;
  draw tangentepolaire1(pi/2,0,2*pi);
  draw tangentepolaire1(pi/4,0,2*pi);
  fill fullcircle scaled 2mm shifted pointpolaire1(pi/6,0,2*pi);
endfig;
end