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

trifoliumregulier.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(-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