Source
%% auteur : Florent Braisaz

-4.9 4.9 setxrange
-4.9 4.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

1.25 setlinewidth

[A B C] polygone

gsave
bleu
d droite
e droite
f droite
grestore

gsave
rouge
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
grestore