input geometriesyr16;

figuremainlevee(0,0,6u,5u);
pair T,R,I;
R=u*(0.75,0.75);
I=u*(4.25,0.75);
T=u*(0.75,3.25);
trace triangle(T,R,I);
trace codeperp(T,R,I,8);
nomme.llft(R);
nomme.ulft(T);
nomme.lrt(I);
finmainlevee;

end