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

besaceplate.mp (figure 1)
Source

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