Source
%% auteur : Florent Braisaz

-4.9 4.9 setxrange
-5.9 3.9 setyrange
15 setxunit
15 setyunit

/A {-3.5 -3.5} def
/B {-2 2.5} def
/C {3.5 -4.5} def
/A' {O B C orthoproj} def
/B' {O C A orthoproj} def
/C' {O A B orthoproj} def


/d {A B C bissectrice} def
/e {B C A bissectrice} def
/f {C A B bissectrice} def

/O {d e interdroite} def

1.25 setlinewidth

[A B C] polygone

gsave
bleu
d droite
e droite
f droite
grestore

gsave
rouge
O A' IAcercle cercle
grestore


gsave
setTimesItalic
(A) A [1.5 1.5] cltext
(B) B [1.5 1.5] urtext
(C) C [1.5 1.5] dctext

rouge
(O) O [1.5 1.5] ultext
grestore

vert
[A' O B' O C' O]{2 marked}dapply
B A' O angledroit
C B' O angledroit
A C' O angledroit

pointilles
[A' O] ligne
[B' O] ligne
[C' O] ligne