path: root/macros/latex/contrib/rst/rst.sty

%%%
%%% Macros to typeset Rhetorical Structures (RSTs).
%%%
%%% Written by David Reitter (reitter at mle.media.mit.edu)
%%%
%%% All rights reserved. Usage is free, put please cite or point to the manual.
%%% Copyright 2003 David Reitter
%%%
%%% New versions to be found here: http://www.reitter-it-media.de/compling/
%%%

%%%
%%% This package provides the commands \dirrel, \multinuc, \rstsegment
%%% and the environment rhetoricaltext with the associated commands \unit, \source and \relr.
%%%
%%% Please refer to rst.pdf for instructions.
%%%

%%% revised 11-06: horizontal spacing issues (at least) improved so that relation names 
%%%                        can be drawn correctly. Still does not work well in some multi-satellite
%%%                        configurations.
%%% revised 01-15: rhetoricaltext environment uses better label / reference mechanism now
%%%                        so TeX won't run out of memory when working with large documents and
%%%                        many rhetoricaltexts. You always need to compile twice to get the refs right!
%%% revised 02-12: rhetoricaltext environment does not use \lineheight any more. Margins
%%%                        before and after rhetoricaltexts may change.
%%% revised 02-17: provide \rl command to format a relation name (capitalized)
%%%                        All relation names in diagrams are capitalized now

\ProvidesPackage {rst}
    [2003/02/17 typeset rhetorical structures v. 1.3]

\RequirePackage{color}

\newlength{\compressionWidth}
\setlength{\compressionWidth}{0pt}  % set to any length>0 to compress trees horizontally

\newlength{\terminalWidth}
\setlength{\terminalWidth}{100pt}  % set to any length>0 to compress trees horizontally

\newlength{\rstmargin}          % left and right margin
\setlength{\rstmargin}{3pt}  
 
\newlength{\rstmiddleskip}          % margin between spans

\setlength{\rstmiddleskip}{1em}

%empty the following two if you wish NOT to use the color package
\newcommand{\relnamebgcolor}{}%       background color. 
\newcommand{\relnamecolor}{red}%     relation name color


%uncomment the following two if you wish NOT to use the color package
\newcommand{\mycolorbox}{}  % uncommented so that \raisebox may be used

%\newcommand{\mycolor}{}




