input geometriesyr16 figure(0,0,9u,6u); pair A,B,C,D,E,F,G,H,I; A=u*(1,1); B-A=u*(3,0); C-B=u*(4.25,0); D-C=u*(0,1.5); E-D=u*(0,2.25); F-E=B-C; G-F=A-B; H-G=D-E; I=segment(H,D) intersectionpoint segment(B,F); trace polygone(A,C,E,G); trace segment(B,F); trace segment(H,D); trace codeperp(A,B,F,5); trace codeperp(A,C,E,5); trace codeperp(C,D,H,5); trace codeperp(D,E,F,5); trace codeperp(E,F,B,5); trace codeperp(E,G,A,5); trace codeperp(G,H,D,5); trace codeperp(G,A,C,5); trace appelation(A,B,-3mm,btex $a$ etex); trace appelation(B,C,-3mm,btex $b$ etex); trace appelation(A,H,3mm,btex $d$ etex); trace appelation(H,G,3mm,btex $c$ etex); nomme.llft(A); nomme.bot(B); nomme.lrt(C); nomme.rt(D); nomme.urt(E); nomme.top(F); nomme.ulft(G); nomme.lft(H); nomme.urt(I); fin; u:=4.5mm; figure(-1u,-1u,16u,8u); pair A,B,C,D; A=u*(0,0); B=u*(5,4); C=u*(5.5,5); D=u*(15,1); trace segment(A,B); trace segment(C,D); trace marquesegment(A,B); trace marquesegment(C,D); trace appelation(A,B,2mm,btex $a$ etex); trace appelation(C,D,2mm,btex $b$ etex); fin; end