@options;
  repereortho(310,270,30,1,1){ 0 , moyen , noir , num1 ,i};

@figure;
  O = point( -2.37 , 0 );
  cerayO4 = cerclerayon( O , 4 );
  H = pointsur( cerayO4 , 99.95 )  { noir , rond2 , (-0.6,-0.97) };
  sOH = segment( O , H );
  d = perpendiculaire( H , sOH )  { noir , q2 };
  X = point( 5.53 , -8.66 )  { (-0.1,-1.1) };
  Y = point( -3.6 , 4.73 )  { (-0.43,-1.1) };
  sXY = segment( X , Y )  { vertfonce , 7 };
  P = intersection( d , sXY )  { rouge , rond2 , (-0.17,0.37) };
  var x =OP { 4.00000039695495 };
  texte1 = texte( 2.4 , 1.4 ,"OP = $x$")  { noir , dec9 };
  Q = pointsur( cerayO4 , 344.46 )  { sansnom };
  vOQ = vecteur( O , Q );
  vQO = vecteur( Q , O );
  I = milieu( O , Q )  { i };
  texte2 = texte( I ,"4")  { dec2 };
  sOP = segment( O , P )  { rouge };