input geometriesyr; figure(0,0,6u,5u); pair E,H,S,T; E=u*(0.75,0.75); S=E shifted(u*(4.5,0)); T=u*(4,4.25); trace triangle(E,S,T); H=projection(T,E,S); trace T--H; trace codeperp(T,H,E,5); nomme.llft(E); nomme.lrt(S); nomme.top(T); nomme.bot(H); fin; figure(0,0,6u,9u); pair A,B,C,D,R,S,T,U,V,H; A=u*(0.75,0.75); B=A shifted(u*(3,0)); C=B shifted(u*(1,0.75)); D=C shifted(A-B); H=iso(A,C); S=(xpart(H),8u); R=3/5[S,A]; V=3/5[S,B]; T=3/5[S,C]; U=3/5[S,D]; draw A--B--C--S--cycle; draw S--B; draw R--V--T; draw B--D--C--A--D--S--H dashed evenly; draw R--U--T dashed evenly; nomme.llft(A); nomme.lrt(B); nomme.rt(C); nomme.ulft(D); nomme.lft(R); nomme.lrt(V); nomme.rt(T); nomme.ulft(U); nomme.top(S); fin; end