-2 6 setxrange
-2 6 setyrange

/A {2 2} def
/B {5 4} def

quadrillage
traceaxes
marks

%% trace simple, extremite en (0, 0)
arrow

%% segment fleche
A B (<->) line

%% on change l'echelle
/arrowscale {2 2} def
%% on trace la fleche en A
gsave
   A stranslate
   arrow
grestore

%% segment fleche
A O (->) line


%% on change l'angulation
/arrowangle -30 def
%% on trace la fleche en B
gsave
   B stranslate
   arrow
grestore

setTimesItalic
   (O) O drtext
   (A) A drtext
   (B) B drtext