input geometriepoint; input constantes; beginfig(1); affixe.E(u*(1,1))o; affixe.B(u*(3,1))se; affixe.F(u*(6,1))s; affixe.D(u*(8,1))se; affixe.A(u*(1,4))n; affixe.C(u*(6,4))n; draw z.A--z.B--z.C--z.D; draw z.A--z.E--z.B--z.F--z.D dashed evenly; draw z.C--z.F dashed evenly; draw codeperp(A,E,B)(5); draw codeperp(C,F,D)(5); draw codeperp(D,C,B)(5); endfig; beginfig(2); affixe.A(u*(1,1))s; affixe.V(u*(1,0.75)); affixe.W(u*(2.5,0.75)); affixe.I(u*(2.5,1)); affixe.J(u*(3,0.75)); affixe.X(u*(7,0.75)); affixe.E(u*(3,1))no; affixe.B(u*(7,1))s; affixe.M(u*(7,5))e; affixe.C(u*(7,7))e; affixe.G(u*(1,3))o; affixe.D(u*(1,7))o; affixe.N(u*(3,5))no; affixe.F(u*(3,3))e; draw z.A--z.B--z.C--z.D--cycle; draw z.A--z.E--z.F--z.G--cycle; draw z.E--z.N--z.M--z.B--cycle; draw z.V--z.X; draw z.E--z.J; label.bot(btex $x$ etex, u*(1.75,0.75)); label.bot(btex $1$ etex, u*(2.75,0.75)); label.bot(btex $6$ etex, u*(5,0.75)); draw z.W--z.I; path c; c=z.E--z.N--z.M--z.B--cycle; fill c withcolor 0.8white; endfig; end