pst-node (2aug11)

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

3 files changed, 19 insertions, 26 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-node/Changes b/Master/texmf-dist/doc/generic/pst-node/Changes
index ec43a8bab8e..f11cfba3592 100644
--- a/Master/texmf-dist/doc/generic/pst-node/Changes
+++ b/Master/texmf-dist/doc/generic/pst-node/Changes
@@ -1,4 +1,5 @@
 ----- pst-node.tex
+1.18  2011-08-01 - bugfix for \shownode (ms)
 1.17  2011-07-04 - added optional argument for \pnode for relative
                    node setting
 1.16  2011-05-05 - fixed bug with missing star version for \nput
@@ -23,5 +24,6 @@
 
 
 ----- pst-node.pro
+1.12  2010-04-30 - small changes to the code
 1.11  2010-04-22 - added function /concatstringarray (ms)
 1.10  2010-01-22 - first version  
diff --git a/Master/texmf-dist/doc/generic/pst-node/pst-node-doc.pdf b/Master/texmf-dist/doc/generic/pst-node/pst-node-doc.pdf
index b06e768cad3..28666d0c274 100644
--- a/Master/texmf-dist/doc/generic/pst-node/pst-node-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-node/pst-node-doc.pdf
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 14eb627adf8..b88dc66e950 100644
--- a/Master/texmf-dist/tex/generic/pst-node/pst-node.tex
+++ b/Master/texmf-dist/tex/generic/pst-node/pst-node.tex
@@ -18,8 +18,8 @@
 \ifx\PSTricksLoaded\endinput\else\input pstricks.tex \fi\relax
 \ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
 %
-\def\fileversion{1.17}
-\def\filedate{2011/07/04}
+\def\fileversion{1.18}
+\def\filedate{2011/08/01}
 \message{ v\fileversion, \filedate}
 %
 \edef\TheAtCode{\the\catcode`\@}
@@ -1549,30 +1549,21 @@ end }}%
 %
 \def\shownode(#1){%display node user coords in console
   \pst@killglue%
-  \pstVerb{ 
-    gsave tx@Dict begin /tmpar [(Node #1: ) <28> () (, ) () <29>] def %
-    /str 10 string def 
-    STV CP T \psGetNodeCenter{#1}\space 
-    tmpar 2 #1.x str cvs put 
-    /str 10 string def 
-    tmpar 4 #1.y str cvs put 
-    tx@NodeDict /N@#1 known { tmpar concatstringarray = }{(Node #1: (NOT KNOWN)) = } ifelse 
-    end 
-    grestore }%
-    \ignorespaces}%
-%
-\iffalse
-\def\shownode(#1){%display node user coords in console
-  \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 
-}}%
-\fi
+  \pstVerb{% 
+    gsave tx@Dict begin %
+    tx@NodeDict /N@#1 known { % known node
+      /tmpar [(Node #1: ) <28> () (, ) () <29>] def %
+      /str 12 string def 
+      STV CP T \psGetNodeCenter{#1}\space 
+      tmpar 2 #1.x str cvs put 
+      /str 12 string def 
+      tmpar 4 #1.y str cvs put 
+      tmpar concatstringarray = }%
+    {% not known
+      (Node #1: (NOT KNOWN)) = %
+    } ifelse %
+    end grestore }%
+  \ignorespaces}%
 %
 % Use to construct a sequence of nodes
 % Eg, \pnodes{P}(0,1)(2;5)(3,4) defines nodes P0, P1, P2 with respective locations