@options;
  repereortho(280,330,30,1,1){ 0 , moyen , grisclair , num1 ,i};
  etat("i",{trace},I);
  etat("b",{trace},B);

@figure;
  O = point( -8 , -2 )  { fixe };
  S = point( 2 , -2 )  { fixe };
  demiOS = demidroite( O , S )  { sansnom };
  P = pointsur( demiOS , 0.6 )  { i };
  sOP = segment( O , P )  { i };
  M = point( -8 , 7 )  { fixe };
  demiOM = demidroite( O , M )  { sansnom };
  C = pointsur( sOP , 0.64 );
  cerayC6 = cerclerayon( C , 6 )  { i };
  A = intersection( demiOM , cerayC6 , 1 )  { (-0.8,-0.4) };
  sAC = segment( A , C )  { vertfonce , 2 };
  cediaAC = cercledia( A , C )  { i };
  cerayA3 = cerclerayon( A , 3 )  { i };
  B1 = intersection( cediaAC , cerayA3 , 1 )  { i };
  B = intersection( cediaAC , cerayA3 , 2 )  { (-0.26,-0.83) };
  sAB = segment( A , B )  { vertfonce , 2 };
  sBC = segment( B , C )  { vertfonce , 2 };
  angleABC = angle( A , B , C )  { vertfonce };
  I = milieu( sAC )  { / };
  texte1 = texte( -7 , 10 ,"Cliquer sur la zone figure en appuyant sur la touche I")  { noir , dec2 };
  texte2 = texte( -7 , 9.3 ,"pour activer la trace du point I.")  { noir , dec2 };
  texte3 = texte( -7 , 8 ,"Cliquer sur la zone figure en appuyant sur la touche B")  { noir , dec2 };
  texte4 = texte( -7 , 7.3 ,"pour activer la trace du point B.")  { noir , dec2 };

@analyse;

@enonce;

@config;
couleurfonddessin=0xceddff;
couleurfondtexte=0xceddff;
couleurfondanalyse=0xceddff;
couleurfondenonce=0xceddff;
couleurtextinfo=0x0;
figure=0,0,676,546,ouvert;
script=684,25,278,430,ouvert;
analyse=684,463,278,149,ouvert;
enonce=684,3,278,100,ferme;
info=50,572,626,626;
listetransfos=visible;
actualisescript=oui;
pasapas=non;
boutons=point,pointsur,inter,inter2,milieu,projeteortho,pointrepere,pointreperev,segment,droite,demidroite,polygone,vecteur,droiteparallele,droiteperpendiculaire,mediatrice,bissectrice,droitev,tangente,droiteangle,cercle,cercledia,cerclerayon,arc,angle,symetrique,symetriqued,deftransfo,imagetransfo,texte,mesure,mesureangle,nombres,animation,trace,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,pasapas,clavier;
commandes=point,milieu,intersection,projete,symetrique,pointsur,barycentre,pointaimante,pointrepere,image,segment,segmentlong,vecteur,vecteurcoord,droite,droitev,droiteeqr,droiteeq,demidroite,mediatrice,parallele,perpendiculaire,bissectrice,tangente,droiteangle,cercle,cercledia,cerclerayon,entier,reel,calcul,var,varsi,symetrie,reflexion,translation,rotation,homothetie,similitude,lieu,polygone,groupe,fonction,texte,angle,arc,pointdans;
commandesanalyse=distance,calc,abscisse,ordonnee,coord,ec,er,angle,position,nature,aire,alignés,sto,pgcd,ppcm,simplifie,anglev,exact,dim,périmètre,longueur;