input latexmp; setupLaTeXMP(class="article",options="12pt",fontencoding="T1",inputencoding="latin1",language="frenchb",packages="fourier,textpathmp"); input textpath; prologues:=2; input geometriesyr16; figure(-5u,-5u,20u,20u); pair O,A,P[],Q[],N[],M[]; O=u*(6,7); A-O=u*(3,0); path cc; cc=cercles(O,A); for k=0 upto 360: P[k]=pointarc(cc,k); Q[k]=rotation(P[k],O,-2*k); N[k]=rotation(P[k],O,-3*k); M[k]=symetrie(P[k],N[k]); endfor; drawoptions(dashed evenly withcolor gris); trace cc; drawoptions(withcolor rouge); path trifoliumregulier; trifoliumregulier=M0 for k=1 upto 360: ..M[k] endfor --cycle; trace trifoliumregulier; drawoptions(withcolor bleu); trace textpath("\Large Trifolium régulier",trifoliumregulier,0.42); fin; end