pst-node 1.14 (29dec10)

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

1 files changed, 35 insertions, 3 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 cdb81b38bb6..6c94d8afec0 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 304 2010-04-22 08:23:39Z herbert $
+% $Id: pst-node.tex 440 2010-12-28 21:06:39Z 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.13}
-\def\filedate{2010/06/06}
+\def\fileversion{1.14}
+\def\filedate{2010/12/28}
 \message{ v\fileversion, \filedate}
 %
 \edef\TheAtCode{\the\catcode`\@}
@@ -976,6 +976,7 @@ tx@Dict begin \psline@iii pop end
 \def\Aput@i[#1]{\addto@par{labelsep=#1}\naput@i}
 \def\Bput{\def\pst@par{}\pst@ifstar{\@ifnextchar[{\Bput@i}{\nbput@i}}}
 \def\Bput@i[#1]{\addto@par{labelsep=#1}\nbput@i}
+%
 \def\node@coor#1;#2\@nil{%
   \pst@getnode{#1}\pst@tempg
   \edef\pst@coor{%
@@ -984,12 +985,14 @@ tx@Dict begin \psline@iii pop end
     \pslbrace \pst@tempg load \tx@GetCenter \psrbrace
     \pslbrace 0 0 \psrbrace ifelse
     end }}
+%
 \def\Node@coor[#1]#2;#3\@nil{%
 \begingroup
 \psset{#1}%
 \@ifnextchar\bgroup{\Node@@@coor}{\Node@@coor}#2\@nil
 \endgroup
 \let\pst@coor\pst@tempg}
+%
 \def\Node@@coor#1\@nil{%
 \pst@getnode{#1}\pst@tempg
 \xdef\pst@tempg{%
@@ -1202,6 +1205,14 @@ end }}%
 %\def\psGetNodeEdgeA#1#2{ tx@NodeDict begin /N@#2 load #2 GetEdgeA end % x y on stack in system coor
 %  \pst@number\psyunit div /#1.y exch def 	% /#1.y in user coor
 %  \pst@number\psxunit div /#1.x exch def }	% /#1.x in user coor
+\def\psGetEdgeA#1#2{
+  tx@NodeDict begin \psk@offsetA \psk@offsetB neg 
+    \psk@nodesepA \psk@nodesepB 0 0 
+    /N@#1 /N@#2 InitNC { NCCoor } if pop pop \tx@UserCoor end}
+\def\psGetEdgeB#1#2{
+  tx@NodeDict begin \psk@offsetA \psk@offsetB neg 
+    \psk@nodesepA \psk@nodesepB 0 0 
+    /N@#1 /N@#2 InitNC { NCCoor } if 4 2 roll pop pop \tx@UserCoor end}
 %
 %%%%%%%%%%%%%% the pst-node-tools part %%%%%%%%%%%%%%%%%%%%%%%%
 %
@@ -1264,6 +1275,27 @@ end }}%
     XA linelength angle cos mul add YA linelength angle sin mul add ){#4}%
 }
 %
+\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}
+          \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}
+          \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}
+          \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}
+          \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}
+          \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}
+          \psGetNodeCenter{#1:bl} 
+          #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:
 % \defaultvalue{<command>}{<value>} assigns <value> to <command> is command is not defined, or is empty.