@options;

@figure;
  A = point( -5.7 , 5.4 );
  B = point( -0.7 , 5.07 );
  sAB = segment( A , B );
  C = point( 2.53 , 0.36 );
  varsi z =[AB<3,0,1] { 1 };
  D = µ(z) point( -3.43 , 0.7 );
  d = droite( D , C );