texlive[43015] Master/texmf-dist: pst-node (22jan17)

commits+karl at tug.org commits+karl at tug.org
Sun Jan 22 23:33:54 CET 2017


Revision: 43015
          http://tug.org/svn/texlive?view=revision&revision=43015
Author:   karl
Date:     2017-01-22 23:33:54 +0100 (Sun, 22 Jan 2017)
Log Message:
-----------
pst-node (22jan17)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/generic/pst-node/Changes
    trunk/Master/texmf-dist/doc/generic/pst-node/pst-node-doc.pdf
    trunk/Master/texmf-dist/doc/generic/pst-node/pst-node-doc.tex
    trunk/Master/texmf-dist/dvips/pst-node/pst-node.pro
    trunk/Master/texmf-dist/dvips/pst-node/pst-node97.pro
    trunk/Master/texmf-dist/tex/generic/pst-node/pst-node.tex
    trunk/Master/texmf-dist/tex/generic/pst-node/pst-node97.tex

Removed Paths:
-------------
    trunk/Master/texmf-dist/doc/generic/pst-node/psmatrix-docDE.pdf

Modified: trunk/Master/texmf-dist/doc/generic/pst-node/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-node/Changes	2017-01-22 01:05:40 UTC (rev 43014)
+++ trunk/Master/texmf-dist/doc/generic/pst-node/Changes	2017-01-22 22:33:54 UTC (rev 43015)
@@ -1,4 +1,7 @@
 ----- pst-node.tex
+1.39  2017-01-20 - fix for \Circlenode with +/+\dp\hbox
+1.38  2016-05-27 - revert fix for \Cnodeput. Problem was in pstricks.tex
+1.37  2016-05-26 - fixed bug with \Cnodeput 
 1.36  2016-04-24 - moved node definitions from pstricks-add 
 1.35  2014-08-04 - added \saveDataAsNodes{Filename}{NodePrefix}
 1.34  2014-06-17 - fix bug for showNodes 

Deleted: trunk/Master/texmf-dist/doc/generic/pst-node/psmatrix-docDE.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/generic/pst-node/pst-node-doc.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/generic/pst-node/pst-node-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-node/pst-node-doc.tex	2017-01-22 01:05:40 UTC (rev 43014)
+++ trunk/Master/texmf-dist/doc/generic/pst-node/pst-node-doc.tex	2017-01-22 22:33:54 UTC (rev 43015)
@@ -1,13 +1,13 @@
-%% $Id: pst-node-doc.tex 66 2014-08-04 19:10:10Z herbert $
+%% $Id: pst-node-doc.tex 295 2016-05-02 19:11:36Z herbert $
 \documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings
     headexclude,footexclude,oneside]{pst-doc}
 \listfiles
 
+\input{pst-node}
+\let\pstFV\fileversion
+
 \usepackage[utf8]{inputenc}
 \usepackage{pst-plot}
-\usepackage{pst-node}
-%\usepackage{pax}
-\let\pstFV\fileversion
 \let\belowcaptionskip\abovecaptionskip
 %
 \newcommand\xstrut{\vphantom{\tabular{c}Üg\\Üg\endtabular}}
