%% syntaxe : A B oldarrow --> trace fleche en B, direction AB
/oldarrow {
4 dict begin
gsave
/B defpoint
/A defpoint
oldarrowscale scale
oldarrowangle rotate
newpath
B smoveto
A B vecteur normalize /u defpoint
u neg exch /v defpoint
u oldarrowpointe neg mulv rmoveto %% ainsi c'est la pointe qui est en (0, 0)
%% le pt extremal arriere haut
u oldarrowplume neg mulv %% l'abscisse
v oldarrow@ngle sin oldarrow@ngle cos div oldarrowplume mul mulv addv %% l'ordonnee
rlineto
u oldarrowplume oldarrowpointe add mulv
v oldarrow@ngle sin oldarrow@ngle cos div oldarrowplume mul neg mulv addv
rlineto
u oldarrowplume oldarrowpointe add neg mulv
v oldarrow@ngle sin oldarrow@ngle cos div oldarrowplume mul neg mulv addv
rlineto
closepath fill
grestore
end
} def
/oldarrowpointe 12.5 def
/oldarrowplume 2.5 def
/oldarrow@ngle 60 def
/oldarrowscale {1 1} def
/oldarrowangle 0 def %% pour l'utilisateur
|