diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks/pst-node.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pstricks/pst-node.tex | 141 |
1 files changed, 72 insertions, 69 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-node.tex b/Master/texmf-dist/tex/generic/pstricks/pst-node.tex index 36d61daba0e..ab6a512ef1b 100644 --- a/Master/texmf-dist/tex/generic/pstricks/pst-node.tex +++ b/Master/texmf-dist/tex/generic/pstricks/pst-node.tex @@ -4,11 +4,11 @@ %% See the betadoc documentation for usage. %% This uses the header file `pst-node.pro'. %% -\def\fileversion{1.00} -\def\filedate{2007/10/16} +\def\fileversion{1.01} +\def\filedate{2008/11/26} %% %% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu. -%% COPYRIGHT by Herbert Voss, hvoss@tug.org. +%% COPYRIGHT 2009- 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 @@ -301,29 +301,31 @@ exch \ifnodealign\lower\pst@dimb\fi \box\pst@hbox \endgroup} +% \def\dotnode{\pst@object{dotnode}} \def\dotnode@i{\@ifnextchar({\dotnode@ii}{\dotnode@ii(\z@,\z@)}} \def\dotnode@ii(#1)#2{% -\leavevmode -\hbox{% -\use@par -\pst@@getcoor{#1}% -\pst@getdotsize -\pstree@nodehook -\ifnodealign -\pst@dima=\pst@dimg -\kern\pst@dima -\vrule width\z@ height \pst@dimh depth \pst@dimh -\fi -\pst@newnode{#2}{14}{}{% -\pst@coor -/Y ED /X ED -/w \pst@number\pst@dimg def -/h \pst@number\pst@dimh def -/NodePos { \tx@OvalNodePos } def}% -\psdot@ii(#1)% -\ifnodealign\kern\pst@dima\fi}% -\ignorespaces} + \leavevmode% + \hbox{% + \use@par% + \pst@@getcoor{#1}% + \pst@getdotsize% + \pstree@nodehook% + \ifnodealign% + \pst@dima=\pst@dimg% + \kern\pst@dima% + \vrule width\z@ height \pst@dimh depth \pst@dimh% + \fi% + \pst@newnode{#2}{14}{}{ + \pst@coor + /Y ED /X ED + /w \pst@number\pst@dimg def + /h \pst@number\pst@dimh def + /NodePos { \tx@OvalNodePos } def}% + \psdot@ii(#1)% + \ifnodealign\kern\pst@dima\fi}% + \ignorespaces} +% \def\psset@framesize#1{\pst@expandafter\psset@@framesize{#1} \@nil} \def\psset@@framesize#1 #2\@nil{% \pssetlength\pst@dimg{#1}% @@ -336,46 +338,47 @@ exch \divide\pst@dimg2 \edef\psk@frameheight{\pst@number\pst@dimg}% \fi} +% \psset@framesize{10pt} +% \def\fnode{\pst@object{fnode}} \def\fnode@i{\@ifnextchar({\fnode@ii}{\fnode@ii(\z@,\z@)}} \def\fnode@ii(#1)#2{% -\leavevmode -\pst@killglue -\hbox{% -\use@par -\begin@ClosedObj -\ifnodealign -\kern\psk@framewidth\p@ -\vrule width\z@ height \psk@frameheight\p@ depth \psk@frameheight\p@ -\edef\pst@coor{0 0 }% -\else -\pst@@getcoor{#1}% -\fi -\pst@newnode{#2}{14}{}{% -\pst@coor -/Y ED /X ED -/d \psk@dimen .5 sub CLW mul neg def -/r \psk@framewidth d add def -/l r neg def -/u \psk@frameheight d add def -/d u neg def -/NodePos { \tx@GetRnodePos } def}% -\addto@pscode{% -/x2 \psk@framewidth CLW \psk@dimen mul sub def -/y2 \psk@frameheight CLW \psk@dimen mul sub def -\pst@coor 2 copy -y2 sub /y1 ED -x2 sub /x1 ED -y2 add /y2 ED -x2 add /x2 ED -\psk@cornersize -1 index 0 eq { pop pop \tx@Rect } { \tx@OvalFrame } ifelse}% -\def\pst@linetype{2}% -\showpointsfalse -\end@ClosedObj -\ifnodealign\kern\psk@framewidth\p@\fi}% -\ignorespaces} + \leavevmode + \pst@killglue + \hbox{% + \use@par% + \begin@ClosedObj% + \ifnodealign + \kern\psk@framewidth\p@ + \vrule width\z@ height \psk@frameheight\p@ depth \psk@frameheight\p@ + \edef\pst@coor{0 0 }% + \else\pst@@getcoor{#1}\fi + \pst@newnode{#2}{14}{}{ + \pst@coor + /Y ED /X ED + /d \psk@dimen .5 sub CLW mul neg def + /r \psk@framewidth d add def + /l r neg def + /u \psk@frameheight d add def + /d u neg def + /NodePos { \tx@GetRnodePos } def}% + \addto@pscode{ + /x2 \psk@framewidth CLW \psk@dimen mul sub def + /y2 \psk@frameheight CLW \psk@dimen mul sub def + \pst@coor 2 copy + y2 sub /y1 ED + x2 sub /x1 ED + y2 add /y2 ED + x2 add /x2 ED + \psk@cornersize + 1 index 0 eq { pop pop \tx@Rect } { \tx@OvalFrame } ifelse}% + \def\pst@linetype{2}% + \showpointsfalse% + \end@ClosedObj% + \ifnodealign\kern\psk@framewidth\p@\fi}% end of \hbox + \ignorespaces} +% \def\psset@nodesepA#1{% \pst@getlength{#1}\psk@nodesepA \def\psk@nodeseptypeA{0 }} @@ -704,24 +707,24 @@ tx@Dict begin \psline@iii pop end \def\ncput{\pst@object{ncput}} \def\ncput@i{\pst@killglue\pst@makebox{\ncput@ii}} \def\ncput@ii{% - \begingroup - \use@par - \if@star\pst@starbox\fi - \pst@makesmall\pst@hbox - \pst@rotate\psk@nrot\pst@hbox - \ncput@iii - \endgroup + \begingroup% + \use@par% + \if@star\pst@starbox\fi% + \pst@makesmall\pst@hbox% + \pst@rotate\psk@nrot\pst@hbox% + \ncput@iii% + \endgroup% \pst@shortput} \def\ncput@iii{% - \leavevmode + \leavevmode% \hbox{% - \pst@Verb{% + \pst@Verb{ \pst@nodedict /t \psk@npos def \tx@LPut end \tx@PutBegin}% - \box\pst@hbox + \box\pst@hbox% \pst@Verb{\tx@PutEnd}}} \def\naput{\pst@object{naput}} \def\naput@i{\pst@killglue\pst@makebox{\naput@ii{NAngle 90 add}}} |