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