diff options
author | Karl Berry <karl@freefriends.org> | 2021-11-16 21:22:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-11-16 21:22:26 +0000 |
commit | c38cad165ea5ccd7f4540bbd1573df38bb06e9db (patch) | |
tree | 4014d791a74a5e5b2e24c82d6e5847589a7fe5f1 /Master/texmf-dist/tex/generic | |
parent | f010fff8b2f9db516b613875a486f3c66437d957 (diff) |
pst-arrow (16nov21)
git-svn-id: svn://tug.org/texlive/trunk@61069 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex | 41 |
1 files changed, 20 insertions, 21 deletions
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 } |