0 6 setxrange
0 7 setyrange

%% les 4 sommets du tétraèdre
/A {3 5} def
/B {1 1} def
/C {4 0} def
/D {5 2} def


%% les milieux
/L {A B milieu} def
/M {A D milieu} def
/K {A C milieu} def
/K' {L M milieu} def
/L' {M K milieu} def
/M' {L K milieu} def
/B' {C D milieu} def
/C' {B D milieu} def
/D' {B C milieu} def

%%définitions des droites
/d1 {K K'} def
/d2 {L L'} def
/d3 {B B'} def
/d4 {C C'} def

%% les centres de gravité
/H {d1 d2 interdroite} def
/G {d3 d4 interdroite} def

%%milieu de HG
/P {H G milieu} def
[H G P] points


%% tracé des lignes en trait plein
.8 setlinewidth
[B C D A] polygone
[A C] ligne
[L K] ligne
[M K] ligne

%% tracé des lignes en pointillés
jpegmode
pointilles
[B D] ligne
[L M] ligne
[K K'] ligne
[L L'] ligne
[M M'] ligne
[C C'] ligne
[B B'] ligne
[D D'] ligne
[A G] ligne


setTimesItalic
   (A) A rtext
   (B) B dltext
   (C) C dltext
   (D) D rtext
   (L) L ltext
   (K) K rtext
   (M) M rtext
   (G) G dtext
   (H) H ultext
   (P) P utext