-4 10 setxrange
-3 8 setyrange
15 setxunit
quadrillage
/arrowscale {.6 dup} def
tracerepere
marks
1 setlinewidth
-3 4 0 3 droite
setTimesItalic
   (D) 8 1 bctext