summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-06-11 00:32:09 +0000
committerKarl Berry <karl@freefriends.org>2010-06-11 00:32:09 +0000
commit456506ae0755c40002b59b0e8d43070e6739f68d (patch)
tree2eb77dc2950de6d5831acb8c91414756f7ac4c1b /Master/texmf-dist/tex
parentdd96c2543af452cba2f800564757656013421856 (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.tex50
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