@options;

@figure;
  A = point( 1 , 1 )  { grisfonce };
  B = point( -7.1 , 7.17 );
  C = point( -6.83 , 0.73 );
  polyBCA = polygone( B , C , A  );
  bissBCA = bissectrice( B , C , A );
  bissBCA1 = bissectrice( B , C , A )  { rouge };
  bissCBA = bissectrice( C , B , A )  { noir };
  bissCAB = bissectrice( C , A , B )  { jauneclair };
  D = intersection( bissCBA , bissBCA );
  dCA = droite( C , A );
  perpDdCA = perpendiculaire( D , dCA );
  E = intersection( perpDdCA , dCA );
  ceDE = cercle( D , E );
 texte1 = texte( 1.9 , 5.8 , "bissectrices et cercle inscrit")  { magenta , dec2 };