input latexmp;
setupLaTeXMP(class="article",options="12pt",fontencoding="T1",inputencoding="latin1",language="frenchb",packages="fourier,textpathmp");
input textpath;

prologues:=2;

input geometriesyr16;

figure(0,0,10u,10u);
pair A,B,O,C,P[],M[],M'[];
B=u*(1,5);
A-B=u*(8,0);
O=iso(A,B);
C=rotation(B,O,90);
M[-39.25]=A;
for k=-39 step 0.25 until 30:
  P[k]=(k/10)[C,O];
  M[k]=cercles(P[k],O) intersectionpoint droite(A,P[k]);
  M'[k]=symetrie(M[k],P[k]);
endfor;
drawoptions(dashed evenly withcolor gris);
trace segment(A,B);
trace marquesegment(A,B);
trace perpendiculaire(A,B,O);
drawoptions(withcolor rouge);
path strophoide;
strophoide=M[30]
for k=29.75 step -0.25 until -39.25:
  ..M[k]
endfor
for k=30 step -0.25 until -39:
  ..M'[k]
endfor;
trace strophoide;
drawoptions(withcolor bleu);
trace textpath("\Large Strophoïde droite",reverse(strophoide),0.56);
fin;
end