Source
%% auteur : 

-4 5 setxrange
-2 6 setyrange
40 setxunit
40 setyunit
1 1 setquadrillagestep
quadrillage

currentlinewidth 2 mul setlinewidth
tracerepere
marks

1 setlinewidth

0 3 1 1 droite   %% D2
/A{0 3} def
/B{1 3} def
/C{1 1} def
pointilles
[A B] ligne
[B C] ligne

setTimesItalic
      (D) -1 5.5 [2 2] urtext
   (b) 0 3 [2 2]  dltext
setTimes
   (1) 0.5 3 [2 2]  utext
(2) 1 2 [2 2]  rtext