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

prologues:=2;

input geometriesyr16;

figure(-7u,0,13u,10u);
pair A,B,P,Q[],M[];
A=u*(4,3);
B-A=u*(1,0.2);
P=u*(3,0.75);
for k=-25 upto 25:
  Q[k]=(k/3)[A,B];
  M[k]=demidroite(P,Q[k]) intersectionpoint cercles(Q[k],4u);
endfor;
drawoptions(dashed evenly withcolor gris);
trace droite(A,B);
drawoptions(withcolor rouge);
path conchoide;
conchoide=M[-25]
for k=-24 upto 25:
  --M[k]
endfor;
trace conchoide;
drawoptions(withcolor bleu);
trace textpath("\Large Conchoïde",conchoide,0.75);
fin;
end