@options;

@figure;
  gogeometry = texte( -5.5 , -6.1 ,"Antonio Gutierrez.     www.gogeometry.com")  { rougefonce , dec1 , car-3 };
  click = texte( -5.5 , -5.7 ,"Click this button to start/stop the animation")  { rougefonce , dec2 , car-3 };
  A = point( -2.98 , -3.77 )  { rond3 , (-0.26,-0.03) };
  N2an = point( -0.15 , 3.86 )  { i };
  N1an = point( -1.39 , 3.39 )  { i };
  ceN2N1 = cercle( N2an , N1an )  { i };
  xx = reel( 353.5 , 0 , 360 , 2.5 )  { oscille , (7.67,-8) , i };
  var yy = 180*cos(xx)+150 { 328.842934021786 };
  B = pointsur( ceN2N1 , yy )  { rond2 , (-0.22,-0.91) };
  C = point( 3.36 , -3.77 )  { rond3 , (-0.06,-0.07) };
  dAC = droite( A , C )  { noir , sansnom , i };
  Q = pointsur( dAC , 1.58 )  { i };
  sCQ = segment( C , Q )  { grisclair };
  R = pointsur( dAC , -0.4 )  { i };
  sAR = segment( A , R )  { grisclair };
  dBC = droite( B , C )  { noir , sansnom , i };
  S = pointsur( dAB , -0.22 )  { i };
  sAS = segment( A , S )  { grisclair };
  T = pointsur( dAB , 1.31 )  { i };
  sBT = segment( B , T )  { grisclair };
  U = pointsur( dBC , -0.3 )  { i };
  sBU = segment( B , U )  { grisclair };
  V = pointsur( dBC , 1.25 )  { i };
  sCV = segment( C , V )  { grisclair };
  dAB = droite( A , B )  { noir , sansnom , i };
  sAB = segment( A , B )  { noir , 3 };
  sBC = segment( B , C )  { noir , 3 };
  sAC = segment( A , C )  { noir , 3 };
  polyABC = polygone( A , B , C  )  { stop , jaune , plein50 };
  H = point( 1.57 , 5.52 )  { i };
  medAC = mediatrice( A , C )  { i };
  medBC = mediatrice( B , C )  { i };
  O = intersection( medBC , medAC );
  ceOC = cercle( O , C )  { stop };
  P = pointsur( ceOC , 12.57 )  { stop , rouge , rond3 , (0.2,-0.43) };
  perpPsAC = perpendiculaire( P , dAC )  { i };
  perpPsBC = perpendiculaire( P , dBC )  { i };
  perpPsAB = perpendiculaire( P , dAB )  { i };
  D = intersection( perpPsAB , dAB )  { rouge , rond3 , (-0.87,-0.33) };
  anglePDB = angle( P , D , B );
  sPD = segment( P , D )  { stop };
  F = intersection( dAC , perpPsAC )  { rouge , rond3 , (0.23,-0.53) };
  angleAFP = angle( A , F , P );
  sPF = segment( P , F )  { stop };
  E = intersection( dBC , perpPsBC )  { rouge , rond3 , (-0.53,-0.07) };
  angleBEP = angle( B , E , P );
  sPE = segment( P , E )  { stop };
  Q1 = pointsur( dDF , -0.36 )  { i };
  dDF = droite( D , F )  { stop , rouge , 3 , sansnom };
  polyDPF = polygone( D , P , F  )  { vertclair , plein40 };
  polyDEP = polygone( D , E , P  )  { vertclair , plein40 };
  polyPEF = polygone( P , E , F  )  { vertclair , plein40 };
  P3 = texte( Q1 ,"Simson Line DEF")  { stop , rouge , (-0.03,-0.7) , dec2 , car-1 };
  J = milieu( B , P )  { i };
  K = milieu( C , P )  { i };
  ceJB = cercle( J , B )  { stop , kakiclair };
  ceKP = cercle( K , P )  { stop , kakiclair };
  sAP = segment( A , P )  { i };
  I = milieu( A , P )  { i };
  ceIA = cercle( I , A )  { stop , kakiclair };

@config;
couleurfonddessin=0xFFFFFF;
boutons=animation;