summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-04-09 16:33:31 +0000
committerKarl Berry <karl@freefriends.org>2013-04-09 16:33:31 +0000
commitca6438c53266207afc490d67c130e337b0816cb7 (patch)
treebba9558c02b74879d6f07f3eee68bae1df1a05ee /Master/texmf-dist/tex
parentd6730e96b1acc94ef3a26f9079e57099be823dff (diff)
pst-node (9apr13)
git-svn-id: svn://tug.org/texlive/trunk@29789 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-node/pst-node.tex52
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{%