@options;
  chgt_etat_bloc("h",{vertfonce,2},perpAsBC,perpBsCA,perpCsAB,{i},medssBC,medssCA,medssAB,sAA',sCC',sBB',G,O);
  chgt_etat_bloc("o",{orange,2},medssBC,medssCA,medssAB,{i},perpAsBC,perpBsCA,perpCsAB,sAA',sCC',sBB',H,G);
  chgt_etat_bloc("g",{noir,2},sAA',sCC',sBB',{i},medssBC,medssCA,medssAB,perpAsBC,perpBsCA,perpCsAB,H,O);
  chgt_etat_bloc("e",{v,2},dHO,{i},medssBC,medssCA,medssAB,perpAsBC,perpBsCA,perpCsAB,sAA',sCC',sBB');

@figure;
  A = point( -1.52 , 6.67 )  { (0.2,-0.83) , i };
  B = point( -6.52 , -4.17 )  { (-1.2,-0.47) , i };
  sAB = segment( A , B )  { bleuocean };
  C = point( 6.91 , -5.03 )  { i };
  sBC = segment( B , C )  { bleuocean };
  sCA = segment( C , A )  { bleuocean };
  perpAsBC = perpendiculaire( A , sBC )  { vertfonce , sansnom };
  perpBsCA = perpendiculaire( B , sCA )  { vertfonce , sansnom };
  perpCsAB = perpendiculaire( C , sAB )  { vertfonce , sansnom };
  H = intersection( perpAsBC , perpBsCA )  { vertfonce };
  medssBC = mediatrice( sBC )  { orange , sansnom };
  medssCA = mediatrice( sCA )  { orange , sansnom };
  medssAB = mediatrice( sAB )  { orange , sansnom };
  O = intersection( medssCA , medssBC )  { orange };
  C' = milieu( A , B )  { i };
  A' = milieu( B , C )  { i };
  B' = milieu( C , A )  { i };
  sCC' = segment( C , C' )  { noir };
  sBB' = segment( B , B' )  { noir };
  sAA' = segment( A , A' )  { noir };
  G = intersection( sCC' , sAA' )  { noir };
  dHO = droite( H , O )  { rougefonce , sansnom , i };

@analyse;

@enonce;

@config;
couleurfonddessin=0xceddff;
couleurfondtexte=0xceddff;
couleurfondanalyse=0xceddff;
couleurfondenonce=0xceddff;
couleurtextinfo=0xffffff;
figure=0,0,485,440,ouvert;
script=493,25,257,330,ouvert;
analyse=493,363,257,137,ouvert;
enonce=493,3,253,100,ferme;
info=50,470,435,435;
listetransfos=visible;
actualisescript=oui;
pasapas=non;
boutons=point,pointsur,inter,inter2,milieu,projeteortho,segment,droite,demidroite,polygone,vecteur,droiteparallele,droiteperpendiculaire,mediatrice,bissectrice,droitev,tangente,cercle,cercledia,cerclerayon,arc,angle,symetrique,symetriqued,deftransfo,imagetransfo,texte,mesure,mesureangle,nombres,animation,lieu,supprimer,effacerbase,effacertout,renomme,posnom,invisible,visible,aspect,repere,zoomp,zoomm,zoomb,zoombm,deplacement,rapporteur,guide,miseenforme,tepmep,aide,fichier,fiche,ootep,exporter,oooexport,configuration,escape;
commandes=point,milieu,intersection,inter,intercercles,interlignes,projete,symetrique,pointsur,barycentre,image,segment,segmentlong,vecteur,vecteurcoord,droite,droitev,droiteeqr,droiteeq,demidroite,parallele,perpendiculaire,bissectrice,mediatrice,tangente,cercle,cercledia,cerclerayon,angle,arc,entier,reel,calcul,distance,perimetre,mesureangle,mesureangleg,mesurearc,aire,symetrie,reflexion,translation,rotation,homothetie,similitude,polygone,lieu,groupe,fonction;
commandesanalyse=distance,calc,abscisse,ordonnee,coord,ec,er,angle,position,nature,aire,alignés,sto,pgcd,ppcm,simplifie,anglev,exact,dim;