summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-12-30 01:08:39 +0000
committerKarl Berry <karl@freefriends.org>2010-12-30 01:08:39 +0000
commitaa1d9048da7d31f6b4045d5a1cc2c818807d88b7 (patch)
treea9ec102c833a35b3cf3a688855dcf56d1de2797c /Master/texmf-dist/tex/generic
parent37b8e23a1e5dbb74496788f400ddb1e4ba96ac19 (diff)
pst-node 1.14 (29dec10)
git-svn-id: svn://tug.org/texlive/trunk@20879 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r--Master/texmf-dist/tex/generic/pst-node/pst-node.tex38
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.