input latexmp; setupLaTeXMP(class="article",options="12pt",fontencoding="T1",inputencoding="latin1",language="frenchb",packages="fourier,textpathmp"); input textpath; prologues:=2; input geometriesyr16; figure(-3u,0,23u,12u); pair O,A,B,P[],N[],M[]; O=u*(3,8); A-O=u*(5sqrt(3),0); B-O=u*(0,-5); path cc,dd[]; cc=cercles(O,A,B); for k=150 step 1 until 510: P[k]=pointarc(cc,k); dd[k]=perpendiculaire(O,B,P[k]); M[k]=dd[k] intersectionpoint cercles(P[k],O); N[k]=symetrie(M[k],P[k]); endfor; drawoptions(dashed evenly withcolor gris); trace cc; trace droite(O,A); trace droite(O,B); drawoptions(withcolor rouge); path trifolium; trifolium=M[150] for k=151 upto 510: ..M[k] endfor for k=150 upto 510: ..N[k] endfor --cycle; trace trifolium; drawoptions(withcolor bleu); trace textpath("\Large Trifolium",reverse(trifolium),0.56); fin; end