pst-node (9apr13)

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

1 files changed, 36 insertions, 16 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 5850af583e4..e82c6b46503 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 707 2012-09-21 14:17:30Z herbert $
+% $Id: pst-node.tex 765 2013-04-09 15:32:28Z 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.25}
-\def\filedate{2012/09/21}
+\def\fileversion{1.26}
+\def\filedate{2013/04/09}
 \message{ v\fileversion, \filedate}
 %
 \edef\TheAtCode{\the\catcode`\@}
@@ -784,6 +784,7 @@ tx@Dict begin \psline@iii pop end
 \def\naput@i{\pst@killglue\pst@makebox{\naput@ii{NAngle 90 add}}}
 \def\naput@ii#1{%
   \begingroup
+%  \addto@par{labelsep=15pt}%
   \use@par
   \if@star\pst@starbox\fi
   \def\psk@refangle{#1 }%
@@ -1304,25 +1305,25 @@ end }}%
 }
 %
 \def\psDefBoxNodes#1#2{\rnode[tl]{#1:tl}{\rnode[Bl]{#1:Bl}{\rnode[tr]{#1:tr}{%
-  \rnode[bl]{#1:bl}{\rnode[Br]{#1:Br}{\rnode[br]{#1:br}{#2}}}}}}%
-  \pnode(!\psGetNodeCenter{#1:bl}
+\rnode[bl]{#1:bl}{\rnode[Br]{#1:Br}{\rnode[br]{#1:br}{#2}}}}}}%
+\pnode(!\psGetNodeCenter{#1:bl}
           \psGetNodeCenter{#1:tl} 
           #1:bl.x #1:tl.x add 2 div #1:bl.y #1:tl.y add 2 div ){#1:Cl}%
-  \pnode(!\psGetNodeCenter{#1:tr}
+\pnode(!\psGetNodeCenter{#1:tr}
           \psGetNodeCenter{#1:br} 
           #1:tr.x #1:br.x add 2 div #1:tr.y #1:br.y add 2 div ){#1:Cr}%
-  \pnode(!\psGetNodeCenter{#1:Cl}
+\pnode(!\psGetNodeCenter{#1:Cl}
           \psGetNodeCenter{#1:Cr} 
           #1:Cl.x #1:Cr.x add 2 div #1:Cl.y #1:Cr.y add 2 div ){#1:C}%
-  \pnode(!\psGetNodeCenter{#1:Br}
+\pnode(!\psGetNodeCenter{#1:Br}
           \psGetNodeCenter{#1:Bl} 
           #1:Br.x #1:Bl.x add 2 div #1:Br.y #1:Bl.y add 2 div ){#1:BC}%
-  \pnode(!\psGetNodeCenter{#1:tr}
+\pnode(!\psGetNodeCenter{#1:tr}
           \psGetNodeCenter{#1:tl} 
           #1:tr.x #1:tl.x add 2 div #1:tr.y #1:tl.y add 2 div ){#1:tC}%
-  \pnode(!\psGetNodeCenter{#1:br}
+\pnode(!\psGetNodeCenter{#1:br}
           \psGetNodeCenter{#1:bl} 
-          #1:br.x #1:bl.x add 2 div #1:br.y #1:bl.y add 2 div ){#1:bC}}
+          #1:br.x #1:bl.x add 2 div #1:br.y #1:bl.y add 2 div ){#1:bC}}%
 %
 %% Author: Michael Sharpe (msharpe at ucsd.edu)
 % Macros defined in this file:
@@ -1553,11 +1554,8 @@ end }}%
 \def\midAB(#1)(#2)#3{\psLCNodeVar(#1)(#2)(.5,.5){#3}}
 %
 \def\psnline{\pst@object{psnline}}%line of nodes
-\def\psnline@i{\@ifnextchar({\psnline@iii}{\psnline@ii}}%
-\def\psnline@ii#1{%
-\addto@par{arrows=#1}%
-\psnline@iii}%
-\def\psnline@iii(#1,#2)#3{{%
+\def\psnline@i{\pst@getarrows{\psnline@ii}}
+\def\psnline@ii(#1,#2)#3{{%
 \pst@killglue%
 \use@par%
 \pst@cnta=#2 \relax\advance\pst@cnta by 1
@@ -1566,6 +1564,28 @@ end }}%
 \expandafter\psline\@tmp}%
 \ignorespaces}%
 %
+\def\psncurve{\pst@object{psncurve}}%line of nodes
+\def\psncurve@i{\pst@getarrows{\psncurve@ii}}
+\def\psncurve@ii(#1,#2)#3{{%
+\pst@killglue%
+\use@par%
+\pst@cnta=#2 \relax\advance\pst@cnta by 1
+\edef\@tmp{}%
+\multido{\i=#1+1}{\pst@cnta}{\xdef\@tmp{\@tmp(#3\i)}}%
+\expandafter\pscurve\@tmp}%
+\ignorespaces}%
+%
+\def\psnccurve{\pst@object{psnccurve}}%line of nodes
+\def\psnccurve@i{\pst@getarrows{\psnccurve@ii}}
+\def\psnccurve@ii(#1,#2)#3{{%
+\pst@killglue%
+\use@par%
+\pst@cnta=#2 \relax\advance\pst@cnta by 1
+\xdef\@tmp{}%
+\multido{\i=#1+1}{\pst@cnta}{\xdef\@tmp{\@tmp(#3\i)}}%
+\expandafter\psccurve\@tmp}%
+\ignorespaces}%
+%
 \def\shownode(#1){%display node user coords in console
   \pst@killglue%
   \pstVerb{%