@options;

@figure;
  gogeometry = texte( -5.5 , -6.1 ,"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( -1.13 , -2.94 )  { rond2 , (-0.26,-0.03) };
  N2an = point( -0.53 , 0.97 )  { i };
  N1an = point( -1.77 , 0.5 )  { 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.37,-0.94) };
  C = point( 1.43 , -2.94 )  { rond2 , (-0.06,-0.07) };
  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 , plein60 };
  perpAsAB = perpendiculaire( A , sAB )  { i };
  perpBsAB = perpendiculaire( B , sAB )  { i };
  perpBsBC = perpendiculaire( B , sBC )  { i };
  perpCsBC = perpendiculaire( C , sBC )  { i };
  ceAB = cercle( A , B )  { i };
  E = intersection( perpAsAB , ceAB , 1 )  { rond2 , (-0.67,-0.23) };
  D2 = intersection( perpAsAB , ceAB , 2 )  { i };
  ceCB = cercle( C , B )  { i };
  E2 = intersection( perpCsBC , ceCB , 2 )  { i };
  ceD1A = cercle( E , A )  { i };
  D = intersection( perpBsAB , ceD1A , 1 )  { croix0 , (-0.4,-0.7) };
  polyABF1D1 = polygone( A , B , D , E  )  { vert , plein10 };
  sq1 = texte( D ,"Square ABDE")  { stop , vert , (-2.6,0.1) , dec2 , car-3 };
  F = intersection( perpCsBC , ceCB , 1 )  { rond2 , (0.14,-0.33) };
  ceE1C = cercle( F , C )  { i };
  G = intersection( perpBsBC , ceE1C , 1 )  { croix0 , (-0.16,-0.7) };
  polyBCE1G1 = polygone( B , C , F , G  )  { vert , plein10 };
  sq2 = texte( G ,"Square BCFG")  { stop , vert , (0.07,-0.07) , dec2 , car-3 };
  polyDBC = polygone( D , B , C  )  { vert , plein50 };
  sBD = segment( B , D )  { vert };
  sCD = segment( C , D )  { stop , 2 , / };
  polyABG = polygone( A , B , G  )  { vertclair , plein30 };
  sBG = segment( B , G )  { vert };
  sAG = segment( A , G )  { stop , 2 , / };
  perpHsAC = perpendiculaire( H , sAC )  { i };
  P = pointsur( perpHsAC , -2.67 )  { croix0 , sansnom };
  sM1P = segment( H , P )  { kakiclair };
  angleAHC = angle( A , H , C );
  P2 = texte( P ,"To Prove: CD and AG are congruent and perpendicular")  { stop , rouge , (-2.7,-0.04) , dec2 , car-3 };
  H = intersection( sCD , sAG )  { rouge , rond3 , (-0.2,-0.87) };
  P3 = texte( P ,"CD, AG, and EF are concurrent in H")  { rouge , (-0.97,0.4) , dec2 , car-3 };
  sD1E1 = segment( E , F )  { stop , rouge };
  angleCHF = angle( C , H , F )  { rouge , / };
  angleFHG = angle( F , H , G )  { rouge , / };
  P4 = texte( P ,"EF is bisector of  angle GHC.")  { stop , rouge , (-0.97,0.88) , dec2 , car-3 };

@config;

boutons=animation;