input constantes; input geometriepoint1; beginfig(1); affixe.G(u*(1,1))so; affixe.F(u*(4,1))se; affixe.E(u*(5,2))e; affixe.H(z.E shifted(z.G-z.F))no; affixe.C(u*(1,4))o; affixe.D(z.H shifted(z.C-z.G))ne; affixe.A(z.E shifted(z.C-z.G))ne; affixe.B(z.F shifted(z.C-z.G))se; affixe.K(1/2[z.C,z.A])s; affixe.M((xpart(z.K),7u))n; draw z.C--z.G--z.F--z.E--z.A--z.M--cycle--z.B--z.A; draw z.A--z.B--z.M; draw z.B--z.F; draw z.G--z.H--z.E dashed evenly; draw z.H--z.D--z.C--z.A--z.D--z.B dashed evenly; draw z.K--z.M--z.D dashed evenly; endfig; end