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

figure018.mp (figure 1)
Source

input geometriesyr16;
figure(0,0,10u,10u);
pair A,B,C;
A=u*(1,1);
B-A=u*(8,0);
C=3/5[A,B];
trace segment(A,B);
trace arccercle(B,A,iso(A,B));
trace arccercle(B,C,iso(B,C));
trace arccercle(C,A,iso(A,C));
trace hachurage(B--arccercle(B,A,iso(A,B))--reverse(arccercle(C,A,iso(C,A)))--reverse(arccercle(B,C,iso(B,C)))--cycle,60,0.3,0);
fin;
end