1 7 setxrange
1 7 setyrange

%% les 4 sommets du tétraèdre
/A {3 3} def
/B {1.5 1.5} def
/C {3 6} def
/D {6 3} def

%% a =1/3
/a 1 3 div def

%% les homothétiques
/I {A B a hompoint} def
/J {D B a hompoint} def
/K {C B a hompoint} def
/L {A C a hompoint} def
/M {B C a hompoint} def
/N {D C a hompoint} def
/P {A D a hompoint} def
/Q {B D a hompoint} def
/R {C D a hompoint} def


%% tracé des lignes en trait plein
.8 setlinewidth
rouge
[K J Q R N M] polygone
[I J K] polygone
[L M N] polygone
[P Q R] polygone
noir
[C N] ligne
[C M] ligne
[D R] ligne
[D Q] ligne
[B K] ligne
[B J] ligne

%% tracé des lignes en pointillés
jpegmode
pointilles
rouge
[A P] ligne
[A L] ligne
[I A] ligne
noir

[C L] ligne
[D P] ligne
[B I] ligne

setTimesItalic
   (A) A urtext
   (B) B dltext
   (C) C utext
   (D) D rtext
   (I) I ltext
   (J) J drtext
   (K) K rtext