summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-node/pst-node.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-node/pst-node.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-node/pst-node.tex31
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