@options;
  repereortho(190,326,20,1,1){ 0 , moyen , noir , num1 ,i};

@figure;
  A = point( -3.78 , -2.98 )  { (-0.47,0) };
  B = point( 2.64 , -2.98 );
  sAB = segment( A , B );
  C = point( 2.66 , -0.58 )  { (-0.03,-0.73) };
  sBC = segment( B , C );
  paraCsAB = parallele( C , sAB )  { i };
  paraAsBC = parallele( A , sBC )  { i };
  D = intersection( paraAsBC , paraCsAB )  { (-0.27,0.07) };
  sDA = segment( D , A )  { 7 };
  sDC = segment( D , C )  { 7 };
  sDB = segment( D , B );
  sCA = segment( C , A );
  H = intersection( sDB , sCA )  { (-0.4,0.1) };
  perpHsAB = perpendiculaire( H , sAB )  { i };
  S = pointsur( perpHsAB , 4.97 )  { (-0.27,-1) };
  sSA = segment( S , A );
  sSD = segment( S , D )  { 7 };
  sSC = segment( S , C );
  sSB = segment( S , B );
  sSH = segment( S , H )  { rouge , 3 };
  E = point( 1.28 , -1.68 )  { i };
  paraEsDB = parallele( E , sDB )  { i };
  paraEsSH = parallele( E , sSH )  { i };
  F = intersection( sSH , paraEsDB )  { i };
  G = intersection( paraEsSH , sDB )  { i };
  sFE = segment( F , E );
  sEG = segment( E , G );
  I = point( 0.31 , -1.61 )  { i };
  paraIsCA = parallele( I , sCA )  { i };
  paraIsSH = parallele( I , sSH )  { i };
  J = intersection( paraIsSH , sCA )  { i };
  sIJ = segment( I , J );
  sIF = segment( I , F );
  K = milieu( sBC )  { i };
  L = milieu( sDA );
  demiLK = demidroite( L , K )  { sansnom };
  var x =(SH+LH)/LK { 1.27414330218069 };
  var y =2*x { 2.54828660436137 };
  Y = symetrique( K , S )  { i };
  W = pointsur( demiLK , y );
  Z = symetrique( W , S )  { i };
  sYZ = segment( Y , Z )  { i };
  So = pointsur( sYZ , 0.45 )  { rond2 , (-0.6,-0.97) };
  dSoS = droite( So , S )  { jaune , sansnom };
  M = intersection( dSoS , demiLK );
  polyBMC = polygone( B , M , C  )  { noir , plein50 };
  P = pointsur( demiLK , 1.95 )  { (0.07,0.2) };
  perpPdemiLK = perpendiculaire( P , demiLK )  { i };
  Q = pointsur( perpPdemiLK , 1.51 )  { (-0.03,-0.83) };
  paraQSoS = parallele( Q , dSoS )  { jaune , sansnom };
  sQP = segment( Q , P )  { vert , 3 };
  N = intersection( paraQSoS , demiLK )  { (0.07,-0.97) };
  sHM = segment( H , M )  { rouge , 3 };
  sSM = segment( S , M )  { rouge , 3 };
  sPN = segment( P , N )  { vert , 3 };
  sQN = segment( Q , N )  { vert , 3 };
  O = point( -4.61 , -5.44 )  { i };
  R = pointsur( demiLK , x )  { i };
  cerayR0.1 = cerclerayon( R , 0.1 )  { i };
  T = intersection( dSoS , cerayR0.1 , 2 )  { i };
  sTO = segment( T , O )  { i };
  T2 = pointsur( sTO , 1 )  { i };
  var demibase =abscisse(A)-abscisse(B) { -6.42 };
  FF = intersection( sBC , sHM )  { i };
  var ombre =abscisse(M)-abscisse(FF) { 4.473 };
  var longtotal =HM { 7.683 };
  texte1 = texte( -4.9 , -6 , "HM = $longtotal$")  { dec2 };
  var q1 =QP/NP { 0.646882728101002 };
  texte2 = texte( -1 , -5.9 , "QP/NB = $q1$")  { dec2 };
  texte3 = texte( 3.3 , -5.8 , "donc SH/HM = $q1$")  { dec2 };
  var res =q1*HM { 4.97 };
  texte4 = texte( 9.5 , -6.1 , "donc SH = $q1$ x HM = $res$")  { dec2 };