%% 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
|