summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pstricks-add
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-07-16 22:28:24 +0000
committerKarl Berry <karl@freefriends.org>2014-07-16 22:28:24 +0000
commitd4165c0f6f43432d33b38973f1399652280b89a8 (patch)
treee14f1694cb84eb2c1ddbfe04e7137b24bc9fb89d /Master/texmf-dist/tex/generic/pstricks-add
parent189768e1bc743aa2703ea0d625d714796c1469ab (diff)
pstricks-add (16jul14)
git-svn-id: svn://tug.org/texlive/trunk@34630 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks-add')
-rw-r--r--Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex35
1 files changed, 22 insertions, 13 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 018fa300df7..cc9e083a2be 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 924 2014-06-16 21:25:49Z herbert $
+%% $Id: pstricks-add.tex 933 2014-07-11 19:23:25Z 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.73}
-\def\filedate{2014/06/16}
+\def\fileversion{3.74}
+\def\filedate{2014/07/15}
\message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)}
%
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
@@ -2330,11 +2330,16 @@ a add
\global\psVectorCtr=\@ne
\gdef\psVectorName{#1}%
\pnode(#2){#10}%
- \pst@getcoor{#2}\pst@tempA%
- \pstVerb{tx@Dict begin
- \pst@tempA
- \pst@number\psyunit div /cp.Y exch def
- \pst@number\psxunit div /cp.X exch def end }\ignorespaces}
+% \pst@getcoor{#2}\pst@vector@cp
+ \pstVerb{
+ gsave tx@Dict begin
+ STV CP T \psGetNodeCenter{#10}
+ /cp.X #10.x def /cp.Y #10.y def
+% \pst@vector@cp
+% \pst@number\psyunit mul /cp.Y exch def
+% \pst@number\psxunit mul /cp.X exch def
+ end grestore }%
+ \ignorespaces}
%
\def\psVector{\pst@object{psVector}}
\def\psVector@i{%
@@ -2343,11 +2348,15 @@ a add
% \addto@par{showpoints=false}%
\psVector@ii}
-\def\psVector@ii(#1){%
+\def\psVector@ii{\@ifnextchar<\psVector@iii\psVector@iv}%
+\def\psVector@iii<#1>{\psStartPoint(#1)\psVector@iv}
+
+\def\psVector@iv(#1){%
\pst@getcoor{#1}\pst@tempCoor
\begingroup
\use@keep@par
- \rput(! cp.X cp.Y ){%
+ \pst@cntm=\the\psVectorCtr \advance\pst@cntm by \m@ne
+ \rput(\psVectorName\the\pst@cntm){% \else cp.X cp.Y \fi){%
\pnode(0,0){@@@A}\pnode(#1){@@@B}
\ifPst@markAngle
\psarc[style=psMarkAngleStyle](0,0){1}{0}{!\pst@tempCoor exch atan}%
@@ -2358,12 +2367,12 @@ a add
\pst@number\psxunit div cp.X add exch ){\psVectorName\the\psVectorCtr}%
\global\advance\psVectorCtr by \@ne%
\endgroup
- \pst@Verb{ %tx@Dict begin
+ \pst@Verb{
\pst@tempCoor
\pst@number\psyunit div cp.Y add /cp.Y exch def
- \pst@number\psxunit div cp.X add /cp.X exch def %end
+ \pst@number\psxunit div cp.X add /cp.X exch def
}%
- \@ifnextchar(\psVector@ii\ignorespaces}
+ \@ifnextchar(\psVector@iv\ignorespaces}
%
\define@key[psset]{pstricks-add}{basename}{\def\psk@basename{#1}}%
\psset[pstricks-add]{basename=}%