200 setwidth
-8 8 setxrange
-8 8 setyrange

/quadrillagegray .2 def
quadrillage

/A {-4 -2} def
/B {0 4} def
/C {4 -2} def

1.3 setlinewidth
[A B C] polygone

setTimesItalic
   (A) A dltext
   (B) B ultext
   (C) C drtext