%suite à la reprise du fichier initial input constantes; input geometriepoint1; input papiers; beginfig(1); affixe.C(u*(1,1))so; affixe.F(u*(7,1))se; affixe.D(3/5[z.C,z.F])s; affixe.B(u*(1,3))o; affixe.E(z.B shifted(z.D-z.C))ne; affixe.A(demidroite(F,E,10) intersectionpoint ((droite(F,E,10) rotatedabout(z.E,90)) shifted (z.B-z.E)))n; draw z.C--z.F--z.A--z.B--cycle; draw z.B--z.E--z.D; affixe.H(projet(A,C,F))s; draw z.A--z.H dashed evenly; draw codeperp(D,A,B,5); draw codeperp(A,H,F,5); draw codeperp(E,D,C,5); endfig; beginfig(2); affixe.I(u*(1,1))so; affixe.J(u*(4,1))so; affixe.K(u*(5,2))no; affixe.L(u*(2,2))ne; affixe.A(1/2[z.I,z.K])o; affixe.S(z.A shifted(u*(0,-2)))s; affixe.B(z.A shifted(u*(0,4)))o; draw z.I--z.J--z.K--z.L--cycle; draw (z.I--z.J--z.K--z.L--cycle) shifted (z.B-z.A); draw z.I--(z.I shifted(z.B-z.A)); draw z.J--(z.J shifted(z.B-z.A)); draw z.K--(z.K shifted(z.B-z.A)); draw z.L--(z.L shifted(z.B-z.A)); affixe.I'(z.I shifted(z.B-z.A)); affixe.L'(z.L shifted(z.B-z.A)); affixe.K'(z.K shifted(z.B-z.A)); draw z.S--z.B dashed evenly; cotation(I',L',2mm,2mm,btex 6 etex); cotation(L',K',2mm,2mm,btex 6 etex); affixe.H(3/5[z.A,z.B])o; cotationmil(S,A,-3u,10,btex 5 etex); cotationmil(S,H,-3.5u,10,btex $x$ etex); cotationmil(S,B,-4u,10,btex 13 etex); draw z.I--z.S--z.J; draw z.L--z.S--z.K; endfig; beginfig(3); affixe.I(u*(1,1))so; affixe.J(u*(4,1))so; affixe.K(u*(5,2))no; affixe.L(u*(2,2))ne; affixe.A(1/2[z.I,z.K])o; affixe.S(z.A shifted(u*(0,-2)))s; affixe.A'(1/2[z.S,z.A]); draw z.I--z.J--z.K--z.L--cycle--z.S--z.J; draw z.L--z.S--z.K; cotationmil(S,A',-3u,10,btex 2,5 etex); cotationmil(S,A,-4u,10,btex 5 etex); endfig; end