diff options
Diffstat (limited to 'macros/latex/contrib/adtrees/adtrees.sty')
-rw-r--r-- | macros/latex/contrib/adtrees/adtrees.sty | 947 |
1 files changed, 947 insertions, 0 deletions
diff --git a/macros/latex/contrib/adtrees/adtrees.sty b/macros/latex/contrib/adtrees/adtrees.sty new file mode 100644 index 0000000000..7cf97e3b0d --- /dev/null +++ b/macros/latex/contrib/adtrees/adtrees.sty @@ -0,0 +1,947 @@ +%------------------------------------------------------- +%% This package is deputed to draw AdTrees as defined by +%% F. Gobbo and M. Benini in "Constructive Adpositional +%% Grammars: Foundations of Constructive Linguistics", +%% Cambrdige Scholar Publishing +%% +%% Version 1.1 - 2019/07/11 +%%------------------------------------------------------- +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{adtrees}[2019/07/11 v1.1 Adtrees package] +\RequirePackage{cancel} +\RequirePackage{epic} + +%%------------------------------------------------------- +%% We assume that \smaller is a command that reduces the +%% current font size, e.g., from \Large to \large. If it +%% is defined, then we use it. +%% Otherwise we stick on a safe choice: \small, which is +%% the right size when dealing with \normalsize trees. +%%------------------------------------------------------- +\@ifundefined{smaller}% + {\gdef\@ATsmall{\small}}% + {\gdef\@ATsmall{\smaller}} + +%%------------------------------------------------------- +%% Usually, the angle in adtrees is 60 degrees +%% To set it to 90 degrees, issue the command +%% \ATwideangle +%% To set it to 120 degrees, issue the command +%% \ATextrawideangle +%% To revert to the standard 60 degrees, +%% \ATnormalangle +%%------------------------------------------------------- +\def\ATnormalangle{\def\@ATangle{60}} +\def\ATwideangle{\def\@ATangle{90}} +\def\ATextrawideangle{\def\@ATangle{120}} +\ATnormalangle + +%%------------------------------------------------------- +%% First, we declare the internal variables +%%------------------------------------------------------- +\newskip\@ATlen % a temporay length +\newskip\@ATbp % the base point of a block +\newskip\@ATwt % the width of a block +\newskip\@ATh % the height of a block +\newskip\@ATbl % left base point +\newskip\@ATrl % left rest (width minus base point) +\newskip\@ATwl % left width +\newskip\@ATbr % right base point +\newskip\@ATrr % right rest +\newskip\@ATwr % right width +\newskip\@ATskip % skip before a block +\newskip\@ATpiks % skip after a block +\newskip\@ATunit % another temporary length +\newbox\@ATu % temporary block +\newbox\@ATsa % temporary save box +\newbox\@ATsb % temporary save box +\newbox\@ATsc % temporary save box +\newbox\@ATta % left save box +\newbox\@ATtb % right save box + +\def\@ATtok{\z@} % placeholder for the conversion + % number to dimension + +\newif\if@ATlinear % switch for linear vs tree format +\@ATlinearfalse % (usually false) +\newif\if@ATtabul % switch for linear vs tree format +\@ATtabulfalse % (usually false) + +%%------------------------------------------------------- +%% The variable stack implementation +%% Since variables' scope is not limited to the enclosing +%% group, but extends to subgroups, we need to memorise +%% variables which may be overwritten during a recursive +%% macro expansion. Hence, we save them in a stack. +%% In this case, we know that the saved values are, in +%% fact, dimensions. We store them as numbers. +%%------------------------------------------------------- +\newcount\@ATstackheight \@ATstackheight0 +\def\@ATeos{X} +\edef\@ATstack{\@ATeos} +\def\@ATpush#1{% + \global\advance\@ATstackheight1% + \def\@ATcons{\noexpand\@ATcons}% + \expandafter\edef\expandafter\@ATstack\expandafter{% + \@ATcons{#1}\@ATstack}} +\def\@AT@top#1#2#3X{#2} +\def\@ATtop{\expandafter\@AT@top\@ATstack} +\def\@AT@pop#1#2#3X{% + \global\advance\@ATstackheight-1% + \def\@ATcons{\noexpand\@ATcons}% + \expandafter\edef\expandafter\@ATstack\expandafter{#3\@ATeos}} +\def\@ATpop{\expandafter\@AT@pop\@ATstack} + +%%------------------------------------------------------- +%% To typeset an adtree we start by typesetting the +%% adposition box. So, we parse the attributes, if any, +%% and we construct a suitable box containing the trajectory, +%% followed by the adposition, and closed by the grammar +%% character together with the attributes, if present. +%% Suitable skips are put in between these pieces. +%% +%% Then, the drawing procedure gets invoked. +%%------------------------------------------------------- +\def\@ATadposition#1#2#3{% + \if@ATlinear% + \@ATlinearadpositionblock{#1}{#2}{#3}\else% + \if@ATtabul% + \@ATtabularadpositionblock{#1}{#2}{#3}\else% + \setbox\@ATsa\hbox{#1}\setbox\@ATsb\hbox{#2}% + \setbox\@ATsc\hbox{#3}% + \setbox\@ATu\vbox{\copy\@ATsa\copy\@ATsb\copy\@ATsc}% + \@ATlen\wd\@ATu% + \setbox\@ATu\vbox{% + \ATpreadpositionskip% + \hbox to\@ATlen{\hfil\copy\@ATsa\hfil}\nointerlineskip% + \ATfirstinteradpositionskip% + \hbox to\@ATlen{\hfil\copy\@ATsb\hfil}\nointerlineskip% + \ATsecondinteradpositionskip% + \hbox to\@ATlen{\hfil\box\@ATsc\hfil}\nointerlineskip% + \ATpostadpositionskip}% + \@ATwt\dp\@ATu% + \hbox{\raise\@ATwt\hbox{\box\@ATu}}\fi\fi} +\def\@ATtree#1#2#3#4#5{% + \@ifnextchar[{\@ATadposb{#1}{#2}{#3}{#4}{#5}}% + {\@ATadposa{#1}{#2}{#3}{#4}{#5}}} +\def\@ATadposa#1#2#3#4#5{% + \@ATtreeparsed{#1}{#2}{#3}{#4}{\hbox{#5}}} +\def\@ATadposb#1#2#3#4#5[#6]{% + \@ATadposc{#1}{#2}{#3}{#4}{% + \@ATadposd{#5}{\ATAttributeBox{#6}}}} +\def\@ATadposc#1#2#3#4#5{% + \@ifnextchar[{\@ATadposf{#1}{#2}{#3}{#4}{#5}}% + {\@ATadposa{#1}{#2}{#3}{#4}{#5}}} +\def\@ATadposd#1#2{\if@ATlinear% + \@ATlinearfirstattribute{#1}{#2}\else% + \if@ATtabul% + \@ATtabularfirstattribute{#1}{#2}\else% + \setbox\@ATsa\hbox{#1}\setbox\@ATsb\hbox{#2}% + \setbox\@ATu\vbox{\copy\@ATsa\copy\@ATsb}\@ATlen\wd\@ATu% + \vbox{% + \hbox to\@ATlen{\hfil\box\@ATsa\hfil}\nointerlineskip% + \ATfirstattrskip% + \hbox to\@ATlen{\hfil\box\@ATsb\hfil}}\fi\fi} +\def\@ATadpose#1#2{\if@ATlinear% + \@ATlinearnextattribute{#1}{#2}\else% + \if@ATtabul% + \@ATtabularnextattribute{#1}{#2}\else% + \setbox\@ATsa\hbox{#1}\setbox\@ATsb\hbox{#2}% + \setbox\@ATu\vbox{\copy\@ATsa\copy\@ATsb}\@ATlen\wd\@ATu% + \vbox{% + \hbox to\@ATlen{\hfil\box\@ATsa\hfil}\nointerlineskip% + \ATinterattrskip% + \hbox to\@ATlen{\hfil\box\@ATsb\hfil}}\fi\fi}% +\def\@ATadposf#1#2#3#4#5[#6]{% + \@ATadposc{#1}{#2}{#3}{#4}{% + \@ATadpose{#5}{\ATAttributeBox{#6}}}} + +%%------------------------------------------------------- +%% The internal drawing procedure for binary adtrees. +%% +%% A block is drawn from the extreme left to the extreme +%% right. First, we draw the left subtree, eventually +%% prepending a skip (when the right subtree extends +%% beyond the left one); then, we draw the connecting +%% branches, lifting them to the proper height; lastly, +%% we draw the right subtree, eventually followed by a +%% skip, when the left subtree extends beyond the right +%% one. +%% +%% Our blocks are thought to as a TeX block, starting from +%% the current position and ending at the right edge. +%% This block carries the information, called 'base point', +%% that identifies where it must be linked with an upper +%% block, i.e., where is the current position of the +%% upper block. +%% +%% Summarising, calculation are as follows: +%% 1. when bl + rr + 50u > wr & bl + rr + 50u > wl +%% skip = 0pt +%% piks = 0pt +%% bp = bl + 25u +%% wt = bl + rr + 50u +%% 2. when bl + rr + 50u < wl & wr < wl +%% skip = 0pt +%% piks = rl - rr - 50u +%% bp = bl + 25u +%% wt = wl +%% 3. when bl + rr + 50u < wr & wl < wr +%% skip = br - bl - 50u +%% piks = 0pt +%% bp = br - 50u +%% wt = wr +%% +%% Some care has been taken to improve calculation time +%% and to limit register/memory usage. +%%------------------------------------------------------- +\def\@ATtreeparsed#1#2#3#4#5#6#7{% + \if@ATlinear% + \@ATlinearadpositionblock{#3}{#4}{#5}% + \@ATlinearsubtrees{#6}{#7}\else% + \if@ATtabul% + \vbox{\@ATtabularadpositionblock{#3}{#4}{#5}% + \@ATtabularsubtrees{#6}{#7}}\else% + \sbox{\@ATta}{\ignorespaces#6\@killglue}% + \@ATpush{\the\@ATbp}\@ATpush{\the\@ATwt}% + \sbox{\@ATtb}{\ignorespaces#7\@killglue}% + \setbox\@ATu\hbox{\usebox{\@ATta}\usebox{\@ATtb}}\@ATh\ht\@ATu% + \setbox\@ATu\hbox{\usebox{\@ATta}}\@ATlen\ht\@ATu\advance\@ATlen -\@ATh% + \edef\@ATtok{\@ATtop}\@ATpop\@ATwl\@ATtok% + \edef\@ATtok{\@ATtop}\@ATpop\@ATbl\@ATtok% + \@ATrl\@ATwl\advance\@ATrl -\@ATbl% + \sbox{\@ATta}{\raisebox{-\@ATlen}{\usebox{\@ATta}}}% + \setbox\@ATu\hbox{\usebox{\@ATtb}}\@ATwr\@ATwt\@ATlen\ht\@ATu% + \advance\@ATlen -\@ATh\@ATbr\@ATbp\@ATrr\@ATwr\advance\@ATrr -\@ATbr% + \sbox{\@ATtb}{\raisebox{-\@ATlen}{\usebox{\@ATtb}}}% + \@ATskip\z@\@ATpiks\z@% + \@ATunit\unitlength% + \unitlength#1% + \@ATlen\@ATbl\advance\@ATlen\@ATrr\advance\@ATlen 50\unitlength\relax% + \ifdim\@ATlen<\@ATwl% + \ifdim\@ATwr<\@ATwl\@ATpiks\@ATrl\advance\@ATpiks -\@ATrr% + \advance\@ATpiks -50\unitlength\fi% + \@ATlen\@ATwl\fi\relax% + \ifdim\@ATlen<\@ATwr\@ATlen\@ATwr% + \@ATskip\@ATbr\advance\@ATskip -\@ATbl% + \advance\@ATskip -50\unitlength\fi\relax% + \global\@ATbp\@ATbl\global\advance\@ATbp 25\unitlength% + \global\advance\@ATbp \@ATskip\global\@ATwt\@ATlen% + \setbox\@ATu\box\voidb@x% + \unitlength\@ATunit% + \hbox{\hspace*{\@ATskip}\usebox{\@ATta}\hspace*{-\@ATrl}% + \@ATunit\unitlength% + \unitlength#1% + \edef\@AT@angle{#2}% + {\ifnum\@AT@angle=120% + \raisebox{\@ATh}{\begin{picture}(50,12.5)% + \thicklines\put(25,12.5){\ATleftbranch{-2}{-1}{25}}% + \put(25,12.5){\ATcircle{2}}% + \put(25,9.5){\makebox(0,0)[t]{\@ATadposition{#3}{#4}{#5}}}% + \thicklines\put(25,12.5){\ATrightbranch{2}{-1}{25}}% + \end{picture}}% + \else\ifnum\@AT@angle=90% + \raisebox{\@ATh}{\begin{picture}(50,25)% + \thicklines\put(25,25){\ATleftbranch{-1}{-1}{25}}% + \put(25,25){\ATcircle{2}}% + \put(25,19){\makebox(0,0)[t]{\@ATadposition{#3}{#4}{#5}}}% + \thicklines\put(25,25){\ATrightbranch{1}{-1}{25}}% + \end{picture}}% + \else% + \raisebox{\@ATh}{\begin{picture}(50,50)% + \thicklines\put(25,50){\ATleftbranch{-1}{-2}{25}}% + \put(25,50){\ATcircle{2}}% + \put(25,35){\makebox(0,0)[t]{\@ATadposition{#3}{#4}{#5}}}% + \thicklines\put(25,50){\ATrightbranch{1}{-2}{25}}% + \end{picture}}\fi\fi}% + \unitlength\@ATunit% + \hspace*{-\@ATbr}\usebox{\@ATtb}\hspace*{\@ATpiks}}\fi\fi} + +%%------------------------------------------------------- +%% The internal drawing procedure for right extensions +%% of an adtree. +%% Essentially, this is an adtree where the left side has +%% been truncated. +%%------------------------------------------------------- +\def\@ATright#1#2#3{% + \if@ATlinear% + #3\else% + \if@ATtabul% + #3\else% + \sbox{\@ATtb}{\ignorespaces#3\@killglue}% + \setbox\@ATu\hbox{\usebox{\@ATtb}}\@ATh\ht\@ATu\@ATwr\@ATwt% + \@ATbr\@ATbp\@ATrr\@ATwr\advance\@ATrr -\@ATbr% + \global\advance\@ATbp\ifdim\@ATbr<25pt -\@ATbp\else -25\unitlength\fi% + \@ATwt\@ATrr\advance\@ATwt 25\unitlength\global\advance\@ATwt\@ATbp% + \setbox\@ATu\box\voidb@x% + \hbox{\hspace*{\@ATbp}% + \@ATlen\unitlength% + \unitlength#1% + \edef\@AT@angle{#2}% + \ifnum\@AT@angle=120% + \raisebox{\@ATh}{\begin{picture}(25,12.5)% + \thicklines\put(0,12.5){\ATrightbranch{2}{-1}{25}}% + \end{picture}}% + \else\ifnum\@AT@angle=90% + \raisebox{\@ATh}{\begin{picture}(25,25)% + \thicklines\put(0,25){\ATrightbranch{1}{-1}{25}}% + \end{picture}}% + \else% + \raisebox{\@ATh}{\begin{picture}(25,50)% + \thicklines\put(0,50){\ATrightbranch{1}{-2}{25}}% + \end{picture}}\fi\fi% + \unitlength\@ATlen% + \hspace*{-\@ATbr}\usebox{\@ATtb}}\fi\fi} + +%%------------------------------------------------------- +%% The internal drawing procedure for left extensions +%% of an adtree. +%% Essentially, this is an adtree where the right side +%% has been truncated. +%%------------------------------------------------------- +\def\@ATleft#1#2#3{% + \if@ATlinear% + #3\else% + \if@ATtabul% + #3\else% + \sbox{\@ATta}{\ignorespaces#3\@killglue}% + \setbox\@ATu\hbox{\usebox{\@ATta}}\@ATh\ht\@ATu\@ATwl\@ATwt% + \@ATrl\@ATwl\advance\@ATrl -\@ATbp\global\advance\@ATbp 25\unitlength\relax% + \global\@ATwt\ifdim\@ATbp<\@ATwl\@ATwl\else\@ATbp\fi\relax% + \setbox\@ATu\box\voidb@x% + \hbox{\usebox{\@ATta}\hspace*{-\@ATrl}% + \@ATlen\unitlength% + \unitlength#1% + \edef\@AT@angle{#2}% + \ifnum\@AT@angle=120% + \raisebox{\@ATh}{\begin{picture}(25,12.5)% + \thicklines\put(25,12.5){\ATleftbranch{-2}{-1}{25}}% + \end{picture}}% + \else\ifnum\@AT@angle=90% + \raisebox{\@ATh}{\begin{picture}(25,25)% + \thicklines\put(25,25){\ATleftbranch{-1}{-1}{25}}% + \end{picture}}% + \else% + \raisebox{\@ATh}{\begin{picture}(25,50)% + \thicklines\put(25,50){\ATleftbranch{-1}{-2}{25}}% + \end{picture}}\fi\fi% + \unitlength\@ATlen% + \hspace*{-\@ATbp}\hspace*{\@ATwt}}\fi\fi}% + +%%------------------------------------------------------- +%% The internal procedure to draw a leaf. +%% Its base point is in the middle of the box. +%% +%% First we parse attributes, accumulating them together +%% with the grammar character. Then, we assemble the +%% morpheme with the computed box. +%%------------------------------------------------------- +\def\@ATadl#1#2{\@ifnextchar[% + {\@ATadlb{#1}{#2}}% + {\@ATadla{#1}{#2}}} +\def\@ATadla#1#2{% + \if@ATlinear\relax% + \@ATlinearmorphemeblock{#1}{#2}\else% + \if@ATtabul% + \@ATtabularmorphemeblock{#1}{#2}\else% + \setbox\@ATsa\hbox{#1}\setbox\@ATsb\hbox{#2}% + \setbox\@ATu\vbox{\copy\@ATsa\copy\@ATsb}\@ATlen\wd\@ATu% + \setbox\@ATu\vbox{% + \ATpremorphemeskip% + \hbox to\@ATlen{\hfil\copy\@ATsa\hfil}\nointerlineskip% + \ATintermorphemeskip% + \hbox to\@ATlen{\hfil\box\@ATsb\hfil}\nointerlineskip% + \ATpostmorphemeskip}% + \@ATwt\dp\@ATu\setbox\@ATu\hbox{\raise\@ATwt\hbox{\box\@ATu}}% + \setbox\@ATsa\vbox{\ATpremorphemeskip\hbox{\box\@ATsa}}% + \@ATwt\ht\@ATu\advance\@ATwt-\ht\@ATsa% + \setbox\@ATu\hbox{\lower\@ATwt\hbox{\box\@ATu}}% + \global\@ATwt\wd\@ATu\global\@ATbp .5\@ATwt% + \hbox{\box\@ATu}\fi\fi} +\def\@ATadlb#1#2[#3]{% + \@ATadlc{#1}{\@ATadld{#2}{\ATAttributeBox{#3}}}} +\def\@ATadlc#1#2{\@ifnextchar[% + {\@ATadlf{#1}{#2}}% + {\@ATadla{#1}{#2}}} +\def\@ATadld#1#2{\if@ATlinear% + \@ATlinearfirstattribute{#1}{#2}\else% + \if@ATtabul% + \@ATtabularfirstattribute{#1}{#2}\else% + \setbox\@ATsa\hbox{#1}\setbox\@ATsb\hbox{#2}% + \setbox\@ATu\vbox{\copy\@ATsa\copy\@ATsb}\@ATlen\wd\@ATu% + \vbox{% + \hbox to\@ATlen{\hfil\box\@ATsa\hfil}\nointerlineskip% + \ATfirstattrskip% + \hbox to\@ATlen{\hfil\box\@ATsb\hfil}}\fi\fi}% +\def\@ATadle#1#2{\if@ATlinear% + \@ATlinearnextattribute{#1}{#2}\else% + \if@ATtabul% + \@ATtabularnextattribute{#1}{#2}\else% + \setbox\@ATsa\hbox{#1}\setbox\@ATsb\hbox{#2}% + \setbox\@ATu\vbox{\copy\@ATsa\copy\@ATsb}\@ATlen\wd\@ATu% + \vbox{% + \hbox to\@ATlen{\hfil\box\@ATsa\hfil}\nointerlineskip% + \ATinterattrskip% + \hbox to\@ATlen{\hfil\box\@ATsb\hfil}}\fi\fi}% +\def\@ATadlf#1#2[#3]{% + \@ATadlc{#1}{\@ATadle{#2}{\ATAttributeBox{#3}}}} + +%%------------------------------------------------------- +%% The internal procedure to draw a summary. +%% Its base point is in the middle of the box. +%% +%% First we parse attributes, accumulating them together +%% with the grammar character. Then, we assemble the +%% summary symbol with the morpheme and the computed box. +%% ------------------------------------------------------- +\def\@ATads#1#2{\@ifnextchar[% + {\@ATadsb{#1}{#2}}% + {\@ATadsa{#1}{#2}}} +\def\@ATadsa#1#2{% + \if@ATlinear\relax% + \@ATlinearsummaryblock{#1}{#2}\else% + \if@ATtabul\relax% + \@ATtabularsummaryblock{#1}{#2}\else% + \setbox\@ATsa\hbox{#1}\setbox\@ATsb\hbox{#2}% + \setbox\@ATsc\hbox{\ATSummarySymbol}% + \setbox\@ATu\vbox{\copy\@ATsc\copy\@ATsa\copy\@ATsb}% + \@ATlen\wd\@ATu% + \setbox\@ATu\vbox{% + \hbox to\@ATlen{\hfil\copy\@ATsc\hfil}\nointerlineskip% + \ATpremorphemeskip% + \hbox to\@ATlen{\hfil\copy\@ATsa\hfil}\nointerlineskip% + \ATintermorphemeskip% + \hbox to\@ATlen{\hfil\box\@ATsb\hfil}\nointerlineskip% + \ATpostmorphemeskip}% + \@ATwt\dp\@ATu\setbox\@ATu\hbox{\raise\@ATwt\hbox{\box\@ATu}}% + \setbox\@ATsa\vbox{% + \hbox{\box\@ATsc}\nointerlineskip% + \ATpremorphemeskip\hbox{\box\@ATsa}}% + \@ATwt\ht\@ATu\advance\@ATwt-\ht\@ATsa% + \setbox\@ATu\hbox{\lower\@ATwt\hbox{\box\@ATu}}% + \global\@ATwt\wd\@ATu\global\@ATbp .5\@ATwt% + \hbox{\box\@ATu}\fi\fi} +\def\@ATadsb#1#2[#3]{% + \@ATadsc{#1}{\@ATadsd{#2}{\ATAttributeBox{#3}}}} +\def\@ATadsc#1#2{\@ifnextchar[% + {\@ATadsf{#1}{#2}}% + {\@ATadsa{#1}{#2}}} +\def\@ATadsd#1#2{\if@ATlinear% + \@ATlinearfirstattribute{#1}{#2}\else% + \if@ATtabul% + \@ATtabularfirstattribute{#1}{#2}\else% + \setbox\@ATsa\hbox{#1}\setbox\@ATsb\hbox{#2}% + \setbox\@ATu\vbox{\copy\@ATsa\copy\@ATsb}\@ATlen\wd\@ATu% + \vbox{% + \hbox to\@ATlen{\hfil\box\@ATsa\hfil}\nointerlineskip% + \ATfirstattrskip% + \hbox to\@ATlen{\hfil\box\@ATsb\hfil}}\fi\fi}% +\def\@ATadse#1#2{\if@ATlinear% + \@ATlinearnextattribute{#1}{#2}\else% + \if@ATtabul% + \@ATtabularnextattribute{#1}{#2}\else% + \setbox\@ATsa\hbox{#1}\setbox\@ATsb\hbox{#2}% + \setbox\@ATu\vbox{\copy\@ATsa\copy\@ATsb}\@ATlen\wd\@ATu% + \vbox{% + \hbox to\@ATlen{\hfil\box\@ATsa\hfil}\nointerlineskip% + \ATinterattrskip% + \hbox to\@ATlen{\hfil\box\@ATsb\hfil}}\fi\fi}% +\def\@ATadsf#1#2[#3]{% + \@ATadsc{#1}{\@ATadse{#2}{\ATAttributeBox{#3}}}} + +%%------------------------------------------------------- +%% The commands to format adtrees in the standard way. +%% +%% \ATMorphemeBox{<morpheme>} +%% generates a horizontal box containing the morpheme +%% +%% \ATGrammarCharacterBox{<grammar character>} +%% generates a horizontal box containing the grammar character +%% +%% \ATAttributeBox{<attribute>} +%% generates a horizontal box containing the attribute of a morpheme +%% +%% - \ATfirstattrskip generates the vertical material to be put before +%% the first attribute in a morpheme or summary box +%% - \ATinterattrskip generates the vertical material to be put +%% between two attributes in a morpheme or summary box +%% +%% - \ATpremorphemeskip generates the vertical material to be put +%% before the morpheme in a morpheme or summary box +%% - \ATintermorphemeskip generates the vertical material to be but +%% between the morpheme and the grammar character in a morpheme or +%% summary box +%% - \ATpostmorphemeskip generates the vertical material to be put +%% after the grammar character or the last attribute in a morpheme +%% or summary box +%% +%% - \ATpreadpositionskip generates the vertical material appearing +%% before the trajectory in the root of a node +%% - \ATfirstinteradpositionskip generates the vertical material to be +%% put between the trajectory and the adposition in the root of a +%% node +%% - \ATsecondinteradpositionskip generates the vertical material to +%% be put between the adposition and the grammar character in the +%% root of a node +%% - \ATpostadpositionskip generates the vertical material to be put +%% after the grammar character or the last attribute in the root of +%% a node +%% +%% \ATSummarySymbol defines the symbol used for the summary +%%------------------------------------------------------- +\def\ATMorphemeBox#1{\mbox{#1\strut}} +\def\ATGrammarCharacterBox#1{\mbox{\@ATsmall$\mathrm{#1}$}} +\def\ATAttributeBox#1{\mbox{\@ATsmall\textsf{[#1]}}} + +\def\ATfirstattrskip{\vskip.7ex} +\def\ATinterattrskip{\vskip.5ex} + +\def\ATpremorphemeskip{\vskip.5ex} +\def\ATintermorphemeskip{\vskip1ex} +\def\ATpostmorphemeskip{\relax} + +\def\ATpreadpositionskip{\relax} +\def\ATfirstinteradpositionskip{\vskip.3ex} +\def\ATsecondinteradpositionskip{\vskip.3ex} +\def\ATpostadpositionskip{\relax} + +\def\ATSummarySymbol{$\triangle$} + +\def\ATleftbranch#1#2{\line(#1,#2)} +\def\ATrightbranch#1#2{\line(#1,#2)} +\def\ATcircle{\circle*} + +%%------------------------------------------------------- +%% The following commands draw an adtree specifying its adposition, +%% the grammar character of the resulting expression, and the left and +%% right subtrees. The l, r, and b variants differ in the trajectory, +%% which is a left arrow, a right arrow, or a bidirectional arrow, +%% respectively. +%% \ATl{<adposition>}{<grammar character>} +%% {<left subtree>}{<right subtree>} +%% \ATr{<adposition>}{<grammar character>} +%% {<left subtree>}{<right subtree>} +%% \ATb{<adposition>}{<grammar character>} +%% {<left subtree>}{<right subtree>} +%% +%% A single morpheme can be typeset by the following command +%% \ATm{<morpheme>}{<grammar character>}{x1}...{xn} +%% with x1,..,xn stacked as morpheme's attributes +%% +%% A summary has the same structure as a morpheme, but it is provided +%% to give graphical evidence that the <text> can be further expanded +%% as an adtree +%% \ATs{<text>}{<grammar character>}{x1}...{xn} +%% with x1,..,xn stacked as morpheme's attributes +%% +%% To write complex adtrees, we need to extend branches on the left +%% and on the right: +%% \ATxl{<adtree>} +%% \ATxr{<adtree>} +%% +%% To avoid writing of epsilons, i.e., empty morphemes: +%% \ATle{<grammar character>} +%% {<left subtree>}{<rightsubtree>} +%% \ATre{<grammar character>} +%% {<left subtree>}{<rightsubtree>} +%% \ATbe{<grammar character>} +%% {<left subtree>}{<rightsubtree>} +%% +%% The epsilon transformations are very useful and common, so the +%% following shortcuts allow to write them quickly. +%% \ATlc{<grammar character>} +%% {<left subtree>}{<rightsubtree>} +%% \ATrc{<grammar character>} +%% {<left subtree>}{<rightsubtree>} +%% \ATbc{<grammar character>} +%% {<left subtree>}{<rightsubtree>} +%% +%% The mu adpositions indicate morphological relations. The code +%% to define them is similar to the one with the epsilons, but +%% no transformations are involved. The related commands are +%% \ATlmu{<grammar character>} +%% {<left subtree>}{<rightsubtree>} +%% \ATrmu{<grammar character>} +%% {<left subtree>}{<rightsubtree>} +%% \ATbmu{<grammar character>} +%% {<left subtree>}{<rightsubtree>} +%% +%% All the above commands, except \ATs and \ATm, come in four +%% variants: +%% - the pure variants draws the adtree in the standard way +%% - the L variants allow to specify the value for \unitlength to be +%% used in the expansion of that particular node +%% - the A variants allow to specify the value for the angle to be +%% used in the expansion of that particular node +%% - the LA variants allow to specify both values. +%%------------------------------------------------------- +\def\@ATeps{\epsilon} +\def\@ATepsc{\cancel{\@ATeps}} +\def\@ATmu{\mu} +\def\@AT@shorttree#1#2#3#4#5{% + \@ATtree{#1}{#2}{\hbox{$#3$}}% + {\ATMorphemeBox{#4}}% + {\ATGrammarCharacterBox{#5}}} +\def\ATlLA#1#2{\@AT@shorttree{#1}{#2}{\scriptstyle\leftarrow}} +\def\ATl{\ATlLA{\unitlength}{\@ATangle}} +\def\ATlL#1{\ATlLA{#1}{\@ATangle}} +\def\ATlA{\ATlLA{\unitlength}} +\def\ATrLA#1#2{\@AT@shorttree{#1}{#2}{\scriptstyle\rightarrow}} +\def\ATr{\ATrLA{\unitlength}{\@ATangle}} +\def\ATrL#1{\ATrLA{#1}{\@ATangle}} +\def\ATrA{\ATrLA{\unitlength}} +\def\ATbLA#1#2{\@AT@shorttree{#1}{#2}{\scriptstyle\leftrightarrow}} +\def\ATb{\ATbLA{\unitlength}{\@ATangle}} +\def\ATbL#1{\ATbLA{#1}{\@ATangle}} +\def\ATbA{\ATbLA{\unitlength}} +\def\ATleLA#1#2{\ATlLA{#1}{#2}{$\@ATeps$}} +\def\ATle{\ATl{$\@ATeps$}} +\def\ATleL#1{\ATlL{#1}{$\@ATeps$}} +\def\ATleA#1{\ATlA{#1}{$\@ATeps$}} +\def\ATlc{\ATl{$\@ATepsc$}} +\def\ATlcL#1{\ATlL{#1}{$\@ATepsc$}} +\def\ATlcA#1{\ATlA{#1}{$\@ATepsc$}} +\def\ATlcLA#1#2{\ATlLA{#1}{#2}{$\@ATepsc$}} +\def\ATlmu{\ATl{$\@ATmu$}} +\def\ATlmuL#1{\ATlL{#1}{$\@ATmu$}} +\def\ATlmuA#1{\ATlA{#1}{$\@ATmu$}} +\def\ATlmuLA#1#2{\ATlLA{#1}{#2}{$\@ATmu$}} +\def\ATre{\ATr{$\@ATeps$}} +\def\ATreL#1{\ATrL{#1}{$\@ATeps$}} +\def\ATreA#1{\ATrA{#1}{$\@ATeps$}} +\def\ATreLA#1#2{\ATrLA{#1}{#2}{$\@ATeps$}} +\def\ATrc{\ATr{$\@ATepsc$}} +\def\ATrcL#1{\ATrL{#1}{$\@ATepsc$}} +\def\ATrcA#1{\ATrA{#1}{$\@ATepsc$}} +\def\ATrcLA#1#2{\ATrLA{#1}{#2}{$\@ATepsc$}} +\def\ATrmu{\ATr{$\@ATmu$}} +\def\ATrmuL#1{\ATrL{#1}{$\@ATmu$}} +\def\ATrmuA#1{\ATrA{#1}{$\@ATmu$}} +\def\ATrmuLA#1#2{\ATrLA{#1}{#2}{$\@ATmu$}} +\def\ATbe{\ATb{$\@ATeps$}} +\def\ATbeL#1{\ATbL{#1}{$\@ATeps$}} +\def\ATbeA#1{\ATbA{#1}{$\@ATeps$}} +\def\ATbeLA#1#2{\ATbLA{#1}{#2}{$\@ATeps$}} +\def\ATbc{\ATb{$\@ATepsc$}} +\def\ATbcL#1{\ATbL{#1}{$\@ATepsc$}} +\def\ATbcA#1{\ATbA{#1}{$\@ATepsc$}} +\def\ATbcLA#1#2{\ATbLA{#1}{#2}{$\@ATepsc$}} +\def\ATbmu{\ATb{$\@ATmu$}} +\def\ATbmuL#1{\ATbL{#1}{$\@ATmu$}} +\def\ATbmuA#1{\ATbA{#1}{$\@ATmu$}} +\def\ATbmuLA#1#2{\ATbLA{#1}{#2}{$\@ATmu$}} +\def\ATxlLA#1#2{\@ATleft{#1}{#2}} +\def\ATxl{\ATxlLA{\unitlength}{\@ATangle}} +\def\ATxlL#1{\ATxlLA{#1}{\@ATangle}} +\def\ATxlA{\ATxlLA{\unitlength}} +\def\ATxrLA#1#2{\@ATright{#1}{#2}} +\def\ATxr{\ATxrLA{\unitlength}{\@ATangle}} +\def\ATxrL#1{\ATxrLA{#1}{\@ATangle}} +\def\ATxrA{\ATxrLA{\unitlength}} +\def\ATs#1#2{\@ATads{\ATMorphemeBox{#1}}{\ATGrammarCharacterBox{#2}}} +\def\ATm#1#2{\@ATadl{\ATMorphemeBox{#1}}{\ATGrammarCharacterBox{#2}}} + +%%------------------------------------------------------- +%% Public commands to write adtrees in linear format. +%% +%% Essentially, an adtree is written as Ad^dir_GC(L, R), +%% where Ad is the adposition, dir is the direction, GC +%% is the grammar character, and L and R are the left and +%% right subtrees respectively. Leaves are written as +%% m_GC, where m is the morpheme, and summaries as (t)_GC +%% where t is the text. All these renderings are coded via +%% suitable blocks +%%------------------------------------------------------- +\def\ATLinear{\global\@ATlineartrue\global\@ATtabulfalse% + \gdef\@ATlinearadpositionblock{\ATlinearadpositionblock}% + \gdef\@ATlinearfirstattribute{\ATlinearfirstattribute}% + \gdef\@ATlinearnextattribute{\ATlinearnextattribute}% + \gdef\@ATlinearsubtrees{\ATlinearsubtrees}% + \gdef\@ATlinearmorphemeblock{\ATlinearmorphemeblock}% + \gdef\@ATlinearsummaryblock{\ATlinearsummaryblock}} +\def\ATNormal{\global\@ATlinearfalse\global\@ATtabulfalse} +\def\ATlinearise#1{\ATLinear\ensuremath{#1}\ATNormal} + +\def\ATlinearadpositionblock#1#2#3% + {{#2}\textsuperscript{#1}\textsubscript{#3}} +\def\ATlinearfirstattribute#1{{#1}:} +\def\ATlinearnextattribute#1{{#1};} +\def\ATlinearsubtrees#1#2{(#1,\linebreak[0] #2)} +\def\ATlinearmorphemeblock#1#2{{#1}\textsubscript{#2}} +\def\ATlinearsummaryblock#1#2{\mbox{$\triangle($}% + \mbox{#1}\mbox{$)$}\textsubscript{#2}} +\def\@ATlinearadpositionblock{\ATlinearadpositionblock}% +\def\@ATlinearfirstattribute{\ATlinearfirstattribute}% +\def\@ATlinearnextattribute{\ATlinearnextattribute}% +\def\@ATlinearsubtrees{\ATlinearsubtrees}% +\def\@ATlinearmorphemeblock{\ATlinearmorphemeblock}% +\def\@ATlinearsummaryblock{\ATlinearsummaryblock} + +%%------------------------------------------------------- +%% Public commands to write adtrees in tabular format. +%% +%% Essentially, an adtree is written as +%% Ad^dir_GC( +%% L, +%% R) +%% where Ad is the adposition, dir is the direction, GC +%% is the grammar character, and L and R are the left and +%% right subtrees respectively. Leaves are written as +%% m_GC, where m is the morpheme, and summaries as (t)_GC +%% where t is the text. All these renderings are coded via +%% suitable blocks +%%------------------------------------------------------- +\def\ATTabular{\global\@ATtabultrue\global\@ATlinearfalse% + \gdef\@ATtabularadpositionblock{\ATtabularadpositionblock}% + \gdef\@ATtabularfirstattribute{\ATtabularfirstattribute}% + \gdef\@ATtabularnextattribute{\ATtabularnextattribute}% + \gdef\@ATtabularsubtrees{\ATtabularsubtrees}% + \gdef\@ATtabularmorphemeblock{\ATtabularmorphemeblock}% + \gdef\@ATtabularsummaryblock{\ATtabularsummaryblock}% + \@AT@tabcountreset} + +\newenvironment{ATtabulardisplay} +{\ATTabular\unskip\hfill\break} +{\ATNormal} + +\newenvironment{ATtabular} +{\hbox\bgroup\ATTabular} +{\egroup\ATNormal} + +\def\ATtabskip{\hspace*{.7em}} +\def\ATtabindent{\hspace*{1em}} + +\newcount\@AT@tabcount +\newcount\@AT@@tabcount +\def\@AT@tabcountreset{\global\@AT@tabcount0} +\def\AT@loop@tab{\@AT@@tabcount\@AT@tabcount% + \ifnum\@AT@@tabcount>0% + \loop\ATtabskip\advance\@AT@@tabcount-1% + \ifnum\@AT@@tabcount>0\repeat\else\relax\fi} + +\def\ATtabularadpositionblock#1#2#3{% + \hbox{\ATtabindent\AT@loop@tab% + {#2}\textsuperscript{#1}\textsubscript{#3}}} +\def\ATtabularmorphemeblock#1#2{ + \hbox{\ATtabindent\AT@loop@tab% + {#1}\textsubscript{#2}}} +\def\ATtabularsummaryblock#1#2{ + \hbox{\ATtabindent\AT@loop@tab% + \mbox{$\triangle($}% + \mbox{#1}\mbox{$)$}\textsubscript{#2}}} +\def\ATtabularfirstattribute{\ATlinearfirstattribute} +\def\ATtabularnextattribute{\ATlinearnextattribute} +\def\ATtabularsubtrees#1#2{% + \advance\@AT@tabcount1% + \vbox{#1\relax#2}% + \advance\@AT@tabcount-1} +\def\@ATtabularadpositionblock{\ATtabularadpositionblock}% +\def\@ATtabularfirstattribute{\ATtabularfirstattribute}% +\def\@ATtabularnextattribute{\ATtabularnextattribute}% +\def\@ATtabularsubtrees{\ATtabularsubtrees}% +\def\@ATtabularmorphemeblock{\ATtabularmorphemeblock}% +\def\@ATtabularsummaryblock{\ATtabularsummaryblock}% + +%%------------------------------------------------------- +%% Centring adtrees. +%% +%% The command \ATvcentre{<adtree>} vertically centres its argument +%% with respect to the current baseline +%% +%% The command \AThcentre{<adtree>} horizontally centres its argument +%% around the current position in the baseline +%% +%% The command \ATcentre{<adtree>} centres its argument both +%% horizontally and vertically around the current position in the +%% baseline +%%------------------------------------------------------- +\def\ATvcentre#1{% + \setbox\@ATsc\hbox{#1}% + \@ATlen\dp\@ATsc\setbox\@ATsc\hbox{\raise\@ATlen\box\@ATsc}% + \@ATlen.5\ht\@ATsc\hbox{\lower\@ATlen\box\@ATsc}}% +\def\AThcentre#1{% + \setbox\@ATsc\hbox{#1}% + \@ATlen-.5\wd\@ATsc\hbox{\kern\@ATlen\box\@ATsc}} +\def\ATcentre#1{\AThcentre{\ATvcentre{#1}}} + +%%------------------------------------------------------- +%% Pathlike adtrees. +%% +%% A pathlike adtree is rendered by enclosing it into the +%% pathlikeadtree environment. +%%------------------------------------------------------- + +% the pieces the user may use and change +\newskip\ATpathinterskip \ATpathinterskip.5em +\newskip\ATpathunitlength \ATpathunitlength4ex +\newskip\ATpicskip \ATpicskip.2ex +\newskip\ATpathlinethickness \ATpathlinethickness.1em +\def\ATnGCBox#1{\@ATsmall$\mathrm{#1}$} +\def\ATlGCBox#1{\@ATsmall$\mathrm{#1}$} +\newskip\ATpathlabelhspace \ATpathlabelhspace.3em +\newskip\ATpathlabelvspace \ATpathlabelvspace1ex +\def\ATpathpichook{} + +%\newenvironment{pathlikeadtree} +\def\pathlikeadtree{\@ATpathlistinit} +\def\endpathlikeadtree{\@ATpathlistend} + +% some internal declarations +\newif\if@ATpathfirstnode +\newbox\@ATpathbox \newbox\@ATpathlinebox +\newcount\@ATanchor \newcount\@ATcells \newcount\@ATadppars +\newcount\@ATpa \newcount\@ATpb \newcount\@ATpc +\newcount\@ATpd \newcount\@ATpe \newcount\@ATtmp +\newcount\@ATtmpa \newcount\@AThmax + +% A pathlike adtree starts with parsing a node after cleaning up what +% has to be done, and temporarily redefining & +\def\@ATpathlistinit{% + \begingroup% + \linethickness{\ATpathlinethickness}% + \global\@ATpathfirstnodetrue\global\@ATanchor0\global\@ATcells0% + \global\@ATadppars0\global\@AThmax0\def\@ATpathdrawlines{\relax}% + \setbox\@ATpathbox\null\setbox\@ATpathlinebox\null\AT@n} + +% A pathlike adtree ends by drawing the two boxes which contain the +% list of marked morphemes and the connecting lines, respectively +\def\@ATpathlistend{% + \def\@ATca##1{\@ATpa ##1\relax}\def\@ATcb##1{\@ATpb ##1\relax}% + \def\@ATcc##1{\@ATpc ##1\relax}\def\@ATcd##1{\@ATpd ##1\relax}% + \def\@ATce##1{\@ATpe ##1\@ATto}\@ATpathdrawlines% + \global\setbox\@ATpathbox\hbox{% + \vbox{\box\@ATpathbox\nointerlineskip% + \vskip\ATpicskip\box\@ATpathlinebox}}% + \box\@ATpathbox\endgroup} + +% Parsing a node: it has the form +% - morpheme[gc] +% possibly followed by one or more arrow specs +\def\AT@n#1[#2]{\@ifnextchar(% + {\@ATn{#1}{#2}\AT@to} + {\@ATn{#1}{#2}}} +\def\AT@np{\@ifnextchar&{\@AT@n}{}} +\def\@AT@n[#2]{\AT@n#1[#2]} + +% when morpheme[gc] has been extracted, its cell is constructed as a +% box and accumulated in the pathbox, correctly spaced +% At the end, we pass on the next cell, if any +\def\@ATn#1#2{% + \global\advance\@ATanchor1% + \setbox\@ATsa\hbox{\ignorespaces#1}\@ATlen\wd\@ATsa% + \setbox\@ATsb\hbox{\ATnGCBox{#2}}\@ATwt\wd\@ATsb\relax% + \ifdim\@ATlen<\@ATwt\relax\@ATlen\@ATwt\fi% + \setbox\@ATsa\vbox{\hbox to\@ATlen{\hfil\box\@ATsa\hfil}% + \hbox to\@ATlen{\hfil\box\@ATsb\hfil}}% + \@ATwt\wd\@ATpathbox\advance\@ATwt.5\@ATlen% + \if@ATpathfirstnode\else\advance\@ATwt\ATpathinterskip\fi% + \expandafter\edef\csname @ATcell\the\@ATanchor\endcsname{\the\@ATwt}% + \setbox\@ATpathbox\hbox{\box\@ATpathbox% + \if@ATpathfirstnode\global\@ATpathfirstnodefalse\else% + \hskip\ATpathinterskip\fi\box\@ATsa}% + \@ifnextchar&{\AT@np}{}} + +% parsing an arrow spec: it has the form +% (t,h)[gc]<a> +% where the "a" part is optional +% moreover, if "t" or "a" are specified by absolute positions, they +% are preceded by "!". +% parsing calculates the absolute values of the relative positions, +% and send everything to \@ATtoa +\def\AT@to(#1){\AT@@to#1)} +\def\AT@@to{\@ifnextchar!{\AT@to@a}{\AT@tor(}} +\def\AT@to@a!#1){\AT@toa(#1)} +\def\AT@tor(#1,#2){% + \@ATtmp#1\advance\@ATtmp\@ATanchor\relax% + \AT@toa(\the\@ATtmp,#2)} +\def\AT@toa(#1,#2)[#3]{\@ifnextchar<% + {\@AT@toa{#1}{#2}{\ATlGCBox{#3}}}% + {\@ATtoa{#1}{#2}{\ATlGCBox{#3}}{0}}} +\def\@AT@toa#1#2#3<{\@ifnextchar!% + {\@AT@@toa{#1}{#2}{#3}}% + {\@ATtoar{#1}{#2}{#3}}} +\def\@AT@@toa#1#2#3!#4>{\@ATtoa{#1}{#2}{#3}{#4}} +\def\@ATtoar#1#2#3#4>{% + \@ATtmpa#4\relax\ifnum#4=\z@\relax\@ATtmpa\z@% + \else\advance\@ATtmpa\@ATanchor\fi% + \@ATtoa{#1}{#2}{#3}{\the\@ATtmpa}} + +% when an arrow has been parsed, we must accumulate it into the +% command \@ATpathdrawlines which will construct the arrows at the +% right moment, i.e., after the whole pathlike adtree has been +% scanned. Notice how the command checks whether an arrow is followed +% by another one, eventually restarting the parsing process for the +% new arrow. If not, let's move to the next cell, if any +\def\@ATtoa#1#2#3#4{% + \ifnum\@AThmax<#2\relax\@AThmax#2\fi% + \def\@ATca{\noexpand\@ATca}\def\@ATcb{\noexpand\@ATcb}% + \def\@ATcc{\noexpand\@ATcc}\def\@ATcd{\noexpand\@ATcd}% + \def\@ATce{\noexpand\@ATce}% + \expandafter\def\csname @ATadppar\the\@ATadppars\endcsname{#3}% + \expandafter\edef\expandafter\@ATpathdrawlines\expandafter{% + \@ATca{\the\@ATanchor}\@ATcb{#1}\@ATcc{#2}% + \@ATcd{\the\@ATadppars}\@ATce{#4}\@ATpathdrawlines}% + \global\advance\@ATadppars1\relax + \@ifnextchar({\AT@to}{\AT@np}} + +% at the end, an arrow is effectively drawn. +\def\@ATto{% + \edef\@AText{\csname @ATcell\the\@ATpa\endcsname}\@ATbl\@AText% + \edef\@AText{\csname @ATcell\the\@ATpb\endcsname}\@ATbr\@AText% + \setbox\@ATsa\hbox{\csname @ATadppar\the\@ATpd\endcsname}% + \setbox\@ATsa\hbox{% + \hskip\ATpathlabelhspace\box\@ATsa\hskip\ATpathlabelhspace}% + \@ATbp\ht\@ATsa\advance\@ATbp\dp\@ATsa% + \advance\@ATbp\ATpathlabelvspace\relax% + \@ATskip\wd\@ATsa\relax\unitlength1pt\relax% + \@ATh\@ATpc\ATpathunitlength\relax% + \@ATunit\@AThmax\ATpathunitlength\relax% + \@ATlen\@ATbr\advance\@ATlen\@ATbl\relax% + \@ATwr\@ATbr\advance\@ATwr-\@ATbl\relax% + \@ATrr\@ATunit\advance\@ATrr-\@ATh\relax% + \ifnum\@ATpe=\z@\else% + \edef\@AText{\csname @ATcell\the\@ATpe\endcsname}\@ATrl\@AText\fi% + \ATpathpichook\relax% + \setbox\@ATu\hbox{% + \begin{picture}(\strip@pt\@ATlen,\strip@pt\@ATunit) + \put(\strip@pt\@ATbl,\strip@pt\@ATunit)% + {\line(0,-1){\strip@pt\@ATh}}% + \put(\strip@pt\@ATbr,\strip@pt\@ATunit)% + {\line(0,-1){\strip@pt\@ATh}}% + \ifdim\@ATwr<\z@\relax% + \put(\strip@pt\@ATbl,\strip@pt\@ATrr)% + {\vector(-1,0){-\strip@pt\@ATwr}}% + \put(\strip@pt\@ATbr,\strip@pt\@ATrr)% + {\makebox(0,\strip@pt\@ATbp)[l]{\box\@ATsa}}\else% + \put(\strip@pt\@ATbl,\strip@pt\@ATrr)% + {\vector(1,0){\strip@pt\@ATwr}}% + \put(\strip@pt\@ATbr,\strip@pt\@ATrr)% + {\makebox(0,\strip@pt\@ATbp)[r]{\box\@ATsa}}\fi% + \ifnum\@ATpe=\z@\else\ifdim\@ATrl<\@ATbl% + \@ATwt.5\ATpathunitlength% + \@ATwl\@ATbl\advance\@ATwl-\@ATwt% + \@ATwr\@ATrr\advance\@ATwr2\@ATwt% + \dottedline{3}(\strip@pt\@ATbl,\strip@pt\@ATrr)% + (\strip@pt\@ATwl,\strip@pt\@ATwr)% + \advance\@ATbl-\@ATwt\advance\@ATrr2\@ATwt% + \@ATlen\@ATbl\advance\@ATlen-\@ATrl% + \@ATwl\@ATbl\advance\@ATwl-\@ATlen% + \dottedline{3}(\strip@pt\@ATbl,\strip@pt\@ATrr)% + (\strip@pt\@ATwl,\strip@pt\@ATrr)% + \dottedline{3}(\strip@pt\@ATrl,\strip@pt\@ATunit)% + (\strip@pt\@ATrl,\strip@pt\@ATrr)\else% + \@ATwt.5\ATpathunitlength% + \@ATwl\@ATbl\advance\@ATwl\@ATwt% + \@ATwr\@ATrr\advance\@ATwr2\@ATwt% + \dottedline{3}(\strip@pt\@ATbl,\strip@pt\@ATrr)% + (\strip@pt\@ATwl,\strip@pt\@ATwr)% + \advance\@ATbl\@ATwt\advance\@ATrr2\@ATwt% + \@ATlen\@ATbl\advance\@ATlen-\@ATrl% + \@ATwl\@ATbl\advance\@ATwl-\@ATlen% + \dottedline{3}(\strip@pt\@ATbl,\strip@pt\@ATrr)% + (\strip@pt\@ATwl,\strip@pt\@ATrr)% + \dottedline{3}(\strip@pt\@ATrl,\strip@pt\@ATunit)% + (\strip@pt\@ATrl,\strip@pt\@ATrr)\fi\fi% + \end{picture}}% + \setbox\@ATpathlinebox\hbox{% + \box\@ATu\kern-\@ATlen\box\@ATpathlinebox}} |