Source
% auteur : Peric
30 setxunit
7.5 setborder
90 setangle_repere
-1 10 setxrange
-7 7 setyrange
/A {0 0} def
/B {9 0} def
/C {7 5} def
/D {2 6} def
/E {C C A vecteur C B vecteur addv translatepoint} def
/F {D D A vecteur D B vecteur addv translatepoint} def

/a {2} def
1 setlinewidth
[A B C D] polygone
setTimes
   (A) A [a dup] dltext
   (B) B [a dup] drtext
   (C) C [a dup] urtext
   (D) D [a dup] ultext
   (E) E down 0.3 mulv translatepoint [a dup] dltext
   (F) F down 0.3 mulv translatepoint [a dup] drtext
gsave    
0.7 setlinewidth
A E 10 Arc
B E 10 Arc
A F 10 Arc
B F 10 Arc
grestore

D B 2 marked
A F 2 marked
C A 1 marked
B E 1 marked
C B 3 marked
A E 3 marked
D A 4 marked
B F 4 marked
dotted
[C A] ligne
[B E] ligne
[A E] ligne
[D B] ligne
[B F] ligne
[A F] ligne