-5 8 setxrange
-3 8 setyrange

.5 .5 setquadrillagestep
quadrillage

currentlinewidth 2 mul setlinewidth
tracerepere
marks

1 setlinewidth
0 3 2 3 droite   %% D3
0 3 3 0 droite   %% D2
O 1 2 droite	 %% D1
0 -1 1 0 droite  %% D4
-1 1 2 0 droite %% D5


setTimesItalic
   (D) -2 3 ultext
   (3) indice
   (D) -2 5 urtext
   (2) indice
   (D) 3 5 urtext
   (1) indice
   (D) 6 5 drtext
   (4) indice
   (D) -4 1 text
   (5) indice