/A {-3 -3} def
/B {-1 4} def
/C {4 0} def

%% les milieux
/A' {B C milieu} def
/B' {A C milieu} def
/C' {B A milieu} def

%% les medianes
/dA {A' A} def
/dB {B' B} def

%% le centre de gravite
/G {dA dB interdroite} def

%% on marque les longueurs
A' C 1 marked
B A' 1 marked
A C' 2 marked
C' B 2 marked
/dotangle A C angle def
A B' milieu times3
B' C milieu times3

1.7 setcurvelinewidth
[A B C] polygone

pointilles
.7 setcurvelinewidth
[A' G C'] ligne
[G B'] ligne

G point

bleu
setTimesItalic
   (G) G dltext
   (A) A dltext
   (B) B urtext
   (C) C drtext
   (A') A' urtext
   (B') B' drtext
   (C') C' ultext