From d43f1f507f2a3ce09bb87493375b10b3069f3aad Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 10 Aug 2011 16:58:40 +0000 Subject: pst-node (2aug11) git-svn-id: svn://tug.org/texlive/trunk@23486 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-node/pst-node.tex | 43 +++++++++------------- 1 file changed, 17 insertions(+), 26 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-node') 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 -- cgit v1.2.3