@options;

@figure;
  A = point( -5.89 , -1.75 )  { (-0.56,-0.08) };
  B = point( 0.15 , -3.74 );
  sAB = segment( A , B )  { /// };
  perpAsAB = perpendiculaire( A , sAB )  { i };
  perpBsAB = perpendiculaire( B , sAB )  { i };
  ceAB = cercle( A , B )  { i };
  ceBA = cercle( B , A )  { i };
  C = intersection( perpAsAB , ceAB , 1 )  { (-0.68,-0.69) };
  D = intersection( perpBsAB , ceBA , 1 )  { (0.09,-0.77) };
  sCA = segment( C , A );
  sCD = segment( C , D );
  sDB = segment( D , B )  { /// };
  ceDB = cercle( D , B )  { i };
  ceBD = cercle( B , D )  { i };
  E = intersection( ceBD , ceDB , 2 )  { (0.25,-0.19) };
  sDE = segment( D , E )  { /// };
  sBE = segment( B , E )  { /// };
  sCE = segment( C , E )  { noir };
  ceAB1 = cercle( A , B )  { i };
  ceBA1 = cercle( B , A )  { i };
  F2 = intersection( ceBA1 , ceAB1 , 1 );
  F = intersection( ceBA1 , ceAB1 , 2 )  { (-0.35,0.23) };
  sAF = segment( A , F )  { /// };
  sFB = segment( F , B )  { /// };