pst-node 1.20 (22aug11)

git-svn-id: svn://tug.org/texlive/trunk@23658 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 15 insertions, 12 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 1b13f3d60d8..6cf5dbb2984 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 557 2011-08-11 16:24:28Z herbert $
+% $Id: pst-node.tex 567 2011-08-20 08:07:42Z 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.19}
-\def\filedate{2011/08/12}
+\def\fileversion{1.20}
+\def\filedate{2011/08/20}
 \message{ v\fileversion, \filedate}
 %
 \edef\TheAtCode{\the\catcode`\@}
@@ -1500,10 +1500,10 @@ end }}%
   \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 Func ){#4\i}}% remove t before Func
-  \expandafter\xdef \csname #4nodecount\endcsname {\psk@plotpoints}%
-  \typeout{Created nodes #40 .. #4\psk@plotpoints}%
+    \multido{\i=0+1}{\pst@cntc}{%
+      \pnode(! /t #1 dt \i\space mul add def Func ){#4\i}}% remove t before Func
+    \expandafter\xdef \csname #4nodecount\endcsname {\psk@plotpoints}%
+    \ifnum\Pst@Debug>0 \typeout{Created nodes #40 .. #4\psk@plotpoints}\fi%
 }\ignorespaces}%
 %
 \def\fnpnode{\pst@object{fnpnode}}
@@ -1532,8 +1532,8 @@ end }}%
     \multido{\i=0+1}{\pst@cntc}{\pnode(!/x \pst@number\pst@dima\space def x #3){#4\i}%
   \advance\pst@dima \pst@dimb}%
 \fi%
-\expandafter\xdef \csname \PST@root nodecount\endcsname {\the\pst@cnta}
-\typeout{Created nodes #40 .. #4\the\pst@cnta}%
+  \expandafter\xdef \csname \PST@root nodecount\endcsname {\the\pst@cnta}%
+  \ifnum\Pst@Debug>0 \typeout{Created nodes #40 .. #4\the\pst@cnta}\fi%
 }\ignorespaces}%
 %
 \def\AtoB(#1)(#2)#3{\psLCNodeVar(#1)(#2)(-1,1){#3}}
@@ -1583,12 +1583,15 @@ end }}%
 \def\pst@next{#2}% command to perform after reading list
 \getnext@Node}%
 %
-\def\getnext@Node{\@ifnextchar({\getnext@Node@i}{\advance\pst@args by -1 \expandafter\xdef \csname \PST@root nodecount\endcsname {\the\pst@args}
-\typeout{Created nodes \PST@root0 .. \PST@root\the\pst@args}\pst@next}}%
+\def\getnext@Node{\@ifnextchar({\getnext@Node@i}%
+  {\advance\pst@args by \m@ne \expandafter\xdef \csname \PST@root nodecount\endcsname {\the\pst@args}
+  \ifnum\Pst@Debug>0 \typeout{Created nodes \PST@root0 .. \PST@root\the\pst@args}\fi% 
+  \pst@next}%
+}%
 %
 \def\getnext@Node@i(#1){%
 \pnode(#1){\PST@root\the\pst@args}%
-\advance\pst@args by 1\relax%
+\advance\pst@args by \@ne\relax%
 \getnext@Node}%
 %
 \def\psLCNodeVar(#1)(#2)(#3)#4{%