input constantes; input geometriepoint1; beginfig(1); affixe.B(u*(1,1))so; affixe.C(u*(5,1))se; affixe.A(u*(2,2.5))s; affixe.S((xpart(z.A),5u))n; draw z.S--z.B--z.C--cycle; draw z.S--z.A--z.B dashed evenly; draw z.A--z.C dashed evenly; draw codeperp(S,A,B,5); draw codeperp(S,A,C,5); endfig; beginfig(2); affixe.R(u*(1,1))so; affixe.N(u*(5,1))se; affixe.E(u*(3.5,3))n; affixe.A(projet(E,R,N))s; affixe.T((abs(z.A-z.R)/abs(z.R-z.N))[z.R,z.E])n; draw triangle(R,N,E); draw droite(A,T,1.25); draw z.E--z.A; draw codeperp(E,A,N,5); endfig; end