%% syntaxe : A B anglevecteur --> angle de AB avec l'horizontale
/anglevecteur {
   4 copy               %% A B A B
   verticale?           %% A B 
      {
         exch pop       %% xA yA yB
         gt {-90} {90} ifelse
         exch pop
      } 
      {
         vecteur exch atan
%% 	    dup
%% 	    180 gt
%% 	       {360 sub}
%% 	    if
      } 
   ifelse
} def