input constantes; input geometriepoint1; beginfig(1); affixe.O(u*(1,1)); path cc; cc=cercle(O,5cm); affixe.A(point(0) of cc); affixe.B(z.A rotatedabout(z.O,9)); affixe.C(z.B rotatedabout(z.O,18)); affixe.D(z.C rotatedabout(z.O,36)); affixe.E(z.D rotatedabout(z.O,45)); affixe.F(point((length cc)/2) of cc); draw z.F--z.A--arccercle(A,F,O); draw z.B--z.O--z.C; draw z.D--z.O--z.E; label.ulft(btex Ch\^ataigners etex,z.A); label.llft(btex Fr\^enes etex,1/2[z.B,z.C]); label.llft(btex H\^etres etex,1/2[z.C,z.D]); label.bot(btex Pins etex,1/2[z.D,z.E]); label.lrt(btex Sapins etex,1/2[z.E,z.F]); endfig; beginfig(2); affixe.F(u*(1,1))so; affixe.G(u*(7,1))se; affixe.E(u*(3,5))n; draw triangle(E,F,G); affixe.M(1/3[z.E,z.F])so; affixe.N(1/3[z.E,z.G])n; draw segment(M,N); cotation(M,E,2mm,2mm,btex 2,5 etex); cotation(F,G,-2mm,-2mm,btex 12 etex); cotation(M,N,-2mm,-2mm,btex 4 etex); cotation(N,G,2mm,2mm,btex 7 etex); endfig; beginfig(3); affixe.E(u*(1,1))so; affixe.A(u*(1,4))no; affixe.H(u*(5,1))so; affixe.F(u*(1.5,2))no; affixe.G(z.H shifted (z.F-z.E))e; affixe.C(z.G shifted(z.A-z.E))n; affixe.D(z.H shifted(z.A-z.E))n; affixe.B(z.F shifted(z.A-z.E))n; draw z.E--z.H--z.G--z.C--z.B--z.A--cycle; draw triangle(A,D,H); draw z.A--z.C--z.D; draw z.B--z.F--z.G--z.A dashed evenly; draw z.F--z.E dashed evenly; endfig; end