diff options
| author | Karl Berry <karl@freefriends.org> | 2014-04-18 23:32:39 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2014-04-18 23:32:39 +0000 |
| commit | d1d2d0181ea710ab92e90d157ea29f6d7fbc456d (patch) | |
| tree | 68f9be240684fe2a5fbe2470105d954df815aa58 /Master/texmf-dist/tex | |
| parent | 0a11b23c3bc0c1e82d3eb3d880e4bd642660259d (diff) | |
pstricks-add (18apr14)
git-svn-id: svn://tug.org/texlive/trunk@33525 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
| -rw-r--r-- | Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex | 40 |
1 files changed, 37 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex index 8baba237afa..bbbc6f344fe 100644 --- a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex +++ b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex @@ -1,4 +1,4 @@ -%% $Id: pstricks-add.tex 874 2014-01-22 14:25:35Z herbert $ +%% $Id: pstricks-add.tex 908 2014-04-17 20:48:05Z herbert $ %% %% This is file `pstricks-add.tex', %% @@ -30,8 +30,8 @@ \ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi \ifx\PSTmathLoaded\endinput\else \input pst-math \fi % -\def\fileversion{3.65} -\def\filedate{2014/01/21} +\def\fileversion{3.66} +\def\filedate{2014/04/17} \message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)} % \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax @@ -339,6 +339,40 @@ a add % % % -------------- the arrow part ------------- +% +\def\psBigArrow{\pst@object{psBigArrow}} +\def\psBigArrow@i(#1)(#2){% + \addbefore@par{doublesep=1cm} + \begin@ClosedObj + \pssetlength\pst@dimm{\psdoublesep} + \pst@getcoor{#1}\pst@tempA + \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 + 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 + }% + \end@ClosedObj +} % the original table % \def\pst@arrowtable{,<->,<<->>,>-<,>>-<<,(-),[-],)-(,]-[,|>-<|} % |