input geometriesyr12;
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;
trace cotationmil(D,A,2mm,10,btex 4 etex);
trace cotationmil(A,E,2mm,10,btex 2 etex);
trace 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;
figure(0,0,12u,8u);
pair A,B,C,D,O,E;
A=u*(5,1);
B=A shifted(u*(6,0));
C=B shifted(u*(0,5));
D=C shifted(A-B);
O=iso(A,B,C,D);
E=1/4[A,B];
trace A--B--C--D--cycle;
nomme.llft(A);
nomme.lrt(B);
nomme.urt(C);
nomme.ulft(D);
marque_p:="croix";
nomme.ulft(O);
nomme.bot(E);
fin;
end