summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-25 21:48:45 +0000
committerKarl Berry <karl@freefriends.org>2016-04-25 21:48:45 +0000
commit74287edae1bb94f336a0a6fb26a158de47da4520 (patch)
tree0ce038a7afb525eb2f01b332371ba4a41876d605 /Master/texmf-dist/tex/generic
parent4deefba1510283635ec9d61417ff06e5013eadc9 (diff)
pst-node (25apr16)
git-svn-id: svn://tug.org/texlive/trunk@40743 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.tex65
1 files changed, 60 insertions, 5 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 1932e483c63..2bcddd7d126 100644
--- a/Master/texmf-dist/tex/generic/pst-node/pst-node.tex
+++ b/Master/texmf-dist/tex/generic/pst-node/pst-node.tex
@@ -1,12 +1,12 @@
-% $Id: pst-node.tex 65 2014-08-04 18:52:37Z herbert $
+% $Id: pst-node.tex 68 2014-08-07 10:16:26Z herbert $
+%%
%% BEGIN pst-node.tex
%%
%% Nodes with PSTricks.
-%% See the betadoc documentation for usage.
%% This uses the header file `pst-node.pro'.
%%
%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu.
-%% COPYRIGHT 2009-2014 by Herbert Voss, hvoss tug.org.
+%% COPYRIGHT 2009-2015 by Herbert Voss, hvoss tug.org.
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN
@@ -18,8 +18,8 @@
\ifx\PSTricksLoaded\endinput\else\input pstricks.tex \fi\relax
\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
%
-\def\fileversion{1.35}
-\def\filedate{2014/08/04}
+\def\fileversion{1.36}
+\def\filedate{2016/04/24}
\message{ v\fileversion, \filedate}
%
\edef\TheAtCode{\the\catcode`\@}
@@ -1381,6 +1381,61 @@ tx@NodeDict \pst@tempg known
/linelength \pst@number\pst@dimb \pst@number\psunit div def
XA linelength angle cos mul add YA linelength angle sin mul add ){#4}%
}
+\def\psRelNode{\pst@object{psRelNode}}
+\def\psRelNode@i(#1)(#2)#3#4{{% A - B - factor - node name
+ \use@par
+% \pst@killglue
+ \pst@getcoor{#1}\pst@tempA%
+ \pst@getcoor{#2}\pst@tempB%
+ \pnode(!
+ \pst@tempA /YA exch \pst@number\psyunit div def
+ /XA exch \pst@number\psxunit div def
+ \pst@tempB /YB exch \pst@number\psyunit div def
+ /XB exch \pst@number\psxunit div def
+ /AlphaStrich \psk@angleA\space def
+ /unit \pst@number\psyunit \pst@number\psxunit div def % yunit/xunit
+%
+ /dx XB XA sub def
+ /dy YB YA sub \ifPst@trueAngle\space unit mul \fi\space def
+ /laenge dy dup mul dx dup mul add sqrt #3 mul def
+ /Alpha dy dx atan def
+ /beta Alpha AlphaStrich add def
+ laenge beta cos mul XA add
+ laenge beta sin mul \ifPst@trueAngle\space unit div \fi\space YA add ){#4}%
+}\ignorespaces}
+%
+\define@cmdkeys[psset]{pstricks-add}[PSTPSPNk@]{% Christophe Jorssen 2007
+ blName,bcName,brName,
+ clName,ccName,crName,
+ tlName,tcName,trName}[]{}%
+\psset[pstricks-add]{%
+ blName=PSPbl,bcName=PSPbc,brName=PSPbr,
+ clName=PSPcl,ccName=PSPcc,crName=PSPcr,
+ tlName=PSPtl,tcName=PSPtc,trName=PSPtr}
+\def\psDefPSPNodes{\def\pst@par{}\pst@object{psDefPSPNodes}}
+\def\psDefPSPNodes@i{%
+ \pst@killglue
+ \begingroup
+ \use@par
+ \expandafter\psDefPSPNodes@ii\pic@coor}
+%
+\def\psDefPSPNodes@ii(#1)(#2)(#3){%
+% \pnode(#1){PSPN@temp}\pnode([nodesep=.75,angle=45]PSPN@temp){\PSTPSPNk@blName}
+% \pnode(#3){PSPN@temp}\pnode([nodesep=.75,angle=-135]PSPN@temp){\PSTPSPNk@trName}
+ \pnode(#1){PSPN@temp}\pnode([angle=45]PSPN@temp){\PSTPSPNk@blName}
+ \pnode(#3){PSPN@temp}\pnode([angle=-135]PSPN@temp){\PSTPSPNk@trName}
+ \pnode(\PSTPSPNk@blName|\PSTPSPNk@trName){\PSTPSPNk@tlName}
+ \pnode(\PSTPSPNk@trName|\PSTPSPNk@blName){\PSTPSPNk@brName}
+ \ncline[linestyle=none]{\PSTPSPNk@blName}{\PSTPSPNk@tlName}
+ \ncput[npos=.5]{\pnode{\PSTPSPNk@clName}}
+ \ncline[linestyle=none]{\PSTPSPNk@blName}{\PSTPSPNk@brName}
+ \ncput[npos=.5]{\pnode{\PSTPSPNk@bcName}}
+ \pnode(\PSTPSPNk@brName|\PSTPSPNk@clName){\PSTPSPNk@crName}
+ \pnode(\PSTPSPNk@bcName|\PSTPSPNk@trName){\PSTPSPNk@tcName}
+ \pnode(\PSTPSPNk@bcName|\PSTPSPNk@clName){\PSTPSPNk@ccName}
+ \endgroup
+ \ignorespaces}
+%
%
\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}}}}}}%