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