@options

@figure;
  gogeometry = texte( -13.8 , -4.3 ,"www.gogeometry.com")  { rougefonce , dec1 , car-3 };
  click = texte( -13.8 , -3.8 ,"Click the left button to start/stop the animation")  { rougefonce , dec2 , car-2 };
  hyp = texte( -14.8 , 5 ,"STEPS")  { rougefonce , dec2 , car-2 };
  explore = texte( -14.8 , 1 ,"TO EXPLORE:")  { rouge , dec2 , car-2 };
  explore1 = texte( -14.5 , 0.5 ,"1. Click the red button to start/stop animation")  { rougefonce , dec2 , car-2 };
  explore2 = texte( -14.5 , 0 ,"2. Activate the Step-by-Step construction bar:")  { rougefonce , dec2 , car-2 };
  explore2a = texte( -14.5 , -0.5 ,"    Press P and click the left mouse on any free area")  { rougefonce , dec2 , car-2 };
  explore3 = texte( -14.5 , -1 ,"3. Manipulate: Drag A, C, AC")  { rougefonce , dec2 , car-2 };
  explore4 = texte( -14.5 , -1.5 ,"    at any step ")  { rougefonce , dec2 , car-2 };
  N = point( 5.13 , 3.87 )  { i };
  N1 = point( 3.57 , 3.87 )  { i };
  ceNN1 = cercle( N , N1 )  { i };
  xx = reel( 325 , 0 , 360 , 1.2 )  { oscille , (7.67,-8) , i };
  var yy = 180*cos(xx)+180 { 327.447367972018 };
  B = pointsur( ceNN1 , yy )  { (-0.43,-0.87) };
  A = point( 1.3 , -3.13 )  { (-0.77,0) };
  sAB = segment( A , B )  { 3 };
  C = point( 9.83 , -3.13 )  { (0.37,-0.2) };
  sBC = segment( B , C )  { 3 };
  sAC = segment( A , C )  { 3 };
  lAB = droite( A , B )  { 7 , sansnom };
  lBC = droite( B , C )  { 7 , sansnom };
  lAC = droite( A , C )  { 7 , sansnom };
  polyABC = polygone( A , B , C  )  { blanc , plein90 };
  hyp1 = texte( -14.5 , 4.5 ,"1. Triangle ABC")  { stop , rougefonce , dec2 , car-2 };
  perpAlBC = perpendiculaire( A , lBC )  { vert , 7 , sansnom };
  perpBlAC = perpendiculaire( B , lAC )  { vert , 7 , sansnom };
  perpClAB = perpendiculaire( C , lAB )  { vert , 7 , sansnom };
  A' = intersection( perpAlBC , lBC )  { (-0.16,-0.8) };
  AA1 = pointsur( perpAlBC , 7.38 )  { (1.77,-0.97) , i };
  Aaltitude = texte( AA1 ,"Altitude")  { vert , (1.6,-1.16) , dec2 , car-3 };
  B' = intersection( perpBlAC , lAC );
  BB1 = pointsur( perpBlAC , -7.95 )  { i };
  Baltitude = texte( BB1 ,"Altitude")  { vert , (-0.03,0.7) , dec2 , car-3 };
  C' = intersection( lAB , perpClAB )  { (-0.8,-0.43) };
  CC1 = pointsur( perpClAB , 10.88 )  { (1.07,2.03) , i };
  Caltitude = texte( CC1 ,"Altitude")  { vert , (-1.43,0.01) , dec2 , car-3 };
  sBB' = segment( B , B' )  { vert };
  sAA' = segment( A , A' )  { vert };
  sCC' = segment( C , C' )  { vert };
  H.Orthocenter = intersection( perpBlAC , perpAlBC )  { vert , rond3 , car-3 , (0.21,-0.33) };
  hyp2 = texte( -14.5 , 4 ,"2. Altitudes AA', BB', CC' and Orthocenter H of £Delta£ABC ")  { stop , rougefonce , dec2 , car-2 };
  perpA'lAC = perpendiculaire( A' , lAC )  { i };
  perpC'lAC = perpendiculaire( C' , lAC )  { i };
  perpB'lBC = perpendiculaire( B' , lBC )  { i };
  perpB'lAB = perpendiculaire( B' , lAB )  { i };
  perpC'lBC = perpendiculaire( C' , lBC )  { i };
  perpA'lAB = perpendiculaire( A' , lAB )  { i };
  A1 = intersection( lAB , perpA'lAB )  { rouge , rond3 , car-2 , (-0.77,-0.8) };
  A2 = intersection( lAC , perpA'lAC )  { rouge , rond3 , car-2 };
  sA'A1 = segment( A' , A1 );
  sA'A2 = segment( A' , A2 );
  hyp3 = texte( -14.5 , 3.5 ,"3. A'A1£perp£AB, A'A2£perp£AC")  { stop , rougefonce , dec2 , car-2 };
  B1 = intersection( lBC , perpB'lBC )  { rouge , rond3 , car-2 , (0.2,-0.33) };
  B2 = intersection( lAB , perpB'lAB )  { rouge , rond3 , car-2 , (-0.83,-0.6) };
  sB'B2 = segment( B' , B2 );
  sB'B1 = segment( B' , B1 );
  hyp4 = texte( -14.5 , 3 ,"4. B'B1£perp£BC, B'B2£perp£AB")  { stop , rougefonce , dec2 , car-2 };
  C1 = intersection( lBC , perpC'lBC )  { rouge , rond3 , car-2 , (0.03,-0.67) };
  C2 = intersection( lAC , perpC'lAC )  { rouge , rond3 , car-2 , (-0.43,0) };
  sC'C1 = segment( C' , C1 );
  sC'C2 = segment( C' , C2 );
  hyp5 = texte( -14.5 , 2.5 ,"5. C'C1£perp£BC, C'C2£perp£AC")  { stop , rougefonce , dec2 , car-2 };
  medA1C1 = mediatrice( A1 , C1 )  { i };
  medB1A2 = mediatrice( B1 , A2 )  { i };
  O.Taylor.Center = intersection( medA1C1 , medB1A2 )  { rouge , rond3 , car-3 , (-0.23,0.03) };
  ciOA1 = cercle( O.Taylor.Center , A1 )  { rouge , plein10 };
  P = pointsur( ciOA1 , 15.74 )  { i };
  TaylorCircle = texte( P ,"Taylor.Circle")  { rouge , (0.04,-0.26) , dec2 , car-2 };
  hyp6 = texte( -14.5 , 2 ,"6. Feet A1,A2,B1,B2,C1,C2 lie on the Taylor Circle")  { stop , rougefonce , dec2 , car-2 };

@config;
boutons=animation;