% Copyright 2018 by Till Tantau
%
% This file may be distributed and/or modified
%
% 1. under the LaTeX Project Public License and/or
% 2. under the GNU Public License.
%
% See the file doc/generic/pgf/licenses/LICENSE for more details.

\RequirePackage{pgfrcs}

\ProvidesPackageRCS{pgfcomp-version-0-65.sty}

\def\pgfdirection#1{\csname pgf@direction#1\endcsname}

\def\pgf@directionn{90}
\def\pgf@directionnorth{90}
\def\pgf@directionabove{90}
\def\pgf@directions{270}
\def\pgf@directionsouth{270}
\def\pgf@directionbelow{270}
\def\pgf@directionw{180}
\def\pgf@directionwest{180}
\def\pgf@directionleft{180}
\def\pgf@directione{0}
\def\pgf@directioneast{0}
\def\pgf@directionright{0}
\def\pgf@directionne{45}
\def\pgf@directionse{315}
\def\pgf@directionnw{135}
\def\pgf@directionsw{-135}


\def\pgfpictureboxed#1#2#3#4{%
  \pgfpicture{#1}{#2}{#3}{#4}%
    \pgfmoveto{\pgfpoint{#1}{#2}}%
    \pgflineto{\pgfpoint{#1}{#4}}%
    \pgflineto{\pgfpoint{#3}{#4}}%
    \pgflineto{\pgfpoint{#3}{#2}}%
    \pgfclosestroke\ignorespaces}
\def\endpgfpictureboxed{\endpgfpicture}

\def\pgfxyline(#1,#2)(#3,#4){%
  \pgfmoveto{\pgfxy(#1,#2)}%
  \pgflineto{\pgfxy(#3,#4)}%
  \pgfstroke}

\def\pgfxycurve(#1,#2)(#3,#4)(#5,#6)(#7,#8){%
  \pgfmoveto{\pgfxy(#1,#2)}%
  \pgfbezier{\pgfxy(#3,#4)}{\pgfxy(#5,#6)}{\pgfxy(#7,#8)}%
  \pgfstroke}

\def\pgfline#1#2{%
  \pgfmoveto{#1}%
  \pgflineto{#2}%
  \pgfstroke}

\let\pgflineto=\pgfpathlineto
\let\pgfmoveto=\pgfpathmoveto
\let\pgfcurveto=\pgfpathcurveto
\let\pgfbezier=\pgfpathcurveto
\let\pgfarc=\pgfpatharc

\def\pgfzerocircle#1{\pgfcircle{\pgforigin}{#1}}
\def\pgfzeroellipse#1#2{\pgfellipse{\pgforigin}{#1}{#2}}
\def\pgfeofill{{\pgfseteorule\pgfsys@flushpath\pgfsys@fill}\pgf@resetpathsizes\ignorespaces}
\def\pgfeofillstroke{{\pgfseteorule\pgfsys@flushpath\pgfsys@fillstroke}\pgf@resetpathsizes\ignorespaces}
\def\pgf@perform@eofill{\pgfeofill}
\def\pgf@perform@eofillstroke{\pgfeofillstroke}
\let\pgfdiff=\pgfpointdiff
\let\pgfrelative=\pgfpointadd
\let\pgfpartway=\pgfpointlineattime
\let\pgfbackoff=\pgfpointlineatdistance
\def\pgflabel#1#2#3#4{%
  % First, calculate base point
  \pgfpointlineattime{#1}{#2}{#3}%
  \pgf@xb=\pgf@x%
  \pgf@yb=\pgf@y%
  \pgf@process{#2}%
  \pgf@xa=\pgf@x% xb/yb = start point
  \pgf@ya=\pgf@y%
  \pgf@process{#3}%
  \advance\pgf@x by-\pgf@xa%
  \advance\pgf@y by-\pgf@ya%
  \pgf@process{\pgfpointnormalised{}}% x/y = normalised vector
  \setlength\pgf@ya{#4}%
  \pgf@xa=-\pgf@ya\relax%
  \pgf@xa=\pgf@sys@tonumber{\pgf@y}\pgf@xa%
  \pgf@ya=\pgf@sys@tonumber{\pgf@x}\pgf@ya%
  \pgf@x=\pgf@xb\relax%
  \pgf@y=\pgf@yb\relax%
  \advance\pgf@x by\pgf@xa\relax%
  \advance\pgf@y by\pgf@ya\relax%
  \ignorespaces}
\let\pgfnormalise=\pgfpointnormalised
\let\pgfpolar=\pgfpointpolar
\let\pgforigin=\pgfpointorigin
\let\pgfclosepath=\pgfpathclose

\def\pgfxy(#1,#2){\pgfpointxy{#1}{#2}}
\def\pgfxyz(#1,#2,#3){\pgfpointxyz{#1}{#2}{#3}}
\newcommand\pgfgrid[3][]{\pgfpathgrid[#1]{#2}{#3}\pgfqstroke}
\newcommand\pgfellipse[4][]{%
  \pgfpathellipse{#2}{#3}{#4}%
  \csname pgf@perform@#1\endcsname\ignorespaces
}
\newcommand\pgfcircle[3][]{\pgfellipse[#1]{#2}{\pgfpoint{#3}{0pt}}{\pgfpoint{0pt}{#3}}}
\newcommand\pgfrect[3][]{%
  \pgfpathrectangle{#2}{#3}%
  \csname pgf@perform@#1\endcsname%
}  
\def\pgf@perform@stroke{\pgfqstroke}
\def\pgf@perform@fill{\pgffill}
\def\pgf@perform@fillstroke{\pgffillstroke}
\def\pgf@perform@clip{\pgfclip}

\def\pgfsincos#1{%
  \pgfmathparse{#1}%
  \pgfmathcos@{#1}\pgf@y\pgfmathresult pt%
  \pgfmathsin@{#1}\pgf@x\pgfmathresult pt%
}

\let\pgfdegree=\pgfsincos

\newenvironment{pgfmagnify}[2]{\pgflowlevelscope{\pgftransformcm{#1}{0}{0}{#2}{\pgfpointorigin}}}{\endpgflowlevelscope}
\newenvironment{pgftranslate}[1]{\pgflowlevelscope{\pgftransformshift{#1}}}{\endpgflowlevelscope}
\newcommand{\pgftranslateto}[1]{\pgflowlevel{\pgftransformshift{#1}}}
\newenvironment{pgfrotateby}[1]{%
  \pgf@process{#1}%
  \pgf@xa=-\pgf@x%
  \edef\pgf@temp{\noexpand\pgflowlevelscope{\noexpand\pgftransformcm{\pgf@sys@tonumber{\pgf@y}}{\pgf@sys@tonumber{\pgf@x}}{\pgf@sys@tonumber{\pgf@xa}}{\pgf@sys@tonumber{\pgf@y}}{\noexpand\pgfpointorigin}}}%
  \pgf@temp}
{\endpgflowlevelscope}

\long\def\pgfputat#1#2{\begin{pgftranslate}{#1}#2\end{pgftranslate}}
\def\pgfputlabelrotated#1#2#3#4#5{%
  \pgflabel{#1}{#2}{#3}{#4}%
  \pgfputat{}{%
    \pgf@process{#2}%
    \pgf@xa=\pgf@x% xb/yb = start point
    \pgf@ya=\pgf@y%
    \pgf@process{#3}%
    \advance\pgf@x by-\pgf@xa%
    \advance\pgf@y by-\pgf@ya%
    \pgfnormalise{}% x/y = normalised vector
    \pgf@ya=-\pgf@y%
    \pgfsys@transformcm{\pgf@sys@tonumber{\pgf@x}}{\pgf@sys@tonumber{\pgf@y}}{\pgf@sys@tonumber{\pgf@ya}}{\pgf@sys@tonumber{\pgf@x}}{0pt}{0pt}%
    #5}%
  \ignorespaces}
\def\pgfqcurveto#1#2#3#4#5#6{\pgfpathqcurveto{#1bp}{#2bp}{#3bp}{#4bp}{#5bp}{#6bp}}
\let\pgfqbezier=\pgfqcurveto
\def\pgfqlineto#1#2{\pgfpathqlineto{#1bp}{#2bp}}
\def\pgfqmoveto#1#2{\pgfpathqmoveto{#1bp}{#2bp}}
\let\pgfqstroke=\pgfusepathqstroke

\def\pgfstroke{\pgfusepath{stroke}}
\def\pgfclip{\pgfusepath{clip}}
\def\pgffill{\pgfusepath{fill}}
\def\pgfclosestroke{\pgfpathclose\pgfusepath{stroke}}
\def\pgffillstroke{\pgfusepath{fill,stroke}}
\def\pgfstrokeclip{\pgfusepath{clip,stroke}}
\def\pgffillclip{\pgfusepath{clip,stroke}}
\def\pgfclosestrokeclip{\pgfpathclose\pgfusepath{stroke,clip}}
\def\pgffillstrokeclip{\pgfusepath{stroke,fill,clip}}
\def\pgfclearendarrow{\pgfsetendarrow{}}
\def\pgfclearstartarrow{\pgfsetstartarrow{}}

\def\pgfputarrow#1#2#3{\pgflowlevelobj{\pgftransformarrow{#1}{#2}}{\pgfsys@setdash{}{0pt}#3}}

\def\pgfsetstartarrow#1{\def\pgf@startarrow{#1}\def\pgf@shorten@start{\pgf@x=0.0pt}}
\def\pgfsetendarrow#1{\def\pgf@endarrow{#1}\def\pgf@shorten@end{\pgf@x=0.0pt}}

\def\pgfdefarrow#1#2#3#4{%
  \pgfdefobject{pgf@#1}{#2}{#3}{\pgfsys@setlinewidth{1bp}#4}%
  \expandafter\gdef\csname#1\endcsname{%
    \pgf@x=\pgflinewidth%
    \pgf@y=\pgflinewidth%
    \pgfuseobjectmagnify{pgf@#1}\ignorespaces}}
\def\pgfdefarrowabs#1#2#3#4{%
  \pgfdefobject{pgf@#1}{#2}{#3}{\pgfarrowlinewidthscale{1}#4}%
  \expandafter\gdef\csname#1\endcsname{%
    \pgfuseobject{pgf@#1}\ignorespaces}
  }
\def\pgfarrowlinewidthscale#1{\pgfsys@setlinewidth{#1bp}\ignorespaces}
\pgfdefarrow{pgfarrowsingle}{\pgfpoint{-7pt}{-5pt}}{\pgfpoint{3pt}{5pt}}{%
  \pgfqmoveto{2}{0}
  \pgfqlineto{-6}{4}
  \pgfqlineto{-3}{0}
  \pgfqlineto{-6}{-4}
  \pgfusepathqfill}
\def\pgfarrowswap#1{\pgflowlevelobj{\pgftransformxscale{-1}}{#1}}
\def\pgfarrowcombine#1#2{%
  #1%
  \pgflowlevelobj{\pgftransformshift{\pgfpoint{-7\pgflinewidth}{0pt}}}{#2}}
\def\pgfarrowcombineloose#1#2{#1\pgflowlevelobj{\pgftransformshift{\pgfpoint{-14\pgflinewidth}{0pt}}}{#2}}
\def\pgfarrowdouble#1{\pgfarrowcombine{#1}{#1}}
\def\pgfarrowtriple#1{%
  #1%
  \pgflowlevelobj{\pgftransformshift{\pgfpoint{-7\pgflinewidth}{0pt}}}{#1}%
  \pgflowlevelobj{\pgftransformshift{\pgfpoint{-14\pgflinewidth}{0pt}}}{#1}}
\pgfdefarrow{pgfarrowto}{\pgfpoint{-4pt}{-5pt}}{\pgfpoint{2pt}{5pt}}{%
  \pgfarrowlinewidthscale{0.8}
  \pgfsetdash{}{0pt}
  \pgfsetroundcap
  \pgfsetroundjoin
  \pgfqmoveto{-3}{4}
  \pgfqcurveto{-2.75}{2.5}{0}{0.25}{0.75}{0}
  \pgfqcurveto{0}{-0.25}{-2.75}{-2.5}{-3}{-4}
  \pgfusepathqstroke}
\pgfdefarrow{pgfarrowbar}{\pgfpoint{-1pt}{-6pt}}{\pgfpoint{1pt}{6pt}}{%
  \pgfsetdash{}{0pt}
  \pgfqmoveto{0}{-5}
  \pgfqlineto{0}{5}
  \pgfusepathqstroke}
\pgfdefarrow{pgfarrowsquare}{\pgfpoint{-4pt}{-6pt}}{\pgfpoint{1pt}{6pt}}{%
  \pgfsetdash{}{0pt}
  \pgfqmoveto{-3}{-5}
  \pgfqlineto{0}{-5}
  \pgfqlineto{0}{5}
  \pgfqlineto{-3}{5}
  \pgfusepathqstroke}
\pgfdefarrow{pgfarrowround}{\pgfpoint{-3pt}{-6pt}}{\pgfpoint{2pt}{6pt}}{%
  \pgfsetdash{}{0pt}
  \pgfqmoveto{-2}{-5}
  \pgfqcurveto{1}{-3}{1}{3}{-2}{5}
  \pgfusepathqstroke}
\pgfdefarrow{pgfarrowpointed}{\pgfpoint{-6pt}{-6pt}}{\pgfpoint{2pt}{6pt}}{%
  \pgfsetdash{}{0pt}
  \pgfqmoveto{-4.5}{-5}
  \pgfqlineto{0.5}{0}
  \pgfqlineto{-4.5}{5}
  \pgfusepathqstroke}
\pgfdefarrow{pgfarrowdot}{\pgfpoint{-7pt}{-4pt}}{\pgfpoint{2pt}{4pt}}{%
  \pgfsys@transformshift{-2.5bp}{0bp}%
  \pgfsetdash{}{0pt}
  \pgfpathqcircle{3bp}
  \pgfusepathqfillstroke}
\pgfdefarrow{pgfarrowdiamond}{\pgfpoint{-12pt}{-4pt}}{\pgfpoint{2pt}{4pt}}{%
  \pgfsetdash{}{0pt}
  \pgfqmoveto{1}{0}
  \pgfqlineto{-5}{3}
  \pgfqlineto{-11}{0}
  \pgfqlineto{-5}{-3}
  \pgfpathclose
  \pgfusepathqfillstroke}
\def\pgfarrowcircle#1{%
  \pgfsetdash{}{0pt}
  \setlength\pgf@xa{#1}%
  \pgf@xb=\pgf@xa%
  \advance\pgf@xa by-0.5\pgflinewidth
  \begin{pgflowlevelscope}{\pgftransformshift{\pgfpoint{-\pgf@xa}{0pt}}}%
    \pgfpathqcircle{\pgf@sys@tonumber{\pgf@xb}bp}
    \pgfusepathqfillstroke
  \end{pgflowlevelscope}}
\def\pgfarrowtriangle#1{%
  \pgfsetdash{}{0pt}
  \begin{pgfscope}%
    \setlength\pgf@xa{#1}%
    \pgf@ya=0.577\pgf@xa%
    \advance\pgf@xb by-\pgflinewidth%
    \pgfpathmoveto{\pgfpoint{-\pgf@xa}{-\pgf@ya}}%
    \pgfpathlineto{\pgfpoint{\pgflinewidth}{0pt}}%
    \pgfpathlineto{\pgfpoint{-\pgf@xa}{\pgf@ya}}%
    \pgfpathclose%
    \pgfusepathqfillstroke%
  \end{pgfscope}}
\def\pgfarrowlargepointed#1{%
  \pgfsetdash{}{0pt}
  \begin{pgfscope}%
    \setlength\pgf@xa{#1}%
    \pgfpathmoveto{\pgfpoint{-\pgf@xa}{-\pgf@xa}}
    \pgfpathlineto{\pgfpointorigin}
    \pgfpathlineto{\pgfpoint{-\pgf@xa}{\pgf@xa}}    
    \pgfusepathqstroke
  \end{pgfscope}}

\newcommand\pgfcorner[3][sw]{%
  \pgf@process{#2}%
  \pgf@xa=\pgf@x%
  \pgf@ya=\pgf@y%
  \pgf@process{#3}%
  \ifdim\pgf@xa<\pgf@x%
    \pgf@xb=\pgf@x%
    \pgf@x=\pgf@xa%
    \pgf@xa=\pgf@xb%
  \fi%
  \ifdim\pgf@ya<\pgf@y%
    \pgf@yb=\pgf@y%
    \pgf@y=\pgf@ya%
    \pgf@ya=\pgf@yb%
  \fi%
  \csname pgf@corner@#1\endcsname\relax%    
}
\def\pgf@corner@se{\pgf@x=\pgf@xa}
\def\pgf@corner@ne{\pgf@x=\pgf@xa\pgf@y=\pgf@ya}
\def\pgf@corner@nw{\pgf@y=\pgf@ya}
\def\pgf@corner@sw{}
\def\pgf@corner@s{\pgf@x=.5\pgf@x\advance\pgf@x by.5\pgf@xa}
\def\pgf@corner@n{\pgf@x=.5\pgf@x\advance\pgf@x by.5\pgf@xa\pgf@y=\pgf@ya}
\def\pgf@corner@w{\pgf@y=.5\pgf@y\advance\pgf@y by.5\pgf@ya}
\def\pgf@corner@e{\pgf@y=.5\pgf@y\advance\pgf@y by.5\pgf@ya\pgf@x=\pgf@xa}

% Defines a circle node of name #1 at position #3 of radius #4.
%
% #1 = a name
% #2 = ``stroke'' or ``fill'' or ``fillstroke'' or ``virtual'' (= draw
%      nothing)
% #3 = a point
% #4 = a radius
%
% Example:
%
% \pgfnodecircle{mynode}[stroke]{\pgfxy(1,1)}{2cm}

\def\pgfnodecircle#1[#2]#3#4{%
  \pgf@process{#3}%
  \expandafter\def\csname pgfno@#1\endcsname{\pgf@backoffcircle{#4}}%
  \expandafter\def\csname pgfnob@#1\endcsname{\pgf@anglecircle{#4}}%
  \expandafter\edef\csname pgfnom@#1\endcsname{\noexpand\pgf@x=\pgf@sys@tonumber{\pgf@x}pt\noexpand\pgf@y=\pgf@sys@tonumber{\pgf@y}pt}% 
  \expandafter\ifx\csname pgf@@#2\endcsname\pgf@@virtual%
  \else%
  \pgfcircle[#2]{\csname pgfnom@#1\endcsname}{#4}%
  \fi\ignorespaces}

\def\pgf@@virtual{}


% Defines a rectangular node of name #1 with center at position #3 and
% width/height vector #4
%
% #1 = a name
% #2 = ``stroke'' or ``fill'' or ``fillstroke'' or ``virtual'' (= draw
%      nothing)
% #3 = a center
% #4 = width/height vector
%
% Example:
%
% \pgfnoderect{mynode}[stroke]{\pgfxy(1,1)}{\pgfxy(2,2)}

\def\pgfnoderect#1[#2]#3#4{%
  \pgf@process{#3}%
  \pgf@xa=\pgf@x%
  \pgf@ya=\pgf@y%
  \pgf@process{#4}%
  \pgf@x=.5\pgf@x%
  \pgf@y=.5\pgf@y%  
  \expandafter\edef\csname pgfno@#1\endcsname{\noexpand\pgf@backoffrect%
    {\pgf@sys@tonumber{\pgf@x}pt}{\pgf@sys@tonumber{\pgf@y}pt}}%
  \expandafter\edef\csname pgfnob@#1\endcsname{\noexpand\pgf@anglerect%
    {\pgf@sys@tonumber{\pgf@x}pt}{\pgf@sys@tonumber{\pgf@y}pt}}%
  \expandafter\edef\csname
  pgfnom@#1\endcsname{\noexpand\pgf@x=\pgf@sys@tonumber{\pgf@xa}pt\noexpand\pgf@y=\pgf@sys@tonumber{\pgf@ya}pt}% 
  \expandafter\ifx\csname pgf@@#2\endcsname\pgf@@virtual%
  \else%
  \advance\pgf@xa by-\pgf@x%
  \advance\pgf@ya by-\pgf@y%
  \edef\pgf@temp{\noexpand\pgf@x=\pgf@sys@tonumber{\pgf@xa}pt\noexpand\pgf@y=\pgf@sys@tonumber{\pgf@ya}pt}%
  \pgfrect[#2]{\pgf@temp}{#4}%
  \fi\ignorespaces}


% Defines a rectangular node of name #1 with center at position #3 
% contaning a box #4
%
% #1 = a name
% #2 = ``stroke'' or ``fill'' or ``fillstroke'' or ``virtual'' (= draw
%      nothing)
% #3 = a center
% #4 = TeX text that will be boxed
% #5 = a horizontal border offset
% #6 = a vertical border offset
%
% Example:
%
% \pgfnodebox{mynode}[stroke]{\pgfxy(1,1)}{start}{2pt}{2pt}

\def\pgfnodebox#1[#2]#3#4#5#6{%
  \pgf@makehbox{#4}%
  \pgf@x=\wd\pgf@hbox%
  \pgf@y=\ht\pgf@hbox%
  \advance\pgf@y by \dp\pgf@hbox%
  \addtolength\pgf@x{#5}%
  \addtolength\pgf@x{#5}%
  \addtolength\pgf@y{#6}%
  \addtolength\pgf@y{#6}%
  \edef\pgf@boxsize{\noexpand\pgf@x=\the\pgf@x\noexpand\pgf@y=\the\pgf@y}%
  \csname pgf@haligncompcenter\endcsname%
  \csname pgf@valigncompcenter\endcsname%
  \wd\pgf@hbox=0pt%
  \pgfputat{#3}{%
  \pgfsys@hbox\pgf@hbox}%
  \pgfnoderect{#1}[#2]{#3}{\pgf@boxsize}\ignorespaces}




% Retrieves the center of #1.
%
% #1 = a node name
%
% Example:
%
% \pgfpathmoveto{\pgfnodecenter{mynode}}

\def\pgfnodecenter#1{%
  \expandafter\ifx\csname pgfnom@#1\endcsname\relax%
  \GenericError{\space\space\space\@spaces\@spaces\@spaces}%
  {PGF Error: Node "#1" undefined.}{}{\@ehc}%
  \pgfpoint{0pt}{0pt}%
  \else\csname pgfnom@#1\endcsname\fi\ignorespaces}



% Returns a position relative to the center of #1.
%
% #1 = a node name
% #2 = a direction (see \pgfdirection)
% #3 = a distance
%
% Example:
%
% \pgfpathmoveto{\pgfnoderelative{mynode}[north]{1cm}}

\def\pgfnoderelative#1[#2]#3{%
  \pgfrelative{\pgfnodecenter{#1}}{\pgfpolar{\pgfdirection{#2}}{#3}}\ignorespaces}



% Retrieves a border point of #1 at angle #2 and distance #3 from
% border. 
%
% #1 = a node name
% #2 = an angle
% #3 = a distance from the border
%
% Example:
%
% \pgfpathmoveto{\pgfnodeborder{first}{30}{0pt}}
% \pgfpathlineto{\pgfnodeborder{second}{180}{2pt}}
% \pgfstroke

\def\pgfnodeborder#1#2#3{%
  \csname pgfnob@#1\endcsname{#3}{#2}{\pgfnodecenter{#1}}\ignorespaces}



% Gives the beginning of a connection of #2 and #3, taking a
% separation distance of #1 into account.
%
% #1 = a separation distance
% #2 = a node name
% #3 = a second node name
%
% Example:
%
% \pgfpathmoveto{\pgfnodeconnstart{first}{second}}
% \pgfpathlineto{\pgfnodeconnstart{second}{first}}

\def\pgfnodeconnstart[#1]#2#3{%
  \csname pgfno@#2\endcsname[#1]{\pgfnodecenter{#2}}{\pgfnodecenter{#3}}%
  \ignorespaces}



\newdimen\pgf@nodesepstart
\newdimen\pgf@nodesepend

% Sets the node separation for starts of lines.
%
% #1 = a distance
%
% Example:
%
% \pgfnodesetsepstart{2pt}

\def\pgfnodesetsepstart#1{\setlength\pgf@nodesepstart{#1}\ignorespaces}

\pgfnodesetsepstart{0pt}


% Sets the node separation for end of lines.
%
% #1 = a distance
%
% Example:
%
% \pgfnodesetsepend{2pt}

\def\pgfnodesetsepend#1{\setlength\pgf@nodesepend{#1}\ignorespaces}

\pgfnodesetsepend{0pt}




% Draws a line from #1 to #2.
%
% #1 = a node name
% #2 = a second node name
%
% Example:
%
% \pgfnodeconnline{first}{second}

\def\pgfnodeconnline#1#2{%
  \pgfpathmoveto{\pgfnodeconnstart[\pgf@nodesepstart]{#1}{#2}}%
  \pgfpathlineto{\pgfnodeconnstart[\pgf@nodesepend]{#2}{#1}}%
  \pgfstroke%
  \ignorespaces}



% Draws a curve from #1 to #2. The starting angle at #1 is #3 and the
% length to the first support point is #5. The starting angle at #2
% is #4 and the length to the second support point is #6. 
%
% #1 = a node name
% #2 = a second node name
% #3 = angle at first node
% #4 = angle at second node
% #5 = distance to support point at first node
% #6 = distance to support point at second node
%
% Example:
%
% \pgfnodeconncurve{first}{second}{10}{-10}{1cm}{1cm}

\def\pgfnodeconncurve#1#2#3#4#5#6{%
  \pgfpathmoveto{\pgfnodeborder{#1}{#3}{\pgf@nodesepstart}}%
  \pgfpathcurveto{\pgfnodeborder{#1}{#3}{#5}}{\pgfnodeborder{#2}{#4}{#6}}%
           {\pgfnodeborder{#2}{#4}{\pgf@nodesepend}}%
  \pgfstroke\ignorespaces}




% Put a label on a line from #1 to #2.
%
% #1 = a node name
% #2 = a second node name
% #3 = fraction of way from #1 to #2
% #4 = vertical offset
% #5 = label
%
% Example:
%
% \pgfnodelabel{first}{second}[.5][2pt]{\pgfbox[center,base]{owns}}

\def\pgfnodelabel#1#2[#3][#4]#5{%
  \pgfputat{\pgflabel%
    {#3}%
    {\pgfnodeconnstart[\pgf@nodesepstart]{#1}{#2}}%
    {\pgfnodeconnstart[\pgf@nodesepend]{#2}{#1}}%
    {#4}}%
  {#5}\ignorespaces}


% Put a rotated label on a line from #1 to #2.
%
% #1 = a node name
% #2 = a second node name
% #3 = fraction of way from #1 to #2
% #4 = vertical offset
% #5 = label
%
% Example:
%
% \pgfnodelabelrotated{first}{second}[.5][2pt]{\pgfbox[center,base]{owns}}

\def\pgfnodelabelrotated#1#2[#3][#4]#5{%
  \pgfputlabelrotated%
  {#3}%
  {\pgfnodeconnstart[\pgf@nodesepstart]{#1}{#2}}%
  {\pgfnodeconnstart[\pgf@nodesepend]{#2}{#1}}%
  {#4}%
  {#5}\ignorespaces}



% Internals

\def\pgf@backoffcircle#1[#2]#3#4{%
  % Calculate backoff for a circle of radius
  % #1 and offset separation #2. #3 is the center of the circle, #4
  % is the target point.
  \setlength\pgf@x{#1}%
  \addtolength\pgf@x{#2}%
  \edef\pgf@temp{{\pgf@sys@tonumber{\pgf@x}pt}}%
  \expandafter\pgfbackoff\pgf@temp{#3}{#4}\ignorespaces}

\def\pgf@mult#1#2#3{#1=#2#3}

\def\pgf@anglecircle#1#2#3#4{%
  % Calculate border point. #1 is radius, #2 is additional backoff, #3
  % is an angle, #4 is the center of the circle.
  \pgfsincos{#3}%
  \setlength\pgf@xa{#1}%
  \addtolength\pgf@xa{#2}%
  \pgf@ya=\pgf@xa\relax%
  \pgf@mult{\pgf@xa}{\pgf@sys@tonumber{\pgf@x}}{\pgf@xa}%
  \pgf@mult{\pgf@ya}{\pgf@sys@tonumber{\pgf@y}}{\pgf@ya}%
  \pgf@process{#4}%
  \advance\pgf@y by\pgf@xa\relax%
  \advance\pgf@x by\pgf@ya\ignorespaces}

\def\pgf@backoffrect#1#2[#3]#4#5{%
  % Calculate backoff for a rect with half width #1,
  % half height #2, offset separation #3. #4 is the center of the rect, #5
  % is the target point.
  \pgfdiff{#4}{#5}%
  \pgf@xa=\pgf@x%
  \pgf@ya=\pgf@y%
  \setlength\pgf@xb{#1}%
  \setlength\pgf@yb{#2}%
  \addtolength\pgf@xb{#3}%
  \addtolength\pgf@yb{#3}%  
  \ifnum\pgf@xa<0\relax% move into first quadrant
    \pgf@x=-\pgf@x%
  \fi%
  \ifnum\pgf@ya<0\relax%
    \pgf@y=-\pgf@y%
  \fi%
  \c@pgf@counta=\pgf@x%
  \c@pgf@countb=\pgf@y%
  \divide\c@pgf@counta by 256\relax%
  \divide\c@pgf@countb by 256\relax%
  \ifnum\c@pgf@countb<\c@pgf@counta%
    \ifnum\c@pgf@counta<1\relax%
      \pgf@y=\pgf@yb\relax%
      \pgf@x=0pt\relax%
    \else%
      \pgf@y=16\pgf@y%
      \divide\pgf@y by \c@pgf@counta%
      \pgf@y=16\pgf@y%
      \pgf@mult{\pgf@y}{\pgf@sys@tonumber{\pgf@xb}}{\pgf@y}%
      \ifnum\pgf@y<\pgf@yb%
        \pgf@x=\pgf@xb%
      \else% rats, calculate intersection on upper side
        \ifnum\c@pgf@countb<1\relax%
          \pgf@x=\pgf@xb\relax%
          \pgf@y=0pt\relax%
        \else%
          \pgf@x=16\pgf@x%
          \divide\pgf@x by \c@pgf@countb%
          \pgf@x=16\pgf@x%
          \pgf@mult{\pgf@x}{\pgf@sys@tonumber{\pgf@yb}}{\pgf@x}%
          \pgf@y=\pgf@yb%
        \fi%
      \fi%  
    \fi%
  \else%
    \ifnum\c@pgf@countb<1\relax%
      \pgf@x=\pgf@xb\relax%
      \pgf@y=0pt\relax%
    \else%
      \pgf@x=16\pgf@x%
      \divide\pgf@x by \c@pgf@countb%
      \pgf@x=16\pgf@x%
      \pgf@mult{\pgf@x}{\pgf@sys@tonumber{\pgf@yb}}{\pgf@x}%
      \ifnum\pgf@x<\pgf@xb%
        \pgf@y=\pgf@yb%
      \else%
        \ifnum\c@pgf@counta<1\relax%
          \pgf@y=\pgf@yb\relax%
          \pgf@x=0pt\relax%
        \else%
          \pgf@y=16\pgf@y%
          \divide\pgf@y by \c@pgf@counta%
          \pgf@y=16\pgf@y%
          \pgf@mult{\pgf@y}{\pgf@sys@tonumber{\pgf@xb}}{\pgf@y}%
          \pgf@x=\pgf@xb%
        \fi%
      \fi%  
    \fi%
  \fi%  
  \ifnum\pgf@xa<0\relax\pgf@x=-\pgf@x\fi%
  \ifnum\pgf@ya<0\relax\pgf@y=-\pgf@y\fi%    
  \pgf@xa=\pgf@x%
  \pgf@ya=\pgf@y%
  \pgf@process{#4}%
  \advance\pgf@x by\pgf@xa%
  \advance\pgf@y by\pgf@ya\ignorespaces}

\def\pgf@anglerect#1#2#3#4#5{%
  % Calculate border point. #1/#2 is half width/height, #3 is additional backoff, #4
  % is an angle, #5 is the center of the rect.
  \pgfsincos{#4}%
  \pgf@xa=100\pgf@x%
  \pgf@ya=100\pgf@y%
  \pgf@process{#5}%
  \advance\pgf@x by\pgf@ya%
  \advance\pgf@y by\pgf@xa%
  \edef\pgf@temp{{\noexpand\pgf@x=\the\pgf@x\noexpand\pgf@y=\the\pgf@y}}%
  \expandafter\pgf@caller\pgf@temp{#1}{#2}{#3}{#5}\ignorespaces}

\def\pgf@caller#1#2#3#4#5{\pgf@backoffrect{#2}{#3}[#4]{#5}{#1}}

\long\def\pgfbox[#1,#2]#3{%
  \pgf@makehbox{#3}%
  \csname pgf@haligncomp#1\endcsname%
  \csname pgf@valigncomp#2\endcsname%
  \wd\pgf@hbox=0pt%
  \ht\pgf@hbox=0pt%
  \dp\pgf@hbox=0pt%
  \pgfqbox{\pgf@hbox}%
  \ignorespaces}

\def\pgf@haligncompleft{}% do nothing
\def\pgf@haligncompcenter{\setbox\pgf@hbox=\hbox{\hskip-.5\wd\pgf@hbox\box\pgf@hbox}}
\def\pgf@haligncompright{\setbox\pgf@hbox=\hbox{\hskip-\wd\pgf@hbox\box\pgf@hbox}}
\def\pgf@valigncompbase{}% do nothing
\def\pgf@valigncompbottom{\setbox\pgf@hbox=\hbox{\raise\dp\pgf@hbox\box\pgf@hbox}}
\def\pgf@valigncompcenter{%
  \setbox\pgf@hbox=\hbox{\raise.5\dp\pgf@hbox\hbox{\lower.5\ht\pgf@hbox\box\pgf@hbox}}}%
\def\pgf@valigncomptop{\setbox\pgf@hbox=\hbox{\lower\ht\pgf@hbox\box\pgf@hbox}}


\endinput
