input geometriesyr12;
figure(0,0,10u,10u);
pair A,B,C;
B=u*(1,5);
C=u*(9,5);
path cc;
cc=cercledia(B,C);
A=pointarc(cc,60);
remplis codeperp(B,A,C,8)--A--cycle withcolor vert;
trace codeperp(B,A,C,8);
trace cc dashed dashpattern(on12bp off6bp on3bp off6bp) withcolor rouge;
marque_p:="plein";
pointe(iso(B,C));
marque_p:="non";
trace iso(B,C)--A dashed evenly withcolor rouge;
trace codesegments(B,iso(B,C),iso(B,C),C,2) withcolor rouge;
trace codesegments(A,iso(B,C),iso(B,C),C,2) withcolor rouge;
trace triangle(A,B,C);
nomme.llft(B);
nomme.lrt(C);
nomme.top(A);
fin;
figure(0,0,10u,10u);
trace B--C;
marque_p:="plein";
pointe(iso(B,C));
marque_p:="non";
trace codesegments(B,iso(B,C),iso(B,C),C,2) withcolor vert;
trace cc withcolor vert;
A:=pointarc(cc,45);
trace B--A--C dashed evenly withcolor rouge;
remplis codeperp(B,A,C,8)--A--cycle withcolor rouge;
trace codeperp(B,A,C,8);
pair M;
M:=pointarc(cc,260);
trace B--M--C dashed evenly withcolor rouge;
remplis codeperp(B,M,C,8)--M--cycle withcolor rouge;
trace codeperp(B,M,C,8);
nomme.llft(B);
nomme.lrt(C);
nomme.top(A);
nomme.bot(M);
fin;
end