input geometriesyr16; figure(0,0,10u,10u); pair A,B,C,D,E,F,G,H,I,J,K,L,M; A=u*(1,1); B-A=u*(8,0); C-B=u*(0,6); D-C=A-B; E=9/42[A,B]; F=30/42[A,B]; G=5/25[B,C]; H=15/42[C,D]; I=17/42[C,D]; J=32/42[C,D]; K=13/25[D,A]; L=15/42[A,B]+(8/25[A,D]-A); M=2/3[C,D]+(6.5/25[D,A]-D); trace polygone(A,B,C,D) dashed evenly; trace segment(L,projection(L,A,B)) dashed evenly; trace segment(M,projection(M,C,D)) dashed evenly; trace codeperp(D,A,B,5); trace codeperp(A,B,C,5); trace codeperp(B,C,D,5); trace codeperp(C,D,A,5); trace codeperp(L,projection(L,A,B),B,5); trace codeperp(M,projection(M,C,D),D,5); trace polygone(E,L,F,G,H,I,M,J,K); label(btex Bois etex,iso(E,L,F,G,H,I,M,J,K)); trace appelation(A,E,-2mm,btex 9 etex); trace appelation(E,projection(L,A,B),-2mm,btex 6 etex); trace appelation(L,projection(L,A,B),2mm,btex 8 etex); trace appelation(projection(L,A,B),F,-2mm,btex 15 etex); trace appelation(F,B,-2mm,btex 12 etex); trace appelation(G,B,2mm,btex 5 etex); trace appelation(C,G,2mm,btex 20 etex); trace appelation(D,J,2mm,btex 10 etex); trace appelation(J,projection(M,C,D),2mm,btex 4 etex); trace appelation(projection(M,C,D),I,2mm,btex 9 etex); trace appelation(I,H,2mm,btex 2 etex); trace appelation(H,C,2mm,btex 15 etex); trace appelation(projection(M,C,D),M,2mm,btex 6,5 etex); trace appelation(A,K,2mm,btex 12 etex); trace appelation(K,D,2mm,btex 13 etex); fin; end