input constantes; input geometriepoint1; beginfig(1) affixe.C(u*(1,1))so; affixe.A(u*(7,1))se; affixe.E(u*(7,4))ne; affixe.D(u*(1,4))no; affixe.O(u*(3,1))so; affixe.B(z.C rotatedabout(z.O,-90))n; draw z.A--z.E--z.D--z.C--cycle; draw z.A--z.B--arccercle(B,C,O); draw z.B--z.O dashed evenly; draw codeperp(B,O,C,5); cotationmil(O,A,-2mm,20,btex $5\,cm$ etex); cotationmil(A,E,-2mm,20,btex $4\,cm$ etex); path cc; cc=z.A--z.B--arccercle(B,C,O)--z.D--z.E--cycle; draw hachurage(cc,60,0.4,1); draw codageangle(B,A,C,1,5mm); draw codesegments(C,O,O,B,2); endfig; beginfig(2); u:=5mm; affixe.C(u*(1,1))so; affixe.D(u*(3,1))se; affixe.A(u*(3,3))ne; affixe.B(u*(1,3))no; draw z.C--z.D--z.A--z.B--cycle; cotationmil(B,A,2mm,10,btex $2x$ etex); affixe.E(z.D rotatedabout(z.A,90)); affixe.F(z.E rotatedabout(z.B,90)); affixe.G(z.F rotatedabout(z.C,90)); affixe.H(z.G rotatedabout(z.D,90)); draw arccercle(D,E,A)--arccercle(E,F,B)--arccercle(F,G,C)--arccercle(G,H,D); draw z.A--z.E dashed evenly; draw z.B--z.F dashed evenly; draw z.C--z.G dashed evenly; draw z.D--z.H dashed evenly; endfig; beginfig(3); u:=1cm; affixe.A(u*(1,1)); affixe.B(u*(6,1)); affixe.D(u*(2,4)); affixe.C(u*(3.5,4)); draw z.A--z.B--z.C--z.D--cycle; cotationmil(A,B,-2mm,10,btex $B$ etex); cotationmil(D,C,2mm,5,btex $b$ etex); affixe.H(2/5[z.C,z.D]); affixe.I(projet(H,A,B)); draw segment(H,I); draw codeperp(H,I,B,5); draw codeperp(I,H,C,5); cotationmil(I,H,2mm,5,btex $h$ etex); endfig; end