input geometriesyr12;
figure(0,0,10u,10u);
pair A,B,C,D,E,F,G,H,I;
A=u*(0.75,0.75);
B=u*(8.75,0.75);
C=u*(8.75,5.25);
D-C=A-B;
E=3/5[A,B];
F-E=C-B;
H=2/5[A,D];
G-H=B-A;
I=(E--F) intersectionpoint (H--G);
trace E--F;
trace H--G;
trace cotationmil(D,F,2mm,10,btex $a$ etex);
trace cotationmil(F,C,2mm,10,btex $b$ etex);
trace cotationmil(A,H,2mm,10,btex $d$ etex);
trace cotationmil(H,D,2mm,10,btex $c$ etex);
trace hachurage(A--E--I--H--cycle,60,0.25,0);
trace hachurage(E--B--G--I--cycle,120,0.3,1);
trace hachurage(I--G--C--F--cycle,45,0.3,2);
trace hachurage(I--F--D--H--cycle,150,0.4,1);
remplis codeperp(E,A,D,8)--A--cycle withcolor blanc;
trace codeperp(E,A,D,8);
remplis codeperp(E,B,C,8)--B--cycle withcolor blanc;
trace codeperp(E,B,C,8);
remplis codeperp(E,F,C,8)--F--cycle withcolor blanc;
trace codeperp(E,F,C,8);
remplis codeperp(A,D,C,8)--D--cycle withcolor blanc;
trace codeperp(A,D,C,8);
remplis codeperp(D,C,B,8)--C--cycle withcolor blanc;
trace codeperp(D,C,B,8);
remplis codeperp(A,E,F,8)--E--cycle withcolor blanc;
trace codeperp(A,E,F,8);
remplis codeperp(H,I,F,8)--I--cycle withcolor blanc;
trace codeperp(H,I,F,8);
trace A--B--C--D--cycle;
fin;
end