%% auteur : 

-1 5 setxrange
-1 5 setyrange
50 setxunit
50 setyunit
/A{0 4} def
/B{4 4} def
/C{4 0} def
/D{0 0} def
/E{1.5 4} def
/H{4 2.5} def
/G{0 2.5} def
/F{1.5 0} def
[A B C D] polygone



 [G H] ligne
[E F] ligne



setTimesItalic
(a) 0.75 4 [1.5 1.5] utext
(b) 3 4 [1.5 1.5] utext