Fichier a.mp (figure 1) — Modifié le 3 Avril 2008 à 22 h 03

a.mp (figure 1)
Source

input geometriesyr16;
figure(0,0,1u,1u);
trace feuillet withcolor gris;
pair A,B,C,D,E;
A=u*(2/3,0.15);
B=u*(1/3,0.85);
C-A=u*(-0.03,-0.1);
D-C=0.5*(B-A);
E=rotation(D,C,25);
path cc;
cc=C--D--arccercle(D,E,C)--B;
trace cc;
trace symetrie(cc,A,B);
trace arccercle(C,symetrie(C,B,A),B);
fin;
end