summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pst-arrow/tex/pst-arrow.tex
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pstricks/contrib/pst-arrow/tex/pst-arrow.tex')
-rw-r--r--graphics/pstricks/contrib/pst-arrow/tex/pst-arrow.tex41
1 files changed, 20 insertions, 21 deletions
diff --git a/graphics/pstricks/contrib/pst-arrow/tex/pst-arrow.tex b/graphics/pstricks/contrib/pst-arrow/tex/pst-arrow.tex
index 3dee550dfd..26f956ad92 100644
--- a/graphics/pstricks/contrib/pst-arrow/tex/pst-arrow.tex
+++ b/graphics/pstricks/contrib/pst-arrow/tex/pst-arrow.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-arrow.tex 164 2021-08-25 19:26:42Z herbert $
+%% $Id: pst-arrow.tex 316 2021-11-16 14:19:22Z herbert $
%%
%% This is file `pst-arrow.tex',
%%
@@ -22,8 +22,8 @@
\ifx\PSTricksLoaded\endinput\else\input pstricks \fi
\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
%
-\def\fileversion{0.04}
-\def\filedate{2021/08/25}
+\def\fileversion{0.05}
+\def\filedate{2021/11/16}
\message{`pst-arrow' v\fileversion, \filedate\space (dr,hv)}
%
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
@@ -39,27 +39,26 @@
\pst@getcoor{#2}\pst@tempB
\addto@pscode{
/Width \pst@number\pst@dimm def
- \pst@tempA % x y
- \pst@tempB % x y
- exch % x y y x
- 4 -1 roll % y y x x
- sub % y y dx
- 3 1 roll % dx y y
- sub % dx dy
- exch % dy dx
- atan neg % alpha
- \pst@tempA
+ \pst@tempA % x1 y1
+ \pst@tempB % x1 y1 x2 y2
+ exch % x1 y1 y2 x2
+ 4 -1 roll % y1 y2 x2 x1
+ sub /dxA ED % y1 y2
+ exch sub /dyA ED % dx dy
+ dyA dxA atan % alpha
+ \pst@tempA
translate
rotate
0 0 moveto
- 0 Width 2 div rlineto % |
- \pst@tempB \pst@tempA Pyth2 Width 1.5 mul sub 0 rlineto
- 0 Width 1.5 div rlineto
- Width 1.5 mul dup neg rlineto
- Width 1.5 mul neg dup rlineto
- 0 Width 1.5 div rlineto
- \pst@tempB \pst@tempA Pyth2 neg Width 1.5 mul add 0 rlineto
- closepath
+ 0 Width rlineto
+ \pst@tempB \pst@tempA Pyth2 /ALength ED
+ ALength Width sub 0 rlineto
+ 0 Width 2 div rlineto
+ Width dup -1.5 mul rlineto
+ Width neg dup 1.5 mul rlineto
+ 0 Width 2 div rlineto
+ 0 Width neg lineto
+ closepath
}%
\end@ClosedObj
}