%% taille de la fenetre
-4 5 setxrange
-4 5 setyrange

%% definition des points
/A {4 -2} def
/B {2 4} def
/C {-2 -1.5} def

%%%% tout ce qui suit ne depend que des points A B et C

%% on nomme les bissectrices
/d {A B C bissectrice} def
/d' {B C A bissectrice} def

%% le centre du cercle inscrit
/I {d d' interdroite} def

%% les projetes orthogonaux
/A' {I B C orthoproj} def
/B' {I A C orthoproj} def
/C' {I B A orthoproj} def

%% rayon du cercle inscrit
/r {I B' distance} def

%% les traces
orange
I r cercle

noir
[C A B A' B' C' I] points
[C A B] polygone

I C' A angledroit
I B' A angledroit
I A' B angledroit

rouge
jpegmode
pointilles
[I A'] ligne
[I B'] ligne
[I C'] ligne

bleu
setTimesItalic
   (A) A rtext
   (B) B urtext
   (C) C ltext
   (A') A' ultext
   (B') B' dltext
   (C') C' rtext
   (I) I utext