input geometriesyr16; figure(0,0,15u,15u); pair B,C,D,A; B=u*(4,8); C-B=u*(5,0); D=cercles(C,4u) intersectionpoint cercles(B,3.5u); trace triangle(B,C,D); A=u*(1,1); trace demidroite(A,A shifted(u*(2,1))); marque_p:="croix"; nomme.llft(A); fin; end