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