%% auteur : 

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

currentlinewidth 2 mul setlinewidth
tracerepere
marks

1 setlinewidth

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

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