input constantes;
input geometriepoint;
beginfig(1);
  affixe.E(u*(1,1))so;
  affixe.F(u*(4,1))se;
  affixe.H(u*(2,1.75))s;
  affixe.A(u*(1,4))no;
  affixe.G(z.F shifted(z.H-z.E))se;
  affixe.B(z.F shifted(z.A-z.E))n;
  affixe.D(z.A shifted(z.H-z.E))n;
  affixe.C(z.B shifted(z.H-z.E))n;
  draw z.E--z.F--z.G--z.C--z.D--z.A--cycle;
  draw z.A--z.B--z.F;
  draw z.B--z.C;
  draw triangle(A,F,C);
  draw z.D--z.H--z.G dashed evenly;
  draw z.H--z.E dashed evenly;
endfig;
end