input constantes;
input geometriepoint;
beginfig(1);
  affixe.A(u*(1,1))so;
  affixe.D(u*(2,2.5))n;
  affixe.E(2[z.A,z.D])n;
  affixe.B(3[z.A,z.D])n;
  affixe.C(u*(5,2.5))se;
  affixe.F(1/2[z.B,z.C])ne;
  affixe.H((z.D--z.C) intersectionpoint (z.A--z.F))s;
  draw triangle(A,B,C);
  draw segment(A,F);
  draw segment(E,F);
  draw segment(D,C);
  draw codesegments(B,F,F,C,2);
  draw codesegments(A,D,D,E,1);
  draw codesegments(D,E,E,B,1);
endfig;
beginfig(2);
  affixe.B(u*(1,1))so;
  affixe.A(u*(2.5,4))n;
  affixe.C(u*(5,1))se;
  draw triangle(A,B,C);
  affixec.I(1/2[z.A,z.B])n;
  affixec.J(1/2[z.A,z.C])n;
  affixec.K(1/2[z.B,z.C])s;
  affixe.L(projet(A,B,C))s;
  draw segment(A,L);
  draw codeperp(A,L,B,5);
endfig;
end