@options;

@figure;
  A = point( 0 , 0 );
  B = point( 2 , 0 );
  dAB = droite( A , B );
  C = point( -6 , 6 );
  D = point( 0 , 6 );
  var x =CD { 6 };
  sCD = segment( C , D );
  varsi z =[CD<4,1+x/4,-x/4] { -1.5 };
  M = pointsur( A , B , z )  { noir , rond2 };

@config;
actualisationcontinue=oui;