@@ -16,7 +16,7 @@
 \def\bgImage{%
 \psscalebox{0.85}{%
 \begin{pspicture}(-1,-1)(21,7)
-\psset{framearc=0.2,shadow=true,fillstyle=solid,shadowcolor=black!55}
+\psset{framearc=0.2,shadow,fillstyle=solid,shadowcolor=black!55}
 \psBox[blue!30]{7,6}{politische\\Kommunikation}
 \psBox[red!30]{3,4}{interpersonale\\Kommunikation} 
 	\psBox[red!30]{13,4}{massenmediale\\Kommunikation} 
@@ -39,7 +39,7 @@
 \newbox\filebox
 \setbox\filebox=\hbox{%
   \pspicture(-1,-.5)(1,.7)
-  \pspolygon[linearc=2pt,shadow=true,shadowangle=45,xunit=1.1]%
+  \pspolygon[linearc=2pt,shadow,shadowangle=45,xunit=1.1]%
     (-1,-.55)(-1,.5)(-.8,.5)(-.8,.65)(-.2,.65)(-.2,.5)(1,.5)(1,-.55)
    \endpspicture}
 
@@ -406,7 +406,7 @@
 top center, top right) of the \Lenv{pspicture} box.
 
 \begin{LTXexample}[width=6cm,wide=false]
-\begin{pspicture}[showgrid=true](-1,-1)(4,4)
+\begin{pspicture}[showgrid](-1,-1)(4,4)
   \psDefPSPNodes
   \psdots(PSPbl)(PSPbc)(PSPbr)
       (PSPcl)(PSPcc)(PSPcr)(PSPtl)(PSPtc)(PSPtr)
@@ -1349,7 +1349,7 @@
  \psset{arrows=->,nodesep=3pt}
  \everypsbox{\scriptstyle}
  \ncline{1,1}{2,2}_{y}
- \ncline[doubleline=true,linestyle=dashed]{-}{1,1}{2,3}^{x}
+ \ncline[doubleline,linestyle=dashed]{-}{1,1}{2,3}^{x}
  \ncline{2,2}{3,2}<{q}
  \ncline{2,2}{2,3}_{p}
  \ncline{2,3}{3,3}>{f}
@@ -1683,7 +1683,7 @@
 using the macro \Lcs{psGetNodeCenter}.
 
 \begin{LTXexample}[width=5cm]
-\begin{pspicture}[showgrid=true,arrowscale=2](5,5)
+\begin{pspicture}[showgrid,arrowscale=2](5,5)
 \pnode(4.5,0.5){MyNode}
 \psdot(MyNode)
 \pnode(! \psGetNodeCenter{MyNode}
@@ -1694,7 +1694,7 @@
 \end{LTXexample}
 
 \begin{LTXexample}[width=5cm]
-\begin{pspicture}[showgrid=true](5,5)
+\begin{pspicture}[showgrid](5,5)
 \rput(1.5,0.5){\trinode{CN}{NodeA}}
 \rput(3.5,2.5){\trinode{EN}{NodeB}}
 \pnode(! \psGetNodeCenter{CN}
@@ -1705,7 +1705,7 @@
 \end{LTXexample}
 
 
-The coordinates of the nodes can also be saved with \Lkeyset{saveNodeCoors=true} in global defined names
+The coordinates of the nodes can also be saved with \Lkeyword{saveNodeCoors} in global defined names
 \texttt{N-<name>.x} and \texttt{N-<name>.y}. With the optional argument \Lkeyword{NodeCoorPrefix}, which is
 by default empty, the name setting can be changed to \texttt{<NodeCoorPrefix><name>x} and \texttt{<NodeCoorPrefix><name>y}.
 
@@ -2009,7 +2009,7 @@
 
 
 \begin{LTXexample}[width=5cm]
-\begin{pspicture}[showgrid=true](5,3)
+\begin{pspicture}[showgrid](5,3)
 \psset{linecolor=black}
 \psline[linestyle=dashed]{->}(3,1.5)
 \psline[linestyle=dashed]{->}(0.375,1.5)
@@ -2151,7 +2151,7 @@
  and \Lcs{midAB}\verb|(Q)(P){Q}|.
 
 \begin{LTXexample}[width=.35\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(2.5,2.5)
+\begin{pspicture}[showgrid](-.5,-.5)(2.5,2.5)
 \psset{arrows=->,arrowscale=1.5}
 \pnode(2,1){P}\pnode(.5,1){Q}
 \AtoB(Q)(P){QP}
@@ -2191,7 +2191,7 @@
  The expression in \texttt{t} in this case is algebraic, which is detected automatically by the macro.
 
 \begin{LTXexample}[width=.35\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(2.5,2)
+\begin{pspicture}[showgrid](-.5,-.5)(2.5,2)
 \def\exn{cos(t) | sin(t)}
 \psparametricplot[algebraic]{0}{2}{\exn}
 \curvepnode{1}{\exn}{P}
@@ -2226,7 +2226,7 @@
  \verb|<tmin>, <tmax>| may be expressed using PostScript---eg, \verb|{Pi neg}{PiDiv2}|.
  
 \begin{LTXexample}[width=.35\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(2.5,3)
+\begin{pspicture}[showgrid](-.5,-.5)(2.5,3)
 \def\exn{t+t^2 | 2*Ex(-t)}
 \psset{plotpoints=100}
 \psparametricplot[algebraic]{0}{1}{\exn}
@@ -2256,7 +2256,7 @@
  \Lcs{fnpnode}\verb|[algebraic]{0.5}{x*(x+1)/2}{P}|. 
  
 \begin{LTXexample}[width=.35\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(2.5,3)
+\begin{pspicture}[showgrid](-.5,-.5)(2.5,3)
 \def\exn{x x 1 add mul 2 div}
 \psplot{0}{2}{\exn}
 \fnpnode{0.5}{\exn}{Q}
@@ -2274,7 +2274,7 @@
 must be specified if your expression is indeed algebraic.
 
 \begin{LTXexample}[width=.35\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(2.5,3)
+\begin{pspicture}[showgrid](-.5,-.5)(2.5,3)
 \def\exn{x x 1 add mul 2 div}
 \psplot{0}{2}{\exn}
 \fnpnodes[plotpoints=10]{0}{2}{\exn}{A}
@@ -2314,7 +2314,7 @@
 
 
 \begin{LTXexample}[width=.35\textwidth]
-\begin{pspicture}[showgrid=true,algebraic](-.5,-.5)(2.5,2)
+\begin{pspicture}[showgrid,algebraic](-.5,-.5)(2.5,2)
 \pnodes{P}(.1,.1)(1;10)(*2 {x^2/4})(0,1.4)
 %defines P0..P3--now join them
 \psnline[arrowscale=2]{-D>}(0,3){P}
@@ -2331,7 +2331,7 @@
 \end{verbatim}
 
 \begin{LTXexample}[width=.35\textwidth]
-\begin{pspicture}[showgrid=true,algebraic](-.5,-.5)(2.5,2)
+\begin{pspicture}[showgrid,algebraic](-.5,-.5)(2.5,2)
 \pnodes{P}(.1,.1)(1;10)(*2 {x^2/4})(0,1.4)
 %defines P0..P3--now join them
 \psncurve[arrowscale=2]{-D>}(0,3){P}
@@ -2340,7 +2340,7 @@
 \vspace{2pc}
 
 \begin{LTXexample}[width=.35\textwidth]
-\begin{pspicture}[showgrid=true,algebraic](-.5,-.5)(2.5,2)
+\begin{pspicture}[showgrid,algebraic](-.5,-.5)(2.5,2)
 \pnodes{P}(.1,.1)(1;10)(*2 {x^2/4})(0,1.4)
 %defines P0..P3--now join them
 \psnccurve[arrowscale=2]{-D>}(0,3){P}
@@ -2361,10 +2361,14 @@
 \begin{verbatim}
 \psLCNodeVar(A)(B)(a,b){C}
 \end{verbatim}
+
+\begin{sloppypar}
 does the same, but the third argument \verb|(a,b)| may be specified in any form acceptable 
 to \Lcs{SpecialCoor}. (With \Lcs{psLCNode}, each coefficient may be specified in PostScript code.) 
 One other difference is that \Lcs{psLCNodeVar} allows the reuse of a node name in place. For example, 
 it is possible to write
+\end{sloppypar}
+
 \begin{verbatim}
 \psLCNodeVar(A)(B)(2,3){A}% symbol A reassigned
 \end{verbatim}
@@ -2382,14 +2386,17 @@
  \begin{verbatim}
 \psRelNode[angle=30](A)(B){2}{C}
 \end{verbatim}
- but the third argument (2;30) may be specified in any form acceptable to \Lcs{SpecialCoor}, 
- while specifying the angle argument in \Lcs{psRelNode} using PostScript is not possible. 
- Note that  \Lcs{psRelNodeVar}\verb|(0,0)(A)(B){C}|  may be interpreted as defining \texttt{C} to 
- be the complex product of \texttt{A} and \texttt{B}. 
 
+\begin{sloppypar}
+but the third argument (2;30) may be specified in any form acceptable to \Lcs{SpecialCoor}, 
+while specifying the angle argument in \Lcs{psRelNode} using PostScript is not possible. 
+Note that  \Lcs{psRelNodeVar}\verb|(0,0)(A)(B){C}|  may be interpreted as defining \texttt{C} to 
+be the complex product of \texttt{A} and \texttt{B}. 
+\end{sloppypar}
 
+
 \begin{LTXexample}[width=5cm]
-\begin{pspicture}[showgrid=true](-.5,-.5)(3.5,3)
+\begin{pspicture}[showgrid](-.5,-.5)(3.5,3)
 \pnode(0,.5){P}\pnode(1.5,.75){Q}
 \psRelNodeVar(P)(Q)(2;20){R}
 \psline(Q)(P)\uput[-45](P){P}
@@ -2403,7 +2410,8 @@
 \begin{BDef}
 \Lcs{psRelLineVar}\Largr{node A}\Largr{node B}\Largr{radius;angle}\Largb{node name}
 \end{BDef}
- stands to \Lcs{psRelLine} as \Lcs{psRelNodeVar} stands relative to \Lcs{psRelNode}. 
+
+stands to \Lcs{psRelLine} as \Lcs{psRelNodeVar} stands relative to \Lcs{psRelNode}. 
  
 \Lcs{psRelLine}\verb|Var(A)(B)(a;b){C}| defines the node \texttt{C}, and, in addition, draws the line segment \texttt{AC}. 
 
@@ -2423,7 +2431,7 @@
 
 
 \begin{LTXexample}[width=.35\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(3.5,3)
+\begin{pspicture}[showgrid](-.5,-.5)(3.5,3)
 \pnode(0,.5){P}\pnode(1,1){Q}
 \psrline{->}(P)(Q)(2;20)
 \uput[-45](P){P}
@@ -2437,7 +2445,7 @@
 line from \verb|<basept>+<nodexpr1>| to \verb|<basept>+<nodexpr2>|.
 
 \begin{LTXexample}[width=.35\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(3.5,4)
+\begin{pspicture}[showgrid](-.5,-.5)(3.5,4)
 \def\pfn{t | t^2/4}
 \psparametricplot[algebraic]{0}{3.5}{\pfn}
 \curvepnode{2}{\pfn}{P}% sets P, Ptang
@@ -2490,7 +2498,7 @@
 
 
 \begin{LTXexample}[width=.375\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(3.5,3)
+\begin{pspicture}[showgrid](-.5,-.5)(3.5,3)
 \pnodes{P}(0,.5)(3,.5)(2.5,2)(.5,2.5)(0,.5)
 \pnode(1,1.1){A}\pnode(2,1.5){B}
 \polyIntersections{N1}{N2}(A)(B){P}{4}
@@ -2502,7 +2510,7 @@
 \end{LTXexample}
 
 \begin{LTXexample}[width=.375\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(3.5,3)
+\begin{pspicture}[showgrid](-.5,-.5)(3.5,3)
 \pnodes{P}(0,.5)(3,.5)(2.5,2)(.5,2.5)(0,.5)
 \pnode(1,1.1){A}\pnode(2,3){B}
 \polyIntersections{N1}{N2}(A)(B){P}{4}
@@ -2514,7 +2522,7 @@
 \end{LTXexample}
 
 \begin{LTXexample}[width=.375\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(3.5,3)
+\begin{pspicture}[showgrid](-.5,-.5)(3.5,3)
 \def\fn{1.5+sin(t)+.4*sin(2*t)%
  | 1+cos(t)+.2*cos(2*t)+.2*sin(4*t)}%
 \pnode(1,1.1){A}\pnode(2,1.2){B}
@@ -2532,7 +2540,7 @@
 
 
 \begin{LTXexample}[width=.375\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(3.5,3)
+\begin{pspicture}[showgrid](-.5,-.5)(3.5,3)
 \def\fn{1.5+sin(t)+.4*sin(2*t)%
  | 1+cos(t)+.2*cos(2*t)+.2*sin(4*t)}%
 \pnode(.8,.6){A}\pnode(2.5,-.5){B}
@@ -2549,7 +2557,7 @@
 
 
 \begin{LTXexample}[width=.375\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(3.5,3)
+\begin{pspicture}[showgrid](-.5,-.5)(3.5,3)
 \pnodes{P}(0,.5)(3,.5)(2.5,2)(.5,2.5)(0,.5)
 \pnode(1,1.1){A}\pnode(2,1.5){B}
 \polyIntersections{N1}{N2}(A)(B){P}{3}
@@ -2564,7 +2572,7 @@
 \vspace{1pc}
 
 \begin{LTXexample}[width=.375\textwidth]
-\begin{pspicture}[showgrid=true](-.5,-.5)(3.5,3)
+\begin{pspicture}[showgrid](-.5,-.5)(3.5,3)
 \def\func{x+sin(2*x)}
 \psplot[algebraic]{0}{3.14}{\func}
 \fnpnodes[algebraic]{0}{3.14}{\func}{P}

Modified: trunk/Master/texmf-dist/dvips/pst-node/pst-node.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pst-node/pst-node.pro	2017-01-22 01:05:40 UTC (rev 43014)
+++ trunk/Master/texmf-dist/dvips/pst-node/pst-node.pro	2017-01-22 22:33:54 UTC (rev 43015)
@@ -7,7 +7,7 @@
 %% of the LaTeX Project Public License Distributed from CTAN archives
 %% in directory macros/latex/base/lppl.txt.
 %
-%%%%  EMPTY lines are not aload!!! Problem with pst-eps -> \par
+%%%%  EMPTY lines are not alowed!!! Problem with pst-eps -> \par
 %
 %
 tx at Dict begin 			% from main pstricks dict

Modified: trunk/Master/texmf-dist/dvips/pst-node/pst-node97.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pst-node/pst-node97.pro	2017-01-22 01:05:40 UTC (rev 43014)
+++ trunk/Master/texmf-dist/dvips/pst-node/pst-node97.pro	2017-01-22 22:33:54 UTC (rev 43015)
@@ -1,4 +1,5 @@
 %!
+% $Id: pst-node97.pro 68 2014-08-07 10:16:26Z herbert $
 % PostScript prologue for pst-node.tex.
 % Created 1993/3/12. Source file was pst-node.doc
 % Version 0.93a, 93/03/12.

Modified: trunk/Master/texmf-dist/tex/generic/pst-node/pst-node.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-node/pst-node.tex	2017-01-22 01:05:40 UTC (rev 43014)
+++ trunk/Master/texmf-dist/tex/generic/pst-node/pst-node.tex	2017-01-22 22:33:54 UTC (rev 43015)
@@ -1,4 +1,4 @@
-% $Id: pst-node.tex 68 2014-08-07 10:16:26Z herbert $
+% $Id: pst-node.tex 373 2017-01-20 14:30:39Z herbert $
 %%
 %% BEGIN 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.36}
-\def\filedate{2016/04/24}
+\def\fileversion{1.39}
+\def\filedate{2017/01/20}
 \message{ v\fileversion, \filedate}
 %
 \edef\TheAtCode{\the\catcode`\@}
@@ -148,8 +148,8 @@
 
 \def\pst at nodealign{%
 \pst at dimg=\ht\pst at hbox
-\advance\pst at dimg-\dp\pst at hbox
-\divide\pst at dimg2
+\advance\pst at dimg by -\dp\pst at hbox
+\divide\pst at dimg by \tw@
 \lower\pst at dimg}
 %
 \def\tx at InitPnode{InitPnode }
@@ -195,10 +195,7 @@
     \fi
     \pscircle at do(#1){#2}%
     \pst at newnode{#3}{11}{\pst at coor \pst at number\pst at dimc}{\tx at InitCnode}%
-%%    % DG/SR modification begin - Jul. 30, 1997 - Patch 2
-%%    %\ifPst at nodealign \kern\pst at dimc\egroup \fi}%
     \ifPst at nodealign\kern\pst at dimc\fi%
-%%    % DG/SR modification end
   }%
   \ignorespaces}
 %
@@ -210,32 +207,36 @@
 \def\cnodeput at i{\@ifnextchar({\cnodeput at iii}{\cnodeput at ii}}
 \def\cnodeput at ii#1{%
   \addto at par{rot={#1}}%
-  \@ifnextchar({\cnodeput at iii}{\cnodeput at iii(\z@,\z@)}}
+  \@ifnextchar({\cnodeput at iii}{\cnodeput at iii(\z@,\z@)}%
+}
 \def\cnodeput at iii(#1)#2{%
   \pst at killglue
   \@fixedradiusfalse
   \def\pst at nodehook{\cnodeput at iv{#2}}%
-  \pst at makebox{\cput at v{#1}}}
+  \pst at makebox{\cput at v{#1}}%
+}
 \def\cnodeput at iv#1{%
   \pst at newnode{#1}{11}{\pscirclebox at iv \pst at number\pslinewidth add}{\tx at InitCnode}%
-  \global\let\pst at nodehook\relax}
-%  
+  \global\let\pst at nodehook\relax
+  \ignorespaces
+}
 \def\Cnodeput{\pst at object{Cnodeput}}
 \def\Cnodeput at i{\@ifnextchar({\Cnodeput at iii}{\Cnodeput at ii}}
 \def\Cnodeput at ii#1{%
-\addto at par{rot={#1}}%
-\@ifnextchar({\Cnodeput at iii}{\Cnodeput at iii(\z@,\z@)}}
+  \addto at par{rot={#1}}%
+  \@ifnextchar({\Cnodeput at iii}{\Cnodeput at iii(\z@,\z@)}}
 \def\Cnodeput at iii(#1)#2{%
-\pst at killglue
-\@fixedradiustrue
-\def\pst at nodehook{\Cnodeput at iv{#2}}%
-\pst at makebox{\cput at v{#1}}}
+  \pst at killglue
+  \@fixedradiustrue
+  \def\pst at nodehook{\Cnodeput at iv{#2}}%
+  \pst at makebox{\cput at v{#1}}%
+}
 \def\Cnodeput at iv#1{%
-\pst at newnode{#1}{11}{%
-\pst at number{\wd\pst at hbox} 2 div \pst at number\pst at dima % x y
-\pst at number\pst at dimb \pst at number\pslinewidth \psk at dimen .5 sub mul sub }% r
-{\tx at InitCnode}%
-\global\let\pst at nodehook\relax}
+  \pst at newnode{#1}{11}{%
+    \pst at number{\wd\pst at hbox} 2 div \pst at number\pst at dima % x y
+    \pst at number\pst at dimb \pst at number\pslinewidth \psk at dimen .5 sub mul sub }% r
+       {\tx at InitCnode}%
+  \global\let\pst at nodehook\relax}
 %
 \def\circlenode{\pst at object{circlenode}}
 \def\circlenode at i#1{\pst at makebox{\circlenode at ii{#1}}}
@@ -257,21 +258,21 @@
 \def\Circlenode at i#1{\pst at makebox{\Circlenode at ii{#1}}}
 \def\Circlenode at ii#1{%
 \begingroup
-\pst at useboxpar
-\pst at dima=\ht\pst at hbox
-\advance\pst at dima\dp\pst at hbox
-\divide\pst at dima\tw@
-\pssetlength\pst at dimb\psk at radius
-\setbox\pst at hbox=\hbox{%
-\Cnodeput at iv{#1}%
-\pscircle(.5\wd\pst at hbox,\pst at dima){\pst at dimb}%
-\box\pst at hbox}%
-\ifPst at nodealign \psboxseptrue \fi
-\ifpsboxsep \psCirclebox at sep \fi
-\leavevmode
-\ifPst at nodealign\pst at nodealign\fi
-\box\pst at hbox
-\endgroup}
+  \pst at useboxpar
+  \pst at dima=\ht\pst at hbox
+  \advance\pst at dima by -\dp\pst at hbox
+  \divide\pst at dima by \tw@
+  \pssetlength\pst at dimb\psk at radius
+  \setbox\pst at hbox=\hbox{%
+  \Cnodeput at iv{#1}%
+  \pscircle(.5\wd\pst at hbox,\pst at dima){\pst at dimb}%
+  \box\pst at hbox}%
+  \ifPst at nodealign \psboxseptrue \fi
+  \ifpsboxsep \psCirclebox at sep \fi
+  \leavevmode
+  \ifPst at nodealign\pst at nodealign\fi
+  \box\pst at hbox
+  \endgroup}
 \def\tx at GetRnodePos{GetRnodePos }
 \def\tx at InitRnode{InitRnode }
 %

Modified: trunk/Master/texmf-dist/tex/generic/pst-node/pst-node97.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-node/pst-node97.tex	2017-01-22 01:05:40 UTC (rev 43014)
+++ trunk/Master/texmf-dist/tex/generic/pst-node/pst-node97.tex	2017-01-22 22:33:54 UTC (rev 43015)
@@ -1,3 +1,4 @@
+% $Id: pst-node97.tex 129 2014-10-09 14:15:40Z herbert $
 %% BEGIN: pst-node.tex
 %% Generated on <1993/3/12> from `pst-node.doc'.
 %% For use with the PostScript header file `pst-node.pro'.
@@ -27,11 +28,11 @@
 \csname PSTnodesLoaded\endcsname
 \let\PSTnodesLoaded\endinput
 \ifx\PSTricksLoaded\endinput\else
-\def\next{\input pstricks.tex}\expandafter\next
+\def\next{\input pstricks97.tex}\expandafter\next
 \fi
 \edef\TheAtCode{\the\catcode`\@}
 \catcode`\@=11
-\pstheader{pst-node.pro}
+\pstheader{pst-node97.pro}
 \def\pst at nodedict{tx at NodeDict begin }
 \def\pst at getnode#1#2{%
 \pst at expandafter\pst@@getnode{#1} * \@nil{#1}#2}



More information about the tex-live-commits mailing list