@options;
  repereortho(48.9,430.6,30,0.1,1){ 0 , moyen , grisfonce , num1 ,i};
  aimante();

@figure;
  A = point( 0 , 0 )  { noir , fixe };
  B = point( 10 , 0 )  { noir , fixe };
  sAB = segment( A , B )  { i };
  M = pointsur( sAB , 0.58 )  { rouge , gras };
  daAsAB = droiteangle( A , sAB , 60 )  { i };
  daMsAB = droiteangle( M , sAB , 60 )  { indirect , i };
  N = intersection( daMsAB , daAsAB )  { noir , (-0.3,-0.87) };
  perpBsAB = perpendiculaire( B , sAB )  { i };
  perpMsAB = perpendiculaire( M , sAB )  { i };
  r_M = rotation( M , 90 )  { noir };
  D = image( r_M , B )  { noir , (-0.27,-0.8) };
  perpDperpMsAB = perpendiculaire( D , perpMsAB )  { i };
  C = intersection( perpBsAB , perpDperpMsAB )  { noir , (-0.27,-0.83) };
  polyNMAN = polygone( N , M , A  )  { 3 };
  polyMBCD = polygone( M , B , C , D  )  { vert , 3 };
  p_disAB = milieu( A , B )  { i };
  t_disAB = texte( p_disAB ,"AB=#AB=#cm")  { noir , (-1.6,1.4) , dec2 , car+3 , gras };
  sAN = segment( A , N )  { / };
  sNM = segment( N , M )  { / };
  sAM = segment( A , M )  { / };
  sMD = segment( M , D )  { vert , // };
  sDC = segment( D , C )  { vert , // };
  sCB = segment( C , B )  { vert , // };
  sMB = segment( M , B )  { vert , // };
  angleMDC = angle( M , D , C );
  angleMBC = angle( M , B , C );
  angleDMB = angle( D , M , B );
  angleDCB = angle( D , C , B );
  E = point( 0 , -1.1 )  { fixe , sansnom , i };
  F = point( 10 , -1.1 )  { fixe , sansnom , i };
  sEF = segment( E , F )  { noir , 3 };
  G = point( 1 , -0.8 )  { fixe , sansnom , i };
  H = point( 1 , -1.4 )  { fixe , sansnom , i };
  J = point( 9 , -0.8 )  { fixe , sansnom , i };
  I = point( 9 , -1.4 )  { fixe , sansnom , i };
  sGE = segment( G , E )  { noir , 3 };
  sHE = segment( H , E )  { noir , 3 };
  sJF = segment( J , F )  { noir , 3 };
  sIF = segment( I , F )  { noir , 3 };
  pm_disAM = milieu( A , M )  { i };
  tm_disAM = texte( pm_disAM ,"#AM=#")  { rouge , dec2 , car+1 };