input geometriesyr16;
figuremainlevee(0,0,5u,5u);
pair R,S,T,H;
R=u*(1,1);
S=u*(4,1);
T=u*(4,3);
H=projection(S,R,T);
trace polygone(R,S,T);
trace segment(S,H);
trace codeperp(R,S,T,7);
trace codeperp(S,H,T,7);
nomme.llft(R);
nomme.lrt(S);
nomme.top(T);
nomme.ulft(H);
finmainlevee;
end