%% syntaxe : A B tracevecteur
/tracevecteur {         %% A B
   [
   5 copy pop ] ligne
   4 copy               %% A B A B
   verticale?           %% A B 
      {
         gsave
            dup         %% A B yB
            3 1 roll    %% A yB B
            stranslate  %% A yB 
            gt {-90} {90} ifelse
            rotate pop
%            .5 .5 scale 
            arrow
         grestore
      }
      {
         gsave
            4 copy vecteur exch  atan
            3 1 roll
            stranslate
            rotate
 %           .5 .5 scale 
            arrow
            pop pop
         grestore
      }
   ifelse
} def