input constantes; input geometriepoint; beginfig(1); affixe.A(u*(1,1))so; affixe.B(u*(5,0))se; affixe.C(8/5[z.B,z.A rotatedabout(z.B,-90)])n; draw triangle(A,B,C); draw codeperp(A,B,C,5); endfig; end