1  Bissectrices intérieures et extérieures d'un triangle
  2  %@GIAC:
  3  // Définition du cercle centré sur A et tangent à (BC).
  4  ctangent(A,B,C) := {
  5      local M;
  6      M := projection(droite(B,C),A);
  7      return cercle(A,M-A);
  8  };
  9  A:=point(0);
 10  B:=point(2.5);
 11  C:=point(1.8+2*i);
 12  T1:=triangle(A,B,C);
 13  droite(A,B);droite(B,C);droite(C,A);
 14  B1:=bissectrice(A,B,C);
 15  B2:=bissectrice(B,C,A);
 16  B3:=bissectrice(C,A,B);
 17  I:=inter_droite(B1,B2);
 18  C0:=ctangent(I,A,B);
 19  BE1:=exbissectrice(A,B,C);
 20  BE2:=exbissectrice(B,C,A);
 21  BE3:=exbissectrice(C,A,B);
 22  J1:= inter_droite(BE1,BE2);
 23  J2:= inter_droite(BE2,BE3);
 24  J3:= inter_droite(BE3,BE1);
 25  C1:= ctangent(J1,B,C);
 26  C2:= ctangent(J2,B,C);
 27  C3:= ctangent(J3,A,B);
 28  T2:=trianle(A,B,C);
 29  %@STYLE:
 30  global: grille=0 v=1 clip=1 cadre=[-4.5,-4.5,6,6] droite_c=Gainsboro droite_e=0.6
 31  T1: fill=(0.7,0.7,0.9);
 32  T2: e=1.1
 33  J3: p=urt
 34  J1: p=lft
 35  A: p=llft
 36  B: p=lrt
 37  %@EOF: