Fichier trifolium.mp (figure 1) — Modifié le 13 Avril 2008 à 13 h 13

trifolium.mp (figure 1)
Source

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