diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/tree-dvips/tree-dvips.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/tree-dvips/tree-dvips.sty | 162 |
1 files changed, 0 insertions, 162 deletions
diff --git a/Master/texmf-dist/tex/latex/tree-dvips/tree-dvips.sty b/Master/texmf-dist/tex/latex/tree-dvips/tree-dvips.sty deleted file mode 100644 index fdd4ad67741..00000000000 --- a/Master/texmf-dist/tex/latex/tree-dvips/tree-dvips.sty +++ /dev/null @@ -1,162 +0,0 @@ -% how to run. -% \input tree.sty or \documentstyle[tree]{..} -% run through latex as you normally do -% remember to send it to a postscript printer - - -\special{header=tree-dvips.pro} - - -\def\pscmd#1{\special{ps:@beginspec -/nodemargin \@int{\the\nodemargin}\space pt def % -\@int{\the\treelinewidth}\space pt setlinewidth % -\ifdim\dashlength=0pt [] 0 setdash% -/arrowwidth \@int{\the\arrowwidth}\space pt def % -/arrowlength \@int{\the\arrowlength}\space pt def % -\else [\@int{\the\dashlength}\space pt] 0 setdash \fi\space -#1 % -@endspec}} - -% parameters in tree mode -\newdimen\nodemargin % -\nodemargin=2pt -\newdimen\treelinewidth -\treelinewidth=.3pt - -\def\thinline{\treelinewidth=.3pt} - -\newdimen\dashlength - -% \makedash{dimen} makes dashes of dimen length if dimen = 0pt then -% solid line -\def\makedash#1{\dashlength=#1} - -\newdimen\arrowwidth -\arrowwidth 4pt -\newdimen\arrowlength -\arrowlength 4pt - -{\catcode`p=12 \catcode`t=12 \gdef\wnum#1pt{#1}} -\def\@int#1{\expandafter\wnum#1} - -\def\node#1#2{\leavevmode - \setbox1=\hbox{#2}\pscmd{/#1 \@int{\the\wd1} \space pt - \@int{\the\ht1} \space pt - \@int{\the\dp1} \space pt - node}\box1\relax} - - -% A node of 0pt width and height -% \nodepoint{nodename}[horizontal displacement][vertical displacement] -% default is current point -\def\nodepoint#1{\@ifnextchar [{\@nodepoint{#1}}{\@nodepoint{#1}[0pt][0pt]}} - -\def\@nodepoint#1[#2][#3]{{\@tempdima=#2 \@tempdimb=#3% -\pscmd{/nodemargin 0 def % -/#1 \@int{\the\@tempdima}\space pt \@int{\the\@tempdimb}\space pt % -rmoveto 0 0 0 node}}} - -\newtoks\pos@t \pos@t={top} -\newtoks\pos@b \pos@b={bottom} -\newtoks\pos@l \pos@l={left} -\newtoks\pos@r \pos@r={right} -\newtoks\pos@tl \pos@tl={topleft} -\newtoks\pos@tr \pos@tr={topright} -\newtoks\pos@bl \pos@bl={bottomleft} -\newtoks\pos@br \pos@br={bottomright} - - -% \nodeconnect[fromloc]{fromnode}[toloc]{tonode} -\def\nodeconnect{\@ifnextchar [{\@nodeconnect}{\@nodeconnect[b]}} -\def\@nodeconnect[#1]#2{\@ifnextchar [{\@@nodeconnect[#1]{#2}}{\@@nodeconnect[#1]{#2}[t]}} - -\def\@@nodeconnect[#1]#2[#3]#4{\pscmd{% -/#2 getnode node\the\csname pos@#1\endcsname \space% -/#4 getnode node\the\csname pos@#3\endcsname\space nodeconnect}} - -% \anodeconnect[fromloc]{fromnode}[toloc]{tonode} -\def\anodeconnect{\@ifnextchar [{\@anodeconnect}{\@anodeconnect[b]}} -\def\@anodeconnect[#1]#2{\@ifnextchar [{\@@anodeconnect[#1]{#2}}{\@@anodeconnect[#1]{#2}[t]}} - -\def\@@anodeconnect[#1]#2[#3]#4{\pscmd{% -/#2 getnode node\the\csname pos@#1\endcsname \space% -/#4 getnode node\the\csname pos@#3\endcsname\space arrownodeconnect}} - - -% \nodecurve[fromloc]{fromnode}[toloc]{tonode}{depthfrom}[depthto] - -\def\nodecurve{\@ifnextchar [{\@nodecurve}{\@nodecurve[b]}} -\def\@nodecurve[#1]#2{\@ifnextchar [{\@@nodecurve[#1]{#2}}{\@@nodecurve[#1]{#2}[t]}} - -\def\@@nodecurve[#1]#2[#3]#4#5{\@ifnextchar [{\@@@nodecurve[#1]{#2}[#3]{#4}{#5}}% -{\@@@nodecurve[#1]{#2}[#3]{#4}{#5}[#5]}} - -\def\@@@nodecurve[#1]#2[#3]#4#5[#6]{\@tempdima=#5% -\@tempdimb=#6% -\pscmd{/depth \@int{\the\@tempdimb} \space pt def % - /#4 \the\csname pos@#3\endcsname cur\space % - /depth \@int{\the\@tempdima} \space pt def % - /#2 \the\csname pos@#1\endcsname cur\space % -nodecurve}} - -% \anodecurve[fromloc]{fromnode}[toloc]{tonode}{depth} - -\def\anodecurve{\@ifnextchar [{\@anodecurve}{\@anodecurve[b]}} -\def\@anodecurve[#1]#2{\@ifnextchar [{\@@anodecurve[#1]{#2}}{\@@anodecurve[#1]{#2}[t]}} - - -\def\@@anodecurve[#1]#2[#3]#4#5{\@ifnextchar [{\@@@anodecurve[#1]{#2}[#3]{#4}{#5}}% -{\@@@anodecurve[#1]{#2}[#3]{#4}{#5}[#5]}} - - -\def\@@@anodecurve[#1]#2[#3]#4#5[#6]{\@tempdima=#5% -\@tempdimb=#6% -\pscmd{/depth \@int{\the\@tempdimb} \space pt def % - /#4 \the\csname pos@#3\endcsname cur\space % - /depth \@int{\the\@tempdima} \space pt def % - /#2 \the\csname pos@#1\endcsname cur\space % -arrownodecurve}} - - -% above is well tested below is not -\newif\iftransparent - -\def\nodebox#1{\pscmd{/#1 nodebox}} -\def\nodeoval#1{\pscmd{/#1 nodeoval}} -\def\nodetriangle#1#2{\pscmd{/#1 /#2 nodetriangle}} - -% \nodecircle[depth]{nodename} - -\def\nodecircle{\@ifnextchar [ {\@nodecircle}{\@nodecircle[0pt]}} - -\def\@nodecircle[#1]#2{\@tempdima=#1% -\iftransparent -\pscmd{\@int{\the\@tempdima}\space pt /#2 nodecircletrans} -\else -\pscmd{\@int{\the\@tempdima}\space pt /#2 nodecircle}\fi} - - -% \barnodeconnect[depth]{fromnode}{tonode} -\def\barnodeconnect{\@ifnextchar[ {\@barnodeconnect}{\@barnodeconnect[5pt]}} - -\def\@barnodeconnect[#1]#2#3{\@tempdima=#1 \ifdim\@tempdima<0pt -\pscmd{\@int{\the\@tempdima}\space pt % -/#2 getnode nodebottom /#3 getnode nodebottom barnodeconnect} -\else -\pscmd{\@int{\the\@tempdima}\space pt % -/#2 getnode nodetop /#3 getnode nodetop barnodeconnect} -\fi} - -\def\abarnodeconnect{\@ifnextchar[ {\@abarnodeconnect}{\@abarnodeconnect[5pt]}} - -\def\@abarnodeconnect[#1]#2#3{\@tempdima=#1 \ifdim\@tempdima<0pt -\pscmd{\@int{\the\@tempdima}\space pt % -/#2 getnode nodebottom /#3 getnode nodebottom arrowbarnodeconnect} -% above replaces the line below. -% /#2 getnode nodebottom /#3 getnode nodebottom abarnodeconnect} -\else -\pscmd{\@int{\the\@tempdima}\space pt % -/#2 getnode nodetop /#3 getnode nodetop arrowbarnodeconnect} -\fi} - - |