input geometriesyr;
figure(0,0,6u,6u);
pair A,B,C,D,E,F,G,H,I,J;
D=u*(1,1);
C=D shifted(u*(4,0));
B=rotation(D,C,-90);
A=B shifted(D-C);
E=iso(A,B);
G=iso(A,D);
F=(xpart(E),ypart(G));
H=3/5[E,B];
J=3/5[G,D];
I=(xpart(H),ypart(J));
trace A--B--C--D--cycle;
trace E--F--G;
trace H--I--J;
cotationmil(D,A,2mm,10,btex 4 etex);
cotationmil(A,E,2mm,10,btex 2 etex);
cotation(H,B,2mm,2mm,btex $x$ etex);
draw hachurage(E--F--G--J--I--H--cycle,60,0.2,0);
nomme.ulft(A);
nomme.urt(E);
nomme.ulft(H);
nomme.urt(B);
nomme.lrt(C);
nomme.llft(D);
nomme.lrt(J);
nomme.urt(G);
nomme.ulft(F);
nomme.lrt(I);
fin;
end