@options;

@figure;
  A = point( -6 , 0 )  { fixe , (-0.8,-0.07) };
  B = point( 4 , 0 )  { fixe , (0.37,-0.3) };
  sAB = segment( A , B );
  cediaAB = cercledia( A , B );
  cerayA6 = cerclerayon( A , 6 )  { i };
  P = intersection( cerayA6 , cediaAB , 1 )  { (-0.1,-0.93) };
  sPA = segment( P , A );
  sPB = segment( P , B );
  Q = pointsur( sAB , 0.23 )  { (-0.37,0.17) };
  angleAPB = angle( A , P , B );
  perpQsPA = perpendiculaire( Q , sPA );
  C = intersection( perpQsPA , sPA )  { (-0.3,-1) };
  polyAPB = polygone( A , P , B  );
  polyACQ = polygone( A , C , Q  )  { rose , plein50 };
  D = intersection( cerayA6 , cediaAB , 2 )  { i };
  sAQ = segment( A , Q )  { noir , 3 };
  texte1 = texte( -2.1 , -1.2 ,"AB = 10 cm")  { rouge , dec2 , car+1 , gras };
  texte11 = texte( -8.1 , 3.8 ,"AP = 6 cm")  { rouge , dec2 , car+1 , gras };