input geometriesyr16; beginfig(1); pair A,B,C,D,E,F,G,H,I,J,K,L,M; H=u*(1,1);label.llft(btex $H(4)$ etex,H); G=u*(4,1);label.lrt(btex $G(3)$ etex,G); A=u*(1,4);label.ulft(btex $A(-6)$ etex,A); D-A=G-H;label.lrt(btex $D(-1)$ etex,D); E=3/5[H,G rotatedabout(H,40)];label.ulft(btex $E(2)$ etex,E); F-E=G-H;label.rt(btex $F(-2)$ etex,F); B-A=E-H;label.top(btex $B(5)$ etex,B); C-B=G-H;label.top(btex $C(-3)$ etex,C); I=1/2[H,A];label.lft(btex $I$ etex,I); J=1/2[A,B];label.ulft(btex $J$ etex,J); K=1/2[C,D];label.lrt(btex $K$ etex,K); L=1/2[E,F];label.top(btex $L$ etex,L); M=1/2[G,H];label.bot(btex $M$ etex,M); marque_p:="croix"; pointe(I,J,K,L,M); draw A--B--C--D--A--H--G--D--G--F--C; draw H--E--B dashed evenly; draw E--F dashed evenly; endfig; end