input constantes; input geometriepoint1; beginfig(1); affixe.D(u*(1,1))so; affixe.H(u*(7,1))se; affixe.A(u*(7,5))n; draw triangle(A,D,H); draw codeperp(A,H,D,5); affixe.P(2/5[z.D,z.H])s; labeloffset:=9bp; affixe.M(2/5[z.D,z.A])n; labeloffset:=3bp; draw segment(M,P); draw codeperp(M,P,D,5); cotation(D,H,-5mm,-2mm,btex 100~m etex); cotation(D,M,2mm,2mm,btex 42~m etex); endfig; beginfig(2); affixe.A(u*(1,1))so; affixe.B(u*(4,1))se; affixe.D(u*(1,5))n; affixe.C(u*(5,2))e; draw z.A--z.B--z.C--z.D--cycle; draw z.D--z.B; draw z.A--z.C dashed evenly; draw codeperp(D,A,B,5); draw codeperp(D,A,C,5); endfig; end