@options;

@figure;
A = point(-5.13,-2.48) {(-0.1,-0.8)};
B = point(-0.97,1);
ceAB =cercle(A,B) {i};
C =pointsur(ceAB,11.98);
ceBA =cercle(B,A);
ceCA =cercle(C,A);
D2 =intersection(ceCA,ceBA,A);
D =intersection(ceCA,ceBA,D2);
polyABDC =polygone(D2,B,D,C) {plein30};
sAD =segment(D2,D) {rouge,3};
sBC =segment(B,C) {rouge,3};



@config;
figure=0,0,485,440,ouvert;
script=495,34,251,421,ouvert;
analyse=490,463,257,147,ferme;
enonce=493,3,253,117,ferme;
info=50,470,435,435;
listetransfos=visible;
boutons=point,pointsur,inter,projeteortho,
  segment,droite,demidroite,polygone,vecteur,
  droiteparallele,droiteperpendiculaire,mediatrice,bissectrice,droitev,tangente,
  cercle,cercledia,arc,
  symetrique,deftransfo,imagetransfo,
  mesure,texte,nombres,animation,lieu,
  supprimer,effacerbase,effacertout,renomme,posnom,
  zoomp,zoomm,zoomb,deplacement,repere,rapporteur,
  miseenforme,aide,exporter,configuration,
  escape;