%% auteur : 

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

currentlinewidth 2 mul setlinewidth
tracerepere
marks

1 setlinewidth

0 2 2 5 droite   %% D2
/A{0 2} def
/B{2 2} def
/C{2 5} def
pointilles
[A B] ligne
[B C] ligne

setTimesItalic
      (D) 2 5.5 [2 2] urtext
   (b) 0 2 [2 2]  ltext
setTimes
   (2) 1 2 [2 2]  dtext
(3) 2 3 [2 2]  rtext
(O) O dltext