input geometriesyr16; figure(0,0,10u,8u); pair A,B,C,D,E,F,G,H; A=u*(1,1); B-A=u*(0,6); C-B=u*(8,0); D-A=C-B; E=1/3[A,B]; F=11/54[B,C]; G=1/3[D,C]; H=11/54[D,A]; trace polygone(A,B,C,D); trace chemin(E,H,G,F); trace hachurage(polygone(E,B,F,G,H),45,0.2,0); trace codeperp(A,B,C,8); trace codeperp(B,C,D,8); trace codeperp(C,D,A,8); trace codeperp(D,A,B,8); trace cotationmil(A,E,2mm,15,btex 12~cm etex); trace cotationmil(E,B,2mm,15,btex 24~cm etex); trace cotationmil(B,F,2mm,15,btex 11~cm etex); trace cotationmil(G,D,2mm,15,btex 12~cm etex); trace cotationmil(H,D,-2mm,15,btex 11~cm etex); trace cotationmil(A,D,-5mm,15,btex 54~cm etex); fin; end