%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% no change beyond this point.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\providecommand {\rl}[1]{\textsc{\expandafter\MakeUppercase#1}}



% internal stuff 






\newcommand{\nuc}{}



\providecommand{\mycolorbox}{\colorbox}

\providecommand{\mycolor}{\color}

\newlength{\drwdone}
\newlength{\drwdtwo}
\newlength{\drwdthree}
\newlength{\drwdfour}
\newlength{\drwdfive}
\newlength{\drwdtemp}
\newlength{\drwdtempx}
\newlength{\drwdtempy}


\newlength{\drwdbezleft}
\newlength{\drwdbezright}
\newlength{\drwdbezA}
\newlength{\drwdbezB}
\newlength{\drwdbezC}
\newlength{\drwdbezD}
\newlength{\drwdbezE}
\newlength{\drwdgraph}
\newlength{\drwdmiddle}
\newlength{\drwdmiddleOne}
\newlength{\drwdmiddleTwo}
\newlength{\drwdmiddleThree}
\newlength{\drwdmiddleFour}
\newlength{\drhegraph}
\newlength{\drhetext}
\newlength{\drhetotal}
%\newlength{\drwdrstrealwidth}% temp (local)
%\newlength{\rstrealwidth}% global (as return var)
%\newlength{\rstleftoffset}% global (as return var)
%\newlength{\rstrightoffset}% global (as return var)
%\gdef\rstrealwidth{}\gdef\rstleftoffset{}\gdef\rstleftoffset{}% all global
\newlength{\relnamepos}
\newlength{\@relnamewd}            
\newsavebox{\rstboxone}
\newsavebox{\rstboxtwo}
\newsavebox{\rstboxthree}
\newsavebox{\rstboxfour}
\newsavebox{\rstboxfive}
\newsavebox{\rstallbox}

\newcommand\@optOne{}
\newcommand\@optTwo{}
\newcommand\@optThree{}
\newcommand\@optFour{}
\newcommand\@optFive{}
\newcommand\@relOne{}
\newcommand\@relTwo{}
\newcommand\@relThree{}
\newcommand\@relFour{}
\newcommand\@relFive{}
%\makeatletter
\newcommand{\LenToUnit}[1]{%
    #1\@gobble
}
%\makeatother

\newcommand{\drhspacer}[1]{%
\setlength{\unitlength}{#1}%    
\begin{picture}(1,0)(0,0)% spacing
\end{picture}%
}

%% This package ...


\let\rstvarfont=\it%          Font for variables
\let\rstcondfont=\rm%         Font for conditions -- no spaces in here!!
\let\rstseparator=\hline%     Separator between variables and conditions

\newcommand{\relnamefont} [1] {\mycolor\relnamecolor\small\rl{#1}}

  
\newcount\@rstlevel \@rstlevel=0
%\def\rst@strut{{\large\strut}}
%\def\dirrel@strut{{\large\strut}}

\newlength{\myVSpace}% the height of the box
\setlength{\myVSpace}{1ex}% the default, 
\newcommand\xstrut{\raisebox{-1\myVSpace}% symmetric behaviour, 
  {\rule{0pt}{\myVSpace}}%
}


% calc middle position
\newcommand{\setmiddle}[3]{
\setlength{#1}{#2}
\addtolength{#1}{#3}
\setlength{#1}{.5 #1}
}


\newlength{\@strhtemp}
\newcommand{\settorealheight}[2]{%
\settoheight{#1}{#2}%
\settodepth{\@strhtemp}{#2}%
\addtolength{#1}{\@strhtemp}%
}%

\newlength{\drwdemptycheck}
\newcommand{\ifemptyd}[1]{\settowidth{\drwdemptycheck}{#1}\ifnum\drwdemptycheck<1}% this is stupid, but other variants did not work
\newcommand{\ifemptydd}[3]{\settowidth{\drwdemptycheck}{#1}\ifnum\drwdemptycheck<1#2\else#3\fi}% this is stupid, but other variants did not work

%for compatibility reasons (old aux files)
\newcommand{\@definerstlabelu}[2]{}
\newcommand{\@definerstlabelt}[2]{}

% called from .aux file
%\newcommand{\@definerstlabelu}[2]{\@ifundefined{c@uu#1}{\newcounter{uu#1}}{}%
%\setcounter{uu#1}{#2}}
%\newcommand{\@definerstlabelt}[2]{\@ifundefined{c@tt#1}{\newcounter{tt#1}}{}%
%\setcounter{tt#1}{#2}}
%\newcommand{\@definerstlabelu}[2]{\def{\c@rstuu#1}{#2}}%
%\newcommand{\@definerstlabelt}[2]{\def{\c@rsttt#1}{#2}}%
% local versions
%\newcommand{\@definerstlabelintu}[2]{\newcounter{u#1}%
%\setcounter{u#1}{#2}}
%\newcommand{\@definerstlabelintt}[2]{\newcounter{t#1}%
%\setcounter{t#1}{#2}}
%\newcommand{\@definerstlabelintu}[2]{\def\u#1{#2}}
%\newcommand{\@definerstlabelintt}[2]{\def\t#1{#2}}
%
\def\tmakedef#1#2{\expandafter\xdef\csname #1\endcsname{#2}}%
\newcounter{rhetoricaltextno}
\setcounter{rhetoricaltextno}{0}
\newcounter{rhetoricalunitno}
\newenvironment{rhetoricaltext}{
\addtocounter{rhetoricaltextno}{1}\setcounter{rhetoricalunitno}{0}\setlength{\parindent}{0pt}\flushleft\sf}{\vspace{\baselineskip}}
\newcommand{\unit}[2][]{%
\ifemptyd{#1}[#2]\else%
\addtocounter{rhetoricalunitno}{1}%
%\@ifundefined{uu#1}{}{\typeout{rst-package error: you defined the #1 label for a rst unit twice.}}%
%\@definerstlabelu{#1}{\value{rhetoricalunitno}}%
%\@definerstlabelt{#1}{\value{rhetoricaltextno}}%
%\if@filesw\immediate\write\@auxout{\noexpand\@definerstlabelu{#1}{\arabic{rhetoricalunitno}}}%
%\immediate\write\@auxout{\noexpand\@definerstlabelt{#1}{\arabic{rhetoricaltextno}}}\fi%
\if@filesw\immediate\write\@auxout{\noexpand\tmakedef{rstuu#1}{\Alph{rhetoricalunitno}}}%
\immediate\write\@auxout{\noexpand\tmakedef{rsttt#1}{\arabic{rhetoricaltextno}}}\fi%
%\def\c@u#1{\Alph{rhetoricalunitno}}%
%\def\c@t#1{\arabic{rhetoricaltextno}}%
[#2]$^{\arabic{rhetoricaltextno}\Alph{rhetoricalunitno}}$\fi}
%\newcommand{\refr}[1]{\@ifundefined{@rstt#1}{\@ifundefined{@rsttt#1}{??}{\csname\@rsttt#1\endcsname\csname\@rstuu#1\endcsname}}{\csname\t#1\endcsname\csname\u#1\endcsname}}

\def\tcallup#1{\csname #1\endcsname}
\newcommand{\refr}[1]{\tcallup{rsttt#1}\tcallup{rstuu#1}}%

%\newcommand{\refr}[1]{\@ifundefined{\expandafter\csname\@rsttt #1\endcsname}{??}{\csname\@rsttt#1\endcsname\csname\@rstuu#1\endcsname}}%
%\newcommand{\refr}[1]{\@ifundefined{c@t#1}{\@ifundefined{c@tt#1}{??}{\arabic{tt#1}\Alph{uu#1}}}{\arabic{t#1}\Alph{u#1}}}
\newcommand{\source}[1]{ {\hfill\small(#1)}}




\newcommand{\addadditionalspace}%
{\ifemptydd{\@relOne}%\else% if 1 is the nuc
{% to 1st right
\settowidth{\drwdtemp}{\relnamefont{\ \@relTwo\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.5\drwdone}%half of nuc
\addtolength{\drwdtempx}{\drwdmiddleOne}%
\addtolength{\drwdtempx}{0.8\drwdtwo}%most of right
\ifdim\drwdtemp>\drwdtempx%
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleOne}{\drwdtemp}%
\fi%
% to 2. right
\settowidth{\drwdtemp}{\relnamefont{\ \@relThree\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.5\drwdone}%half of nuc
\addtolength{\drwdtempx}{\drwdmiddleOne}%
\addtolength{\drwdtempx}{\drwdtwo}%
\addtolength{\drwdtempx}{\drwdmiddleTwo}%
\addtolength{\drwdtempx}{0.8\drwdthree}%most of right
\ifdim\drwdtemp>\drwdtempx
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleTwo}{\drwdtemp}%
\fi%
% to 3. right
\settowidth{\drwdtemp}{\relnamefont{\ \@relFour\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.5\drwdone}%half of nuc
\addtolength{\drwdtempx}{\drwdmiddleOne}%
\addtolength{\drwdtempx}{\drwdtwo}%
\addtolength{\drwdtempx}{\drwdmiddleTwo}%
\addtolength{\drwdtempx}{\drwdthree}% 
\addtolength{\drwdtempx}{\drwdmiddleThree}%
\addtolength{\drwdtempx}{0.8\drwdfour}%most of right
\ifdim\drwdtemp>\drwdtempx
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleThree}{\drwdtemp}%
\fi%
% to 4. right
\settowidth{\drwdtemp}{\relnamefont{\ \@relFive\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.5\drwdone}%half of nuc
\addtolength{\drwdtempx}{\drwdmiddleOne}%
\addtolength{\drwdtempx}{\drwdtwo}%
\addtolength{\drwdtempx}{\drwdmiddleTwo}%
\addtolength{\drwdtempx}{\drwdthree}% 
\addtolength{\drwdtempx}{\drwdmiddleThree}%
\addtolength{\drwdtempx}{\drwdthree}%most of right
\addtolength{\drwdtempx}{\drwdmiddleFour}%
\addtolength{\drwdtempx}{0.8\drwdfive}%most of right
\ifdim\drwdtemp>\drwdtempx
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleFour}{\drwdtemp}%
\fi%
}{}%
\ifnum\drwdtwo>0\ifemptydd{\@relTwo}%\else% if 2 is the nuc
{% to 1st left
\settowidth{\drwdtemp}{\relnamefont{\ \@relOne\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.8\drwdone}%most of left
\addtolength{\drwdtempx}{\drwdmiddleOne}%
\addtolength{\drwdtempx}{0.5\drwdtwo}%half of nuc
\ifdim\drwdtemp>\drwdtempx%
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleOne}{\drwdtemp}%
\fi%
% to 1st right
\settowidth{\drwdtemp}{\relnamefont{\ \@relThree\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.5\drwdtwo}%half of nuc
\addtolength{\drwdtempx}{\drwdmiddleTwo}%
\addtolength{\drwdtempx}{0.8\drwdthree}%most of right
\ifdim\drwdtemp>\drwdtempx
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleTwo}{\drwdtemp}%
\fi%
% to 2nd right
\settowidth{\drwdtemp}{\relnamefont{\ \@relFour\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.5\drwdtwo}%half of nuc
\addtolength{\drwdtempx}{\drwdmiddleTwo}%
\addtolength{\drwdtempx}{\drwdthree}% 
\addtolength{\drwdtempx}{\drwdmiddleThree}%
\addtolength{\drwdtempx}{0.8\drwdfour}%most of right
\ifdim\drwdtemp>\drwdtempx
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleThree}{\drwdtemp}%
\fi%
% to 4th right
\settowidth{\drwdtemp}{\relnamefont{\ \@relFive\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.5\drwdtwo}%half of nuc
\addtolength{\drwdtempx}{\drwdmiddleTwo}%
\addtolength{\drwdtempx}{\drwdthree}% 
\addtolength{\drwdtempx}{\drwdmiddleThree}%
\addtolength{\drwdtempx}{\drwdthree}%most of right
\addtolength{\drwdtempx}{\drwdmiddleFour}%
\addtolength{\drwdtempx}{0.8\drwdfive}%most of right
\ifdim\drwdtemp>\drwdtempx
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleFour}{\drwdtemp}%
\fi%
}{}\fi%
\ifnum\drwdthree>0\ifemptydd{\@relThree}%\else% if 3 is the nuc
{% to 1st left
\settowidth{\drwdtemp}{\relnamefont{\ \@relTwo\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.8\drwdtwo}%most of left
\addtolength{\drwdtempx}{\drwdmiddleTwo}%
\addtolength{\drwdtempx}{0.5\drwdthree}%half of nuc
\ifdim\drwdtemp>\drwdtempx%
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleTwo}{\drwdtemp}%
\fi%
% to 2nd left
\settowidth{\drwdtemp}{\relnamefont{\ \@relOne\ }}%
\setlength{\drwdtemp}{\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.8\drwdone}%most of left
\addtolength{\drwdtempx}{\drwdmiddleOne}%
\setlength{\drwdtempx}{\drwdtwo}%
\addtolength{\drwdtempx}{\drwdmiddleTwo}%
\addtolength{\drwdtempx}{0.5\drwdthree}%half of nuc
\ifdim\drwdtemp>\drwdtempx%
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleOne}{\drwdtemp}%
\fi%
% to 1st right
\settowidth{\drwdtemp}{\relnamefont{\ \@relFour\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.5\drwdthree}%half of nuc
\addtolength{\drwdtempx}{\drwdmiddleThree}%
\addtolength{\drwdtempx}{0.8\drwdfour}%most of right
\ifdim\drwdtemp>\drwdtempx
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleThree}{\drwdtemp}%
\fi%
% to 2nd right
\settowidth{\drwdtemp}{\relnamefont{\ \@relFive\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.5\drwdthree}%half of nuc
\addtolength{\drwdtempx}{\drwdmiddleThree}%
\addtolength{\drwdtempx}{\drwdfour}% 
\addtolength{\drwdtempx}{\drwdmiddleFour}%
\addtolength{\drwdtempx}{0.8\drwdfive}%most of right
\ifdim\drwdtemp>\drwdtempx
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleFour}{\drwdtemp}%
\fi%
}{}\fi%
\ifnum\drwdfour>0\ifemptydd{\@relFour}%\else% if 4 is the nuc
{% to 1st left
\settowidth{\drwdtemp}{\relnamefont{\ \@relTwo\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.8\drwdthree}%most of left
\addtolength{\drwdtempx}{\drwdmiddleThree}%
\addtolength{\drwdtempx}{0.5\drwdfour}%half of nuc
\ifdim\drwdtemp>\drwdtempx%
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleThree}{\drwdtemp}%
\fi%
% to 2nd left
\settowidth{\drwdtemp}{\relnamefont{\ \@relOne\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.8\drwdtwo}%most of left
\addtolength{\drwdtempx}{\drwdmiddleTwo}%
\setlength{\drwdtempx}{\drwdthree}%
\addtolength{\drwdtempx}{\drwdmiddleThree}%
\addtolength{\drwdtempx}{0.5\drwdfour}%half of nuc
\ifdim\drwdtemp>\drwdtempx%
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleTwo}{\drwdtemp}%
\fi%
% to 3rd left
\settowidth{\drwdtemp}{\relnamefont{\ \@relOne\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\setlength{\drwdtempx}{0.8\drwdone}%most of left
\addtolength{\drwdtempx}{\drwdmiddleOne}%
\setlength{\drwdtempx}{\drwdtwo}%
\addtolength{\drwdtempx}{\drwdmiddleTwo}%
\setlength{\drwdtempx}{\drwdthree}%
\addtolength{\drwdtempx}{\drwdmiddleThree}%
\addtolength{\drwdtempx}{0.5\drwdfour}%half of nuc
\ifdim\drwdtemp>\drwdtempx%
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleOne}{\drwdtemp}%
\fi%
% to 1st right
\settowidth{\drwdtemp}{\relnamefont{\ \@relFive\ }}%
\setlength{\drwdtemp}{1.0\drwdtemp}% space that we need
\addtolength{\drwdtempx}{0.5\drwdfour}%half of nuc
\addtolength{\drwdtempx}{\drwdmiddleFour}%
\addtolength{\drwdtempx}{0.8\drwdfive}%most of right
\ifdim\drwdtemp>\drwdtempx
\addtolength{\drwdtemp}{-\drwdtempx}%
\addtolength{\drwdmiddleFour}{\drwdtemp}%
\fi%
}{}\fi%
}%


\newcommand{\initrstwidths}{%
\settowidth{\drwdone}{\@optOne}%
\settowidth{\drwdtwo}{\@optTwo}%
\settowidth{\drwdthree}{\@optThree}%
\settowidth{\drwdfour}{\@optFour}%
\settowidth{\drwdfive}{\@optFive}%
%\setlength{\drwdrstrealwidth}{\drwdone}%
%\addtolength{\drwdrstrealwidth}{\drwdtwo}%
%\addtolength{\drwdrstrealwidth}{\drwdthree}%
%\addtolength{\drwdrstrealwidth}{\drwdfour}%
%\addtolength{\drwdrstrealwidth}{\drwdfive}%
\ifdim\compressionWidth>0pt\ifdim\drwdone>\compressionWidth\setlength{\drwdone}{\compressionWidth}\fi\fi%
\ifdim\compressionWidth>0pt\ifdim\drwdtwo>\compressionWidth\setlength{\drwdtwo}{\compressionWidth}\fi\fi%
\ifdim\compressionWidth>0pt\ifdim\drwdthree>\compressionWidth\setlength{\drwdthree}{\compressionWidth}\fi\fi%
\ifdim\compressionWidth>0pt\ifdim\drwdfour>\compressionWidth\setlength{\drwdfour}{\compressionWidth}\fi\fi%
\ifdim\compressionWidth>0pt\ifdim\drwdfive>\compressionWidth\setlength{\drwdfive}{\compressionWidth}\fi\fi%
\savebox{\rstboxone}[\drwdone]{\@optOne}% returns rstrealwidth -- we just need left and right borders
%\addtolength{\rstrealwidth}{-\drwdtwo}%
%\addtolength{\rstleftoffset}{\rstrealwidth}%
\savebox{\rstboxtwo}[\drwdtwo]{\@optTwo}%
\savebox{\rstboxthree}[\drwdthree]{\@optThree}%
\savebox{\rstboxfour}[\drwdfour]{\@optFour}%
\savebox{\rstboxfive}[\drwdfive]{\@optFive}% one of these returns the right border (others are empty)
%\ifnum\drwdtwo>0\addtolength{\rstrealwidth}{-\drwdtwo}\fi%
%\ifnum\drwdthree>0\addtolength{\rstrealwidth}{-\drwdthree}\fi%
%\ifnum\drwdfour>0\addtolength{\rstrealwidth}{-\drwdfour}\fi%
%\ifnum\drwdfive>0\addtolength{\rstrealwidth}{-\drwdfive}\fi%
%\addtolength{\rstrightoffset}{\rstrealwidth}%
}%

\newcommand{\returnrstrealwidths}{%
%\setlength{\rstrealwidth}{\drwdrstrealwidth}% this to be returned to calling macro
%\ifnum\drwdtwo>0\addtolength{\rstrealwidth}{\drwdmiddleOne}\fi%
%\ifnum\drwdthree>0\addtolength{\rstrealwidth}{\drwdmiddleTwo}\fi%
%\ifnum\drwdfour>0\addtolength{\rstrealwidth}{\drwdmiddleThree}\fi%
%\ifnum\drwdfive>0\addtolength{\rstrealwidth}{\drwdmiddleFour}\fi%
}



%\long\def\rstbox#1{%
%\setlength{\rstleftoffset}{0pt}\setlength{\rstrightoffset}{0pt}%
%\savebox{\rstallbox}{#1}%
%\frame{a\drhspacer{\rstrealwidth}b\usebox{\rstallbox}\drhspacer{\rstrightoffset}}}%


\long\def\dirrel{%
\dirrela}
\long\def\dirrela#1{%  
\@ifnextchar\bgroup{\dirrelb{#1}}{\typeout{dirrel: syntax error. needs at least 3 \{ \} arguments (relname, nucleus-idx, segment+)}\relax}}
\long\def\dirrelb#1#2{%
\@ifnextchar\bgroup{\dirrelc{#1}{#2}}{\typeout{dirrel: syntax error. needs at least 3 \{ \} arguments (relname, nucleus-idx, segment+)}\relax}}
\long\def\dirrelc#1#2#3{%
\@ifnextchar\bgroup{\dirreld{#1}{#2}{#3}}{\dirrelz{#1}{#2}{#3}{}{}{}{}{}{}\relax}}
\long\def\dirreld#1#2#3#4{%
\@ifnextchar\bgroup{\dirrele{#1}{#2}{#3}{#4}}{\dirrelz{#1}{#2}{#3}{#4}{}{}{}{}\relax}}
\long\def\dirrele#1#2#3#4#5{%
\@ifnextchar\bgroup{\dirrelf{#1}{#2}{#3}{#4}{#5}}{\dirrelz{#1}{#2}{#3}{#4}{#5}{}{}{}{}\relax}}
\long\def\dirrelf#1#2#3#4#5#6{%
\@ifnextchar\bgroup{\dirrelg{#1}{#2}{#3}{#4}{#5}{#6}}{\dirrelz{#1}{#2}{#3}{#4}{#5}{#6}{}{}{}\relax}}
\long\def\dirrelg#1#2#3#4#5#6#7{%
\@ifnextchar\bgroup{\dirrelh{#1}{#2}{#3}{#4}{#5}{#6}{#7}}{\dirrelz{#1}{#2}{#3}{#4}{#5}{#6}{#7}{}{}\relax}}
\long\def\dirrelh#1#2#3#4#5#6#7#8{%
\@ifnextchar\bgroup{\dirreli{#1}{#2}{#3}{#4}{#5}{#6}{#7}{#8}}{\dirrelz{#1}{#2}{#3}{#4}{#5}{#6}{#7}{#8}{}\relax}}
\long\def\dirreli#1#2#3#4#5#6#7#8#9{%
\dirrelz{#1}{#2}{#3}{#4}{#5}{#6}{#7}{#8}{#9}\relax}


% syntax: \dirrel{relname}{nucleus-number}{arg1}...{arg5}

 
\newcommand{\dirrelz}[9]%
%\long\def\dirrelz#1#2#3#4#5#6#7#8#9% 
{%
\bgroup%
\advance\@rstlevel by 1%
\renewcommand\@optOne{\ignorespaces#2}%
\renewcommand\@optTwo{\ignorespaces#4}%
\renewcommand\@optThree{\ignorespaces#6}%
\renewcommand\@optFour{\ignorespaces#8}%
\renewcommand\@optFive{}%
\renewcommand\@relOne{\ignorespaces#1}%
\renewcommand\@relTwo{\ignorespaces#3}%
\renewcommand\@relThree{\ignorespaces#5}%
\renewcommand\@relFour{\ignorespaces#7}%
\renewcommand\@relFive{\ignorespaces#9}%
\relax%
{\rstcondfont%
\def\arraystretch{0}% undefined by default: value for \arraystretch
\fboxsep0pt%    no space
\fboxrule0pt%    no space
\initrstwidths%
%%%%% calc graph width %%%%%%%%%%%%%%%%%%%%%%%%%%%
%\setlength{\drwdmiddle}{\rstmiddleskip}% middle space
\setlength{\drwdmiddleOne}{\rstmiddleskip}% middle space
\setlength{\drwdmiddleTwo}{\rstmiddleskip}% middle space
\setlength{\drwdmiddleThree}{\rstmiddleskip}% middle space
\setlength{\drwdmiddleFour}{\rstmiddleskip}% middle space
%%%%%%
\addadditionalspace%
\setlength{\drwdgraph}{2\rstmargin}
\ifnum\drwdone>0\addtolength{\drwdgraph}{\drwdone}\fi%
\ifnum\drwdtwo>0\addtolength{\drwdgraph}{\drwdtwo}\addtolength{\drwdgraph}{\drwdmiddleOne}\fi%
\ifnum\drwdthree>0\addtolength{\drwdgraph}{\drwdthree}\addtolength{\drwdgraph}{\drwdmiddleTwo}\fi%
\ifnum\drwdfour>0\addtolength{\drwdgraph}{\drwdfour}\addtolength{\drwdgraph}{\drwdmiddleThree}\fi%
\ifnum\drwdfive>0\addtolength{\drwdgraph}{\drwdfive}\addtolength{\drwdgraph}{\drwdmiddleFour}\fi%
%%%%% calc bezier positions %%%%%%%%%%%%%%%%%%%%%%%%%%
%
\ifnum\drwdone>0%
\setlength{\drwdbezA}{\rstmargin}%
\addtolength{\drwdbezA}{.3333\drwdone}%  
\fi%
\ifnum\drwdtwo>0%
\setlength{\drwdbezB}{\rstmargin}%
\addtolength{\drwdbezB}{\drwdone}%  
\addtolength{\drwdbezB}{\drwdmiddleOne}%
\addtolength{\drwdbezB}{.5\drwdtwo}%
%\setlength{\drwdbezB}{.5\drwdgraph}% 
\else%
\addtolength{\drwdbezA}{.1666\drwdone}% a single branch should go straight down
\fi%
\ifnum\drwdthree>0%
\setlength{\drwdbezC}{\rstmargin}%
\addtolength{\drwdbezC}{\drwdone}%
\addtolength{\drwdbezC}{\drwdmiddleOne}%
\addtolength{\drwdbezC}{\drwdtwo}%
\addtolength{\drwdbezC}{\drwdmiddleTwo}%
\addtolength{\drwdbezC}{.5\drwdthree}%
\else%
\addtolength{\drwdbezB}{.1666\drwdtwo}% the rightmost branch goes further to the right
\fi%
\ifnum\drwdfour>0%
\setlength{\drwdbezD}{\rstmargin}%
\addtolength{\drwdbezD}{\drwdone}%  
\addtolength{\drwdbezD}{\drwdmiddleOne}%
\addtolength{\drwdbezD}{\drwdtwo}%
\addtolength{\drwdbezD}{\drwdmiddleTwo}%
\addtolength{\drwdbezD}{\drwdthree}%
\addtolength{\drwdbezD}{\drwdmiddleThree}%
\addtolength{\drwdbezD}{.5\drwdfour}%
\else%
\addtolength{\drwdbezC}{.1666\drwdthree}% the rightmost branch goes further to the right
\fi%
\ifnum\drwdfive>0%
\setlength{\drwdbezE}{\rstmargin}%
\addtolength{\drwdbezE}{\drwdone}%  
\addtolength{\drwdbezE}{\drwdmiddleOne}%
\addtolength{\drwdbezE}{\drwdtwo}%
\addtolength{\drwdbezE}{\drwdmiddleTwo}%
\addtolength{\drwdbezE}{\drwdthree}%
\addtolength{\drwdbezE}{\drwdmiddleThree}%
\addtolength{\drwdbezE}{\drwdfour}%
\addtolength{\drwdbezE}{\drwdmiddleFour}%
\addtolength{\drwdbezE}{.6666\drwdfive}%
\else%
\addtolength{\drwdbezD}{.1666\drwdfour}% the rightmost branch goes further to the right
\fi%
%
%set nucleus position
%
\setlength{\drwdbezleft}{0pt}%
\ifnum\drwdone>0\ifemptyd{\@relOne}\setlength{\drwdbezleft}{\drwdbezA}\fi\fi%
\ifnum\drwdtwo>0\ifemptyd{\@relTwo}\setlength{\drwdbezleft}{\drwdbezB}\fi\fi%
\ifnum\drwdthree>0\ifemptyd{\@relThree}\setlength{\drwdbezleft}{\drwdbezC}\fi\fi%
\ifnum\drwdfour>0\ifemptyd{\@relFour}\setlength{\drwdbezleft}{\drwdbezD}\fi\fi%
\ifnum\drwdfive>0\ifemptyd{\@relFive}\setlength{\drwdbezleft}{\drwdbezE}\fi\fi%
\ifnum\drwdbezleft=0\typeout{dirrel: where's my nucleus?? One of the relation parameters should be empty}\fi%
%
%%%%% calc graph height %%%%%%%%%%%%%%%%%%%%%%%%%%
\setlength{\drhegraph}{.3\drwdgraph}%
\settorealheight{\drwdtemp}{\relnamefont{\mycolorbox{\relnamebgcolor}{\@relOne}}}%
\setlength{\drwdtemp}{2.5\drwdtemp}%  1/(0.4) = 2.5
\addtolength{\drwdtemp}{4pt}%
\ifnum\drhegraph<\drwdtemp\setlength{\drhegraph}{\drwdtemp}\fi%
%%%%% calc text height %%%%%%%%%%%%%%%%%%%%%%%%%%%
\settorealheight{\drhetext}{\usebox{\rstboxone}}%
\settorealheight{\drwdtemp}{\usebox{\rstboxtwo}}%
\ifnum\drhetext<\drwdtemp\setlength{\drhetext}{\drwdtemp}\fi%
\settorealheight{\drwdtemp}{\usebox{\rstboxthree}}%
\ifnum\drhetext<\drwdtemp\setlength{\drhetext}{\drwdtemp}\fi%
\settorealheight{\drwdtemp}{\usebox{\rstboxfour}}%
\ifnum\drhetext<\drwdtemp\setlength{\drhetext}{\drwdtemp}\fi%
\settorealheight{\drwdtemp}{\usebox{\rstboxfive}}%
\ifnum\drhetext<\drwdtemp\setlength{\drhetext}{\drwdtemp}\fi%
%%%%% calc total height %%%%%%%%%%%%%%%%%%%%%%%%%%
\setlength{\drhetotal}{\drhetext}%
\addtolength{\drhetotal}{\drhegraph}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\setlength{\baselineskip}{0pt}%
%\frame{%
\limparbox{\drwdgraph}{\drhetotal}{%
% vertical space
\setlength{\unitlength}{\drhegraph}%
\begin{picture}(0,1)(0,0)% spacing
\end{picture}%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\setlength{\unitlength}{\drwdgraph}%  middle
\begin{picture}(0,0)(0,0)%
\ifnum\drwdone>0\ifnum\drwdbezA=\drwdbezleft\else\ifnum\drwdbezA<\drwdbezleft\put(\LenToUnit{\drwdbezleft},0){\vector(1,-1){0}}\else\put(\LenToUnit{\drwdbezleft},0){\vector(-1,-1){0}}\fi\setmiddle{\drwdtempx}{\drwdbezleft}{\drwdbezA}\qbezier(\LenToUnit{\drwdbezA},0)(\LenToUnit{\drwdtempx},\LenToUnit{.3\drwdgraph})(\LenToUnit{\drwdbezleft},.0)\fi\fi%
\ifnum\drwdtwo>0\ifnum\drwdbezB=\drwdbezleft\else\ifnum\drwdbezB<\drwdbezleft\put(\LenToUnit{\drwdbezleft},0){\vector(1,-1){0}}\else\put(\LenToUnit{\drwdbezleft},0){\vector(-1,-1){0}}\fi\setmiddle{\drwdtempx}{\drwdbezleft}{\drwdbezB}\qbezier(\LenToUnit{\drwdbezB},0)(\LenToUnit{\drwdtempx},\LenToUnit{.3\drwdgraph})(\LenToUnit{\drwdbezleft},.0)\fi\fi%
\ifnum\drwdthree>0\ifnum\drwdbezC=\drwdbezleft\else\ifnum\drwdbezC<\drwdbezleft\put(\LenToUnit{\drwdbezleft},0){\vector(1,-1){0}}\else\put(\LenToUnit{\drwdbezleft},0){\vector(-1,-1){0}}\fi\setmiddle{\drwdtempx}{\drwdbezleft}{\drwdbezC}\qbezier(\LenToUnit{\drwdbezC},0)(\LenToUnit{\drwdtempx},\LenToUnit{.3\drwdgraph})(\LenToUnit{\drwdbezleft},.0)\fi\fi%
\ifnum\drwdfour>0\ifnum\drwdbezD=\drwdbezleft\else\ifnum\drwdbezD<\drwdbezleft\put(\LenToUnit{\drwdbezleft},0){\vector(1,-1){0}}\else\put(\LenToUnit{\drwdbezleft},0){\vector(-1,-1){0}}\fi\setmiddle{\drwdtempx}{\drwdbezleft}{\drwdbezD}\qbezier(\LenToUnit{\drwdbezD},0)(\LenToUnit{\drwdtempx},\LenToUnit{.3\drwdgraph})(\LenToUnit{\drwdbezleft},.0)\fi\fi%
\ifnum\drwdfive>0\ifnum\drwdbezE=\drwdbezleft\else\ifnum\drwdbezE<\drwdbezleft\put(\LenToUnit{\drwdbezleft},0){\vector(1,-1){0}}\else\put(\LenToUnit{\drwdbezleft},0){\vector(-1,-1){0}}\fi\setmiddle{\drwdtempx}{\drwdbezleft}{\drwdbezE}\qbezier(\LenToUnit{\drwdbezE},0)(\LenToUnit{\drwdtempx},\LenToUnit{.3\drwdgraph})(\LenToUnit{\drwdbezleft},.0)\fi\fi%
% draw vertical line; bezleft contains nucleus position
\put(\LenToUnit{\drwdbezleft},0){\line(0,1){\LenToUnit{\drhegraph}}}%
\end{picture}%
%
% draw relation name %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% attention: these picture environments must overlap 100%. no spaces inbetween in source code allowed! 
%\settowidth{\drwdtemp}{\relnamefont{#1}}%
\setlength{\unitlength}{1pt}%
%\addtolength{\unitlength}{.5\drwdtemp}%
\begin{picture}(0,0)(0,0)%
\ifemptyd{\@relOne}\else\setmiddle{\drwdtemp}{\drwdbezA}{\drwdbezleft}\settowidth{\drwdtempx}{\relnamefont{\@relOne}}\addtolength{\drwdtemp}{-.5\drwdtempx}\put(\LenToUnit{\drwdtemp},\LenToUnit{.6\drhegraph}){\relnamefont{\mycolorbox{\relnamebgcolor}{\@relOne}}}\fi%
\ifemptyd{\@relTwo}\else\setmiddle{\drwdtemp}{\drwdbezB}{\drwdbezleft}\settowidth{\drwdtempx}{\relnamefont{\@relTwo}}\addtolength{\drwdtemp}{-.5\drwdtempx}\put(\LenToUnit{\drwdtemp},\LenToUnit{.6\drhegraph}){\relnamefont{\mycolorbox{\relnamebgcolor}{\@relTwo}}}\fi%
\ifemptyd{\@relThree}\else\setmiddle{\drwdtemp}{\drwdbezC}{\drwdbezleft}\settowidth{\drwdtempx}{\relnamefont{\@relThree}}\addtolength{\drwdtemp}{-.5\drwdtempx}\put(\LenToUnit{\drwdtemp},\LenToUnit{.6\drhegraph}){\relnamefont{\mycolorbox{\relnamebgcolor}{\@relThree}}}\fi%
\ifemptyd{\@relFour}\else\setmiddle{\drwdtemp}{\drwdbezD}{\drwdbezleft}\settowidth{\drwdtempx}{\relnamefont{\@relFour}}\addtolength{\drwdtemp}{-.5\drwdtempx}\put(\LenToUnit{\drwdtemp},\LenToUnit{.6\drhegraph}){\relnamefont{\mycolorbox{\relnamebgcolor}{\@relFour}}}\fi%
\ifemptyd{\@relFive}\else\setmiddle{\drwdtemp}{\drwdbezE}{\drwdbezleft}\settowidth{\drwdtempx}{\relnamefont{\@relFive}}\addtolength{\drwdtemp}{-.5\drwdtempx}\put(\LenToUnit{\drwdtemp},\LenToUnit{.6\drhegraph}){\relnamefont{\mycolorbox{\relnamebgcolor}{\@relFive}}}\fi%
\end{picture}%
%%%%%% spacing %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\drhspacer{\rstmargin}%
\settoheight{\unitlength}{\usebox{\rstboxone}}%
\begin{picture}(0,0)(0,0)%
\put(0,-1){\usebox{\rstboxone}}%
\end{picture}%
\setlength{\unitlength}{\drwdone}%    left
\begin{picture}(1,0)(0,0)% spacing
\put(0,0){\line(1,0){1}}%
\end{picture}%
\setlength{\unitlength}{\drwdmiddleOne}%  middle
\begin{picture}(1,0)(0,0)%
\end{picture}%
%
\settoheight{\unitlength}{\usebox{\rstboxtwo}}% text
\begin{picture}(0,0)(0,0)%
\put(0,-1){\usebox{\rstboxtwo}}%
\end{picture}%
\setlength{\unitlength}{\drwdtwo}%    spacing
\begin{picture}(1,0)(0,0)%
\put(0,0){\line(1,0){1}}%
\end{picture}%
\setlength{\unitlength}{\drwdmiddleTwo}%  middle
\begin{picture}(1,0)(0,0)%
\end{picture}%
%
\ifnum\drwdthree>0%
\settoheight{\unitlength}{\usebox{\rstboxthree}}% text
\begin{picture}(0,0)(0,0)%
\put(0,-1){\usebox{\rstboxthree}}%
\end{picture}%
\setlength{\unitlength}{\drwdthree}%    spacing
\begin{picture}(1,0)(0,0)%
\put(0,0){\line(1,0){1}}%
\end{picture}%
\setlength{\unitlength}{\drwdmiddleThree}%  middle
\begin{picture}(1,0)(0,0)%
\end{picture}%
\fi%
%
\ifnum\drwdfour>0%
\settoheight{\unitlength}{\usebox{\rstboxfour}}% text
\begin{picture}(0,0)(0,0)%
\put(0,-1){\usebox{\rstboxfour}}%
\end{picture}%
\setlength{\unitlength}{\drwdfour}%    spacing
\begin{picture}(1,0)(0,0)%
\put(0,0){\line(1,0){1}}%
\end{picture}%
\setlength{\unitlength}{\drwdmiddleFour}%  middle
\begin{picture}(1,0)(0,0)%
\end{picture}%
\fi%
%
\ifnum\drwdfive>0%
\settoheight{\unitlength}{\usebox{\rstboxfive}}% text
\begin{picture}(0,0)(0,0)%
\put(0,-1){\usebox{\rstboxfive}}%
\end{picture}%
\setlength{\unitlength}{\drwdfive}%    spacing
\begin{picture}(1,0)(0,0)%
\put(0,0){\line(1,0){1}}%
\end{picture}%
\fi%
}%limpar
%}%frame
}%
\egroup%
}                        % close \dirrel




%########## MULTINUC relations ########################################################################
%##
%##
%##
 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\long\def\multirel{%
\multirela}
\long\def\multirela#1{%
\@ifnextchar\bgroup{\expandafter\multirelb{#1}}{\multirelz{#1}{}{}{}{}\relax}}
\long\def\multirelb#1#2{%
\@ifnextchar\bgroup{\expandafter\multirelc{#1}{#2}}{\multirelz{#1}{#2}{}{}{}\relax}}
\long\def\multirelc#1#2#3{%
\@ifnextchar\bgroup{\expandafter\multireld{#1}{#2}{#3}}{\multirelz{#1}{#2}{#3}{}{}\relax}}
\long\def\multireld#1#2#3#4{%
\@ifnextchar\bgroup{\expandafter\multirele{#1}{#2}{#3}{#4}}{\multirelz{#1}{#2}{#3}{#4}{}\relax}}

\long\def\multirele#1#2#3#4#5{%
\multirelz{#1}{#2}{#3}{#4}{#5}\relax}

%\def\multirelz#1#2#3#4#5{%
% ( #1-#2-#3-#4-#5 )
%}


\newcommand{\multirelz}[6]{%
\renewcommand\@optOne{\ignorespaces#2}%
\renewcommand\@optTwo{\ignorespaces#3}%
\renewcommand\@optThree{\ignorespaces#4}%
\renewcommand\@optFour{\ignorespaces#5}%
\renewcommand\@optFive{\ignorespaces#6}%
\bgroup%
\advance\@rstlevel by 1%
\relax%
{\raggedleft\rstcondfont%
\def\arraystretch{0}% undefined by default: value for \arraystretch
\fboxsep0pt%    no space
\fboxrule0pt%    no space
\initrstwidths%
%%%%% calc graph width %%%%%%%%%%%%%%%%%%%%%%%%%%%
\setlength{\drwdmiddle}{\rstmiddleskip}% middle space
\setlength{\drwdgraph}{2\rstmargin}%
\ifnum\drwdone>0\addtolength{\drwdgraph}{\drwdone}\fi%
\ifnum\drwdtwo>0\addtolength{\drwdgraph}{\drwdtwo}\addtolength{\drwdgraph}{\drwdmiddle}\fi%
\ifnum\drwdthree>0\addtolength{\drwdgraph}{\drwdthree}\addtolength{\drwdgraph}{\drwdmiddle}\fi%
\ifnum\drwdfour>0\addtolength{\drwdgraph}{\drwdfour}\addtolength{\drwdgraph}{\drwdmiddle}\fi%
\ifnum\drwdfive>0\addtolength{\drwdgraph}{\drwdfive}\addtolength{\drwdgraph}{\drwdmiddle}\fi%
\settowidth{\drwdtemp}{\relnamefont{#1}}%
\setlength{\drwdtemp}{1.3\drwdtemp}%
\ifdim\drwdgraph<\drwdtemp%
\ifnum\drwdone>0%
\addtolength{\drwdtemp}{-\drwdgraph}%                
\addtolength{\drwdgraph}{\drwdtemp}%  
\ifnum\drwdtwo>0\setlength{\drwdtemp}{\drwdtemp}\fi%
\ifnum\drwdthree>0\setlength{\drwdtemp}{.5\drwdtemp}\fi%
\ifnum\drwdfour>0\setlength{\drwdtemp}{.3333\drwdtemp}\fi%
\ifnum\drwdfive>0\setlength{\drwdtemp}{.25\drwdtemp}\fi%
\addtolength{\drwdmiddle}{\drwdtemp}%  
\fi\fi%
%%%%% calc bezier positions %%%%%%%%%%%%%%%%%%%%%%%%%%
%
%\setlength{\drwdbezleft}{10pt}%
%\ifdim\drwdbezleft>0.333\drwdone%
\setlength{\drwdbezleft}{0.333\drwdone}%
%\fi%
%
\ifnum\drwdtwo>0%
\setlength{\drwdbezA}{\rstmargin}%
\addtolength{\drwdbezA}{\drwdone}%  
\addtolength{\drwdbezA}{\drwdmiddle}%
\addtolength{\drwdbezA}{.5\drwdtwo}%
%\setlength{\drwdbezA}{.5\drwdgraph}% uncomment this for nicer (straight) lines in the middle - layout may break! 
\else%
\addtolength{\drwdbezC}{.1666\drwdbezleft}% a single branch should go straight down    %%%%%%%%%%%%%% was \drwdleft ???
\fi%
\ifnum\drwdthree>0%
\setlength{\drwdbezB}{\rstmargin}%
\addtolength{\drwdbezB}{\drwdone}%
\addtolength{\drwdbezB}{\drwdmiddle}%
\addtolength{\drwdbezB}{\drwdtwo}%
\addtolength{\drwdbezB}{\drwdmiddle}%
\addtolength{\drwdbezB}{.5\drwdthree}%
\else%
\addtolength{\drwdbezA}{.1666\drwdtwo}% the rightmost branch goes further to the right
\fi%
\ifnum\drwdfour>0%
\setlength{\drwdbezC}{\rstmargin}%
\addtolength{\drwdbezC}{\drwdone}%  
\addtolength{\drwdbezC}{\drwdmiddle}%
\addtolength{\drwdbezC}{\drwdtwo}%
\addtolength{\drwdbezC}{\drwdmiddle}%
\addtolength{\drwdbezC}{\drwdthree}%
\addtolength{\drwdbezC}{\drwdmiddle}%
\addtolength{\drwdbezC}{.5\drwdfour}%
\else%
\addtolength{\drwdbezB}{.1666\drwdthree}% the rightmost branch goes further to the right
\fi%
\ifnum\drwdfive>0%
\setlength{\drwdbezD}{\rstmargin}%
\addtolength{\drwdbezD}{\drwdone}%  
\addtolength{\drwdbezD}{\drwdmiddle}%
\addtolength{\drwdbezD}{\drwdtwo}%
\addtolength{\drwdbezD}{\drwdmiddle}%
\addtolength{\drwdbezD}{\drwdthree}%
\addtolength{\drwdbezD}{\drwdmiddle}%
\addtolength{\drwdbezD}{\drwdfour}%
\addtolength{\drwdbezD}{\drwdmiddle}%
\addtolength{\drwdbezD}{.6666\drwdfive}%
\else%
\addtolength{\drwdbezC}{.1666\drwdfour}% the rightmost branch goes further to the right
\fi%
%
%
%%%%% calc graph height %%%%%%%%%%%%%%%%%%%%%%%%%%
\setlength{\drhegraph}{.25\drwdgraph}%
%%%%% calc text height %%%%%%%%%%%%%%%%%%%%%%%%%%%
\settorealheight{\drhetext}{\usebox{\rstboxone}}%
\settorealheight{\drwdtemp}{\usebox{\rstboxtwo}}%
\ifnum\drhetext<\drwdtemp\setlength{\drhetext}{\drwdtemp}\fi%
\settorealheight{\drwdtemp}{\usebox{\rstboxthree}}%
\ifnum\drhetext<\drwdtemp\setlength{\drhetext}{\drwdtemp}\fi%
\settorealheight{\drwdtemp}{\usebox{\rstboxfour}}%
\ifnum\drhetext<\drwdtemp\setlength{\drhetext}{\drwdtemp}\fi%
\settorealheight{\drwdtemp}{\usebox{\rstboxfive}}%
\ifnum\drhetext<\drwdtemp\setlength{\drhetext}{\drwdtemp}\fi%
%%%%% calc total height %%%%%%%%%%%%%%%%%%%%%%%%%%
\setlength{\drhetotal}{\drhetext}%
\addtolength{\drhetotal}{\drhegraph}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\setlength{\baselineskip}{0pt}%
%\frame{%
\limparbox{\drwdgraph}{\drhetotal}{%
%
\setlength{\unitlength}{\drhegraph}%
\begin{picture}(0,1)(0,0)% spacing
\end{picture}%
% a \vspace at this point would lead to a line break...
%
\setlength{\unitlength}{\drwdgraph}%  middle
\setlength{\drwdtemp}{.5\drwdgraph}%
%
\begin{picture}(0,0)(0,0)%
\qbezier(\LenToUnit{\drwdbezleft},0)(\LenToUnit{\drwdtemp},.25)(\LenToUnit{\drwdtemp},.25)%
\ifnum\drwdtwo>0\qbezier(\LenToUnit{\drwdbezA},0)(\LenToUnit{\drwdtemp},.25)(\LenToUnit{\drwdtemp},.25)\fi%
\ifnum\drwdthree>0\qbezier(\LenToUnit{\drwdbezB},0)(\LenToUnit{\drwdtemp},.25)(\LenToUnit{\drwdtemp},.25)\fi%
\ifnum\drwdfour>0\qbezier(\LenToUnit{\drwdbezC},0)(\LenToUnit{\drwdtemp},.25)(\LenToUnit{\drwdtemp},.25)\fi%
\ifnum\drwdfive>0\qbezier(\LenToUnit{\drwdbezD},0)(\LenToUnit{\drwdtemp},.25)(\LenToUnit{\drwdtemp},.25)\fi%
%\qbezier(\LenToUnit{\drwdbezleft},0)(.5,.3)(\LenToUnit{\drwdbezright},0)%
\end{picture}%
%%%%%%%% spacer %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
\drhspacer{\rstmargin}%
%
% draw relation name %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% attention: these picture environments must overlap 100%. no spaces inbetween in source code allowed!
\settowidth{\drwdtemp}{\relnamefont{#1}}%
\setlength{\unitlength}{.5\drwdgraph}%
\addtolength{\unitlength}{-.5\drwdtemp}%
\begin{picture}(0,0)(0,0)%
% we need to center the relation name...
%\put(\LenToUnit{.5\drwdgraph},0.1025){\colorbox}%
\put(1,\LenToUnit{.2\drhegraph}){\relnamefont{#1}}%
\end{picture}%
%
%
%%%%%% text and horizontal lines %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\settoheight{\unitlength}{\usebox{\rstboxone}}%
\begin{picture}(0,0)(0,0)%
\put(0,-1){\usebox{\rstboxone}}%
\end{picture}%
\setlength{\unitlength}{\drwdone}%    left
\begin{picture}(1,0)(0,0)% spacing
\put(0,0){\line(1,0){1}}%
\end{picture}%
%
\drhspacer{\drwdmiddle}%
%
\settoheight{\unitlength}{\usebox{\rstboxtwo}}% text
\begin{picture}(0,0)(0,0)%
\put(0,-1){\usebox{\rstboxtwo}}%
\end{picture}%
\setlength{\unitlength}{\drwdtwo}%    spacing
\begin{picture}(1,0)(0,0)%
\put(0,0){\line(1,0){1}}%
\end{picture}%
%
\drhspacer{\drwdmiddle}%
%
\ifnum\drwdthree>0%
\settoheight{\unitlength}{\usebox{\rstboxthree}}% text
\begin{picture}(0,0)(0,0)%
\put(0,-1){\usebox{\rstboxthree}}%
\end{picture}%
\setlength{\unitlength}{\drwdthree}%    spacing
\begin{picture}(1,0)(0,0)%
\put(0,0){\line(1,0){1}}%
\end{picture}%
%
\drhspacer{\drwdmiddle}%
\fi%
%
\ifnum\drwdfour>0%
\settoheight{\unitlength}{\usebox{\rstboxfour}}% text
\begin{picture}(0,0)(0,0)%
\put(0,-1){\usebox{\rstboxfour}}%
\end{picture}%
\setlength{\unitlength}{\drwdfour}%    spacing
\begin{picture}(1,0)(0,0)%
\put(0,0){\line(1,0){1}}%
\end{picture}%
%
\drhspacer{\drwdmiddle}%
\fi%
%
\ifnum\drwdfive>0%
\settoheight{\unitlength}{\usebox{\rstboxfive}}% text
\begin{picture}(0,0)(0,0)%
\put(0,-1){\usebox{\rstboxfive}}%
\end{picture}%
\setlength{\unitlength}{\drwdfive}%    spacing
\begin{picture}(1,0)(0,0)%
\put(0,0){\line(1,0){1}}%
\end{picture}%
%
%\drhspacer{\drwdmiddle}%
\fi%
%\setlength{\unitlength}{\drhetext}%    spacing
%\begin{picture}(0,1)(0,0)%
%\end{picture}%
}%limpar
%}% frame
}% font
% add margins to global width variable (needed for positioning if \compressionWidth works!)
\returnrstrealwidths%
\egroup%
}                        % close \dirrel




\newcommand{\rstsegment}[1]{\ifdim\terminalWidth>0pt\naturalparbox[\terminalWidth]{\vspace{1ex}\setlength{\baselineskip}{11pt}{\raggedright#1}\vspace{1ex}}\else\naturalparbox{\vspace{1ex}\setlength{\baselineskip}{11pt}{\raggedright#1}\vspace{1ex}}\fi%
}%

 
 
%\newcommand{\rstsegment}[1]{\vspace{1ex}\setlength{\baselineskip}{11pt}{\raggedright#1}}


 
\newcommand\limparbox[4][c]{{\mbox{%
\dimen0=2\fboxrule\advance\dimen0 2\fboxsep%
\dimen1=#2\advance\dimen1 -\dimen0%
\dimen2=#3\advance\dimen2 -\dimen0%
\parbox[#1][\dimen2][t]{\dimen1}{#4}}}}%

\newcommand\limfparbox[4][c]{\mbox{\fbox{%
\dimen0=0pt%2\fboxrule\advance\dimen0 2\fboxsep%
\dimen1=#2\advance\dimen1 -\dimen0%
\dimen2=#3\advance\dimen2 -\dimen0%
\parbox[#1][\dimen2][t]{\dimen1}{#4}}}}%




% naturalparbox
%
% Crude attempt at making parboxes of `natural' width.
%
% Author: Stephan Lehmke <Stephan.Lehmke@cs.uni-dortmund.de>
%
% Originally, this belongs to the TeXPower package: http://texpower.sourceforge.net/

\NeedsTeXFormat{LaTeX2e}

%\ProvidesPackage{naturalparbox}
%[2001/11/11 Attempt at making parboxes of `natural' width]

\RequirePackage{ifthen}
\RequirePackage{calc}

% User-configurable: Which `resolution' should be used when searching for `best' width?
\newcommand{\optwidthsteps}{100}

% User-configurable: Which badness should be tolerated as `perfect' (stopping the search for a better one).
\newcommand{\optwidthlinetolerance}{200}

% Internal parameter: Badness of the parbox currently under consideration.
\let\maxbadness@NPB=\@tempcnta

\newlength{\maxheight@NPB}
\newlength{\optwidth@NPB}
\newlength{\tempdima@NPB}
\newcounter{probe@NPB}
\newboolean{carryon@NPB}
\newbox\tempbox@NPB

% \naturalparbox[<max width>][<max height>]{<contents>} will (try to)
% automatically calculate the `best' width of a \parbox to contain
% <contents> and then set <contents> into a \parbox of this width.
%
% The optional parameters <max width> (default \linewidth) and <max
% height> (default \textheight) limit the growth of the box. If not
% both can be respected, <max width> will be respected and <max
% height> violated.
%
% Owing to limitations set by TeX, there are certain limits to the
% sophistication of the procedure for finding the `optimal' width. For
% instance, any `whatsits' (specials (like color changes), file
% accesses (like \label), or hyper anchors) or rules which are
% inserted directly in the vertical list of the parbox `block' the
% analysis, so the procedure can't `see' past them (starting at the
% bottom of the box) when analysing the contents of the parbox. The
% user should make sure such items are set in horizontal mode (by
% using \leavevmode or enclosing stuff in boxes). Furthermore, only
% overfull and underfull hboxes which occur while setting the parbox
% are considered when judging which width is `best'. This will
% reliably make the width large enough to contain `wide' objects like
% tabulars or included graphics, but might not give optimal results
% for justified text.
% vboxes occurring directly in the parbox are ignored.
% Note further that hboxes with fixed width (made by \hbox to...)
% which occur directly in the vbox may disturb the procedure, because
% the fixed width cannot be recovered. These hboxes will be
% reformatted with the width of the vbox, generating an extremely
% large badness, unsettling the calculation of maximum badness. To
% avoid this such hboxes should be either contained in a vbox or set
% in horizontal mode with appropriate glue at the end.
\newcommand{\naturalparbox}[1][\linewidth]{\def\maxwidth@NPB{#1}\@naturalparbox}

\newcommand{\@naturalparbox}[2][\textheight]
{%
% Calculate `best' width of a parbox. The current algorithm will set the textual contents into parboxes of increasing
% width, starting from 0pt and ending with the maximum width given, in \optwidthsteps steps. The `badness' of every
% parbox is measured. If it is below the threshold defined by \optwidthlinetolerance, the process is stopped and the
% found width accepted. If this doesn't happen, the width of the parbox with the least badness is returned.
  \setcounter{probe@NPB}{0}%                                    Initialize `probe counter' for box width.
  \let\best@cnt@NPB=\empty%                                     Initialize number of best `probe' so far.
  \def\bestbadness@NPB{1000000}%                                Initialize badness of best `probe'.
  \setboolean{carryon@NPB}{true}%                               Flag for breaking out of loop.
  \setlength{\maxheight@NPB}{#1}%                               Store maximal box height.
  \whiledo
  {\value{probe@NPB}<\optwidthsteps\and\boolean{carryon@NPB}}%   Probes done or break of loop?
  {%
    \stepcounter{probe@NPB}%                                     Start next probe.
    \setbox\@tempboxa=\vbox%                                      The trick with vbox/lastbox is to get the vbox
    {%                                                           produced by \parbox `immediately' into a box register.
      \parbox[b]{(\maxwidth@NPB)/\optwidthsteps*\value{probe@NPB}}% Make the next parbox.
      {\hfuzz\maxdimen\hbadness\@M\relax#2}%
      \global\setbox\tempbox@NPB=\lastbox%                       ... and assign \tempbox@NPB to it.
      }%
    \setlength{\tempdima@NPB}{\ht\tempbox@NPB+\dp\tempbox@NPB}%  Measure total height.
    \ifthenelse{\lengthtest{\tempdima@NPB>\maxheight@NPB}}%      If it exceeds the maximum height given, the box isn't
    {}%                                                          acceptable anyway.
    {%
      \calcmaxbadness@NPB{\maxbadness@NPB}{\tempbox@NPB}%      Calculate `worst badness' of any hbox appearing in parbox.
      \ifthenelse{\not\maxbadness@NPB>\optwidthlinetolerance}%   Below Threshold?
      {% Yes. Accept this width.
        \edef\best@cnt@NPB{\theprobe@NPB}%                       Store this probe number.
        \setboolean{carryon@NPB}{false}%                         Break loop.
        }
      {% No. Carry on.
        \ifthenelse{\maxbadness@NPB<\bestbadness@NPB}%           Below lowest badness found so far?
        {% Yes. Store probe number.
          \edef\bestbadness@NPB{\number\maxbadness@NPB}%         Store badness value.
          \edef\best@cnt@NPB{\theprobe@NPB}%                     Store probe number.
          }
        {}% No. Try next probe.
        }% matches second argument of \ifthenelse{\not\maxbadness@NPB>\optwidthlinetolerance}%
      }% matches second argument of \ifthenelse{\lengthtest{\tempdima@NPB>\maxheight@NPB}}%
    }% matches \whiledo{\value{probe@NPB}<\optwidthsteps\and\boolean{carryon@NPB}}{%
  \ifx\best@cnt@NPB\empty%                                      Was _any_ badness below the initialization value found?
    \setlength{\optwidth@NPB}{\maxwidth@NPB}%                   No; return max width.
   \else
    \setlength{\optwidth@NPB}{(\maxwidth@NPB)/\optwidthsteps*\best@cnt@NPB}% Yes; return width of best probe.
  \fi
  \parbox{\optwidth@NPB}{#2}%
  }

% Calculate maximal badness of any hbox occurring in a vbox.
\newcommand{\calcmaxbadness@NPB}[2]
{%
  \let\@resultcnt@NPB=#1%           Here we store the result.
  \global\@resultcnt@NPB=\z@\relax% Just in case no hbox occurs...
  \setlength{\@tempdima}{\wd#2}%    This is the width to which every hbox is stretched for finding its badness.
  \setbox\@tempboxa=\vbox%          A dummy vbox for recursively analysing the vbox contents using \lastbox
  {%
    \hfuzz\maxdimen\hbadness\@M
    \unvbox#2%                     `free' the contents of the vbox.
    \measureboxes@NPB%              Analyse `tail to head' using \lastbox.
    }%
  }


% Recursively analyse vertical list using \lastbox, to find maximum badness of any contained hbox.
\newcommand{\measureboxes@NPB}%
{%
  \unskip\unpenalty\unkern%    This is a kluge for TeX, because there is no certain way of finding out whether there's a
  \unskip\unpenalty\unkern%    penalty, glue or kern on the vertical list. \lastpenalty will give its value, but a
  \unskip\unpenalty\unkern%    value of 0 might mean there was none or there was one of value 0.
  \unskip\unpenalty\unkern%    This is different in eTeX. I might make a switch to a smarter solution.
  \unskip\unpenalty\unkern
  \unskip\unpenalty\unkern
  \unskip\unpenalty\unkern
  \unskip\unpenalty\unkern
  \unskip\unpenalty\unkern
  \unskip\unpenalty\unkern
  \setbox\@tempboxa=\lastbox% Grab last box.
  \ifhbox\@tempboxa%          Was this an hbox?
    \setbox0=\hb@xt@\@tempdima{\unhbox\@tempboxa}% Yes. Reformat with given width.
    \ifnum\badness>\@resultcnt@NPB%                 Badness larger than largest recorded badness?
      \global\@resultcnt@NPB=\badness%              Yes. Memorize.
    \fi
    \expandafter\measureboxes@NPB%                  Recursive call.
   \else
    \ifvbox\@tempboxa%                                       Was this a vbox?
      \expandafter\expandafter\expandafter\measureboxes@NPB% Ignore, but execute recursive call.
    \fi
  \fi
  }