texlive[61069] Master/texmf-dist: pst-arrow (16nov21)

[commits+karl at tug.org]

Revision: 61069
          http://tug.org/svn/texlive?view=revision&revision=61069
Author:   karl
Date:     2021-11-16 22:22:26 +0100 (Tue, 16 Nov 2021)
Log Message:
-----------
pst-arrow (16nov21)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/generic/pst-arrow/Changes
    trunk/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.pdf
    trunk/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex

Modified: trunk/Master/texmf-dist/doc/generic/pst-arrow/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-arrow/Changes	2021-11-16 21:22:11 UTC (rev 61068)
+++ trunk/Master/texmf-dist/doc/generic/pst-arrow/Changes	2021-11-16 21:22:26 UTC (rev 61069)
@@ -1,4 +1,4 @@
-%% $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
@@ -5,6 +5,7 @@
 
 
 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

Modified: trunk/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex	2021-11-16 21:22:11 UTC (rev 61068)
+++ trunk/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex	2021-11-16 21:22:26 UTC (rev 61069)
@@ -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 at getcoor{#2}\pst at tempB  
   \addto at pscode{
     /Width \pst at number\pst at dimm def
-    \pst at tempA % x y 
-    \pst at 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 at tempA
+    \pst at tempA % x1 y1 
+    \pst at 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 at tempA 
     translate
     rotate     
     0 0 moveto
-    0 Width 2 div rlineto % |
-    \pst at tempB \pst at 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 at tempB \pst at tempA Pyth2 neg Width 1.5 mul add 0 rlineto
-    closepath 
+    0 Width rlineto 
+    \pst at tempB \pst at 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 at ClosedObj
 }