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 {-1 2.5} def
/C {3.5 -3.5} def
/C' {A B milieu} def
/A' {B C milieu} def
/B' {A C milieu} def

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

/O {d e interdroite} def

1.25 setlinewidth

[A B C] polygone

gsave
bleu
d droite
e droite
f droite
C B' O angledroit
B A' O angledroit
A C' O angledroit
grestore

gsave
rouge
O A IAcercle cercle
grestore


gsave
setTimesItalic
(A) A [1.5 1.5] cltext
(B) B [1.5 1.5] uctext
(C) C [1.5 1.5] dctext
(A') A' [1.5 1.5] crtext
(B') B' [1.5 1.5] drtext
(C') C' [1.5 1.5] dltext
rouge
(O) O [1.5 1.5] ultext
grestore

vert
[A O B O C O]{2 marked}dapply
pointilles
[A O] ligne
[B O] ligne
[C O] ligne