Source
%% auteur : 

0 15 setxrange
-1 16 setyrange
20 setxunit
20 setyunit
/A{1 9} def
/B{10 15} def
/C{13 6} def
/D{10 0} def
/P{4 13.75} def
/Q{12 11.75} def
/R{12 1.75} def
/S{4 3.75} def
/a{7 3} def
/b{4 11} def
/c{12 9} def
/d{11 2} def

/a'{4 6} def
/b'{7 13} def
/c'{11 12} def
/d'{12 4} def


[A B C D] polygone
pointilles
[P Q R S] polygone 
[A B C D] points 
[a b c d] points 
[a' b' c' d'] points
[P Q R S] points 
setTimes
(A) A  ultext
(B) B  urtext
(C) C  urtext
(D) D  dtext
(P) P  ultext
(Q) Q  urtext
(R) R  dtext
(S) S  dtext

(a') a' dltext
(b') b' utext
(c') c' rtext
(d') d'  rtext

(a) a dltext
(b) b ultext
(c) c rtext
(d) d  rtext