input constantes; input geometriepoint1; beginfig(1); affixe.O(u*(1,1))so; affixec.I(u*(2,1))s; affixec.J(u*(1,2))o; draw cercle(O,2u); draw droite(O,J,3); draw droite(O,I,3); affixe.D(u*(3,1))se; affixe.A(u*(1,3))ne; affixe.B(2[z.D,z.O])no; affixe.C(2[z.A,z.O])so; endfig; u:=5mm; beginfig(2); path cc; affixe.O(u*(1,1)); cc=cercle(O,2u); affixe.B(point(0.1*length cc) of cc)n; affixe.C(z.B rotatedabout(z.O,60))no; affixe.D(z.C rotatedabout(z.O,60))so; affixe.E(z.D rotatedabout(z.O,60))s; affixe.F(z.E rotatedabout(z.O,60))se; affixe.A(z.F rotatedabout(z.O,60))ne; path hexa; hexa=z.B--z.C--z.D--z.E--z.F--z.A--cycle; affixec.I(1/2[z.B,z.A])e; draw codesegments(A,I,I,B,2); draw hexa; label(btex 5 etex,z.O); draw hexa shifted(z.D-z.B); label(btex 4 etex,z.O shifted(z.D-z.B)); draw hexa shifted(z.B-z.D); label(btex 6 etex,z.O shifted(z.B-z.D)); draw hexa shifted(2*(z.B-z.D)); label(btex 7 etex,z.O shifted(2*(z.B-z.D))); draw hexa shifted(z.E-z.C); label(btex 8 etex,z.O shifted(z.E-z.C)); draw hexa shifted(z.C-z.E); label(btex 2 etex,z.O shifted(z.C-z.E)); draw hexa shifted(z.C-z.A); label(btex 1 etex,z.O shifted(z.C-z.A)); draw hexa shifted(z.A-z.C); label(btex 9 etex,z.O shifted(z.A-z.C)); draw hexa shifted(z.B-z.D+z.C-z.E); label(btex 3 etex,z.O shifted(z.B-z.D+z.C-z.E)); draw hexa shifted(z.B-z.D+z.A-z.C); label(btex 10 etex,z.O shifted(z.B-z.D+z.A-z.C)); affixe.K(z.F rotatedabout(z.A,120)); draw codageangle(F,A,K,1,2mm); labeloffset:=12bp; label.bot(btex $120$° etex,z.A); labeloffset:=3bp; endfig; u:=1cm; beginfig(3); affixe.B(u*(0,1.5)); affixe.C(u*(0,2)); affixe.K((0,0)); path cc,cd,ce,cf; cc=cercle(K,u); cd=cc yscaled 0.15; ce=cercle(K,1.5u); cf=ce yscaled 0.15; draw cf shifted z.C; draw subpath((length cd)/2,length cd) of cd; draw (subpath((length cd)/2,length cd) of cd) shifted z.B; draw (point(0) of cd)--(point(0) of (cd shifted z.B))--(point(0) of (cf shifted z.C)); draw (point((length cd)/2) of cd)--(point((length cd)/2) of (cd shifted z.B))--(point((length cf)/2) of (cf shifted z.C)); endfig; u:=7.5mm; beginfig(4); affixe.I(u*(1,3))o; affixe.O(u*(1,5.5))o; affixe.K((0,0)); path cc,cd,ce,cf; cc=cercle(K,2u); cd=cc yscaled 0.15; ce=cercle(K,5u); cf=ce yscaled 0.15; draw cf shifted z.O; affixe.A(point(0) of (cd shifted z.I))e; affixe.B(point(0) of (cf shifted z.O))e; affixe.S(demidroite(B,A,5) intersectionpoint demidroite(O,I,5))s; draw subpath(0,(length cd)/2) of (cd shifted z.I) dashed evenly; draw subpath((length cd)/2,length cd) of (cd shifted z.I); draw (point((length cd)/2) of (cd shifted z.I))--z.S--z.A dashed evenly; draw z.B--z.O--z.S; draw z.I--z.A--z.B; draw codeperp(B,O,S,5); draw codeperp(A,I,S,5); draw (point((length cf)/2) of (cf shifted z.O))--(point((length cd)/2) of (cd shifted z.I)); endfig; end