input geometriesyr16; figure(0,0,6u,4u); pair A,B,C,H; B=u*(1,1); C-B=u*(4,0); A-B=u*(3,2); H=projection(A,B,C); trace triangle(A,B,C); trace segment(A,H); trace codeperp(A,H,B,6); nomme.lft(B); nomme.rt(C); nomme.top(A); nomme.bot(H); fin; end