Fichier anguinea.mp (figure 1) — Modifié le 13 Avril 2008 à 13 h 13
input latexmp;
setupLaTeXMP(class="article",options="12pt",fontencoding="T1",inputencoding="latin1",language="frenchb",packages="fourier,frcursive,textpathmp");
input textpath;
input geometriesyr16;
figure(-18u,1.5u,18u,8.5u);
pair O,A,M[],P[],N[];
path cc,dd;
O=u*(0,5);
A-O=u*(6,0);
cc=cercles(iso(A,O),A);
dd=parallele(O,A,pointarc(cc,20));
marque_p:="plein";
for k=3 upto 179:
P[k]=pointarc(cc,k);
N[k]=droite(O,P[k]) intersectionpoint dd;
M[k]=parallele(O,A,P[k]) intersectionpoint perpendiculaire(O,A,N[k]);
endfor;
for k=181 upto 358:
P[k]=pointarc(cc,k);
N[k]=droite(O,P[k]) intersectionpoint dd;
M[k]=parallele(O,A,P[k]) intersectionpoint perpendiculaire(O,A,N[k]);
endfor;
drawoptions(dashed evenly);
trace cc;
trace droite(O,A);
trace dd;
nomme.llft(O);
nomme.lrt(A);
drawoptions(withcolor rouge);
path anguinea;
anguinea=M[3]
for k=3 upto179:
--M[k]
endfor
for k=181 upto 358:
--M[k]
endfor;
trace anguinea;
drawoptions(withcolor bleu);
trace textpath("\Large L'anguinéa",reverse(anguinea),0.5);
feuillet:=u*(-10,1.5)--u*(10,1.5)--u*(10,8.5)--u*(-10,8.5)--cycle;
fin;
end