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 | 1154 |
1 files changed, 0 insertions, 1154 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-node.tex b/Master/texmf-dist/tex/generic/pstricks/pst-node.tex deleted file mode 100644 index ab6a512ef1b..00000000000 --- a/Master/texmf-dist/tex/generic/pstricks/pst-node.tex +++ /dev/null @@ -1,1154 +0,0 @@ -%% BEGIN pst-node.tex -%% -%% Nodes with PSTricks 97. -%% See the betadoc documentation for usage. -%% This uses the header file `pst-node.pro'. -%% -\def\fileversion{1.01} -\def\filedate{2008/11/26} -%% -%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu. -%% 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 -%% archives in directory macros/latex/base/lppl.txt. -%% -\message{ v\fileversion, \filedate} -\csname PSTnodesLoaded\endcsname -\let\PSTnodesLoaded\endinput -\ifx\PSTricksLoaded\endinput\else\input pstricks.tex \fi\relax -\edef\TheAtCode{\the\catcode`\@} -\catcode`\@=11 -% -\pstheader{pst-node.pro} -% -\def\pst@nodedict{tx@NodeDict begin } -\def\pst@zapspace#1 #2{% -#1% -\ifx#2\@empty\else\expandafter\pst@zapspace\fi -#2} -% -\def\pst@getnode#1#2{\pst@expandafter\pst@@getnode{#1},,\@nil#2} -\def\pst@@getnode#1,#2,#3\@nil#4{% - \ifx\@empty#3\@empty - \edef#4{/N@\pst@zapspace#1 \@empty\space}% - \else - \pst@cntg=#1\relax - \pst@cnth=#2\relax - \edef#4{/N@M-\ifnum\psmatrixcnt=\z@ 1\else\the\psmatrixcnt\fi - -\the\pst@cntg-\the\pst@cnth\space}% - \fi} -% -\def\tx@NewNode{NewNode } -\def\pst@newnode#1#2#3#4{% -% DG/SR modification begin - Nov. 9, 2000 - Patch 11 -\pst@killglue -% DG/SR modification end -\leavevmode -\pst@getnode{#1}\pst@thenode -\pst@Verb{% - \pst@nodedict - {#3} - \ifx\psk@name\relax false \else \psk@name true \fi - \pst@thenode - #2 - {#4} - \tx@NewNode - end }% -% -\global\let\psk@name\relax -\pstree@nodehook -\global\let\pstree@nodehook\relax} -\let\pstree@nodehook\relax -\newif\ifnodealign -\def\psset@nodealign#1{\@nameuse{nodealign#1}} -\psset@nodealign{false} -\def\pst@nodealign{% -\pst@dimg=\ht\pst@hbox -\advance\pst@dimg-\dp\pst@hbox -\divide\pst@dimg2 -\lower\pst@dimg} -% -\def\tx@InitPnode{InitPnode } -\def\pnode{\@ifnextchar({\pnode@}{\pnode@(0,0)}} -\def\pnode@(#1)#2{% - \pst@@getcoor{#1}% - \pst@newnode{#2}{10}{\pst@coor}{\tx@InitPnode}% - \ignorespaces} -% -\def\tx@InitCnode{InitCnode } -\def\cnode{\pst@object{cnode}} -\def\cnode@i{\@ifnextchar({\cnode@ii}{\cnode@ii(0,0)}} -\def\cnode@ii(#1)#2#3{% - \leavevmode - \hbox{% - \use@par - \pst@@getcoor{#1}% - \pssetlength\pst@dimc{#2}% - \pst@dimg=\psk@dimen\pslinewidth - \advance\pst@dimc-\pst@dimg - \advance\pst@dimc.5\pslinewidth - \ifnodealign - \kern\pst@dimc - \vrule width\z@ height \pst@dimc depth \pst@dimc - \fi - \pscircle@do(#1){#2}% - \pst@newnode{#3}{11}{\pst@coor \pst@number\pst@dimc}{\tx@InitCnode}% -%% % DG/SR modification begin - Jul. 30, 1997 - Patch 2 -%% %\ifnodealign \kern\pst@dimc\egroup \fi}% - \ifnodealign\kern\pst@dimc\fi% -%% % DG/SR modification end - }% - \ignorespaces} -% -\def\Cnode{\pst@object{Cnode}} -\def\Cnode@i{\@ifnextchar({\Cnode@ii}{\Cnode@ii(0,0)}} -\def\Cnode@ii(#1)#2{\cnode@ii(#1){\psk@radius}{#2}}% -% -\def\cnodeput{\pst@object{cnodeput}} -\def\cnodeput@i{\@ifnextchar({\cnodeput@iii}{\cnodeput@ii}} -\def\cnodeput@ii#1{% - \addto@par{rot={#1}}% - \@ifnextchar({\cnodeput@iii}{\cnodeput@iii(\z@,\z@)}} -\def\cnodeput@iii(#1)#2{% - \pst@killglue - \@fixedradiusfalse - \def\pst@nodehook{\cnodeput@iv{#2}}% - \pst@makebox{\cput@v{#1}}} -\def\cnodeput@iv#1{% - \pst@newnode{#1}{11}{\pscirclebox@iv \pst@number\pslinewidth add}{\tx@InitCnode}% - \global\let\pst@nodehook\relax} -% -\def\Cnodeput{\pst@object{Cnodeput}} -\def\Cnodeput@i{\@ifnextchar({\Cnodeput@iii}{\Cnodeput@ii}} -\def\Cnodeput@ii#1{% -\addto@par{rot={#1}}% -\@ifnextchar({\Cnodeput@iii}{\Cnodeput@iii(\z@,\z@)}} -\def\Cnodeput@iii(#1)#2{% -\pst@killglue -\@fixedradiustrue -\def\pst@nodehook{\Cnodeput@iv{#2}}% -\pst@makebox{\cput@iv{#1}}} -\def\Cnodeput@iv#1{% -\pst@newnode{#1}{11}{% -\pst@number{\wd\pst@hbox} 2 div \pst@number\pst@dima % x y -\pst@number\pst@dimb \pst@number\pslinewidth \psk@dimen .5 sub mul sub }% r -{\tx@InitCnode}% -\global\let\pst@nodehook\relax} -\def\circlenode{\pst@object{circlenode}} -\def\circlenode@i#1{\pst@makebox{\circlenode@ii{#1}}} -\def\circlenode@ii#1{% - \begingroup - \pst@useboxpar - \setbox\pst@hbox=\hbox{% - \cnodeput@iv{#1}% - \pscirclebox@iii - \box\pst@hbox}% - \ifnodealign \psboxseptrue \fi - \ifpsboxsep \pscirclebox@sep \fi - \leavevmode - \ifnodealign\pst@nodealign\fi - \box\pst@hbox - \endgroup} -\def\Circlenode{\pst@object{Circlenode}} -\def\Circlenode@i#1{\pst@makebox{\Circlenode@ii{#1}}} -\def\Circlenode@ii#1{% -\begingroup -\pst@useboxpar -\pst@dima=\ht\pst@hbox -\advance\pst@dima\dp\pst@hbox -\divide\pst@dima\tw@ -\pssetlength\pst@dimb\psk@radius -\setbox\pst@hbox=\hbox{% -\Cnodeput@iv{#1}% -\pscircle(.5\wd\pst@hbox,\pst@dima){\pst@dimb}% -\box\pst@hbox}% -\ifnodealign \psboxseptrue \fi -\ifpsboxsep \psCirclebox@sep \fi -\leavevmode -\ifnodealign\pst@nodealign\fi -\box\pst@hbox -\endgroup} -\def\tx@GetRnodePos{GetRnodePos } -\def\tx@InitRnode{InitRnode } -\def\rnode{\@ifnextchar[{\rnode@i}{\def\pst@par{}\rnode@ii}} -\def\rnode@i[#1]{\def\pst@par{ref=#1}\rnode@ii} -\def\rnode@ii#1{\pst@makebox{\rnode@iii\rnode@iv{#1}}} -\def\rnode@iii#1#2{% -% DG modification begin - Jan. 1997 -\leavevmode -% DG modification end -\begingroup -% DG/SR modification begin - Apr. 28, 1998 - Patch 6 -\pst@useboxpar -% DG/SR modification end -#1% -\if@star\pst@starbox\fi -\ifnodealign\lower\pst@dimb\fi -\hbox{% -\pst@newnode{#2}{16}{% -\pst@number{\ht\pst@hbox}% -\pst@number{\dp\pst@hbox}% -\pst@number{\wd\pst@hbox}% -\pst@number\pst@dima -\pst@number\pst@dimb}% -{\tx@InitRnode}% -\box\pst@hbox}% -\endgroup} -\def\rnode@iv{% -\pst@dima=\psk@xref\wd\pst@hbox -\ifx\psk@yref\relax -\pst@dimb=\z@ -\else -\pst@dimb=\ht\pst@hbox -\advance\pst@dimb\dp\pst@hbox -\pst@dimb=\psk@yref\pst@dimb -\advance\pst@dimb-\dp\pst@hbox -\fi} -\def\psset@href#1{\pst@checknum{#1}\psk@href} -\psset@href{0} -\def\psset@vref#1{\def\psk@vref{#1}} -\psset@vref{.7ex} -\def\Rnode{\pst@object{Rnode}} -\def\Rnode@i#1{\pst@makebox{\rnode@iii\Rnode@ii{#1}}} -\def\Rnode@ii{% -% DG modification begin - Jan. 1997 -% - \begingroup removed as it seems to doesn't work any more -% - \Rnode doesn't process the optional parameter changes -%\begingroup -\use@par -% DG modification end -\pst@dima=\psk@href\wd\pst@hbox -\advance\pst@dima\wd\pst@hbox -\divide\pst@dima 2 -\pssetlength\pst@dimb{\psk@vref}} -\def\tx@DiaNodePos{DiaNodePos } -\def\dianode{\pst@object{dianode}} -\def\dianode@i#1{\pst@makebox{\dianode@ii{#1}}} -\def\dianode@ii#1{% -\begingroup -\pst@useboxpar -\psdiabox@iii -\setbox\pst@hbox=\hbox{% -\pst@newnode{#1}{14}{}{% -/X \pst@number\pst@dima def -/Y \pst@number\pst@dimb def -/w \pst@number\pst@dimc 2 mul def -/h \pst@number\pst@dimd 2 mul def -/NodePos { \tx@DiaNodePos } def}% -\box\pst@hbox}% -\ifnodealign\psboxseptrue\fi -\ifpsboxsep\psdiabox@sep\fi -% DG/SR modification begin - Sep. 2, 1997 - Patch 3 -\leavevmode -% DG/SR modification end -\ifnodealign\lower\pst@dimb\fi -\box\pst@hbox -\endgroup} -\def\tx@TriNodePos{TriNodePos } -\def\tx@InitTriNode{InitTriNode } -\def\trinode{\pst@object{trinode}} -\def\trinode@i#1{\pst@makebox{\trinode@ii{#1}}} -\def\trinode@ii#1{% -\begingroup -\pst@useboxpar -\pstribox@iii -\setbox\pst@hbox=\hbox{% -\pst@newnode{#1}{14}{}{% -\pst@number\pst@dimc -\pst@number\pst@dimd -\ifodd\psk@trimode -exch -\pst@number\pst@dima -\else -\pst@number\pst@dimb -\fi -\psk@trimode -\pst@number{\wd\pst@hbox}% -\pst@number{\ht\pst@hbox}% -\pst@number{\dp\pst@hbox}% -\tx@InitTriNode}% -\box\pst@hbox}% -\ifnodealign\psboxseptrue\fi -\ifpsboxsep\pstribox@sep\fi -% DG/SR modification begin - Sep. 2, 1997 - Patch 3 -\leavevmode -% DG/SR modification end -\ifnodealign\lower\pst@tempa\fi -\box\pst@hbox -\endgroup} -\def\tx@OvalNodePos{OvalNodePos } -\def\ovalnode{\pst@object{ovalnode}} -\def\ovalnode@i#1{\pst@makebox{\ovalnode@ii{#1}}} -\def\ovalnode@ii#1{% -\begingroup -\pst@useboxpar -\psovalbox@iii -\setbox\pst@hbox=\hbox{% -\pst@newnode{#1}{14}{}{% -/X \pst@number\pst@dima def -/Y \pst@number\pst@dimb def -/w \pst@number\pst@dimc def -/h \pst@number\pst@dimd def -/NodePos { \tx@OvalNodePos } def}% -\unhbox\pst@hbox}% -\ifnodealign\psboxseptrue\fi -\ifpsboxsep\psovalbox@sep\fi -% DG/SR modification begin - Sep. 2, 1997 - Patch 3 -\leavevmode -% DG/SR modification end -\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} -% -\def\psset@framesize#1{\pst@expandafter\psset@@framesize{#1} \@nil} -\def\psset@@framesize#1 #2\@nil{% -\pssetlength\pst@dimg{#1}% -\divide\pst@dimg2 -\edef\psk@framewidth{\pst@number\pst@dimg}% -\ifx\@empty#2\@empty -\let\psk@frameheight\psk@framewidth -\else -\pssetlength\pst@dimg{#2}% -\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}% end of \hbox - \ignorespaces} -% -\def\psset@nodesepA#1{% -\pst@getlength{#1}\psk@nodesepA -\def\psk@nodeseptypeA{0 }} -\def\psset@nodesepB#1{% -\pst@getlength{#1}\psk@nodesepB -\def\psk@nodeseptypeB{0 }} -\def\psset@nodesep#1{% -\pst@getlength{#1}\psk@nodesepA -\let\psk@nodesepB\psk@nodesepA -\def\psk@nodeseptypeA{0 }% -\def\psk@nodeseptypeB{0 }} -\psset@nodesep{0pt} -\def\psset@XnodesepA#1{% -\pst@getlength{#1}\psk@nodesepA -\def\psk@nodeseptypeA{1 }} -\def\psset@XnodesepB#1{% -\pst@getlength{#1}\psk@nodesepB -\def\psk@nodeseptypeB{1 }} -\def\psset@Xnodesep#1{% -\pst@getlength{#1}\psk@nodesepA -\let\psk@nodesepB\psk@nodesepA -\def\psk@nodeseptypeA{1 }% -\def\psk@nodeseptypeB{1 }} -\def\psset@YnodesepA#1{% -\pst@getlength{#1}\psk@nodesepA -\def\psk@nodeseptypeA{2 }} -\def\psset@YnodesepB#1{% -\pst@getlength{#1}\psk@nodesepB -\def\psk@nodeseptypeB{2 }} -\def\psset@Ynodesep#1{% -\pst@getlength{#1}\psk@nodesepA -\let\psk@nodesepB\psk@nodesepA -\def\psk@nodeseptypeA{2 }% -\def\psk@nodeseptypeB{2 }} -\def\psset@armA#1{% -\pst@getlength{#1}\psk@armA -\def\psk@armtypeA{0 }} -\def\psset@armB#1{% -\pst@getlength{#1}\psk@armB -\def\psk@armtypeB{0 }} -\def\psset@arm#1{% -\pst@getlength{#1}\psk@armA -\let\psk@armB\psk@armA -\def\psk@armtypeA{0 }% -\def\psk@armtypeB{0 }} -\psset@arm{10pt} -\def\psset@XarmA#1{% -\pst@getlength{#1}\psk@armA -\def\psk@armtypeA{1 }} -\def\psset@XarmB#1{% -\pst@getlength{#1}\psk@armB -\def\psk@armtypeB{1 }} -\def\psset@Xarm#1{% -\pst@getlength{#1}\psk@armA -\let\psk@armB\psk@armA -\def\psk@armtypeA{1 }% -\def\psk@armtypeB{1 }} -\def\psset@YarmA#1{% -\pst@getlength{#1}\psk@armA -\def\psk@armtypeA{2 }} -\def\psset@YarmB#1{% -\pst@getlength{#1}\psk@armB -\def\psk@armtypeB{2 }} -\def\psset@Yarm#1{% -\pst@getlength{#1}\psk@armA -\let\psk@armB\psk@armA -\def\psk@armtypeA{2 }% -\def\psk@armtypeB{2 }} -\def\psset@offsetA#1{\pst@getlength{#1}\psk@offsetA} -\def\psset@offsetB#1{\pst@getlength{#1}\psk@offsetB} -\def\psset@offset#1{\psset@offsetA{#1}\let\psk@offsetB\psk@offsetA} -\psset@offset{0pt} -\def\psset@angleA#1{\pst@getangle{#1}\psk@angleA} -\def\psset@angleB#1{\pst@getangle{#1}\psk@angleB}% -\def\psset@angle#1{% -\pst@getangle{#1}\psk@angleA -\let\psk@angleB\psk@angleA} -\psset@angle{0} -\def\psset@arcangleA#1{\pst@getangle{#1}\psk@arcangleA} -\def\psset@arcangleB#1{\pst@getangle{#1}\psk@arcangleB}% -\def\psset@arcangle#1{% -\pst@getangle{#1}\psk@arcangleA -\let\psk@arcangleB\psk@arcangleA} -\psset@arcangle{8} -\def\psset@ncurvA#1{\pst@checknum{#1}\psk@ncurvA} -\def\psset@ncurvB#1{\pst@checknum{#1}\psk@ncurvB}% -\def\psset@ncurv#1{\psset@ncurvA{#1}\let\psk@ncurvB\psk@ncurvA} -\psset@ncurv{.67} -\def\tx@GetCenter{GetCenter } -\def\tx@XYPos{XYPos } -\def\tx@GetEdge{GetEdge } -\def\tx@AddOffset{AddOffset } -\def\tx@GetEdgeA{GetEdgeA } -\def\tx@GetEdgeB{GetEdgeB } -\def\tx@GetArmA{GetArmA } -\def\tx@GetArmB{GetArmB } -% -\def\check@arrow#1#2{% - \check@@arrow#2-\@nil - \if@pst\addto@par{arrows=#2}\def\next{#1}% - \else\def\next{#1{#2}}\fi - \next} -\def\check@@arrow#1-#2\@nil{% -\ifx\@nil#2\@nil\@pstfalse\else\@psttrue\fi} -% -\def\tx@InitNC{InitNC } -\def\nc@object#1#2#3#4#5{% - \csname begin@#1Obj\endcsname - \showpointsfalse - \pst@getnode{#2}\pst@tempa - \pst@getnode{#3}\pst@tempb - \gdef\npos@default{#4 }% - \addto@pscode{% - /NCLW CLW def - \pst@nodedict - \psk@offsetA - \psk@offsetB neg - \psk@nodesepA - \psk@nodesepB - \psk@nodeseptypeA - \psk@nodeseptypeB - \pst@tempa - \pst@tempb - \tx@InitNC { #5 } if - end }% - \def\use@pscode{% - \pst@Verb{gsave \tx@STV newpath \pst@code\space grestore}% - \gdef\pst@code{}}% - \csname end@#1Obj\endcsname - \pst@shortput} -% -\def\npos@default{.5 } -\def\pc@object#1{% -\@ifnextchar({\pc@@object#1}{\pst@getarrows{\pc@@object#1}}} -\def\pc@@object#1(#2)(#3){% - \pnode(#2){@@A}\pnode(#3){@@B}% - #1{@@A}{@@B}} -\def\tx@LPutLine{LPutLine } -\def\tx@LPutLines{LPutLines } -\def\tx@BezierMidpoint{BezierMidpoint } -\def\tx@HPosBegin{HPosBegin } -\def\tx@HPosEnd{HPosEnd } -\def\tx@HPutLine{HPutLine } -\def\tx@HPutLines{HPutLines } -\def\tx@VPosBegin{VPosBegin } -\def\tx@VPosEnd{VPosEnd } -\def\tx@VPutLine{VPutLine } -\def\tx@VPutLines{VPutLines } -\def\tx@HPutCurve{HPutCurve } -\def\tx@NCCoor{NCCoor } -\def\tx@NCLine{NCLine } -% -\def\ncline{\pst@object{ncline}} -\def\ncline@i{\check@arrow{\ncline@ii}} -\def\ncline@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{\tx@NCLine}} -% -\def\pcline{\pst@object{pcline}} -\def\pcline@i{\pc@object\ncline@ii} -% -\def\ncLine{\pst@object{ncLine}} -\def\ncLine@i{\check@arrow{\ncLine@ii}} -\def\ncLine@ii#1#2{\nc@object{Open}{#1}{#2}{.5}% -% DG/SR modification begin - Apr. 14, 1999 - Patch 9 -%{\tx@NCLine /LPutPos { xB xA yB yA \tx@LPutLine } def}} -{\tx@NCLine /LPutPos { xB yB xA yA \tx@LPutLine } def}} -% DG/SR modification end -% -\def\tx@NCLines{NCLines } -\def\nclines{\pst@object{nclines}} -\def\nclines@i{\check@arrow\nclines@ii} -\def\nclines@ii#1#2{% -\begingroup -\use@par -\def\pst@aftercoors{\nclines@iii{#1}{#2}}% -\def\pst@coors{}% -\pst@@getcoors} -\def\nclines@iii#1#2{% -\nc@object{Open}{#1}{#2}{.5}{% -tx@Dict begin \psline@iii pop end -mark \pst@coors \tx@NCLines}% -\endgroup -\ignorespaces} -\def\tx@NCCurve{NCCurve } -\def\nccurve{\pst@object{nccurve}} -\def\nccurve@i{\check@arrow{\nccurve@ii}} -\def\nccurve@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{% - /AngleA \psk@angleA\space def /AngleB \psk@angleB\space def - \psk@ncurvB\space \psk@ncurvA\space - \tx@NCCurve}} -\def\pccurve{\pst@object{pccurve}} -\def\pccurve@i{\pc@object\nccurve@ii} -% -\def\ncarc{\pst@object{ncarc}} -\def\ncarc@i{\check@arrow{\ncarc@ii}} -\def\ncarc@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{% - yB yA sub xB xA sub \tx@Atan dup - \psk@arcangleA\space add /AngleA ED - \psk@arcangleB\space sub 180 add /AngleB ED - \psk@ncurvB\space \psk@ncurvA\space - \tx@NCCurve}} -\def\pcarc{\pst@object{pcarc}} -\def\pcarc@i{\pc@object\ncarc@ii} -% -\def\tx@NCAngles{NCAngles } -\newif\ifPst@pcRef% border or center as reference point (hv) -\def\psset@pcRef#1{\@nameuse{Pst@pcRef#1}} -\psset@pcRef{false} -\def\ncangles{\pst@object{ncangles}} -\def\ncangles@i{\check@arrow{\ncangles@ii}} -\def\ncangles@ii#1#2{% - \nc@object{Open}{#1}{#2}{1.5}{\ncangles@iii \tx@NCAngles}} -\def\ncangles@iii{% - tx@Dict begin \psline@iii pop end - /AngleA \psk@angleA def - /AngleB \psk@angleB def - /ArmA \psk@armA \ifPst@pcRef - GetEdgeA yA yA1 sub dup mul xA xA1 sub dup mul add sqrt sub \fi def - /ArmB \psk@armB def - /ArmTypeA \psk@armtypeA def - /ArmTypeB \psk@armtypeB def } -% -\def\pcangles{\pst@object{pcangles}} -\def\pcangles@i{\pc@object\ncangles@ii} -\def\tx@NCAngle{NCAngle } -\def\ncangle{\pst@object{ncangle}} -\def\ncangle@i{\check@arrow{\ncangle@ii}} -\def\ncangle@ii#1#2{% -\nc@object{Open}{#1}{#2}{1.5}{\ncangles@iii \tx@NCAngle}} -\def\pcangle{\pst@object{pcangle}} -\def\pcangle@i{\pc@object\ncangle@ii} -\def\tx@NCBar{NCBar } -\def\ncbar{\pst@object{ncbar}} -\def\ncbar@i{\check@arrow{\ncbar@ii}} -\def\ncbar@ii#1#2{\nc@object{Open}{#1}{#2}{1.5}{% -\ncangles@iii /AngleB \psk@angleA def \tx@NCBar}} -\def\pcbar{\pst@object{pcbar}} -\def\pcbar@i{\pc@object\ncbar@ii} -\def\tx@NCDiag{NCDiag } -\def\ncdiag{\pst@object{ncdiag}} -\def\ncdiag@i{\check@arrow{\ncdiag@ii}} -\def\ncdiag@ii#1#2{% -\nc@object{Open}{#1}{#2}{1.5}{\ncangles@iii \tx@NCDiag}} -\def\pcdiag{\pst@object{pcdiag}} -\def\pcdiag@i{\pc@object\ncdiag@ii} -\def\tx@NCDiagg{NCDiagg } -\def\ncdiagg{\pst@object{ncdiagg}} -\def\ncdiagg@i{\check@arrow{\ncdiagg@ii}} -\def\ncdiagg@ii#1#2{% -\nc@object{Open}{#1}{#2}{.5}{\ncangles@iii \tx@NCDiagg}} -\def\pcdiagg{\pst@object{pcdiagg}} -\def\pcdiagg@i{\pc@object\ncdiagg@ii} -\def\tx@NCLoop{NCLoop } -\def\psset@loopsize#1{\pst@getlength{#1}\psk@loopsize} -\psset@loopsize{1cm} -\def\ncloop{\pst@object{ncloop}} -\def\ncloop@i{\check@arrow{\ncloop@ii}} -\def\ncloop@ii#1#2{% -\nc@object{Open}{#1}{#2}{2.5}% -{\ncangles@iii /loopsize \psk@loopsize def \tx@NCLoop}} -\def\pcloop{\pst@object{pcloop}} -\def\pcloop@i{\pc@object\ncloop@ii} -\def\tx@NCCircle{NCCircle } -\def\nccircle{\pst@object{nccircle}} -\def\nccircle@i{\check@arrow{\nccircle@ii}} -\def\nccircle@ii#1#2{% -\pssetlength\pst@dima{#2}% -\nc@object{Open}{#1}{#1}{.5}{% -/AngleA \psk@angleA def -/r \pst@number\pst@dima def -\tx@NCCircle \psarc@v end}} -\def\tx@NCBox{NCBox } -\def\ncbox{\pst@object{ncbox}} -\def\ncbox@i{\check@arrow{\ncbox@ii}} -\def\ncbox@ii#1#2{% -\def\pst@linetype{2}% -\nc@object{Closed}{#1}{#2}{.5}{% -tx@Dict begin \psline@iii pop end -\psk@boxheight \psk@boxdepth -\tx@NCBox}} -\def\pcbox{\pst@object{pcbox}} -\def\pcbox@i{\pc@object\ncbox@ii} -\def\tx@NCArcBox{NCArcBox } -\def\psset@boxheight#1{\pst@getlength{#1}\psk@boxheight} -\def\psset@boxdepth#1{\pst@getlength{#1}\psk@boxdepth} -\def\psset@boxsize#1{% -\psset@boxheight{#1}% -\let\psk@boxdepth\psk@boxheight} -\psset@boxsize{.4cm} -\def\ncarcbox{\pst@object{ncarcbox}} -\def\ncarcbox@i{\check@arrow{\ncarcbox@ii}} -\def\ncarcbox@ii#1#2{% -\def\pst@linetype{1}% -\nc@object{Closed}{#1}{#2}{.5}{% -\psk@arcangleA \psk@boxheight \psk@boxdepth \pst@number\pslinearc -\tx@NCArcBox}} -\def\pcarcbox{\pst@object{pcarcbox}} -\def\pcarcbox@i{\pc@object\ncarcbox@ii} -\def\tx@Tfan{Tfan } -% Changed according pst-beta.bug December 3, 1993 -% nrot=:<angle> does not work when : is active. -\begingroup -\catcode`\:=13 -\gdef\pst@activerot{\def:{\string:}} -\endgroup -\def\psset@nrot#1{% -\begingroup -\pst@activerot -\pst@expandafter{\@ifnextchar:{\psset@@nrot}{\psset@@rot}}{#1}\@nil -\global\let\pst@tempg\psk@rot -\endgroup -\let\psk@nrot\pst@tempg} -\def\psset@@nrot:#1\@nil{% -\psset@@rot#1\@nil -\edef\psk@rot{NAngle \ifx\psk@rot\@empty\else\psk@rot add \fi}} -\psset@nrot{0} -\def\tx@LPutCoor{LPutCoor } -\def\tx@LPut{LPut } -\def\psset@npos#1{% -\def\pst@tempa{#1}% -\ifx\pst@tempa\@empty -\def\psk@npos{\npos@default}% -\else -\pst@checknum{#1}\psk@npos -\fi} -\psset@npos{} -\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% - \pst@shortput} -\def\ncput@iii{% - \leavevmode% - \hbox{% - \pst@Verb{ - \pst@nodedict - /t \psk@npos def - \tx@LPut - end - \tx@PutBegin}% - \box\pst@hbox% - \pst@Verb{\tx@PutEnd}}} -\def\naput{\pst@object{naput}} -\def\naput@i{\pst@killglue\pst@makebox{\naput@ii{NAngle 90 add}}} -\def\naput@ii#1{% -\begingroup -\use@par -\if@star\pst@starbox\fi -\def\psk@refangle{#1 }% -\let\psk@rot\psk@nrot -\uput@vii -{exch pop add a \tx@PtoC h1 add exch w1 add exch }% -{tx@Dict /NCLW known { NCLW add } if }% -\ncput@iii -\endgroup -\pst@shortput} -\def\nbput{\pst@object{nbput}} -\def\nbput@i{\pst@killglue\pst@makebox{\naput@ii{NAngle 90 sub}}} -\def\psset@tpos#1{% - \pst@checknum{#1}\psk@tpos - \ifdim\psk@tpos \p@<\z@ - \def\psk@tpos{.5}% -% DG/SR modification begin - Sep. 23, 1998 - Patch 7 -%\@pstrickserr{Bad `tpos' value: `#1'. Must be 0<tpos<1}\@epha - \@pstrickserr{Bad `tpos' value: `#1'. Must be 0<tpos<1}\@ehpa -% DG/SR modification end - \else - \ifdim\psk@tpos \p@>\p@ - \def\psk@tpos{.5}% -% DG/SR modification begin - Sep. 23, 1998 - Patch 7 -%\@pstrickserr{Bad `tpos' value: `#1'. Must be 0<tpos<1}\@epha - \@pstrickserr{Bad `tpos' value: `#1'. Must be 0<tpos<1}\@ehpa% -% DG/SR modification end - \fi% - \fi} -\psset@tpos{.5} -\def\tvput{\pst@object{tvput}} -\def\tvput@i{\pst@makebox{\psput@tput{H}{1}}} -\def\tlput{\pst@object{tlput}} -\def\tlput@i{\pst@makebox{\psput@tput{H}{true}}} -\def\trput{\pst@object{trput}} -\def\trput@i{\pst@makebox{\psput@tput{H}{false}}} -\def\thput{\pst@object{thput}} -\def\thput@i{\pst@makebox{\psput@tput{V}{1}}} -\def\taput{\pst@object{taput}} -\def\taput@i{\pst@makebox{\psput@tput{V}{true}}} -\def\tbput{\pst@object{tbput}} -\def\tbput@i{\pst@makebox{\psput@tput{V}{false}}} -\def\tx@HPutAdjust{HPutAdjust } -\def\tx@VPutAdjust{VPutAdjust } -\def\psput@tput#1#2{% - \begingroup - \use@par - \pst@tputmakesmall - \leavevmode - \hbox{% - \pst@Verb{% - \pst@nodedict - /t \psk@tpos \pst@tposflip def - tx@NodeDict /HPutPos known - { #1PutPos } - { CP /Y ED /X ED /NAngle 0 def /NCLW 0 def } - ifelse - /Sin NAngle sin def - /Cos NAngle cos def - /s \pst@number\pslabelsep NCLW add def - /l \pst@number\pst@dima def - /r \pst@number\pst@dimb def - /h \pst@number\pst@dimc def - /d \pst@number\pst@dimd def -% DG/SR modification begin - Sep. 26, 1997 - Patch 4 -%\ifnum1=0#2\else - \ifnum1=0#2 \else -% DG/SR modification end - /flag #2 def - \csname tx@#1PutAdjust\endcsname - \fi - \tx@LPutCoor - end - \tx@PutBegin}% - \box\pst@hbox - \pst@Verb{\tx@PutEnd}}% - \endgroup - \pst@shortput} -% -\def\pst@tposflip{} -\def\pst@tputmakesmall{% -% -\pst@dima=\wd\pst@hbox -\divide\pst@dima 2 -\pst@dimg=\psk@href\pst@dimg -\pst@dimb\pst@dima -\advance\pst@dima\pst@dimg % leftsize -\advance\pst@dimb-\pst@dimg % rightsize -\pst@dimd=\psk@vref\relax -\pst@dimc=\ht\pst@hbox -\advance\pst@dimc-\pst@dimd % height -\advance\pst@dimd\dp\pst@hbox % depth -\setbox\pst@hbox=\hbox to\z@{% -\kern-\pst@dima\vbox to\z@{\vss\box\pst@hbox\vskip-\pst@dimd}\hss}} -\def\MakeShortNab#1#2{% - \def\pst@shortput@nab{% - \def\pst@tempg{\next}% - \ifx#1\next - \let\pst@tempg\naput - \else - \ifx#2\next - \let\pst@tempg\nbput - \else - \ifx\@sptoken\next - \let\pst@tempg\pst@shortput - \fi - \fi - \fi - \pst@tempg}} -\MakeShortNab{^}{_} -\def\MakeShortTablr#1#2#3#4{% - \def\pst@shortput@tablr{% - \def\pst@tempg{\next}% - \ifx#1\next - \let\pst@tempg\taput - \else - \ifx#2\next - \let\pst@tempg\tbput - \else - \ifx#3\next - \let\pst@tempg\tlput - \else - \ifx#4\next - \let\pst@tempg\trput - \else - \ifx\@sptoken\next - \let\pst@tempg\pst@shortput - \fi - \fi - \fi - \fi - \fi - \pst@tempg}} -\MakeShortTablr{^}{_}{<}{>} -\def\MakeShortTab#1#2{% - \def\pst@shortput@tab{% - \def\pst@tempg{\next}% - \ifx#1\next - \def\pst@tempg{% - \@nameuse{% - t\ifodd\psk@treemode\ifpstreeflip b\else a\fi - \else\ifpstreeflip r\else l\fi\fi put}}% - \else - \ifx#2\next - \def\pst@tempg{% - \@nameuse{% - t\ifodd\psk@treemode\ifpstreeflip a\else b\fi - \else\ifpstreeflip l\else r\fi\fi put}}% - \else - \ifx\@sptoken\next - \let\pst@tempg\pst@shortput - \fi - \fi - \fi - \pst@tempg}} -\MakeShortTab{^}{_} -\def\psset@shortput#1{% -\def\pst@tempg{#1}% -\ifx\pst@tempg\@none -\let\pst@shortput\ignorespaces -\else -\@ifundefined{pst@shortput@#1}% -{\@pstrickserr{Bad short put: `#1'}\@ehpa}% -{\edef\pst@shortput{\noexpand\afterassignment\expandafter\noexpand -\csname pst@shortput@#1\endcsname\noexpand\let\noexpand\next}}% -\fi} -\psset@shortput{none} -\def\lput{\def\pst@par{}\pst@ifstar{\@ifnextchar[{\lput@i}{\lput@ii}}} -\def\lput@i[#1]{\addto@par{ref=#1}\lput@ii} -\def\lput@ii{\@ifnextchar({\lput@iv}{\lput@iii}} -\def\lput@iii#1{\addto@par{nrot=#1}\@ifnextchar({\lput@iv}{\ncput@i}} -\def\lput@iv(#1){\addto@par{npos=#1}\ncput@i} -\def\mput{\def\pst@par{}\pst@ifstar{\@ifnextchar[{\mput@i}{\ncput@i}}} -\def\mput@i[#1]{\addto@par{ref=#1}\ncput@i} -\def\Lput{\def\pst@par{}\pst@ifstar{\@ifnextchar[{\Lput@ii}{\Lput@i}}} -\def\Lput@i#1{\addto@par{labelsep=#1}\Lput@ii} -\def\Lput@ii[#1]{\addto@par{ref={#1}}\@ifnextchar({\Lput@iv}{\Lput@iii}} -\def\Lput@iii#1{\addto@par{nrot={#1}}\@ifnextchar({\Lput@iv}{\Lput@v}} -\def\Lput@iv(#1){\addto@par{npos=#1}\Lput@v} -\def\Lput@v{\pst@killglue\pst@makebox{\Lput@vi}} -\def\Lput@vi{% -\begingroup -\use@par -\if@star\pst@starbox\fi -\Rput@vi -\pst@makesmall\pst@hbox -\pst@rotate\psk@nrot\pst@hbox -\ncput@iii -\endgroup -\pst@shortput} -\def\Mput{\def\pst@par{}\pst@ifstar{\@ifnextchar[{\Mput@ii}{\Mput@i}}} -\def\Mput@i#1{\addto@par{labelsep=#1}\Mput@ii} -\def\Mput@ii[#1]{\addto@par{ref={#1}}\Lput@v} -\def\aput@#1{\def\pst@par{}\pst@ifstar{\@ifnextchar[{\aput@i#1}{\aput@ii#1}}} -\def\aput@i#1[#2]{\addto@par{labelsep=#2}\aput@ii#1} -\def\aput@ii#1{\@ifnextchar({\aput@iv#1}{\aput@iii#1}} -\def\aput@iii#1#2{\addto@par{nrot=#2}\@ifnextchar({\aput@iv#1}{#1}} -\def\aput@iv#1(#2){\addto@par{npos=#2}#1} -\def\aput{\aput@\naput@i} -\def\bput{\aput@\nbput@i} -\def\Aput{\def\pst@par{}\pst@ifstar{\@ifnextchar[{\Aput@i}{\naput@i}}} -\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{% - \pst@nodedict - tx@NodeDict \pst@tempg known - \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{% -\pst@nodedict -tx@NodeDict \pst@tempg known -{ \psk@nodesepA \psk@angleA -\pst@tempg load \psk@nodeseptypeA \tx@GetEdge -\psk@offsetA \psk@angleA \tx@AddOffset -\pst@tempg load \tx@GetCenter -3 -1 roll add 3 1 roll add exch } -{ CP } -ifelse -end }}% -\def\Node@@@coor#1{% -\pst@@getcoor{#1}% -\def\psk@angleA{% -\pst@tempg load \tx@GetCenter \pst@coor -3 -1 roll sub 3 1 roll sub neg \tx@Atan}% -\Node@@coor} -\def\nput{\pst@object{nput}} -\def\nput@i#1#2{\pst@killglue\pst@makebox{\nput@ii{#1}{#2}}} -\def\nput@ii#1#2{% -\begingroup -\use@par -\psset@refangle{#1}% -\let\psk@angleA\psk@refangle -\edef\psk@nodesepA{\pst@number\pslabelsep}% -\def\psk@nodeseptypeA{0 }% -\pslabelsep\z@ -\uput@vi -\Node@@coor#2\@nil -\let\pst@coor\pst@tempg -\leavevmode -\psput@special\pst@hbox -\endgroup -\ignorespaces} -\newcount\psrow -\newcount\pscol -\newcount\psmatrixcnt -\newskip\psrowsep -\newskip\pscolsep -\def\psset@colsep#1{\pssetlength\pscolsep{#1}} -\def\psset@rowsep#1{\pssetlength\psrowsep{#1}} -\psset@colsep{1.5cm} -\psset@rowsep{1.5cm} -\newif\ifpsmatrix -% DG/SR modification begin - Nov. 27, 1998 - Patch 8 -%\let\mscount\@multicnt -\ifx\mscount\@undefined\let\mscount\@multicnt\fi -% DG/SR modification end -\def\psmatrix{\begingroup{\ifnum0=`}\fi % Don't want to expand any &. - \@ifnextchar[{\psmatrix@i}{\ifnum0=`{\fi}{}\psmatrix@ii}} -\def\psmatrix@i[#1]{% - \ifnum0=`{\fi}{}% - \psset{#1}% - \psmatrix@ii} -\def\psmatrix@ii{% - \KillGlue - \edef\psm@beginmath{% - \ifmmode$\m@th\ifinner\textstyle\else\displaystyle\fi\fi}% - \edef\psm@endmath{\ifmmode$\fi}% - \let\\\psm@cr - \advance\psmatrixcnt 1 - \def\psm@thenode{M-\the\psmatrixcnt-\the\psrow-\the\pscol}% - \tabskip\z@ - \psrow1 - \pscol\z@ - \psset@shortput{tablr}% - \leavevmode - \vbox\bgroup\halign\bgroup&% - \begingroup - \global\advance\pscol 1 - \csname psrowhook\romannumeral\psrow\endcsname - \csname pscolhook\romannumeral\pscol\endcsname - \psm@beginnode##\psm@endnode\endgroup - \cr} -% -\def\endpsmatrix{% - \crcr\egroup\unskip\egroup - \endgroup} -% -% hv 2007-10-16 fix bug with \\[name=...] -%\def\psm@cr{{\ifnum0=`}\fi\@ifnextchar[{\psm@@cr}{\psm@@@cr{}}} -\def\psm@cr{{\ifnum0=`}\fi\ps@ifnextchar[{\psm@@cr}{\psm@@@cr{}}} -% -\def\psm@@cr[#1]{\psm@@@cr{\vskip#1\relax}} -\def\psm@@@cr#1{% - \ifnum0=`{\fi}{}\cr - \noalign{% - \global\advance\psrow 1 - \global\pscol\z@ - \vskip\psrowsep - #1}} -\def\psm@beginnode{% - \@ifnextchar\psm@endnode - {\let\psm@endnode@i\relax\setbox\pst@hbox=\hbox{}}% - {\pst@object{psm@beginnode}}} -\def\psm@beginnode@i{% - \setbox\pst@hbox=\hbox\bgroup - \psm@beginmath - \begingroup - \ignorespaces} -\def\psm@endnode@i{% - \unskip - \endgroup - \psm@endmath - \egroup - \use@par - \@psttrue} -\def\psm@endnode{% - \@pstfalse - \psm@endnode@i - \ifnum\pscol>1 \hskip\pscolsep \fi - \psk@mnodesize - \hfil - \nodealigntrue - \if@pst\csname mnode@\psk@mnode\endcsname - \else\csname mnode@\psk@emnode\endcsname\fi - \psk@mcol - \psk@@mnodesize} -% DG/SR modification begin - Sep. 3, 1999 - Patch 10 - From Michael Sharpe -%\def\psspan#1{\mscount#1\relax\loop\ifnum\mscount>\@ne \sp@n\repeat} -\def\psspan#1{\global\mscount#1\relax\pstloop\ifnum\mscount>\@ne\sp@n\repeat} -\def\pstloop#1\repeat{\gdef\pstiterate{#1\relax\expandafter\pstiterate\fi}% - \pstiterate - \let\pstiterate\relax} -% DG/SR modification end -\def\psset@name#1{\pst@getnode{#1}\psk@name} -\let\psk@name\relax -\def\psset@mcol#1{% - \ifx r#1\relax\let\psk@mcol\relax\else - \ifx l#1\relax\let\psk@mcol\hfill\else - \let\psk@mcol\hfil\fi\fi} -\psset@mcol{c} -\def\psset@mnodesize#1{% -\pssetlength\pst@dimg{#1}% -\ifdim\pst@dimg<\z@ -\let\psk@mnodesize\relax -\let\psk@@mnodesize\relax -\else -\edef\psk@mnodesize{\noexpand\hbox to\number\pst@dimg sp\noexpand\bgroup}% -\let\psk@@mnodesize\egroup -\fi} -\psset@mnodesize{-1pt} -\def\mnode@R{\rnode@iii\Rnode@ii{\psm@thenode}} -\def\mnode@r{\rnode@iii\rnode@iv{\psm@thenode}} -\def\mnode@oval{\ovalnode@ii{\psm@thenode}} -\def\mnode@tri{\trinode@ii{\psm@thenode}} -\def\mnode@dia{\dianode@ii{\psm@thenode}} -\def\mnode@C{{\nodealigntrue\cnode@ii(\z@,\z@){\psk@radius}{\psm@thenode}}} -\def\mnode@f{{\nodealigntrue\fnode@ii(\z@,\z@){\psm@thenode}}} -\def\mnode@circle{\circlenode@ii{\psm@thenode}} -% hv modification begin - Aug. 16, 2007 -\def\mnode@Circle{\Circlenode@ii{\psm@thenode}} -% hv modification end - Aug. 16, 2007 -\def\mnode@p{\pnode(\z@,\z@){\psm@thenode}} -% DG/SR modification begin - Jul. 22, 1997 - Patch 1 -\def\mnode@dot{\dotnode@ii(\z@,\z@){\psm@thenode}} -% DG/SR modification end -\def\mnode@none{\box\pst@hbox} -\def\psset@mnode#1{% -\@ifundefined{mnode@#1}% -{\@pstrickserr{\string\psmatrix\space node `#1' not defined.}\@ehpa}% -{\edef\psk@mnode{#1}}} -\def\psset@emnode#1{% -\@ifundefined{mnode@#1}% -{\@pstrickserr{\string\psmatrix\space node `#1' not defined.}\@ehpa}% -{\edef\psk@emnode{#1}}} -\psset@mnode{R} -\psset@emnode{none} -%%%% FROM pst-coil.tex -\def\nccoil{\pst@object{nccoil}} -\def\nccoil@i{\check@arrow{\nccoil@ii}} -\def\nccoil@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{% -\tx@NCCoor -tx@Dict begin -% DG/SR modification begin - Mar. 19, 1998 - Patch 5 -4 2 roll -% DG/SR modification end -\psk@coilwidth \pscoilheight -\psk@coilarmA \psk@coilarmB -\psk@coilaspect \psk@coilinc -\pst@coildict \tx@Coil end -end}} -\def\nczigzag{\pst@object{nczigzag}} -\def\nczigzag@i{\check@arrow{\nczigzag@ii}} -\def\nczigzag@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{% -\tx@NCCoor -tx@Dict begin -% DG/SR modification begin - Mar. 19, 1998 - Patch 5 -4 2 roll -% DG/SR modification end -\pscoilheight -\psk@coilwidth -\psk@coilarmA -\psk@coilarmB -\pst@coildict \tx@ZigZag end -\psline@iii -\tx@Line -end}} -\catcode`\@=\TheAtCode\relax -\endinput -%% -%% END pst-node.tex |