-1 4 setxrange
-1.5 3 setyrange
80 setxunit
80 setyunit
/A{0 -1} def
/B{3 0} def
/C{3 2} def
/D{0 2.5} def
1.2 setlinewidth
[A B C D] polygone
/I{A C D B interdroite} def
pointilles
[A C] ligne
[B D] ligne

setTimes
(A) A [2 2] dtext
(B) B [2 2] dtext
(C) C [2 2] utext
(D) D [2 2] utext
(36) A I milieu [2 2] ltext
(30) I D milieu [2 2] dtext
(20) B I milieu [2 2] dtext
(24) C I milieu [2 2] ltext
(I) I [2 2] dtext