input geometriesyr16;

figure(0,0,10u,10u);
pair A,B,C,D,E,F,G;
A=u*(1,1);
B-A=u*(4,1);
C=u*(5,3);
D=u*(3,4);
trace polygone(A,B,C,D) withpen pensquare scaled 1.5bp;
E=droite(A,D) intersectionpoint droite(B,C);
F=projection(E,A,B);
G=projection(E,D,C);
trace codeperp(E,G,C,5);
trace codeperp(E,F,B,5);
trace chemin(D,E,C) dashed evenly;
drawoptions(withpen pencircle scaled 0.5bp);
trace chemin(G,E,F,B);
drawoptions();
trace cotationmil(D,E,5mm,15,btex 65 m etex);
trace cotationmil(A,B,-3mm,15,btex 84 m etex);
trace cotationmil(E,F,2mm,15,btex 110 m etex);
trace cotationmil(D,C,5mm,15,btex 52 m etex);
nomme.llft(A);
nomme.lrt(B);
nomme.bot(F);
nomme.top(E);
nomme.lrt(C);
nomme.top(G);
nomme.top(D);
trace hachurage(polygone(A,B,C,D),60,0.2,0);
fin;

end