diff options
author | Karl Berry <karl@freefriends.org> | 2010-04-23 00:30:59 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-04-23 00:30:59 +0000 |
commit | 7ec0cd0175d99a635a9298554e4fb6f0e56599d1 (patch) | |
tree | aeda1556ad2fbe0cee5f9fe4e5f520340b1f9959 /Master/texmf-dist/tex/generic/pst-node | |
parent | 66fc062925feca5c8d08eb30d24db824dad349ac (diff) |
pst-node 1.11 (22apr10)
git-svn-id: svn://tug.org/texlive/trunk@17965 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-node')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-node/pst-node.tex | 31 |
1 files changed, 18 insertions, 13 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-node/pst-node.tex b/Master/texmf-dist/tex/generic/pst-node/pst-node.tex index 71a2ee98e08..217630d9864 100644 --- a/Master/texmf-dist/tex/generic/pst-node/pst-node.tex +++ b/Master/texmf-dist/tex/generic/pst-node/pst-node.tex @@ -1,4 +1,4 @@ -% $Id: pst-node.tex 263 2010-01-22 11:13:25Z herbert $ +% $Id: pst-node.tex 304 2010-04-22 08:23:39Z herbert $ %% BEGIN pst-node.tex %% %% Nodes with PSTricks. @@ -18,8 +18,8 @@ \ifx\PSTricksLoaded\endinput\else\input pstricks.tex \fi\relax \ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi % -\def\fileversion{1.10} -\def\filedate{2010/01/22} +\def\fileversion{1.11} +\def\filedate{2010/04/22} \message{ v\fileversion, \filedate} % \edef\TheAtCode{\the\catcode`\@} @@ -1436,19 +1436,18 @@ end }}% \use@par \edef\my@tempA{#3}% x(t) y(t) expanded \expandafter\testAlg\my@tempA|\@nil % -%modify code to work in ps - \pstVerb{% - tx@Dict begin + \pstVerb{% + tx@Dict begin % so we can use definitions from tx@Dict /t0 #1 def - /t1 #2 def % so we can use constants from tx@Dict + /t1 #2 def t1 t0 sub end \psk@plotpoints div /dt exch def }% \pst@cntc=\psk@plotpoints\relax%\psk@plotpoints=plotpoints-1 \advance\pst@cntc by \@ne\relax %=plotpoints - \ifx\my@tempD\@empty\pstVerb{/Func (#3) cvx def }% + \ifx\my@tempD\@empty\pstVerb{tx@Dict begin /Func (#3) cvx def end }%add tx@Dict \else\pstVerb{tx@Dict begin /Func (#3 ) AlgParser cvx def end }% \fi% \multido{\i=0+1}{\pst@cntc}{% - \pnode(! /t #1 dt \i\space mul add def t Func ){#4\i}}% + \pnode(! /t #1 dt \i\space mul add def Func ){#4\i}}% remove t before Func \expandafter\xdef \csname #4nodecount\endcsname {\psk@plotpoints}% \typeout{Created nodes #40 .. #4\psk@plotpoints}% }\ignorespaces}% @@ -1502,10 +1501,16 @@ end }}% \ignorespaces}% % \def\shownode(#1){%display node user coords in console -\pstVerb{ (Node #1: ) = }% -\pnode(! /nodecoors 2 array def \psGetNodeCenter{#1} - nodecoors 1 #1.y put nodecoors 0 #1.x put nodecoors == #1.x #1.y ){temp@} -} + \pstVerb{ tx@Dict begin { STV CP T } exec % set scaling + tx@NodeDict /N@#1 known { + \psGetNodeCenter{#1} 2 dict begin + /str 10 string def /tmpar [(Node #1: ) <28> () (, ) () <29>] def + tmpar 4 #1.y str cvs put /str 10 string def tmpar 2 #1.x str cvs put + tmpar concatstringarray = end } + {(Node #1: (NOT KNOWN)) = } ifelse + end +}}% +% % Use to construct a sequence of nodes % Eg, \pnodes{P}(0,1)(2;5)(3,4) defines nodes P0, P1, P2 with respective locations % and a macro \Pnodecount containing the highest index created |