%% auteur : 

-3 5 setxrange
-3 3 setyrange
15 setfontsize
20 setxunit
20 setyunit
/B {3 -2} def
/C {4 2} def
/D{-1 2} def
/A {-2 -2} def
[A B C D] points

[A D] (->) ligne
[B C] (->) ligne
pointilles
[D C] ligne
[A B] ligne
setTimesItalic
   (A) A dltext
   (B) B drtext
   (C) C urtext
   (D) D ultext