input latexmp; setupLaTeXMP(class="article",options="12pt",fontencoding="T1",inputencoding="latin1",language="frenchb",packages="fourier,frcursive,textpathmp"); input textpath; input geometriesyr16; figure(-10u,-7u,4u,1u); pair O,A,P[],Q[],M[],N[]; O=u*(-3,0); A=u*(3,0); path cc; cc=cercledia(O,A); marque_p:="plein"; for k=1 step 7 until 180: P[k]=pointarc(cc,k); Q[k]=projection(P[k],O,A); M[k]=cercles(Q[k],abs(O-P[k])) intersectionpoint droite(P[k],Q[k]); N[k]=symetrie(M[k],Q[k]); endfor; drawoptions(dashed evenly withcolor gris); trace cc; trace droite(O,A); drawoptions(withcolor rouge); path besaceplate; besaceplate=M1 for k=8 step 7 until 180: --M[k] endfor for k=176 step -7 until 0: --N[k] endfor; trace besaceplate; drawoptions(withcolor bleu); trace textpath("\Large Besace plate",reverse(besaceplate),0); drawoptions(); currentpicture:=rotation(currentpicture,O,-90); fin; end