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

prologues:=2;

input geometriesyr16;

figure(-2u,-10u,7u,10u);
pair O,A,N[],P[],M[];
path cc,dd;
O=u*(0,0);
A-O=u*(5,0);
cc=cercles(iso(A,O),A);
dd=perpendiculaire(O,A,A);
for k=-157 step 1 until 160:
  N[k]=pointarc(cc,k);
  P[k]=droite(O,N[k]) intersectionpoint dd;
  M[k]=parallele(O,A,P[k]) intersectionpoint perpendiculaire(O,A,N[k]);
endfor;
drawoptions(dashed evenly withcolor gris);
trace cc;trace dd;
drawoptions(withcolor rouge);
path versiera;
versiera=M[-157]
for k=-156 step 1 until 160:
  ..M[k]
endfor;
trace versiera;
drawoptions(withcolor bleu);
trace textpath("\Large Versiera",versiera,0.35);
fin;
end