@options; @figure; A = point( -5 , 4 ) { i }; B = point( -2 , 4 ) { i }; sAB = segment( A , B ); P = pointsur( sAB , 0 ); varsi z =[AP