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

1 setlinewidth
A B droite         %% D3
C D droite	%% D1


setTimesItalic
   (D) 4 3 [1.5 dup] urtext

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