diff options
author | Karl Berry <karl@freefriends.org> | 2010-06-11 00:32:09 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-06-11 00:32:09 +0000 |
commit | 456506ae0755c40002b59b0e8d43070e6739f68d (patch) | |
tree | 2eb77dc2950de6d5831acb8c91414756f7ac4c1b /Master/texmf-dist/tex | |
parent | dd96c2543af452cba2f800564757656013421856 (diff) |
pst-node update (10jun10)
git-svn-id: svn://tug.org/texlive/trunk@18880 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-node/pst-node.tex | 50 |
1 files changed, 36 insertions, 14 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 217630d9864..e233f5ab5d5 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.11} -\def\filedate{2010/04/22} +\def\fileversion{1.13} +\def\filedate{2010/06/06} \message{ v\fileversion, \filedate} % \edef\TheAtCode{\the\catcode`\@} @@ -717,6 +717,7 @@ tx@Dict begin \psline@iii pop end \global\let\pst@tempg\psk@rot \endgroup \let\psk@nrot\pst@tempg} +% \def\psset@@nrot:#1\@nil{% \psset@@rot#1\@nil \edef\psk@rot{NAngle \ifx\psk@rot\@empty\else\psk@rot add \fi}} @@ -755,17 +756,21 @@ tx@Dict begin \psline@iii pop end \def\naput{\pst@object{naput}} \def\naput@i{\pst@killglue\pst@makebox{\naput@ii{NAngle 90 add}}} \def\naput@ii#1{% -\begingroup -\use@par -\if@star\pst@starbox\fi -\def\psk@refangle{#1 }% -\let\psk@rot\psk@nrot -\uput@vii -{exch pop add a \tx@PtoC h1 add exch w1 add exch }% -{tx@Dict /NCLW known { NCLW add } if }% -\ncput@iii -\endgroup -\pst@shortput} + \begingroup + \use@par + \if@star\pst@starbox\fi + \def\psk@refangle{#1 }% + \let\psk@rot\psk@nrot + \pst@Verb{ + gsave STV CP T /ps@refangle {#1 } def + /ps@rot { \psk@rot } def grestore }%ADDED (MJS) + \uput@vii + {exch pop add a \tx@PtoC h1 add exch w1 add exch }% + {tx@Dict /NCLW known { NCLW add } if }% + \ncput@iii + \endgroup + \pst@shortput} +% \def\nbput{\pst@object{nbput}} \def\nbput@i{\pst@killglue\pst@makebox{\naput@ii{NAngle 90 sub}}} \define@key[psset]{pst-node}{tpos}[0.5]{% @@ -952,7 +957,8 @@ tx@Dict begin \psline@iii pop end \if@star\pst@starbox\fi \Rput@vi \pst@makesmall\pst@hbox -\pst@rotate\psk@nrot\pst@hbox +\ifx\psk@rot\@empty\else\pst@rotate{ps@rot }\pst@hbox\fi% (MJS) +%\pst@rotate\psk@nrot\pst@hbox \ncput@iii \endgroup \pst@shortput} @@ -1501,6 +1507,21 @@ end }}% \ignorespaces}% % \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 @@ -1510,6 +1531,7 @@ end }}% {(Node #1: (NOT KNOWN)) = } ifelse end }}% +\fi % % Use to construct a sequence of nodes % Eg, \pnodes{P}(0,1)(2;5)(3,4) defines nodes P0, P1, P2 with respective locations |