input constantes;
input geometriepoint;
beginfig(1);
  affixe.A(u*(1,1))so;
  affixe.B(u*(0,4))no;
  affixe.D(u*(6,0))se;
  affixe.C(u*(5,3.5))ne;
  draw z.A--z.B--z.C--z.D--cycle;
  affixe.I(1/2[z.A,z.B])o;
  draw codesegments(A,I,I,B,2);
  affixe.J(1/2[z.A,z.C])n;
  affixe.K(1/2[z.A,z.D])s;
  draw z.I--z.J--z.K;
  draw z.A--z.C;
endfig;
end