%% 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

A B C angledroit
B C D angledroit
C D A angledroit
D A B angledroit

 [G H] ligne
[E F] ligne


setTimes
(A) A [1.5 1.5] ultext
(D) B [1.5 1.5] urtext
(C) C [1.5 1.5] dtext
(B) D [1.5 1.5] dltext
(E) E [1.5 1.5] utext
(F) 1.5 0 [1.5 1.5] dtext
(G) G [1.5 1.5] ltext
(H) H [1.5 1.5] rtext
(I) 1.5 2.5  [1.5 1.5] drtext
setTimesItalic
(x) 0.75 4 [1.5 1.5] utext