pst-arrow (16nov21)

git-svn-id: svn://tug.org/texlive/trunk@61069 c570f23f-e606-0410-a88d-b1316a301751

3 files changed, 22 insertions, 22 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-arrow/Changes b/Master/texmf-dist/doc/generic/pst-arrow/Changes
index c1d761a987b..304587b6425 100644
--- a/Master/texmf-dist/doc/generic/pst-arrow/Changes
+++ b/Master/texmf-dist/doc/generic/pst-arrow/Changes
@@ -1,10 +1,11 @@
-%% $Id: Changes 164 2021-08-25 19:26:42Z herbert $
+%% $Id: Changes 165 2021-08-25 19:43:54Z herbert $
 %%
 pst-arrow.sty ----------- 
  v. 0.01 2016-09-09  initial version
 
 
 pst-arrow.tex ----------- (hv)
+ v. 0.05 2021-11-16  - fix for \psBigArrow
  v. 0.04 2021-04-25  - moved the basic arrow code into  pstricks-arrows.tex
                        which is in the pstricks-base dir
                      - updated documentation
diff --git a/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.pdf b/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.pdf
index 065e35f3051..cafe8681e6e 100644
--- a/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.pdf
diff --git a/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex b/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex
index 3dee550dfd7..26f956ad927 100644
--- a/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex
+++ b/Master/texmf-dist/tex/generic/pst-arrow/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
 }