input geometriesyr; figure(0,0,4u,6u); pair A,B,C,D,F; D=u*(0.75,0.75); F=u*(3.25,0.75); A=u*(0.75,5.25); trace triangle(A,D,F); B=4/5[A,D]; C=4/5[A,F]; trace B--C; trace codeperp(A,B,C,5); nomme.top(A); nomme.lft(B); nomme.lft(D); nomme.rt(F); nomme.rt(C); fin; figure(0,0,5u,3u); pair A,B,C,H; B=u*(0.75,0.75); C=u*(4.25,0.75); H=iso(B,C); A=(xpart(H),2.25u); trace triangle(A,B,C); trace codeperp(A,H,C,5); trace A--H; nomme.top(A); nomme.lft(B); nomme.rt(C); nomme.bot(H); fin; end