input geometriesyr12;
figure(0,0,8u,6u);
pair A,B,C;
A=u*(1,1);
C=u*(7,1);
path cc;
cc=cercledia(A,C);
B=pointarc(cc,60);
nomme.llft(A);
nomme.lrt(C);
nomme.top(B);
remplis codeperp(A,B,C,8)--B--cycle withcolor vert;
trace codeperp(A,B,C,8);
trace triangle(A,B,C);
fin;
figure(0,0,8u,6u);
pair E,F,G;
F=u*(1,1);
E=u*(1,4);
G=u*(7,1);
remplis codeperp(E,F,G,8)--F--cycle withcolor vert;
trace codeperp(E,F,G,8);
trace triangle(E,F,G);
nomme.llft(F);
nomme.top(E);
nomme.rt(G);
fin;
figure(0,0,8u,6u);
pair R,S,T;
S=u*(1,1);
T=u*(7,1);
path cc;
cc=cercledia(A,C);
R=pointarc(cc,30);
nomme.llft(S);
nomme.lrt(T);
nomme.top(R);
remplis codeperp(S,R,T,8)--R--cycle withcolor vert;
trace codeperp(S,R,T,8);
trace triangle(S,R,T);
fin;
end