1  Théorème de Feuerbach
  2  %@GIAC:
  3  ceuler(A,B,C) := {
  4      return circonscrit(milieu(A,B),milieu(B,C),milieu(C,A));
  5  };
  6  A:=point(0);
  7  B:=point(3);
  8  C:=point(2+i);
  9  T1:= triangle(A,B,C);
 10  droite(A,B);droite(B,C);droite(C,A);
 11  C0 := inscrit(A,B,C);
 12  C1 := exinscrit(A,B,C);
 13  C2 := exinscrit(B,C,A);
 14  C3 := exinscrit(C,A,B);
 15  CE := ceuler(A,B,C);
 16  %@STYLE:
 17  global: v=1 clip=1 cadre=[-1,-1,4,3]
 18  global: droite_c=0.5white droite_e=0.6 unite=1.5cm cercle_c=0.5white grille=0
 19  T1: fill=(0.7,0.7,0.1);
 20  CE: c=red
 21  A: p=ulft
 22  B: p=urt
 23  %@eof: