-2 5 setxrange
-1 5 setyrange
/A{0 2} def
/B{2 3} def
/C{-3 0} def
/D{0 1} def
%.5 .5 setquadrillagestep
quadrillage
tracerepere
%marks

1 setlinewidth
A B droite         %% D3


setTimesItalic
   (D) 4 4.2 [1.5 dup] urtext

setTimesItalic
   (D') 4 3.5 [1.5 dup] urtext