input constantes;
input geometriepoint;
beginfig(1);
  affixe.A(u*(1,1));
  affixe.B(u*(6,1));
  affixe.C(z.A rotatedabout(z.B,-90));
  affixe.D(z.B rotatedabout(z.A,90));
  affixe.I(1/2[z.A,z.B]);
  affixe.J(1/2[z.B,z.C]);
  affixe.K(1/2[z.C,z.D]);
  affixe.L(1/2[z.D,z.A]);
  draw z.A--z.B--z.C--z.D--cycle;
  draw arccercle(A,D,L);
  draw arccercle(B,A,I);
  draw arccercle(C,B,J);
  draw arccercle(D,C,K);
  draw arccercle(I,L,A);
  draw arccercle(J,I,B);
  draw arccercle(K,J,C);
  draw arccercle(L,K,D);
  cotation(D,C,5mm,3mm, btex $10\,cm$ etex);
endfig;
end