summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-08 22:20:48 +0000
committerKarl Berry <karl@freefriends.org>2014-04-08 22:20:48 +0000
commitd213249d916724bc567b5c28883cf6965db2e18e (patch)
treed312409939a24d78081449664e8ff32a5654a427
parent2cf705b464bf17366d3da797f80f41965c54f85b (diff)
tqft (8apr14)
git-svn-id: svn://tug.org/texlive/trunk@33411 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf-dist/doc/latex/tqft/README (renamed from Master/texmf-dist/doc/latex/tqft/README.txt)4
-rw-r--r--Master/texmf-dist/doc/latex/tqft/tqft_doc.pdfbin317362 -> 428822 bytes
-rw-r--r--Master/texmf-dist/doc/latex/tqft/tqft_doc.tex615
-rw-r--r--Master/texmf-dist/source/latex/tqft/tqft.dtx899
-rw-r--r--Master/texmf-dist/source/latex/tqft/tqft.ins30
-rw-r--r--Master/texmf-dist/tex/latex/tqft/tikzlibrarytqft.code.tex523
-rw-r--r--Master/texmf-dist/tex/latex/tqft/tqft.sty59
7 files changed, 2034 insertions, 96 deletions
diff --git a/Master/texmf-dist/doc/latex/tqft/README.txt b/Master/texmf-dist/doc/latex/tqft/README
index c18773e7300..365b108946b 100644
--- a/Master/texmf-dist/doc/latex/tqft/README.txt
+++ b/Master/texmf-dist/doc/latex/tqft/README
@@ -1,9 +1,9 @@
----------------------------------------------------------------
-tqft --- a style file for drawing TQFT diagrams with TikZ/PGF
+tqft --- a library for drawing TQFT diagrams with TikZ/PGF
E-mail: stacey@math.ntnu.no
Released under the LaTeX Project Public License v1.3c or later
See http://www.latex-project.org/lppl.txt
----------------------------------------------------------------
-This package defines some node shapes useful for drawing TQFT diagrams with TikZ/PGF.
+This package defines some shapes useful for drawing TQFT diagrams with TikZ/PGF.
diff --git a/Master/texmf-dist/doc/latex/tqft/tqft_doc.pdf b/Master/texmf-dist/doc/latex/tqft/tqft_doc.pdf
index cdb00af732c..3c3eebfb290 100644
--- a/Master/texmf-dist/doc/latex/tqft/tqft_doc.pdf
+++ b/Master/texmf-dist/doc/latex/tqft/tqft_doc.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/tqft/tqft_doc.tex b/Master/texmf-dist/doc/latex/tqft/tqft_doc.tex
index 35ab6e36180..e463c3027ef 100644
--- a/Master/texmf-dist/doc/latex/tqft/tqft_doc.tex
+++ b/Master/texmf-dist/doc/latex/tqft/tqft_doc.tex
@@ -5,6 +5,7 @@
\usepackage[svgnames]{xcolor}
\usepackage{tikz}
\usepackage{tqft}
+\usetikzlibrary{tqft}
\usepackage[numbered]{hypdoc}
\definecolor{lstbgcolor}{rgb}{0.9,0.9,0.9}
@@ -35,32 +36,48 @@
\providecommand*{\url}{\texttt}
\GetFileInfo{tqft.sty}
-\title{The \textsf{tqft} Package: Documentation}
+
+\title{The \textsf{tqft} Ti\emph{k}Z Library: Documentation}
\author{Andrew Stacey \\ \url{stacey@math.ntnu.no}}
-\date{\fileversion~from \filedate}
\begin{document}
\maketitle
\begin{center}
-\begin{tikzpicture}[scale=.5,every tqft/.style={fill=DarkMagenta,draw,ultra thick},every node/.style={tqft cobordism,transform shape}]
- \node[
+\begin{tikzpicture}[
+ scale=.5,
+ every tqft/.style={
+ transform shape
+ },
+ tqft/cobordism/.style={
+ fill=DarkMagenta,
+ draw,
+ ultra thick},
+ ]
+ \pic[
+ name=a,
tqft,
incoming boundary components=0,
outgoing boundary components=3,
- ] (a) {};
- \node[
+ ];
+ \pic[
+ name=b,
+ at=(a-outgoing boundary 2),
tqft cylinder,
anchor=incoming boundary 1,
- ] at (a.outgoing boundary 2) (b) {};
- \node[
+ ];
+ \pic[
+ at=(a-outgoing boundary 3),
+ name=c,
tqft,
incoming boundary components=0,
outgoing boundary components=2,
- anchor=outgoing boundary 1,
- ] at (a outgoing 3.next) (c) {};
- \node[
+ anchor={(0,1)},
+ ];
+ \pic[
+ at=(c-outgoing boundary 1),
+ name=d,
tqft,
incoming boundary components=3,
outgoing boundary components=1,
@@ -68,59 +85,581 @@
anchor=incoming boundary 1,
boundary separation=1cm,
cobordism height=2.5cm,
- ] at (c.outgoing boundary 1) (d) {};
- \node[
+ ];
+ \pic[
+ at=(c-outgoing boundary 2),
+ name=e,
tqft,
- flow=east,
+ rotate=90,
incoming boundary components=0,
outgoing boundary components=3,
- ] at (c outgoing 2.next) (e) {};
- \node[
+ anchor={(2,-.5)}
+ ];
+ \pic[
+ at=(e-outgoing boundary 3),
+ name=f,
tqft cylinder,
- flow=east,
+ rotate=90,
anchor=incoming boundary 1,
- ] at (e.outgoing boundary 1) (f) {};
- \node[
+ ];
+ \pic[
+ at=(e-outgoing boundary 2),
+ name=g,
tqft cylinder,
- flow=east,
+ rotate=90,
anchor=incoming boundary 1,
- ] at (e.outgoing boundary 2) (g) {};
- \node[
+ ];
+ \pic[
+ at=(g-outgoing boundary 1),
+ name=h,
tqft,
+ anchor={(0,1)},
incoming boundary components=0,
outgoing boundary components=3,
- anchor=outgoing boundary 1,
- ] at (g outgoing 1.below) (h) {};
- \node[
+ ];
+ \pic[
+ at=(h-outgoing boundary 2),
+ name=i,
tqft cylinder,
anchor=incoming boundary 1,
- ] at (h.outgoing boundary 2) (i) {};
+ ];
\end{tikzpicture}
\end{center}
\section{Introduction}
-This package defines some TikZ/PGF node shapes that can be used to construct the diagrams common in Topological Quantum Field Theory (TQFT).
+This package defines some Ti\emph{k}Z/PGF picture shapes that can be used to construct the diagrams common in Topological Quantum Field Theory (TQFT).
An example follows:
\begin{example}
-\begin{tikzpicture}
-\node[draw,tqft/pair of pants] (a) {};
-\node[draw,tqft/cylinder to next,anchor=incoming boundary 1] (c) at (a.outgoing boundary 1) {};
-\node[draw,tqft/reverse pair of pants, anchor=incoming boundary 1] at (a.outgoing boundary 2) (b) {};
+\begin{tikzpicture}[tqft/cobordism/.style={draw}]
+\pic[tqft/pair of pants,name=a];
+\pic[tqft/cylinder to next,anchor=incoming boundary 1,name=c,at=(a-outgoing boundary 1)];
+\pic[tqft/reverse pair of pants, anchor=incoming boundary 1,at=(a-outgoing boundary 2)];
\end{tikzpicture}
\end{example}
+\tableofcontents
+
+\section{History}
+
+This is the second version of the TQFT package.
+The first version used nodes to draw the shapes.
+However, with the advent of Ti\emph{k}Z3.0 came the ability to define subdrawings called \Verb+pic+s which were a bit like nodes but were geared more towards drawings than containers for text.
+This seems a much more suitable mechanism for drawing these diagrams and so the package has been rewritten to make use of this new facility.
+
+The second version is designed to be similar to the first, but with some improvements.
+The original version was distributed as a \Verb+.sty+ file and so is loaded using \Verb+\usepackage{tqft}+.
+The newer version is a Ti\emph{k}Z library and so is loaded using \Verb+\usetikzlibrary{tqft}+.
+This makes it possible to use both in the same document.
+This is not recommended, but an attempt has been made to make it possible to switch between the two methods.
+This hasn't been extensively tested so use with caution.
+To make the switch use the key \Verb+/tikz/tqft/use nodes=<true|false>+.
+By default, the one loaded last should be in effect at the start of the document.
+
+\section{Keys}
+
Before giving any details, a word is in order about the keys involved in this package.
There are many options and keys that can be set via the \Verb+\pgfkeys+ system (which is used for setting options in Ti\emph{k}Z).
Such keys live in a ``directory'' but often that can be omitted.
For example, in the Ti\emph{k}Z command \Verb+\draw[red] (0,0) -- (1,0);+ the key \Verb+red+ is actually in the ``directory'' \Verb+/tikz+ but it is not necessary to specify that as it is assumed.
Defining a ``directory'' helps separate keys and ensure that there is no conflict.
-The keys in this package are (mostly) defined in the directory \Verb+/pgf/tqft+ but the very first call to a \Verb+tqft+ key will (in general) set the ``current directory'' to \Verb+/pgf/tqft+ and so all subsequent keys do not need prefixing.
+The keys in this library are (mostly) defined in the directories \Verb+/tikz/tqft+ (the newer version) and \Verb+/pgf/tqft+ (the old version).
+
+Invoking \Verb+/tikz/tqft+ itself sets the ``current directory'' to whichever directory is right for the current version in force and so all subsequent keys do not need prefixing.
Moreover, any unknown keys are passed on to the \Verb+/tikz+ directory so there is (or should be!) no harm in mixing \Verb+tqft+ specific keys with ordinary Ti\emph{k}Z keys.
Some examples take advantage of this switch so when copying and modifying examples from this document, it is important to remember that the first \Verb+tqft+ specific key needs an explicit \Verb+tqft/+ prefix.
-More detailed information is in the section on styling.
-\section{The Shapes}
+
+\section{Version 2.0}
+
+\subsection{The Shapes}
+
+There is only one picture shape: \Verb+cobordism+.
+This is a cobordism between a number of incoming circles and a number of outgoing circles, where the numbers of boundary components can be specified as options to the shape.
+There are certain common shapes that are predefined as aliases to the main shape with specified boundaries.
+The list of predefined shapes follows.
+The names are all in the \Verb+tqft+ family, but an alias is made so that \Verb+tqft <shape>+ will work without any further qualification.
+
+\begin{enumerate}
+\item \Verb+pair of pants+
+
+\begin{tikzpicture}
+\pic[draw,tqft/pair of pants];
+\end{tikzpicture}
+
+\item \Verb+reverse pair of pants+
+
+\begin{tikzpicture}
+\pic[draw,tqft/reverse pair of pants];
+\end{tikzpicture}
+
+\item \Verb+cylinder to prior+
+
+This is a cylinder that has been skewed to one side, thus following the same path as the \Verb+pair of pants+ cobordism but with only one outgoing boundary component.
+The name \Verb+to prior+ is because it goes towards the lower-numbered component on the \Verb+pair of pants+.
+
+\begin{tikzpicture}
+\pic[draw,tqft/cylinder to prior];
+\end{tikzpicture}
+
+\item \Verb+cylinder to next+
+
+This is a cylinder that has been skewed to one side, thus following the same path as the \Verb+pair of pants+ cobordism but with only one outgoing boundary component.
+The name \Verb+to next+ is because it goes towards the higher-numbered component on the \Verb+pair of pants+.
+
+\begin{tikzpicture}
+\pic[draw,tqft/cylinder to next];
+\end{tikzpicture}
+
+\item \Verb+cylinder+
+
+This is a straight cylinder.
+
+\begin{tikzpicture}
+\pic[draw,tqft/cylinder];
+\end{tikzpicture}
+
+\item \Verb+cap+
+
+This is a cap.
+
+\begin{tikzpicture}
+\pic[draw,tqft/cap];
+\end{tikzpicture}
+
+\item \Verb+cup+
+
+This is a cup (an upside-down cap).
+
+\begin{tikzpicture}
+\pic[draw,tqft/cup];
+\end{tikzpicture}
+
+\end{enumerate}
+
+The general shape is controlled by the following keys:
+
+\begin{itemize}
+\item \DescribeMacro{view from} To get a simulated 3D effect, the cobordism is drawn as if viewed from a slight angle.
+The value of this key determines whether the cobordism is viewed from the direction of the incoming boundary components or the outgoing ones.
+This key can take the values \Verb+incoming+ and \Verb+outgoing+.
+The default is \Verb+outgoing+.
+\item \DescribeMacro{cobordism height} This is the height of the cobordism (``height'' interpreted in its own internal coordinate system).
+With no offset (q.v.), this would be the distance between the centres of the first incoming and first outgoing boundary components.
+
+\item \DescribeMacro{boundary separation} This is the distance between the centres of the boundary components of the same type.
+
+\item \DescribeMacro{circle x radius} This is the half-width of the boundary circles.
+
+\item \DescribeMacro{circle y radius} This is the half-depth of the boundary circles (``depth'' since, in the internal coordinate system, this corresponds to the \(z\)-axis out of the page).
+
+\item \DescribeMacro{incoming boundary components} The number of incoming boundary components (can be zero).
+
+\item \DescribeMacro{outgoing boundary components} The number of outgoing boundary components (can be zero).
+
+\item \DescribeMacro{offset} This offsets the first outgoing boundary component horizontally relative to the first incoming boundary component.
+It is a dimensionless number (not necessarily an integer) and is interpreted so that a value of \(1\) aligns the first outgoing boundary component with the second incoming boundary component.
+
+\item \DescribeMacro{genus} This defines the number of holes in the shape.
+These are spread out in a horizontal line in the middle of the shape.
+\end{itemize}
+
+\subsection{Styling}
+
+There are various options for styling the diagrams.
+To understand how they work, it is important to know the order in which a cobordism is drawn and how many pieces it decomposes into.
+This is the following list, with the corresponding keys:
+
+\begin{enumerate}
+\item The boundary circles are drawn.
+These are actually elliptical nodes (and thus can be individually styled).
+Applicable styles:
+
+\begin{itemize}
+\item \Verb+every boundary component+,
+\item \Verb+every incoming boundary component+,\\
+or \Verb+every outgoing boundary component+,
+\item \Verb+incoming boundary component <n>+,\\
+or \Verb+outgoing boundary component <n>+
+\end{itemize}
+
+\item The lower edges of the boundary circles are redrawn.
+These are individual arcs.
+
+\begin{itemize}
+\item \Verb+every lower boundary component+,
+\item \Verb+every incoming lower boundary component+,\\or \Verb+every outgoing lower boundary component+,
+\item \Verb+incoming lower boundary component <n>+,\\or \Verb+outgoing lower boundary component <n>+
+\end{itemize}
+
+\item The full edge of the cobordism is drawn.
+This is a closed path so can be sensibly filled.
+It is clipped against a path defined by the genus of the cobordism which results in holes if it is filled (or shaded or anything else that goes in to the interior).
+
+\begin{itemize}
+\item \Verb+cobordism+,
+\item also, any actions specified on the \Verb+pic+ are applied here (specifically, the \Verb+pic actions+ key is invoked; see the Ti\emph{k}Z manual for full details on this),
+\item \Verb+cobordism outer path+.
+\end{itemize}
+
+\item Any holes specified by the genus are now drawn.
+These are styled to give the 3D impression, and this follows the direction specified by the \Verb+view from+ key.
+The paths are split so that each can be individually styled.
+
+\begin{itemize}
+\item \Verb+cobordism+, this style is applied because the curves defined by the genus can be thought of as part of the edge of the cobordism shape.
+\item \Verb+pic actions+, for the same reason as above.
+
+However, following this key then \Verb+fill=none,shade=none+ is issued.
+This is because even if the main shape is filled or shaded, the paths drawing the holes should almost certainly not be.
+\item \Verb+cobordism edge+, the same logic applies to the edge path (q.v.).
+\item \Verb+genus style+,
+\item \Verb+genus upper+ or \Verb+genus lower+,
+\item \Verb+hole <n>+,
+\item \Verb+hole <n> upper+ or \Verb+hole <n> lower+.
+\end{itemize}
+
+\item The non-boundary edge of the cobordism is redrawn.
+This is split in to pieces to allow for individual styling.
+
+\begin{itemize}
+\item \Verb+cobordism edge+,
+\item \Verb+cobordism outer edge+,
+\item \Verb+between incoming+, or \Verb+between outgoing+, or \Verb+between incoming and outgoing+.
+The latter is for the two sides, but note that if the cobordism has no incoming or no outgoing components then it also applies to the ``over the top'' edge.
+\item \Verb+<anchor>+, where the \Verb+<anchor>+ is the name of the anchor that lies on the midpoint of the curve, so it will be one of:
+%
+\begin{itemize}
+\item \Verb=between incoming <n> and <n+1>=,
+\item \Verb=between outgoing <n> and <n+1>=,
+\item \Verb+between first incoming and first outgoing+,
+\item \Verb+between first incoming and first outgoing+,
+\item \Verb+between last incoming and last outgoing+,
+\item \Verb+between first and last incoming+,
+\item \Verb+between first and last outgoing+.
+\end{itemize}
+\end{itemize}
+
+\item The upper edges of the boundary circles are redrawn.
+These are arcs.
+
+\begin{itemize}
+\item \Verb+every upper boundary component+,
+\item \Verb+every incoming upper boundary component+,\\or \Verb+every outgoing upper boundary component+,
+\item \Verb+incoming upper boundary component <n>+,\\or \Verb+outgoing upper boundary component <n>+
+\end{itemize}
+\end{enumerate}
+
+The fact that there are so many is to allow different style to be applied to different pieces and to give as much control as possible, whilst still making it fairly straightforward to draw a simple cobordism.
+The duplication of paths is to allow certain composite pieces to be \emph{filled}.
+Here is a progressively built up cobordism.
+
+\begin{example}
+\begin{tikzpicture}[tqft/view from=incoming]
+\begin{scope}[tqft/every boundary component/.style={fill=green,fill opacity=1}]
+\pic[tqft/cylinder,at={(1,0)}];
+\begin{scope}[tqft/every lower boundary component/.style={draw=purple,thick}]
+\pic[tqft/cylinder,at={(2,0)}];
+\begin{scope}[tqft/cobordism/.style={fill=yellow,fill opacity=.7}]
+\pic[tqft/cylinder,at={(3,0)}];
+\begin{scope}[tqft/cobordism edge/.style={draw,thick,blue}]
+\pic[tqft/cylinder,fill=yellow,fill opacity=.7,at={(4,0)}];
+\begin{scope}[tqft/every upper boundary component/.style={draw,thick,orange}]
+\pic[tqft/cylinder,fill=yellow,fill opacity=.7,at={(5,0)}];
+\end{scope}
+\end{scope}
+\end{scope}
+\end{scope}
+\end{scope}
+\end{tikzpicture}
+\end{example}
+
+Here's an example with lots of styling.
+
+\begin{example}
+\begin{tikzpicture}
+\pic[
+ tqft,
+ incoming boundary components=3,
+ outgoing boundary components=3,
+ offset=1,
+ genus=3,
+ hole 3/.style={ultra thick, purple,solid},
+ genus lower/.style={dashed},
+ fill=red!50,
+ cobordism edge/.style={draw},
+ between incoming and outgoing/.style={dotted},
+ between outgoing 2 and 3/.style={ultra thick},
+];
+\end{tikzpicture}
+\end{example}
+
+\subsection{Anchors}
+
+The cobordism is a \Verb+pic+ so does not have any native anchors.
+Nevertheless, a multitude of coordinates are defined that simulate the anchors associated with nodes.
+There is also support for specifying the shape to be located relative to a particular anchor.
+
+The \Verb+\pic+ should be named via the \Verb+name=<prefix>+ key, whereupon the anchors are prefixed by this value.
+The pseudo-anchors defined have the naming convention \Verb+<prefix>-<anchor name>+ (at the moment, it doesn't check to see if the \Verb+name+ key has been specified so if it isn't then the pseudo-anchors are still defined but with an empty prefix).
+They are:
+%
+\begin{itemize}
+\item \Verb+incoming boundary <n>+, these are in fact elliptical nodes and so also define actual anchors.
+\item \Verb+incoming boundary+ is an alias for \Verb+incoming boundary 1+.
+\item \Verb+outgoing boundary <n>+, same.
+\item \Verb+outgoing boundary+ is an alias for \Verb+outgoing boundary 1+.
+\item \Verb=between incoming <n> and <n+1>=, this lies on the midpoint of the curve between successive boundary components.
+\item \Verb=between outgoing <n> and <n+1>=, this lies on the midpoint of the curve between successive boundary components.
+\item \Verb=between first incoming and first outgoing= is on the edge between the first incoming and first outgoing boundary components; note that this is only defined if there are both incoming and outgoing boundary components.
+\item \Verb=between last incoming and last outgoing= is on the edge between the last incoming and last outgoing boundary components; note that this is only defined if there are both incoming and outgoing boundary components.
+\item \Verb=between first and last incoming=; this is only defined if there are no outgoing components.
+\item \Verb=between first and last outgoing=; this is only defined if there are no incoming components.
+\item \Verb=hole <n>=; if the genus is non-zero, this points to the centre of the \(n\)th hole.
+\end{itemize}
+
+To place the shape relative to an anchor, use the \Verb+tqft/anchor+ key.
+The argument should be just the name of the anchor without the leading \Verb+<prefix>-+.
+The \Verb+anchor+ key can also take another type of argument.
+If its argument is of the form \Verb+(x,y)+ then this is taken as a pseudo-coordinate\footnote{Note that due to the presence of the comma, this type of argument must be protected by braces.}.
+It is interpreted as being \(x\) boundary components across and \(y\) times the cobordism height down.
+However, if an \Verb+offset+ is specified then the resulting \(x\) value is shifted so that if \(y < 0\) then \((1,y)\) is in line with the first incoming boundary component and if \(y > 1\) then \((1,y)\) is in line with the first outgoing boundary component.
+If \(0 < y < 1\) then \((1,y)\) linearly interpolates between the first incoming and first outgoing boundary components.
+Thus \((1,0)\) is the first incoming boundary component, \((1,1)\) the first outgoing boundary component, \((0,0)\) is one unit to the left of the first incoming, and \((1,2)\) one unit below the first outgoing.
+Note that the picture is shifted to put this point at the current coordinate.
+
+\begin{example}
+\begin{tikzpicture}
+\pic[tqft, incoming boundary components=2,outgoing boundary components=4,offset=-1,draw,name=a];
+\foreach \anchor/\placement in
+{
+between first incoming and first outgoing/left,
+between last incoming and last outgoing/right,
+between outgoing 2 and 3/above,
+incoming boundary 1/above left,
+incoming boundary 2/above right,
+outgoing boundary 1/below left,
+outgoing boundary 4/below right}
+\draw[overlay,shift=(a-\anchor)] plot[mark=x] coordinates{(0,0)} node[\placement] {\scriptsize\texttt{(a-\anchor)}};
+\path (a-incoming boundary) +(0,.5) (a-outgoing boundary) +(0,-1);
+\end{tikzpicture}
+\end{example}
+
+\subsection{Notes}
+
+\begin{enumerate}
+\item Like \Verb+node+s, \Verb+pic+s need the \Verb+transform shape+ key to be set to take note of external transformations (other than shifts).
+\item There is an additional \Verb+every tqft+ key which is run when the \Verb+tqft+ key is invoked (which might be via some other key).
+This is better placed than the \Verb+every pic+ key since that applies to a surrounding scope rather than to the \Verb+pic+ itself.
+\item If the \Verb+tqft+ key is invoked, either implicitly or explicitly, then the \Verb+pic type+ is set to \Verb+cobordism+.
+This has the side effect that the invoking syntax has to be completely set by keys; so the \Verb+pic (<name>) at (<coord>) {<type>}+ cannot be used.
+Rather, the \Verb+name+ and \Verb+at+ have to be specified by keys and the \Verb+type+ omitted.
+
+\item If upgrading from the previous version of TQFT, as well as shifting from a \Verb+node+ to a \Verb+pic+, the following changes have been made in the implementation:
+
+\begin{itemize}
+\item The \Verb+flow+ key has not made it across to the new version.
+Use \Verb+transform shape+ and apply your own transformation.
+
+\item The \Verb+circle width+ and \Verb+circle depth+ are now \Verb+circle x radius+ and \Verb+circle y radius+ (the old names weren't correct anyway).
+
+\item The bounding box is a little better, particularly for cobordisms with only one type of boundary component.
+\end{itemize}
+\end{enumerate}
+
+\subsection{More Examples}
+
+\begin{example}
+\begin{tikzpicture}[tqft/cobordism height=1.5cm,tqft/boundary separation=1.5cm]
+\foreach \coord/\style in {
+{(0,0)}/{tqft/view from=outgoing,fill},
+{(5,0)}/{tqft/view from=incoming,draw},
+{(0,-8)}/{fill=orange,fill opacity=.5,tqft/every lower boundary component/.style={draw,blue,ultra thin,dashed},tqft/every upper boundary component/.style={draw,green},tqft/cobordism edge/.style={draw,purple},tqft/every boundary component/.style={fill=yellow}},
+{(5,-8)}/{fill=orange,fill opacity=.5,tqft/cobordism edge/.style={draw,purple},tqft/every boundary component/.style={fill=yellow,draw=green}}
+} {
+\begin{scope}
+\edef\styleit{\noexpand\tikzset{every tqft/.style={\style}}}
+\styleit
+\pic[tqft/cap,name=h,at=\coord];
+\pic[tqft/pair of pants,anchor=incoming boundary 1,name=a,at=(h-outgoing boundary 1)];
+\pic[tqft/cylinder to next,anchor={(0,1)},name=d,at=(a-outgoing boundary 2)];
+\pic[tqft/reverse pair of pants,anchor=incoming boundary 1,name=b,at=(a-outgoing boundary 2)];
+\pic[tqft/cylinder to prior,anchor=incoming boundary 1,name=c,at=(b-outgoing boundary 1)];
+\pic[tqft/cylinder,anchor=incoming boundary 1,name=e,at=(a-outgoing boundary 1)];
+\pic[tqft/cylinder,anchor=incoming boundary 1,name=f,at=(e-outgoing boundary 1)];
+\pic[tqft/reverse pair of pants,anchor=incoming boundary 1,name=g,at=(f-outgoing boundary 1)];
+\pic[tqft/cup,anchor=incoming boundary 1,name=i,at=(g-outgoing boundary 1)];
+\end{scope}
+}
+\end{tikzpicture}
+\end{example}
+
+\begin{example}
+\begin{tikzpicture}[every tqft/.append style={transform shape}]
+\foreach \ang in {0,90,180,270} {
+\begin{scope}[rotate=\ang]
+\pic[draw,tqft/pair of pants,name=a,at={(3,3)}];
+\pic[draw,tqft/cap,anchor=outgoing boundary 1,at=(a-incoming boundary 1)];
+\pic[fill,tqft/cup,anchor=incoming boundary 1,at=(a-outgoing boundary 1)];
+\pic[draw,tqft/cup,anchor=incoming boundary 1,at=(a-outgoing boundary 2)];
+\end{scope}
+}
+\end{tikzpicture}
+\end{example}
+
+%\begin{example}
+\begin{tikzpicture}
+\pic[
+ tqft,
+ incoming boundary components=2,
+ outgoing boundary components=2,
+ genus=2,
+ draw,
+ name=a
+];
+\pic[
+ tqft,
+ incoming boundary components=2,
+ outgoing boundary components=1,
+ draw,
+ at=(a-outgoing boundary 1),
+ offset=.5,
+ cobordism height=1cm,
+ name=b
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=3,
+ draw,
+ at=(b-outgoing boundary 1),
+ offset=-1,
+ name=c
+];
+\pic[tqft,
+ incoming boundary components=2,
+ outgoing boundary components=1,
+ draw,
+ at=(c-outgoing boundary 1),
+ anchor=incoming boundary 2,
+ name=d,
+ boundary separation=1.6cm,
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ draw,
+ at=(c-outgoing boundary 3),
+ offset=.5,
+ name=e,
+ every outgoing lower boundary component/.style={draw}
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ draw,
+ at=(c-outgoing boundary 2),
+ name=f
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=2,
+ draw,
+ at=(f-outgoing boundary),
+ name=g,
+ offset=-.5,
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ draw,
+ at=(g-outgoing boundary 1),
+ name=h,
+ offset=-.25,
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ draw,
+ at=(g-outgoing boundary 2),
+ name=i,
+ offset=.25,
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ draw,
+ at=(h-outgoing boundary),
+ name=j,
+ every outgoing lower boundary component/.style={draw}
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ draw,
+ at=(i-outgoing boundary),
+ name=k,
+ every outgoing lower boundary component/.style={draw}
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ draw,
+ at=(d-outgoing boundary),
+ name=l
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=0,
+ draw,
+ at=(l-outgoing boundary),
+ name=m
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ draw,
+ at=(d-incoming boundary),
+ anchor=outgoing boundary,
+ name=n
+];
+\pic[tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ draw,
+ at=(n-incoming boundary),
+ anchor=outgoing boundary,
+ name=o
+];
+\pic[tqft,
+ incoming boundary components=3,
+ outgoing boundary components=3,
+ draw,
+ at=(o-incoming boundary),
+ anchor={(2,1)},
+ name=p,
+ boundary separation=1.25cm,
+ outgoing lower boundary component 1/.style={draw},
+ outgoing lower boundary component 3/.style={draw}
+];
+\pic[tqft,
+ incoming boundary components=5,
+ outgoing boundary components=5,
+ genus=3,
+ at=(k-outgoing boundary),
+ anchor={(4,-1)},
+ draw,
+ name=q,
+ every outgoing lower boundary component/.style={draw}
+];
+\path (q-incoming boundary 3) ++(0,1) node {\Huge \(=\)};
+\end{tikzpicture}
+%\end{example}
+
+\section{Version 1.0}
+
+\tikzset{tqft/use nodes=true}
+
+\subsection{The Node Shapes}
There are only two shapes, \Verb+tqft cobordism+ and \Verb+tqft boundary circle+.
The first, which is the main shape, is a cobordism between a number of incoming circles and a number of outgoing circles, where the numbers of boundary components can be specified as options to the shape.
@@ -217,7 +756,7 @@ With no offset (q.v.), this would be the distance between the centres of the fir
It is a dimensionless number (not necessarily an integer) and is interpreted so that a value of \(1\) aligns the first outgoing boundary component with the second incoming boundary component.
\end{itemize}
-\section{Styling}
+\subsection{Styling}
There are various options for styling the diagrams.
To understand how they work, it is important to know the order in which a cobordism is drawn and how many pieces it decomposes into.
@@ -264,7 +803,7 @@ Here is a progressively built up cobordism.
\end{tikzpicture}
\end{example}
-\section{Anchors}
+\subsection{Anchors}
As with all PGF node shapes, there are certain anchors defined by the \Verb+tqft+ shape.
These are the \Verb+center+ (and \Verb+centre+) anchors and the \Verb+incoming boundary n+, \Verb+outgoing boundary n+ anchors.
@@ -333,7 +872,7 @@ below/below,
\end{tikzpicture}
\end{example}
-\section{Improvements}
+\subsection{Improvements}
Here are some ideas for extending this, and some minor ``bugs''.
@@ -349,7 +888,7 @@ This shouldn't happen, or should happen by design not by accident.
\item Add the ability to apply different styles to the incoming and outgoing components.
\end{enumerate}
-\section{More Examples}
+\subsection{More Examples}
\begin{example}
\begin{tikzpicture}[tqft/cobordism height=1.5cm,tqft/boundary separation=1.5cm]
diff --git a/Master/texmf-dist/source/latex/tqft/tqft.dtx b/Master/texmf-dist/source/latex/tqft/tqft.dtx
index 769cf8018a7..4db565611b9 100644
--- a/Master/texmf-dist/source/latex/tqft/tqft.dtx
+++ b/Master/texmf-dist/source/latex/tqft/tqft.dtx
@@ -4,13 +4,13 @@
%</internal>
%<*readme>
----------------------------------------------------------------
-tqft --- a style file for drawing TQFT diagrams with TikZ/PGF
+tqft --- a library for drawing TQFT diagrams with TikZ/PGF
E-mail: stacey@math.ntnu.no
Released under the LaTeX Project Public License v1.3c or later
See http://www.latex-project.org/lppl.txt
----------------------------------------------------------------
-This package defines some node shapes useful for drawing TQFT diagrams with TikZ/PGF.
+This package defines some shapes useful for drawing TQFT diagrams with TikZ/PGF.
%</readme>
%<*internal>
\fi
@@ -25,7 +25,7 @@ This package defines some node shapes useful for drawing TQFT diagrams with TikZ
\askforoverwritefalse
\preamble
----------------------------------------------------------------
-tqft --- a style file for drawing TQFT diagrams with TikZ/PGF
+tqft --- a library for drawing TQFT diagrams with TikZ/PGF
E-mail: stacey@math.ntnu.no
Released under the LaTeX Project Public License v1.3c or later
See http://www.latex-project.org/lppl.txt
@@ -46,16 +46,23 @@ http://www.latex-project.org/lppl.txt
This work is "maintained" (as per LPPL maintenance status) by
Andrew Stacey.
-This work consists of the file tqft.dtx
-and the derived files tqft.ins,
- tqft.pdf, and
- tqft.sty.
+This work consists of the files tqft.dtx,
+ tqft_doc.tex,
+and the derived files tqft.ins,
+ tqft.pdf,
+ tqft_doc.pdf,
+ tqft.sty, and
+ tikzlibrarytqft.code.tex.
\endpostamble
\usedir{tex/latex/tqft}
\generate{
\file{\jobname.sty}{\from{\jobname.dtx}{package}}
}
+\usedir{tex/latex/tqft}
+\generate{
+ \file{tikzlibrary\jobname.code.tex}{\from{\jobname.dtx}{library}}
+}
%</install>
%<install>\endbatchfile
%<*internal>
@@ -76,7 +83,7 @@ and the derived files tqft.ins,
%</internal>
%<*package>
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{tqft}[2011/05/03 v1.0 Tikz/PGF commands for drawing TQFT diagrams]
+\ProvidesPackage{tqft}[2014/04/07 v2.0 Tikz/PGF commands for drawing TQFT diagrams]
%</package>
%<*driver>
\documentclass{ltxdoc}
@@ -102,7 +109,7 @@ and the derived files tqft.ins,
%</driver>
% \fi
%
-% \CheckSum{1595}
+% \CheckSum{2418}
%
% \CharacterTable
% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
@@ -122,6 +129,7 @@ and the derived files tqft.ins,
%
%
% \changes{1.0}{2011/05/03}{Converted to DTX file}
+% \changes{2.0}{2014/04/07}{Converted nodes to pics}
%
% \DoNotIndex{\newcommand,\newenvironment}
%
@@ -129,7 +137,6 @@ and the derived files tqft.ins,
% \GetFileInfo{tqft.dtx}
% \title{The \textsf{tqft} package: codebase}
% \author{Andrew Stacey \\ \url{stacey@math.ntnu.no}}
-% \date{\fileversion~from \filedate}
%
% \maketitle
%
@@ -164,6 +171,8 @@ and the derived files tqft.ins,
%
% \section{Implementation}
%
+% \subsection{Old Version: Node Shapes}
+%
% \iffalse
%<*package>
% \fi
@@ -217,33 +226,59 @@ and the derived files tqft.ins,
% \begin{macrocode}
\pgfkeys{
% \end{macrocode}
-% This key is our basic installer key, setting the shape and putting us in the right key family.
+% Add a key to switch between the two versions.
% \begin{macrocode}
- /tikz/tqft/.style={%
- /tikz/shape=tqft cobordism,
- /pgf/tqft,
- /tikz/every tqft
- },
+ /tikz/tqft/use nodes/.is choice,
+ /tikz/tqft/use nodes/true/.code={%
+ \tikzset{
% \end{macrocode}
-% This deals with unknown keys, passing them on to TikZ.
+% If using nodes, set the defaults
% \begin{macrocode}
- /pgf/tqft/.unknown/.code={%
- \let\tqft@searchname=\pgfkeyscurrentname%
- \pgfkeysalso{%
- /tikz/\tqft@searchname=#1
- }
- },
+ tqft/.style={%
+ /tikz/shape=tqft cobordism,
+ /pgf/tqft,
+ /tikz/every tqft/.try
+ },
% \end{macrocode}
-% Here we have the standard \Verb+every something+ style.
+% Unknowns go to \Verb+/pgf/tqft+
% \begin{macrocode}
- /tikz/every tqft/.style={},
+ tqft/.unknown/.code={%
+ \let\tqft@searchname=\pgfkeyscurrentname%
+ \pgfkeys{%
+ /pgf/tqft/\tqft@searchname={##1}
+ }
+ },
+ }%
+ },
% \end{macrocode}
-% We might get called in \Verb+/tikz+ or \Verb+/pgf+, this passes off anything in \Verb+/tikz/tqft+ to \Verb+/pgf/tqft+.
+% If not using nodes, set the defaults for the library
+% \begin{macrocode}
+ /tikz/tqft/use nodes/false/.code={%
+ \tikzset{
+ tqft/.style={%
+ pic type=cobordism,
+ tqft/.cd,
+ every tqft/.try,
+ },
+% \end{macrocode}
+% Pass unknown keys on to TikZ.
+% \begin{macrocode}
+ tqft/.unknown/.code={%
+ \let\tqft@searchname=\pgfkeyscurrentname%
+ \pgfkeys{%
+ /tikz/\tqft@searchname={##1}
+ }
+ },
+ }%
+ },
+ /tikz/tqft/use nodes=true,
+% \end{macrocode}
+% This deals with unknown keys, passing them on to TikZ.
% \begin{macrocode}
- /tikz/tqft/.unknown/.code={%
+ /pgf/tqft/.unknown/.code={%
\let\tqft@searchname=\pgfkeyscurrentname%
\pgfkeysalso{%
- /pgf/tqft/\tqft@searchname=#1
+ /tikz/\tqft@searchname={#1}
}
},
% \end{macrocode}
@@ -1207,6 +1242,814 @@ and the derived files tqft.ins,
%</package>
% \fi
%
+% \subsection{New Version: Picture Shapes}
+%
+% \iffalse
+%<*library>
+% \fi
+%
+% Issue a warning if the pic syntax is not available.
+%
+% \begin{macrocode}
+\ifcsname pgfk@/handlers/.pic/.@cmd\endcsname
+\else
+\pgfwarning{This library only works with TikZ 3.0 or later; for earlier versions of TikZ use the TQFT package}
+\fi
+% \end{macrocode}
+% For the boundaries, we need elliptical node shapes.
+% \begin{macrocode}
+\usetikzlibrary{shapes.geometric}
+% \end{macrocode}
+% We can view the cobordisms from the \emph{input} or \emph{output} ends, the implementation of the choice is to draw an arc from 0 to 180 or from 0 to -180 so we just need to track minus signs.
+% These macros are for that.
+% \begin{macrocode}
+\def\pgf@tqft@minus{-}
+\let\pgf@tqft@upper\@empty
+\let\pgf@tqft@lower\pgf@tqft@minus
+% \end{macrocode}
+% Split an anchoring coordinate.
+% The \(y\)--value is simply multiplied by the cobordism height (but pointing downwards, so that \(1\) is level with the outgoing boundary).
+% The \(x\)--value is multiplied by the boundary separation, but is shifted so that at the incoming boundary level, or above, then it is in line with the incoming boundaries and similarly at the outgoing boundary level, or below, it is in line with the outgoing boundaries.
+% \begin{macrocode}
+\def\tqft@split(#1,#2){%
+ \pgfmathsetmacro\tqft@y{#2 * (-\tqft@val{cobordism height})}%
+ \pgfmathsetmacro\tqft@x{(#1 - 1 + max(min(#2,1),0)*\tqft@val{offset}) * \tqft@val{boundary separation}}%
+ \def\tqft@shift{(\tqft@x pt, \tqft@y pt)}%
+}%
+% \end{macrocode}
+% Now we set up all the keys that we'll need in the course of this shape
+% \begin{macrocode}
+\tikzset{
+% \end{macrocode}
+% Fix for the fact that the \verb+alias+ key doesn't use the prefix and suffix.
+% \begin{macrocode}
+ pic alias/.code={%
+ \tikz@fig@mustbenamed
+ \expandafter\def\expandafter\tikz@alias\expandafter{\tikz@alias\pgfnodealias{\tikz@pp@name{#1}}{\tikz@fig@name}}%
+ },
+% \end{macrocode}
+% This key is our basic installer key, setting the pic and putting us in the right key family.
+% \begin{macrocode}
+ tqft/.style={%
+ pic type=cobordism,
+ every tqft/.try,
+ tqft/.cd,
+ },
+% \end{macrocode}
+% This deals with unknown keys, passing them on to TikZ.
+% \begin{macrocode}
+ tqft/.unknown/.code={%
+ \let\tqft@searchname=\pgfkeyscurrentname%
+ \pgfkeysalso{%
+ /tikz/\tqft@searchname={#1}
+ }
+ },
+% \end{macrocode}
+% Let's play happy families!
+% \begin{macrocode}
+ tqft/.cd,
+% \end{macrocode}
+% These set our number of boundary components and genus.
+% \begin{macrocode}
+ incoming boundary components/.initial=5,
+ outgoing boundary components/.initial=4,
+ genus/.initial = 0,
+% \end{macrocode}
+% This is the ``horizontal'' offset of the first outgoing component from the first incoming one.
+% \begin{macrocode}
+ offset/.initial=0,
+% \end{macrocode}
+% This is the ``vertical'' separation between boundary components.
+% \begin{macrocode}
+ cobordism height/.initial=2cm,
+% \end{macrocode}
+% This is the ``horizontal'' separation between boundary components.
+% \begin{macrocode}
+ boundary separation/.initial=2cm,
+% \end{macrocode}
+% These are the ``horizontal'' and ``vertical'' radii, respectively, of the boundary components.
+% \begin{macrocode}
+ circle x radius/.initial=10pt,
+ circle y radius/.initial=5pt,
+% \end{macrocode}
+% These control the direction from which we view the cobordism.
+% \begin{macrocode}
+ view from/.is choice,
+ view from/incoming/.code={%
+ \let\pgf@tqft@upper\pgf@tqft@minus
+ \let\pgf@tqft@lower\@empty
+ },
+ view from/outgoing/.code={%
+ \let\pgf@tqft@lower\pgf@tqft@minus
+ \let\pgf@tqft@upper\@empty
+ },
+% \end{macrocode}
+% We simulate node placement using the following key.
+% \begin{macrocode}
+ anchor/.initial = none,
+% \end{macrocode}
+% The next set of keys define some default shapes.
+% \begin{macrocode}
+ pair of pants/.style={
+ /tikz/tqft,
+ incoming boundary components=1,
+ outgoing boundary components=2,
+ offset=-.5
+ },
+ /tikz/tqft pair of pants/.style={
+ /tikz/tqft/pair of pants,
+ },
+ reverse pair of pants/.style={
+ /tikz/tqft,
+ incoming boundary components=2,
+ outgoing boundary components=1,
+ offset=.5
+ },
+ /tikz/tqft reverse pair of pants/.style={
+ /tikz/tqft/reverse pair of pants,
+ },
+ cylinder to prior/.style={
+ /tikz/tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ offset=-.5
+ },
+ /tikz/tqft cylinder to prior/.style={
+ /tikz/tqft/cylinder to prior,
+ },
+ cylinder to next/.style={
+ /tikz/tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ offset=.5
+ },
+ /tikz/tqft cylinder to next/.style={
+ /tikz/tqft/cylinder to next,
+ },
+ cylinder/.style={
+ /tikz/tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1
+ },
+ /tikz/tqft cylinder/.style={
+ /tikz/tqft/cylinder,
+ },
+ cup/.style={
+ /tikz/tqft,
+ incoming boundary components=1,
+ outgoing boundary components=0
+ },
+ /tikz/tqft cup/.style={
+ /tikz/tqft/cup,
+ },
+ cap/.style={
+ /tikz/tqft,
+ incoming boundary components=0,
+ outgoing boundary components=1
+ },
+ /tikz/tqft cap/.style={
+ /tikz/tqft/cap,
+ },
+}
+% \end{macrocode}
+%
+% This is a little helper macro for getting the values of tqft keys.
+% \begin{macrocode}
+\def\tqft@val#1{\pgfkeysvalueof{/tikz/tqft/#1}}
+% \end{macrocode}
+%
+% Now we define the code for the actual cobordism shape.
+% \begin{macrocode}
+\tikzset{
+ cobordism/.pic={
+% \end{macrocode}
+% Defining the cobordism paths.
+% This holds the full boundary path of the cobordism shape.
+% \begin{macrocode}
+ \gdef\tqft@fullpath{}%
+% \end{macrocode}
+% This is a list of the edge pieces without the boundary circles.
+% \begin{macrocode}
+ \global\let\tqft@blist\pgfutil@gobble%
+% \end{macrocode}
+% This punches the holes (if there are any) in the cobordism shape.
+% \begin{macrocode}
+ \gdef\tqft@gclip{}%
+% \end{macrocode}
+% This is a list of the paths for drawing the holes.
+% \begin{macrocode}
+ \global\let\tqft@glist\pgfutil@gobble%
+% \end{macrocode}
+% This collects any coordinates that are to be defined (it appears to be difficult to define them as we go along).
+% \begin{macrocode}
+ \global\let\tqft@clist\pgfutil@gobble%
+% \end{macrocode}
+% This collects any coordinates that can be used to shift the shape that aren't to be defined using \verb+\tqft@clist+.
+% \begin{macrocode}
+ \global\let\tqft@alist\pgfutil@gobble
+% \end{macrocode}
+% The first stage is to iterate over the incoming boundary components (if there are any), building up the various paths.
+% \begin{macrocode}
+ \ifnum\tqft@val{incoming boundary components}>0\relax
+% \end{macrocode}
+% We have some so draw the half circle for the first component.
+% Note that we use \verb+\pgf@tqft@upper+ to flip the sign of the start angle depending on the \verb+view from+ setting.
+% \begin{macrocode}
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ (-\tqft@val{circle x radius},0) arc[start angle=\pgf@tqft@upper180, end angle=0, x radius=\tqft@val{circle x radius}, y radius=\tqft@val{circle y radius}]
+ }%
+% \end{macrocode}
+% And add the centre to the list for available shifts.
+% \begin{macrocode}
+ \xdef\tqft@alist{%
+ \tqft@alist,-incoming boundary 1/{(0,0)},-incoming boundary/{(0,0)}%
+ }%
+% \end{macrocode}
+% If there are more than one then for each subsequent one we add the curve between them and the corresponding arc of the boundary circle.
+% \begin{macrocode}
+ \ifnum\tqft@val{incoming boundary components}>1\relax
+ \foreach[
+ evaluate=\k as \xpos using (\k-1)*\tqft@val{boundary separation} -\tqft@val{circle x radius},
+ evaluate=\k as \xppos using (\k-2)*\tqft@val{boundary separation} +\tqft@val{circle x radius},
+ evaluate=\k as \cpos using (\k-1.5)*\tqft@val{boundary separation},
+ evaluate=\k as \kmo using int(\k-1)
+ ] \k in {2,...,\tqft@val{incoming boundary components}} {
+% \end{macrocode}
+% Add the curve and the arc.
+% \begin{macrocode}
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,-\tqft@val{cobordism height}/3) and +(0,-\tqft@val{cobordism height}/3) .. (\xpos pt,0) arc[start angle=\pgf@tqft@upper180, end angle=0, x radius=\tqft@val{circle x radius}, y radius=\tqft@val{circle y radius}]
+ }%
+% \end{macrocode}
+% But for the edge path, just add the curve to the list.
+% \begin{macrocode}
+ \xdef\tqft@blist{%
+ \tqft@blist,incoming boundary \k/incoming/{%
+ (\xppos pt,0) .. controls +(0,-\tqft@val{cobordism height}/3) and +(0,-\tqft@val{cobordism height}/3) .. (\xpos pt,0)}%
+ }%
+% \end{macrocode}
+% We add a coordinate at the midpoint of the curve.
+% \begin{macrocode}
+ \xdef\tqft@clist{%
+ \tqft@clist,-between incoming \kmo\space and \k/{(\cpos pt,-\tqft@val{cobordism height}/4)}%
+ }%
+% \end{macrocode}
+% And add the centre to the list for available shifts.
+% \begin{macrocode}
+ \xdef\tqft@alist{%
+ \tqft@alist,-incoming boundary \k/{(\kmo * \tqft@val{boundary separation},0)}%
+ }%
+ }%
+ \fi
+% \end{macrocode}
+% We're at the edge of the last incoming boundary component.
+% What we do now depends on whether or not there are outgoing boundary components.
+% \begin{macrocode}
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+% \end{macrocode}
+% There are, so we add a curve from the end of the last incoming to the last outgoing component to the full path,
+% \begin{macrocode}
+ \pgfmathsetmacro\xppos{(\tqft@val{outgoing boundary components} -1+\tqft@val{offset}) * \tqft@val{boundary separation} +\tqft@val{circle x radius}}%
+ \pgfmathsetmacro\tqft@ht{abs(\tqft@val{incoming boundary components} - \tqft@val{outgoing boundary components} - \tqft@val{offset})}%
+ \pgfmathsetmacro\tqft@ht{1/3 + 2/3*\tqft@ht/(\tqft@ht + 1)}%
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,-\tqft@ht*\tqft@val{cobordism height}) and +(0,\tqft@ht*\tqft@val{cobordism height}) .. (\xppos pt, -\tqft@val{cobordism height})
+ }%
+% \end{macrocode}
+% and the edge path.
+% \begin{macrocode}
+ \xdef\tqft@blist{%
+ \tqft@blist,between last incoming and last outgoing/incoming and outgoing/{%
+ (\tqft@val{incoming boundary components} * \tqft@val{boundary separation} + \tqft@val{circle x radius} - \tqft@val{boundary separation},0pt)
+ .. controls +(0,-\tqft@ht*\tqft@val{cobordism height}) and +(0,\tqft@ht*\tqft@val{cobordism height}) .. (\xppos pt, -\tqft@val{cobordism height})}%
+ }%
+% \end{macrocode}
+% In addition, we add a coordinate at the midpoint.
+% \begin{macrocode}
+ \pgfmathsetmacro\xppos{(\xppos + (\tqft@val{incoming boundary components} -1) * \tqft@val{boundary separation} +\tqft@val{circle x radius})/2}%
+ \xdef\tqft@clist{%
+ \tqft@clist,-between last incoming and last outgoing/{(\xppos pt,-\tqft@val{cobordism height}/2)}%
+ }%
+ \else
+% \end{macrocode}
+% There aren't any outgoing boundary components so we loop back to the start.
+% We adjust the height of the control points to take into account the overall width.
+% \begin{macrocode}
+ \pgfmathsetmacro\tqft@ht{1/3 + 2/3*(\tqft@val{incoming boundary components} - 1)/\tqft@val{incoming boundary components}}
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,-\tqft@ht*\tqft@val{cobordism height}) and +(0,-\tqft@ht*\tqft@val{cobordism height}) .. (-\tqft@val{circle x radius},0)
+ }%
+% \end{macrocode}
+% Same for the edge path.
+% \begin{macrocode}
+ \xdef\tqft@blist{%
+ \tqft@blist,between first incoming and last incoming/incoming and outgoing/{%
+ (\tqft@val{incoming boundary components} * \tqft@val{boundary separation} + \tqft@val{circle x radius} - \tqft@val{boundary separation},0pt)
+ .. controls +(0,-\tqft@ht*\tqft@val{cobordism height}) and +(0,-\tqft@ht*\tqft@val{cobordism height}) .. (-\tqft@val{circle x radius},0)}
+ }%
+% \end{macrocode}
+% Add a coordinate at the midpoint.
+% \begin{macrocode}
+ \pgfmathsetmacro\xppos{(\tqft@val{incoming boundary components} -1) * \tqft@val{boundary separation}/2}%
+ \xdef\tqft@clist{%
+ \tqft@clist,-between first incoming and last incoming/{(\xppos pt,-\tqft@ht*\tqft@val{cobordism height}*3/4)}%
+ }%
+ \fi
+ \else
+% \end{macrocode}
+% There weren't any incoming boundary components, so we test to see if there were any outgoing ones and move to the start of them.
+% \begin{macrocode}
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+ \pgfmathsetmacro\xppos{(\tqft@val{outgoing boundary components} -1+\tqft@val{offset}) * \tqft@val{boundary separation} +\tqft@val{circle x radius}}
+% \end{macrocode}
+% Add a move to the full path,
+% \begin{macrocode}
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ (\xppos pt, -\tqft@val{cobordism height})
+ }%
+ \fi
+ \fi
+% \end{macrocode}
+% We're done with the incoming boundary components, now we're set up for the outgoing ones.
+% However we got there, if we have outgoing boundary components then we're now located at the start of them, although we're counting backwards.
+% \begin{macrocode}
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+ \pgfmathsetmacro\xppos{(\tqft@val{outgoing boundary components} -1+\tqft@val{offset}) * \tqft@val{boundary separation} -\tqft@val{circle x radius}}%
+% \end{macrocode}
+% Draw the arc for the first (well, last actually) boundary component.
+% \begin{macrocode}
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ arc[end angle=\pgf@tqft@upper180, start angle=0, x radius=\tqft@val{circle x radius}, y radius=\tqft@val{circle y radius}]
+ }%
+% \end{macrocode}
+% And add the centre to the list for available shifts.
+% \begin{macrocode}
+ \xdef\tqft@alist{%
+ \tqft@alist,-outgoing boundary \tqft@val{outgoing boundary components}/{(\xppos pt + \tqft@val{circle x radius},-\tqft@val{cobordism height})},-outgoing boundary/{(\tqft@val{offset}*\tqft@val{boundary separation},-\tqft@val{cobordism height})}%
+ }%
+% \end{macrocode}
+% Do we have more than one boundary component?
+% \begin{macrocode}
+ \ifnum\tqft@val{outgoing boundary components}>1\relax
+% \end{macrocode}
+% Yes, so add a curve and arc for each.
+% \begin{macrocode}
+ \foreach[
+ evaluate=\k as \xpos using (\tqft@val{outgoing boundary components} - \k + \tqft@val{offset})*\tqft@val{boundary separation} + \tqft@val{circle x radius},
+ evaluate=\k as \xppos using (\tqft@val{outgoing boundary components} - \k + 1 + \tqft@val{offset})*\tqft@val{boundary separation} - \tqft@val{circle x radius},
+ evaluate=\k as \cpos using (\tqft@val{outgoing boundary components} - \k + .5 + \tqft@val{offset})*\tqft@val{boundary separation},
+ evaluate=\k as \nk using int(\tqft@val{outgoing boundary components} - \k + 1),
+ evaluate=\k as \nkpo using int(\tqft@val{outgoing boundary components} - \k + 2),
+ ] \k in {2,...,\tqft@val{outgoing boundary components}} {
+% \end{macrocode}
+% Both are added to the full path.
+% \begin{macrocode}
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,\tqft@val{cobordism height}/3) and +(0,\tqft@val{cobordism height}/3) .. (\xpos pt,-\tqft@val{cobordism height}) arc[end angle=\pgf@tqft@upper180, start angle=0, x radius=\tqft@val{circle x radius}, y radius=\tqft@val{circle y radius}]
+ }%
+% \end{macrocode}
+% Just the arc for the edge paths.
+% \begin{macrocode}
+ \xdef\tqft@blist{%
+ \tqft@blist,between outgoing \nk\space and \nkpo/outgoing/{%
+ (\xppos pt,-\tqft@val{cobordism height})
+ .. controls +(0,\tqft@val{cobordism height}/3) and +(0,\tqft@val{cobordism height}/3) .. (\xpos pt,-\tqft@val{cobordism height}) ++(-2*\tqft@val{circle x radius},0)}%
+ }%
+% \end{macrocode}
+% And a coordinate at the midpoint.
+% \begin{macrocode}
+ \xdef\tqft@clist{%
+ \tqft@clist,-between outgoing \nk\space and \nkpo/{(\cpos pt,-3*\tqft@val{cobordism height}/4)}%
+ }%
+% \end{macrocode}
+% And add the centre to the list for available shifts.
+% \begin{macrocode}
+ \xdef\tqft@alist{%
+ \tqft@alist,-outgoing boundary \nk/{(\xpos pt - \tqft@val{circle x radius},-\tqft@val{cobordism height})}%
+ }%
+ }%
+ \fi
+% \end{macrocode}
+% Now we're at the end of the outgoing boundary components (well, the start actually).
+% What we do now depends on whether or not there are any incoming boundary components.
+% \begin{macrocode}
+ \ifnum\tqft@val{incoming boundary components}>0\relax
+% \end{macrocode}
+% There are, so we draw the path back up.
+% \begin{macrocode}
+ \pgfmathsetmacro\tqft@ht{1/3 + 2/3*abs(\tqft@val{offset})/(abs(\tqft@val{offset}) + 1)}%
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,\tqft@ht*\tqft@val{cobordism height}) and +(0,-\tqft@ht*\tqft@val{cobordism height}) .. (-\tqft@val{circle x radius},0)
+ }%
+% \end{macrocode}
+% And the edge path does the same.
+% \begin{macrocode}
+ \xdef\tqft@blist{%
+ \tqft@blist,between first incoming and first outgoing/incoming and outgoing/{%
+ (\tqft@val{offset} * \tqft@val{boundary separation} - \tqft@val{circle x radius},-\tqft@val{cobordism height})
+ .. controls +(0,\tqft@ht*\tqft@val{cobordism height}) and +(0,-\tqft@ht*\tqft@val{cobordism height}) .. (-\tqft@val{circle x radius},0)}%
+ }%
+% \end{macrocode}
+% Add a coordinate at the midpoint.
+% \begin{macrocode}
+ \xdef\tqft@clist{%
+ \tqft@clist,-between first incoming and first outgoing/{(\tqft@val{offset}*\tqft@val{boundary separation}/2-\tqft@val{circle x radius},-\tqft@val{cobordism height}/2)}%
+ }%
+ \else
+% \end{macrocode}
+% No incoming boundary components so loop back to the other end of the outgoing boundary components.
+% \begin{macrocode}
+ \pgfmathsetmacro\xppos{(\tqft@val{outgoing boundary components} -1+\tqft@val{offset}) * \tqft@val{boundary separation} +\tqft@val{circle x radius}}%
+ \pgfmathsetmacro\tqft@ht{1/3 + 2/3*(\tqft@val{outgoing boundary components} - 1)/\tqft@val{outgoing boundary components}}
+% \end{macrocode}
+% Full path.
+% \begin{macrocode}
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,\tqft@ht*\tqft@val{cobordism height}) and +(0,\tqft@ht*\tqft@val{cobordism height}) .. (\xppos pt,-\tqft@val{cobordism height})
+ }%
+% \end{macrocode}
+% Edge path.
+% \begin{macrocode}
+ \xdef\tqft@blist{%
+ \tqft@blist,between first and last outgoing/incoming and outgoing/{%
+ (\tqft@val{offset} * \tqft@val{boundary separation} - \tqft@val{circle x radius},-\tqft@val{cobordism height})
+ .. controls +(0,\tqft@ht*\tqft@val{cobordism height}) and +(0,\tqft@ht*\tqft@val{cobordism height}) .. (\xppos pt,-\tqft@val{cobordism height})}%
+ }%
+% \end{macrocode}
+% Add a coordinate at the midpoint.
+% \begin{macrocode}
+ \pgfmathsetmacro\xppos{(\tqft@val{outgoing boundary components}/2 + \tqft@val{offset} -1/2) * \tqft@val{boundary separation}}%
+ \pgfmathsetmacro\tqft@ht{1 -\tqft@ht*3/4}%
+ \xdef\tqft@clist{%
+ \tqft@clist,-between first and last outgoing/{(\xppos pt,-\tqft@ht*\tqft@val{cobordism height})}%
+ }%
+ \fi
+ \fi
+% \end{macrocode}
+% Now we define the clip path for the genus holes.
+% We start with a big rectangle that \emph{ought} to be big enough to contain the whole shape.
+% We start with the top left corner.
+% \begin{macrocode}
+ \pgfmathsetmacro\xpos{%
+ (
+ \tqft@val{outgoing boundary components} > 0 ?
+ (
+ \tqft@val{incoming boundary components} > 0 ?
+ min(0,\tqft@val{offset}) : \tqft@val{offset}
+ ) : 0
+ )
+ *\tqft@val{boundary separation} - 2*\tqft@val{circle x radius}}%
+ \xdef\tqft@gclip{(\xpos pt,2*\tqft@val{circle y radius}) rectangle }%
+% \end{macrocode}
+% Now the bottom right.
+% \begin{macrocode}
+ \pgfmathsetmacro\xpos{%
+ ((
+ \tqft@val{outgoing boundary components} > 0 ?
+ (
+ \tqft@val{incoming boundary components} > 0 ?
+ max(\tqft@val{incoming boundary components},\tqft@val{outgoing boundary components} + \tqft@val{offset}) : \tqft@val{outgoing boundary components} + \tqft@val{offset}
+ ) : \tqft@val{incoming boundary components}
+ )-1)
+ *\tqft@val{boundary separation} + 2*\tqft@val{circle x radius}}%
+% \end{macrocode}
+% Together, these make a rectangle.
+% \begin{macrocode}
+ \xdef\tqft@gclip{\tqft@gclip (\xpos pt,-\tqft@val{cobordism height} - 2*\tqft@val{circle y radius})}%
+% \end{macrocode}
+% Are there any holes?
+% \begin{macrocode}
+ \ifnum\tqft@val{genus}>0\relax
+% \end{macrocode}
+% Yes, so first we need to figure out where to place them.
+% We work out the left-hand edge of the cobordism.
+% \begin{macrocode}
+ \pgfmathsetmacro\xpos{%
+ (
+ \tqft@val{outgoing boundary components} > 0 ?
+ (
+ \tqft@val{incoming boundary components} > 0 ?
+ \tqft@val{offset}/2 : \tqft@val{offset}
+ ) : 0
+ )
+ *\tqft@val{boundary separation} - \tqft@val{circle x radius}}%
+% \end{macrocode}
+% Work out the height that the holes should be punched at.
+% \begin{macrocode}
+ \pgfmathsetmacro\ypos{%
+ (
+ \tqft@val{outgoing boundary components} > 0 ?
+ (
+ \tqft@val{incoming boundary components} > 0 ?
+ -\tqft@val{cobordism height}/2 : -1 + \tqft@val{cobordism height}/3
+ ) : - \tqft@val{cobordism height}/3
+ )}%
+% \end{macrocode}
+% Start our clip path at this point
+% \begin{macrocode}
+ \xdef\tqft@gclip{%
+ \tqft@gclip
+ (\xpos pt,\ypos pt)
+ }%
+% \end{macrocode}
+% Now work out the width of the cobordism, in units of circle half-widths.
+% This may not be very accurate if there aren't any boundary components of a given type.
+% \begin{macrocode}
+ \pgfmathsetmacro\gsize{%
+ ((
+ \tqft@val{outgoing boundary components} > 0 ?
+ (
+ \tqft@val{incoming boundary components} > 0 ?
+ (\tqft@val{incoming boundary components} + \tqft@val{outgoing boundary components})/2 : \tqft@val{outgoing boundary components}
+ ) : \tqft@val{incoming boundary components}
+ )-1)
+ *\tqft@val{boundary separation}/\tqft@val{circle x radius} + 2}%
+% \end{macrocode}
+% Each hole should take up three half-widths, but we want a little extra on the edges so the total number of half-widths we want is \(3g + 1\).
+% Do we need to scale down the holes (we never scale up)?
+% If so, \verb+\gscale+ holds the overall scale factor and \verb+\gxscale+ and \verb+gyscale+ are the resulting horizontal and vertical measurements.
+% The baseline is the size of the boundary circles.
+% \begin{macrocode}
+ \pgfmathsetmacro\gscale{min(1,\gsize/(3*\tqft@val{genus}+1))}%
+ \pgfmathsetmacro\gyscale{\tqft@val{circle y radius}*\gscale*.707}%
+ \pgfmathsetmacro\gxscale{\tqft@val{circle x radius}*\gscale}%
+% \end{macrocode}
+% Each hole should take up 2 half widths, modulo scaling, so the total width used by the holes is \(2 g s\) leaving \(w - 2 g s\) left for the gaps which is divided in to \(g + 1\) lots.
+% \begin{macrocode}
+ \pgfmathsetmacro\gsep{((\gsize - 2*\tqft@val{genus}*\gscale)/(\tqft@val{genus} + 1)*\tqft@val{circle x radius}}%
+% \end{macrocode}
+% We shift in by half of one unit of excess separation.
+% \begin{macrocode}
+ \xdef\tqft@gclip{%
+ \tqft@gclip
+ ++(\gsep/2 pt,0)
+ }%
+% \end{macrocode}
+% Some useful quantities.
+% \begin{macrocode}
+ \pgfmathsetmacro\omrstwo{1 - 1/sqrt(2)}%
+ \pgfmathsetmacro\sqrtwo{sqrt(2)}%
+% \end{macrocode}
+% Now we iterate over the holes.
+% \begin{macrocode}
+ \foreach[
+ evaluate=\k as \kmo using int(2 * \k-1)
+ ] \k in {1,...,\tqft@val{genus}} {
+% \end{macrocode}
+% For the clipping path, we just want the bare hole.
+% \begin{macrocode}
+ \xdef\tqft@gclip{%
+ \tqft@gclip
+% \end{macrocode}
+% Move in by half an excess separation unit and move to the left-hand extent of the hole.
+% \begin{macrocode}
+ ++(\gsep/2 pt + \omrstwo*\gxscale pt,0)
+% \end{macrocode}
+% Now curve up over the hole,
+% \begin{macrocode}
+ .. controls +(\gxscale*\sqrtwo/3 pt,4/3*\gyscale pt) and +(-\gxscale*\sqrtwo/3 pt,4/3*\gyscale pt)
+ .. ++(\sqrtwo*\gxscale pt,0)
+% \end{macrocode}
+% and return on the underside.
+% \begin{macrocode}
+ .. controls +(-\gxscale*\sqrtwo/3 pt,-4/3*\gyscale pt) and +(\gxscale*\sqrtwo/3 pt,-4/3*\gyscale pt)
+ .. ++(-\sqrtwo*\gxscale pt,0)
+% \end{macrocode}
+% Lastly, move to the right-hand edge of the space taken up by this hole.
+% \begin{macrocode}
+ ++(2*\gxscale pt -\omrstwo*\gxscale pt + \gsep/2 pt,0)
+ }
+% \end{macrocode}
+% For the genus \emph{path} we want to add the little ``tails'' which means that the two curves are different, and we need to take into acount the \verb+view from+ direction.
+% \begin{macrocode}
+ \xdef\tqft@glist{%
+ \tqft@glist,%
+ hole \k/lower/{%
+% \end{macrocode}
+% Move to the starting point of the smaller curve and add that.
+% \begin{macrocode}
+ (\xpos pt + \k * \gsep pt + \kmo * \gxscale pt + \gxscale pt -\omrstwo*\gxscale pt,\ypos pt)
+ .. controls +(-\gxscale pt*\sqrtwo/3,\pgf@tqft@upper4/3*\gyscale pt) and +(\gxscale pt*\sqrtwo/3,\pgf@tqft@upper4/3*\gyscale pt)
+ .. ++(-\sqrtwo*\gxscale pt,0)},%
+% Move to the left-hand corner of the path, with the upper or lower chosen by the \verb+view from+ direction.
+ hole \k/upper/{(\xpos pt + \k * \gsep pt + \kmo * \gxscale pt - \gxscale pt,\ypos pt + \pgf@tqft@upper\gyscale pt)%
+% \end{macrocode}
+% Add the larger of the two curves.
+% \begin{macrocode}
+ .. controls +(\gxscale pt*2/3,\pgf@tqft@lower8/3*\gyscale pt) and +(-\gxscale pt*2/3,\pgf@tqft@lower8/3*\gyscale pt)
+ .. ++(2*\gxscale pt,0)}%
+ }%
+% \end{macrocode}
+% Add a coordinate at the centre of the hole.
+% \begin{macrocode}
+ \xdef\tqft@clist{%
+ \tqft@clist,-hole \k/{(\xpos pt + \k * \gsep pt + \kmo * \gxscale pt,\ypos pt)}%
+ }%
+ }%
+ \fi
+% \end{macrocode}
+% Now we start to lay out the cobordism
+% Were we given a shift? If so, shift.
+% \begin{macrocode}
+\gdef\tqft@shift{(0,0)}%
+\edef\tqft@anchor{\tqft@val{anchor}}%
+\expandafter\pgfutil@in@\expandafter{\expandafter,\expandafter}\expandafter{\tqft@anchor}%
+\ifpgfutil@in@
+\expandafter\tqft@split\tqft@anchor\relax
+\else
+\edef\tqft@anchor{-\tqft@val{anchor}}%
+\xdef\tqft@alist{\tqft@clist,\tqft@alist}%
+\foreach \anchor/\coord in \tqft@alist
+{
+ \ifx\anchor\tqft@anchor\relax
+ \global\let\tqft@shift\coord
+ \fi
+}%
+\fi
+\tikz@scan@one@point\pgfutil@firstofone\tqft@shift\relax
+\begin{scope}[shift={(-\pgf@x,-\pgf@y)}]
+% \end{macrocode}
+% At each incoming boundary component we place an elliptical node of the right size.
+% \begin{macrocode}
+ \ifnum\tqft@val{incoming boundary components}>0\relax
+ \foreach[evaluate=\k as \xpos using (\k-1)*\tqft@val{boundary separation}] \k in {1,...,\tqft@val{incoming boundary components}} {
+ \node[
+ node contents={},
+ ellipse,
+ inner sep=0pt,
+ outer sep=0pt,
+ minimum width=2*\tqft@val{circle x radius},
+ minimum height=2*\tqft@val{circle y radius},
+ at={(\xpos pt,0)},
+ name=-incoming boundary \k,
+ /tikz/tqft/every boundary component/.try,
+ /tikz/tqft/every incoming boundary component/.try,
+ /tikz/tqft/incoming boundary component \k/.try
+ ];
+ }%
+% \end{macrocode}
+% Add an alias for the first.
+% \begin{macrocode}
+ \path node also[pic alias=-incoming boundary] (-incoming boundary 1);
+ \fi
+% \end{macrocode}
+% Same for the outgoing boundary components.
+% \begin{macrocode}
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+ \foreach[
+ evaluate=\k as \xpos using (\k-1+\tqft@val{offset})*\tqft@val{boundary separation}
+ ] \k in {1,...,\tqft@val{outgoing boundary components}} {
+ \node[
+ node contents={},
+ ellipse,
+ inner sep=0pt,
+ outer sep=0pt,
+ minimum width=2*\tqft@val{circle x radius},
+ minimum height=2*\tqft@val{circle y radius},
+ at={(\xpos pt,-\tqft@val{cobordism height})},
+ name=-outgoing boundary \k,
+ /tikz/tqft/every boundary component/.try,
+ /tikz/tqft/every outgoing boundary component/.try,
+ /tikz/tqft/outgoing boundary component \k/.try
+ ];
+ }%
+% \end{macrocode}
+% Add an alias for the first.
+% \begin{macrocode}
+ \path node also[pic alias=-outgoing boundary] (-outgoing boundary 1);
+ \fi
+% \end{macrocode}
+% Now we draw the lower paths of the incoming boundary components.
+% \begin{macrocode}
+ \ifnum\tqft@val{incoming boundary components}>0\relax
+ \foreach[evaluate=\k as \xpos using (\k-1)*\tqft@val{boundary separation}] \k in {1,...,\tqft@val{incoming boundary components}} {
+ \path[
+ /tikz/tqft/every lower boundary component/.try,
+ /tikz/tqft/every incoming lower boundary component/.try,
+ /tikz/tqft/incoming lower boundary component \k/.try
+ ] (\xpos pt - \tqft@val{circle x radius},0) arc[start angle=\pgf@tqft@lower180,end angle=0, x radius=\tqft@val{circle x radius}, y radius =\tqft@val{circle y radius}];
+ }%
+ \fi
+% \end{macrocode}
+% Same for the outgoing boundary components.
+% \begin{macrocode}
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+ \foreach[
+ evaluate=\k as \xpos using (\k-1+\tqft@val{offset})*\tqft@val{boundary separation}
+ ] \k in {1,...,\tqft@val{outgoing boundary components}} {
+ \path[
+ /tikz/tqft/every lower boundary component/.try,
+ /tikz/tqft/every outgoing lower boundary component/.try,
+ /tikz/tqft/outgoing lower boundary component \k/.try
+ ] (\xpos pt - \tqft@val{circle x radius},-\tqft@val{cobordism height}) arc[start angle=\pgf@tqft@lower180,end angle=0, x radius=\tqft@val{circle x radius}, y radius =\tqft@val{circle y radius}];
+ }%
+ \fi
+% \end{macrocode}
+% Full outer path, clipped against the genus holes in case it is filled.
+% \begin{macrocode}
+ \begin{scope}
+ \path[overlay,clip] \tqft@gclip;
+ \path[
+ /tikz/tqft/cobordism/.try,
+ pic actions,
+ /tikz/tqft/cobordism outer path/.try,
+ ] \tqft@fullpath;
+ \end{scope}
+% \end{macrocode}
+% Now we draw the genus path, outside the clip.
+% We view this as part of the full cobordism path so try to apply the same style as for the full path, but if that is filled then we turn the fill off.
+% It can be turned back on again using the styles \verb+cobordism edge+ or \verb+genus style+.
+% We also apply the \verb+cobordism edge+ style as it could be thought of as part of the non-boundary edge.
+% Finally, it has its own style to enable overrides if the other two get confused.
+% \begin{macrocode}
+\ifx\tqft@glist\pgfutil@gobble
+\else
+\foreach \tqft@gstyle/\tqft@gside/\tqft@gpath in \tqft@glist {
+ \path[
+ /tikz/tqft/cobordism/.try,
+ pic actions,
+ fill=none,
+ shade=none,
+ /tikz/tqft/cobordism edge/.try,
+ /tikz/tqft/genus style/.try,
+ /tikz/tqft/genus \tqft@gside/.try,
+ /tikz/tqft/\tqft@gstyle/.try,
+ /tikz/tqft/\tqft@gstyle\space\tqft@gside/.try,
+ ] \tqft@gpath;
+}
+\fi
+% \end{macrocode}
+% Now we redraw the non-boundary paths.
+% \begin{macrocode}
+\ifx\tqft@blist\pgfutil@gobble
+\else
+\foreach \tqft@bstyle/\tqft@btype/\tqft@bpath in \tqft@blist {
+ \path[
+ /tikz/tqft/cobordism edge/.try,
+ /tikz/tqft/cobordism outer edge/.try,
+ /tikz/tqft/between \tqft@btype/.try,
+ /tikz/tqft/\tqft@bstyle/.try,
+ ] \tqft@bpath;
+}
+\fi
+% \end{macrocode}
+% There were various coordinates that we wanted to define but couldn't.
+% Here, we put those in place.
+% \begin{macrocode}
+ \ifx\tqft@clist\pgfutil@gobble
+ \else
+ \foreach \name/\coord in \tqft@clist {
+ \path \coord node[coordinate,node contents={},name=\name];
+ }
+ \fi
+% \end{macrocode}
+% The last task is to draw the upper paths of the boundary components.
+% First, incoming.
+% \begin{macrocode}
+ \ifnum\tqft@val{incoming boundary components}>0\relax
+ \foreach[evaluate=\k as \xpos using (\k-1)*\tqft@val{boundary separation}] \k in {1,...,\tqft@val{incoming boundary components}} {
+ \path[
+ /tikz/tqft/every upper boundary component/.try,
+ /tikz/tqft/every incoming upper boundary component/.try,
+ /tikz/tqft/incoming upper boundary component \k/.try
+ ] (\xpos pt - \tqft@val{circle x radius},0) arc[start angle=\pgf@tqft@upper180,end angle=0, x radius=\tqft@val{circle x radius}, y radius =\tqft@val{circle y radius}];
+ }
+ \fi
+% \end{macrocode}
+% Next, outgoing.
+% \begin{macrocode}
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+ \foreach[
+ evaluate=\k as \xpos using (\k-1+\tqft@val{offset})*\tqft@val{boundary separation}
+ ] \k in {1,...,\tqft@val{outgoing boundary components}} {
+ \path[
+ /tikz/tqft/every upper boundary component/.try,
+ /tikz/tqft/every outgoing upper boundary component/.try,
+ /tikz/tqft/outgoing upper boundary component \k/.try
+ ] (\xpos pt - \tqft@val{circle x radius},-\tqft@val{cobordism height}) arc[start angle=\pgf@tqft@upper180,end angle=0, x radius=\tqft@val{circle x radius}, y radius =\tqft@val{circle y radius}];
+ }
+ \fi
+\end{scope}
+% \end{macrocode}
+% We're done!
+% Phew.
+% \begin{macrocode}
+ }
+}
+% \end{macrocode}
+%
+% \iffalse
+%</library>
+% \fi
% \Finale
\endinput
diff --git a/Master/texmf-dist/source/latex/tqft/tqft.ins b/Master/texmf-dist/source/latex/tqft/tqft.ins
index f44edf4799c..492c5cf097d 100644
--- a/Master/texmf-dist/source/latex/tqft/tqft.ins
+++ b/Master/texmf-dist/source/latex/tqft/tqft.ins
@@ -6,7 +6,7 @@
%%
%% tqft.dtx (with options: `install')
%% ----------------------------------------------------------------
-%% tqft --- a style file for drawing TQFT diagrams with TikZ/PGF
+%% tqft --- a library for drawing TQFT diagrams with TikZ/PGF
%% E-mail: stacey@math.ntnu.no
%% Released under the LaTeX Project Public License v1.3c or later
%% See http://www.latex-project.org/lppl.txt
@@ -17,7 +17,7 @@
\askforoverwritefalse
\preamble
----------------------------------------------------------------
-tqft --- a style file for drawing TQFT diagrams with TikZ/PGF
+tqft --- a library for drawing TQFT diagrams with TikZ/PGF
E-mail: stacey@math.ntnu.no
Released under the LaTeX Project Public License v1.3c or later
See http://www.latex-project.org/lppl.txt
@@ -38,16 +38,23 @@ http://www.latex-project.org/lppl.txt
This work is "maintained" (as per LPPL maintenance status) by
Andrew Stacey.
-This work consists of the file tqft.dtx
-and the derived files tqft.ins,
- tqft.pdf, and
- tqft.sty.
+This work consists of the files tqft.dtx,
+ tqft_doc.tex,
+and the derived files tqft.ins,
+ tqft.pdf,
+ tqft_doc.pdf,
+ tqft.sty, and
+ tikzlibrarytqft.code.tex.
\endpostamble
\usedir{tex/latex/tqft}
\generate{
\file{\jobname.sty}{\from{\jobname.dtx}{package}}
}
+\usedir{tex/latex/tqft}
+\generate{
+ \file{tikzlibrary\jobname.code.tex}{\from{\jobname.dtx}{library}}
+}
\endbatchfile
%%
@@ -63,10 +70,13 @@ and the derived files tqft.ins,
%% This work is "maintained" (as per LPPL maintenance status) by
%% Andrew Stacey.
%%
-%% This work consists of the file tqft.dtx
-%% and the derived files tqft.ins,
-%% tqft.pdf, and
-%% tqft.sty.
+%% This work consists of the files tqft.dtx,
+%% tqft_doc.tex,
+%% and the derived files tqft.ins,
+%% tqft.pdf,
+%% tqft_doc.pdf,
+%% tqft.sty, and
+%% tikzlibrarytqft.code.tex.
%%
%%
%% End of file `tqft.ins'.
diff --git a/Master/texmf-dist/tex/latex/tqft/tikzlibrarytqft.code.tex b/Master/texmf-dist/tex/latex/tqft/tikzlibrarytqft.code.tex
new file mode 100644
index 00000000000..24dcfb1bd46
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/tqft/tikzlibrarytqft.code.tex
@@ -0,0 +1,523 @@
+%%
+%% This is file `tikzlibrarytqft.code.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% tqft.dtx (with options: `library')
+%% ----------------------------------------------------------------
+%% tqft --- a library for drawing TQFT diagrams with TikZ/PGF
+%% E-mail: stacey@math.ntnu.no
+%% Released under the LaTeX Project Public License v1.3c or later
+%% See http://www.latex-project.org/lppl.txt
+%% ----------------------------------------------------------------
+%%
+\ifcsname pgfk@/handlers/.pic/.@cmd\endcsname
+\else
+\pgfwarning{This library only works with TikZ 3.0 or later; for earlier versions of TikZ use the TQFT package}
+\fi
+\usetikzlibrary{shapes.geometric}
+\def\pgf@tqft@minus{-}
+\let\pgf@tqft@upper\@empty
+\let\pgf@tqft@lower\pgf@tqft@minus
+\def\tqft@split(#1,#2){%
+ \pgfmathsetmacro\tqft@y{#2 * (-\tqft@val{cobordism height})}%
+ \pgfmathsetmacro\tqft@x{(#1 - 1 + max(min(#2,1),0)*\tqft@val{offset}) * \tqft@val{boundary separation}}%
+ \def\tqft@shift{(\tqft@x pt, \tqft@y pt)}%
+}%
+\tikzset{
+ pic alias/.code={%
+ \tikz@fig@mustbenamed
+ \expandafter\def\expandafter\tikz@alias\expandafter{\tikz@alias\pgfnodealias{\tikz@pp@name{#1}}{\tikz@fig@name}}%
+ },
+ tqft/.style={%
+ pic type=cobordism,
+ every tqft/.try,
+ tqft/.cd,
+ },
+ tqft/.unknown/.code={%
+ \let\tqft@searchname=\pgfkeyscurrentname%
+ \pgfkeysalso{%
+ /tikz/\tqft@searchname={#1}
+ }
+ },
+ tqft/.cd,
+ incoming boundary components/.initial=5,
+ outgoing boundary components/.initial=4,
+ genus/.initial = 0,
+ offset/.initial=0,
+ cobordism height/.initial=2cm,
+ boundary separation/.initial=2cm,
+ circle x radius/.initial=10pt,
+ circle y radius/.initial=5pt,
+ view from/.is choice,
+ view from/incoming/.code={%
+ \let\pgf@tqft@upper\pgf@tqft@minus
+ \let\pgf@tqft@lower\@empty
+ },
+ view from/outgoing/.code={%
+ \let\pgf@tqft@lower\pgf@tqft@minus
+ \let\pgf@tqft@upper\@empty
+ },
+ anchor/.initial = none,
+ pair of pants/.style={
+ /tikz/tqft,
+ incoming boundary components=1,
+ outgoing boundary components=2,
+ offset=-.5
+ },
+ /tikz/tqft pair of pants/.style={
+ /tikz/tqft/pair of pants,
+ },
+ reverse pair of pants/.style={
+ /tikz/tqft,
+ incoming boundary components=2,
+ outgoing boundary components=1,
+ offset=.5
+ },
+ /tikz/tqft reverse pair of pants/.style={
+ /tikz/tqft/reverse pair of pants,
+ },
+ cylinder to prior/.style={
+ /tikz/tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ offset=-.5
+ },
+ /tikz/tqft cylinder to prior/.style={
+ /tikz/tqft/cylinder to prior,
+ },
+ cylinder to next/.style={
+ /tikz/tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1,
+ offset=.5
+ },
+ /tikz/tqft cylinder to next/.style={
+ /tikz/tqft/cylinder to next,
+ },
+ cylinder/.style={
+ /tikz/tqft,
+ incoming boundary components=1,
+ outgoing boundary components=1
+ },
+ /tikz/tqft cylinder/.style={
+ /tikz/tqft/cylinder,
+ },
+ cup/.style={
+ /tikz/tqft,
+ incoming boundary components=1,
+ outgoing boundary components=0
+ },
+ /tikz/tqft cup/.style={
+ /tikz/tqft/cup,
+ },
+ cap/.style={
+ /tikz/tqft,
+ incoming boundary components=0,
+ outgoing boundary components=1
+ },
+ /tikz/tqft cap/.style={
+ /tikz/tqft/cap,
+ },
+}
+\def\tqft@val#1{\pgfkeysvalueof{/tikz/tqft/#1}}
+\tikzset{
+ cobordism/.pic={
+ \gdef\tqft@fullpath{}%
+ \global\let\tqft@blist\pgfutil@gobble%
+ \gdef\tqft@gclip{}%
+ \global\let\tqft@glist\pgfutil@gobble%
+ \global\let\tqft@clist\pgfutil@gobble%
+ \global\let\tqft@alist\pgfutil@gobble
+ \ifnum\tqft@val{incoming boundary components}>0\relax
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ (-\tqft@val{circle x radius},0) arc[start angle=\pgf@tqft@upper180, end angle=0, x radius=\tqft@val{circle x radius}, y radius=\tqft@val{circle y radius}]
+ }%
+ \xdef\tqft@alist{%
+ \tqft@alist,-incoming boundary 1/{(0,0)},-incoming boundary/{(0,0)}%
+ }%
+ \ifnum\tqft@val{incoming boundary components}>1\relax
+ \foreach[
+ evaluate=\k as \xpos using (\k-1)*\tqft@val{boundary separation} -\tqft@val{circle x radius},
+ evaluate=\k as \xppos using (\k-2)*\tqft@val{boundary separation} +\tqft@val{circle x radius},
+ evaluate=\k as \cpos using (\k-1.5)*\tqft@val{boundary separation},
+ evaluate=\k as \kmo using int(\k-1)
+ ] \k in {2,...,\tqft@val{incoming boundary components}} {
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,-\tqft@val{cobordism height}/3) and +(0,-\tqft@val{cobordism height}/3) .. (\xpos pt,0) arc[start angle=\pgf@tqft@upper180, end angle=0, x radius=\tqft@val{circle x radius}, y radius=\tqft@val{circle y radius}]
+ }%
+ \xdef\tqft@blist{%
+ \tqft@blist,incoming boundary \k/incoming/{%
+ (\xppos pt,0) .. controls +(0,-\tqft@val{cobordism height}/3) and +(0,-\tqft@val{cobordism height}/3) .. (\xpos pt,0)}%
+ }%
+ \xdef\tqft@clist{%
+ \tqft@clist,-between incoming \kmo\space and \k/{(\cpos pt,-\tqft@val{cobordism height}/4)}%
+ }%
+ \xdef\tqft@alist{%
+ \tqft@alist,-incoming boundary \k/{(\kmo * \tqft@val{boundary separation},0)}%
+ }%
+ }%
+ \fi
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+ \pgfmathsetmacro\xppos{(\tqft@val{outgoing boundary components} -1+\tqft@val{offset}) * \tqft@val{boundary separation} +\tqft@val{circle x radius}}%
+ \pgfmathsetmacro\tqft@ht{abs(\tqft@val{incoming boundary components} - \tqft@val{outgoing boundary components} - \tqft@val{offset})}%
+ \pgfmathsetmacro\tqft@ht{1/3 + 2/3*\tqft@ht/(\tqft@ht + 1)}%
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,-\tqft@ht*\tqft@val{cobordism height}) and +(0,\tqft@ht*\tqft@val{cobordism height}) .. (\xppos pt, -\tqft@val{cobordism height})
+ }%
+ \xdef\tqft@blist{%
+ \tqft@blist,between last incoming and last outgoing/incoming and outgoing/{%
+ (\tqft@val{incoming boundary components} * \tqft@val{boundary separation} + \tqft@val{circle x radius} - \tqft@val{boundary separation},0pt)
+ .. controls +(0,-\tqft@ht*\tqft@val{cobordism height}) and +(0,\tqft@ht*\tqft@val{cobordism height}) .. (\xppos pt, -\tqft@val{cobordism height})}%
+ }%
+ \pgfmathsetmacro\xppos{(\xppos + (\tqft@val{incoming boundary components} -1) * \tqft@val{boundary separation} +\tqft@val{circle x radius})/2}%
+ \xdef\tqft@clist{%
+ \tqft@clist,-between last incoming and last outgoing/{(\xppos pt,-\tqft@val{cobordism height}/2)}%
+ }%
+ \else
+ \pgfmathsetmacro\tqft@ht{1/3 + 2/3*(\tqft@val{incoming boundary components} - 1)/\tqft@val{incoming boundary components}}
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,-\tqft@ht*\tqft@val{cobordism height}) and +(0,-\tqft@ht*\tqft@val{cobordism height}) .. (-\tqft@val{circle x radius},0)
+ }%
+ \xdef\tqft@blist{%
+ \tqft@blist,between first incoming and last incoming/incoming and outgoing/{%
+ (\tqft@val{incoming boundary components} * \tqft@val{boundary separation} + \tqft@val{circle x radius} - \tqft@val{boundary separation},0pt)
+ .. controls +(0,-\tqft@ht*\tqft@val{cobordism height}) and +(0,-\tqft@ht*\tqft@val{cobordism height}) .. (-\tqft@val{circle x radius},0)}
+ }%
+ \pgfmathsetmacro\xppos{(\tqft@val{incoming boundary components} -1) * \tqft@val{boundary separation}/2}%
+ \xdef\tqft@clist{%
+ \tqft@clist,-between first incoming and last incoming/{(\xppos pt,-\tqft@ht*\tqft@val{cobordism height}*3/4)}%
+ }%
+ \fi
+ \else
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+ \pgfmathsetmacro\xppos{(\tqft@val{outgoing boundary components} -1+\tqft@val{offset}) * \tqft@val{boundary separation} +\tqft@val{circle x radius}}
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ (\xppos pt, -\tqft@val{cobordism height})
+ }%
+ \fi
+ \fi
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+ \pgfmathsetmacro\xppos{(\tqft@val{outgoing boundary components} -1+\tqft@val{offset}) * \tqft@val{boundary separation} -\tqft@val{circle x radius}}%
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ arc[end angle=\pgf@tqft@upper180, start angle=0, x radius=\tqft@val{circle x radius}, y radius=\tqft@val{circle y radius}]
+ }%
+ \xdef\tqft@alist{%
+ \tqft@alist,-outgoing boundary \tqft@val{outgoing boundary components}/{(\xppos pt + \tqft@val{circle x radius},-\tqft@val{cobordism height})},-outgoing boundary/{(\tqft@val{offset}*\tqft@val{boundary separation},-\tqft@val{cobordism height})}%
+ }%
+ \ifnum\tqft@val{outgoing boundary components}>1\relax
+ \foreach[
+ evaluate=\k as \xpos using (\tqft@val{outgoing boundary components} - \k + \tqft@val{offset})*\tqft@val{boundary separation} + \tqft@val{circle x radius},
+ evaluate=\k as \xppos using (\tqft@val{outgoing boundary components} - \k + 1 + \tqft@val{offset})*\tqft@val{boundary separation} - \tqft@val{circle x radius},
+ evaluate=\k as \cpos using (\tqft@val{outgoing boundary components} - \k + .5 + \tqft@val{offset})*\tqft@val{boundary separation},
+ evaluate=\k as \nk using int(\tqft@val{outgoing boundary components} - \k + 1),
+ evaluate=\k as \nkpo using int(\tqft@val{outgoing boundary components} - \k + 2),
+ ] \k in {2,...,\tqft@val{outgoing boundary components}} {
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,\tqft@val{cobordism height}/3) and +(0,\tqft@val{cobordism height}/3) .. (\xpos pt,-\tqft@val{cobordism height}) arc[end angle=\pgf@tqft@upper180, start angle=0, x radius=\tqft@val{circle x radius}, y radius=\tqft@val{circle y radius}]
+ }%
+ \xdef\tqft@blist{%
+ \tqft@blist,between outgoing \nk\space and \nkpo/outgoing/{%
+ (\xppos pt,-\tqft@val{cobordism height})
+ .. controls +(0,\tqft@val{cobordism height}/3) and +(0,\tqft@val{cobordism height}/3) .. (\xpos pt,-\tqft@val{cobordism height}) ++(-2*\tqft@val{circle x radius},0)}%
+ }%
+ \xdef\tqft@clist{%
+ \tqft@clist,-between outgoing \nk\space and \nkpo/{(\cpos pt,-3*\tqft@val{cobordism height}/4)}%
+ }%
+ \xdef\tqft@alist{%
+ \tqft@alist,-outgoing boundary \nk/{(\xpos pt - \tqft@val{circle x radius},-\tqft@val{cobordism height})}%
+ }%
+ }%
+ \fi
+ \ifnum\tqft@val{incoming boundary components}>0\relax
+ \pgfmathsetmacro\tqft@ht{1/3 + 2/3*abs(\tqft@val{offset})/(abs(\tqft@val{offset}) + 1)}%
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,\tqft@ht*\tqft@val{cobordism height}) and +(0,-\tqft@ht*\tqft@val{cobordism height}) .. (-\tqft@val{circle x radius},0)
+ }%
+ \xdef\tqft@blist{%
+ \tqft@blist,between first incoming and first outgoing/incoming and outgoing/{%
+ (\tqft@val{offset} * \tqft@val{boundary separation} - \tqft@val{circle x radius},-\tqft@val{cobordism height})
+ .. controls +(0,\tqft@ht*\tqft@val{cobordism height}) and +(0,-\tqft@ht*\tqft@val{cobordism height}) .. (-\tqft@val{circle x radius},0)}%
+ }%
+ \xdef\tqft@clist{%
+ \tqft@clist,-between first incoming and first outgoing/{(\tqft@val{offset}*\tqft@val{boundary separation}/2-\tqft@val{circle x radius},-\tqft@val{cobordism height}/2)}%
+ }%
+ \else
+ \pgfmathsetmacro\xppos{(\tqft@val{outgoing boundary components} -1+\tqft@val{offset}) * \tqft@val{boundary separation} +\tqft@val{circle x radius}}%
+ \pgfmathsetmacro\tqft@ht{1/3 + 2/3*(\tqft@val{outgoing boundary components} - 1)/\tqft@val{outgoing boundary components}}
+ \xdef\tqft@fullpath{%
+ \tqft@fullpath
+ .. controls +(0,\tqft@ht*\tqft@val{cobordism height}) and +(0,\tqft@ht*\tqft@val{cobordism height}) .. (\xppos pt,-\tqft@val{cobordism height})
+ }%
+ \xdef\tqft@blist{%
+ \tqft@blist,between first and last outgoing/incoming and outgoing/{%
+ (\tqft@val{offset} * \tqft@val{boundary separation} - \tqft@val{circle x radius},-\tqft@val{cobordism height})
+ .. controls +(0,\tqft@ht*\tqft@val{cobordism height}) and +(0,\tqft@ht*\tqft@val{cobordism height}) .. (\xppos pt,-\tqft@val{cobordism height})}%
+ }%
+ \pgfmathsetmacro\xppos{(\tqft@val{outgoing boundary components}/2 + \tqft@val{offset} -1/2) * \tqft@val{boundary separation}}%
+ \pgfmathsetmacro\tqft@ht{1 -\tqft@ht*3/4}%
+ \xdef\tqft@clist{%
+ \tqft@clist,-between first and last outgoing/{(\xppos pt,-\tqft@ht*\tqft@val{cobordism height})}%
+ }%
+ \fi
+ \fi
+ \pgfmathsetmacro\xpos{%
+ (
+ \tqft@val{outgoing boundary components} > 0 ?
+ (
+ \tqft@val{incoming boundary components} > 0 ?
+ min(0,\tqft@val{offset}) : \tqft@val{offset}
+ ) : 0
+ )
+ *\tqft@val{boundary separation} - 2*\tqft@val{circle x radius}}%
+ \xdef\tqft@gclip{(\xpos pt,2*\tqft@val{circle y radius}) rectangle }%
+ \pgfmathsetmacro\xpos{%
+ ((
+ \tqft@val{outgoing boundary components} > 0 ?
+ (
+ \tqft@val{incoming boundary components} > 0 ?
+ max(\tqft@val{incoming boundary components},\tqft@val{outgoing boundary components} + \tqft@val{offset}) : \tqft@val{outgoing boundary components} + \tqft@val{offset}
+ ) : \tqft@val{incoming boundary components}
+ )-1)
+ *\tqft@val{boundary separation} + 2*\tqft@val{circle x radius}}%
+ \xdef\tqft@gclip{\tqft@gclip (\xpos pt,-\tqft@val{cobordism height} - 2*\tqft@val{circle y radius})}%
+ \ifnum\tqft@val{genus}>0\relax
+ \pgfmathsetmacro\xpos{%
+ (
+ \tqft@val{outgoing boundary components} > 0 ?
+ (
+ \tqft@val{incoming boundary components} > 0 ?
+ \tqft@val{offset}/2 : \tqft@val{offset}
+ ) : 0
+ )
+ *\tqft@val{boundary separation} - \tqft@val{circle x radius}}%
+ \pgfmathsetmacro\ypos{%
+ (
+ \tqft@val{outgoing boundary components} > 0 ?
+ (
+ \tqft@val{incoming boundary components} > 0 ?
+ -\tqft@val{cobordism height}/2 : -1 + \tqft@val{cobordism height}/3
+ ) : - \tqft@val{cobordism height}/3
+ )}%
+ \xdef\tqft@gclip{%
+ \tqft@gclip
+ (\xpos pt,\ypos pt)
+ }%
+ \pgfmathsetmacro\gsize{%
+ ((
+ \tqft@val{outgoing boundary components} > 0 ?
+ (
+ \tqft@val{incoming boundary components} > 0 ?
+ (\tqft@val{incoming boundary components} + \tqft@val{outgoing boundary components})/2 : \tqft@val{outgoing boundary components}
+ ) : \tqft@val{incoming boundary components}
+ )-1)
+ *\tqft@val{boundary separation}/\tqft@val{circle x radius} + 2}%
+ \pgfmathsetmacro\gscale{min(1,\gsize/(3*\tqft@val{genus}+1))}%
+ \pgfmathsetmacro\gyscale{\tqft@val{circle y radius}*\gscale*.707}%
+ \pgfmathsetmacro\gxscale{\tqft@val{circle x radius}*\gscale}%
+ \pgfmathsetmacro\gsep{((\gsize - 2*\tqft@val{genus}*\gscale)/(\tqft@val{genus} + 1)*\tqft@val{circle x radius}}%
+ \xdef\tqft@gclip{%
+ \tqft@gclip
+ ++(\gsep/2 pt,0)
+ }%
+ \pgfmathsetmacro\omrstwo{1 - 1/sqrt(2)}%
+ \pgfmathsetmacro\sqrtwo{sqrt(2)}%
+ \foreach[
+ evaluate=\k as \kmo using int(2 * \k-1)
+ ] \k in {1,...,\tqft@val{genus}} {
+ \xdef\tqft@gclip{%
+ \tqft@gclip
+ ++(\gsep/2 pt + \omrstwo*\gxscale pt,0)
+ .. controls +(\gxscale*\sqrtwo/3 pt,4/3*\gyscale pt) and +(-\gxscale*\sqrtwo/3 pt,4/3*\gyscale pt)
+ .. ++(\sqrtwo*\gxscale pt,0)
+ .. controls +(-\gxscale*\sqrtwo/3 pt,-4/3*\gyscale pt) and +(\gxscale*\sqrtwo/3 pt,-4/3*\gyscale pt)
+ .. ++(-\sqrtwo*\gxscale pt,0)
+ ++(2*\gxscale pt -\omrstwo*\gxscale pt + \gsep/2 pt,0)
+ }
+ \xdef\tqft@glist{%
+ \tqft@glist,%
+ hole \k/lower/{%
+ (\xpos pt + \k * \gsep pt + \kmo * \gxscale pt + \gxscale pt -\omrstwo*\gxscale pt,\ypos pt)
+ .. controls +(-\gxscale pt*\sqrtwo/3,\pgf@tqft@upper4/3*\gyscale pt) and +(\gxscale pt*\sqrtwo/3,\pgf@tqft@upper4/3*\gyscale pt)
+ .. ++(-\sqrtwo*\gxscale pt,0)},%
+ hole \k/upper/{(\xpos pt + \k * \gsep pt + \kmo * \gxscale pt - \gxscale pt,\ypos pt + \pgf@tqft@upper\gyscale pt)%
+ .. controls +(\gxscale pt*2/3,\pgf@tqft@lower8/3*\gyscale pt) and +(-\gxscale pt*2/3,\pgf@tqft@lower8/3*\gyscale pt)
+ .. ++(2*\gxscale pt,0)}%
+ }%
+ \xdef\tqft@clist{%
+ \tqft@clist,-hole \k/{(\xpos pt + \k * \gsep pt + \kmo * \gxscale pt,\ypos pt)}%
+ }%
+ }%
+ \fi
+\gdef\tqft@shift{(0,0)}%
+\edef\tqft@anchor{\tqft@val{anchor}}%
+\expandafter\pgfutil@in@\expandafter{\expandafter,\expandafter}\expandafter{\tqft@anchor}%
+\ifpgfutil@in@
+\expandafter\tqft@split\tqft@anchor\relax
+\else
+\edef\tqft@anchor{-\tqft@val{anchor}}%
+\xdef\tqft@alist{\tqft@clist,\tqft@alist}%
+\foreach \anchor/\coord in \tqft@alist
+{
+ \ifx\anchor\tqft@anchor\relax
+ \global\let\tqft@shift\coord
+ \fi
+}%
+\fi
+\tikz@scan@one@point\pgfutil@firstofone\tqft@shift\relax
+\begin{scope}[shift={(-\pgf@x,-\pgf@y)}]
+ \ifnum\tqft@val{incoming boundary components}>0\relax
+ \foreach[evaluate=\k as \xpos using (\k-1)*\tqft@val{boundary separation}] \k in {1,...,\tqft@val{incoming boundary components}} {
+ \node[
+ node contents={},
+ ellipse,
+ inner sep=0pt,
+ outer sep=0pt,
+ minimum width=2*\tqft@val{circle x radius},
+ minimum height=2*\tqft@val{circle y radius},
+ at={(\xpos pt,0)},
+ name=-incoming boundary \k,
+ /tikz/tqft/every boundary component/.try,
+ /tikz/tqft/every incoming boundary component/.try,
+ /tikz/tqft/incoming boundary component \k/.try
+ ];
+ }%
+ \path node also[pic alias=-incoming boundary] (-incoming boundary 1);
+ \fi
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+ \foreach[
+ evaluate=\k as \xpos using (\k-1+\tqft@val{offset})*\tqft@val{boundary separation}
+ ] \k in {1,...,\tqft@val{outgoing boundary components}} {
+ \node[
+ node contents={},
+ ellipse,
+ inner sep=0pt,
+ outer sep=0pt,
+ minimum width=2*\tqft@val{circle x radius},
+ minimum height=2*\tqft@val{circle y radius},
+ at={(\xpos pt,-\tqft@val{cobordism height})},
+ name=-outgoing boundary \k,
+ /tikz/tqft/every boundary component/.try,
+ /tikz/tqft/every outgoing boundary component/.try,
+ /tikz/tqft/outgoing boundary component \k/.try
+ ];
+ }%
+ \path node also[pic alias=-outgoing boundary] (-outgoing boundary 1);
+ \fi
+ \ifnum\tqft@val{incoming boundary components}>0\relax
+ \foreach[evaluate=\k as \xpos using (\k-1)*\tqft@val{boundary separation}] \k in {1,...,\tqft@val{incoming boundary components}} {
+ \path[
+ /tikz/tqft/every lower boundary component/.try,
+ /tikz/tqft/every incoming lower boundary component/.try,
+ /tikz/tqft/incoming lower boundary component \k/.try
+ ] (\xpos pt - \tqft@val{circle x radius},0) arc[start angle=\pgf@tqft@lower180,end angle=0, x radius=\tqft@val{circle x radius}, y radius =\tqft@val{circle y radius}];
+ }%
+ \fi
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+ \foreach[
+ evaluate=\k as \xpos using (\k-1+\tqft@val{offset})*\tqft@val{boundary separation}
+ ] \k in {1,...,\tqft@val{outgoing boundary components}} {
+ \path[
+ /tikz/tqft/every lower boundary component/.try,
+ /tikz/tqft/every outgoing lower boundary component/.try,
+ /tikz/tqft/outgoing lower boundary component \k/.try
+ ] (\xpos pt - \tqft@val{circle x radius},-\tqft@val{cobordism height}) arc[start angle=\pgf@tqft@lower180,end angle=0, x radius=\tqft@val{circle x radius}, y radius =\tqft@val{circle y radius}];
+ }%
+ \fi
+ \begin{scope}
+ \path[overlay,clip] \tqft@gclip;
+ \path[
+ /tikz/tqft/cobordism/.try,
+ pic actions,
+ /tikz/tqft/cobordism outer path/.try,
+ ] \tqft@fullpath;
+ \end{scope}
+\ifx\tqft@glist\pgfutil@gobble
+\else
+\foreach \tqft@gstyle/\tqft@gside/\tqft@gpath in \tqft@glist {
+ \path[
+ /tikz/tqft/cobordism/.try,
+ pic actions,
+ fill=none,
+ shade=none,
+ /tikz/tqft/cobordism edge/.try,
+ /tikz/tqft/genus style/.try,
+ /tikz/tqft/genus \tqft@gside/.try,
+ /tikz/tqft/\tqft@gstyle/.try,
+ /tikz/tqft/\tqft@gstyle\space\tqft@gside/.try,
+ ] \tqft@gpath;
+}
+\fi
+\ifx\tqft@blist\pgfutil@gobble
+\else
+\foreach \tqft@bstyle/\tqft@btype/\tqft@bpath in \tqft@blist {
+ \path[
+ /tikz/tqft/cobordism edge/.try,
+ /tikz/tqft/cobordism outer edge/.try,
+ /tikz/tqft/between \tqft@btype/.try,
+ /tikz/tqft/\tqft@bstyle/.try,
+ ] \tqft@bpath;
+}
+\fi
+ \ifx\tqft@clist\pgfutil@gobble
+ \else
+ \foreach \name/\coord in \tqft@clist {
+ \path \coord node[coordinate,node contents={},name=\name];
+ }
+ \fi
+ \ifnum\tqft@val{incoming boundary components}>0\relax
+ \foreach[evaluate=\k as \xpos using (\k-1)*\tqft@val{boundary separation}] \k in {1,...,\tqft@val{incoming boundary components}} {
+ \path[
+ /tikz/tqft/every upper boundary component/.try,
+ /tikz/tqft/every incoming upper boundary component/.try,
+ /tikz/tqft/incoming upper boundary component \k/.try
+ ] (\xpos pt - \tqft@val{circle x radius},0) arc[start angle=\pgf@tqft@upper180,end angle=0, x radius=\tqft@val{circle x radius}, y radius =\tqft@val{circle y radius}];
+ }
+ \fi
+ \ifnum\tqft@val{outgoing boundary components}>0\relax
+ \foreach[
+ evaluate=\k as \xpos using (\k-1+\tqft@val{offset})*\tqft@val{boundary separation}
+ ] \k in {1,...,\tqft@val{outgoing boundary components}} {
+ \path[
+ /tikz/tqft/every upper boundary component/.try,
+ /tikz/tqft/every outgoing upper boundary component/.try,
+ /tikz/tqft/outgoing upper boundary component \k/.try
+ ] (\xpos pt - \tqft@val{circle x radius},-\tqft@val{cobordism height}) arc[start angle=\pgf@tqft@upper180,end angle=0, x radius=\tqft@val{circle x radius}, y radius =\tqft@val{circle y radius}];
+ }
+ \fi
+\end{scope}
+ }
+}
+
+%%
+%% Copyright (C) 2011 by Andrew Stacey <stacey@math.ntnu.no>
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License (LPPL), either
+%% version 1.3c of this license or (at your option) any later
+%% version. The latest version of this license is in the file:
+%%
+%% http://www.latex-project.org/lppl.txt
+%%
+%% This work is "maintained" (as per LPPL maintenance status) by
+%% Andrew Stacey.
+%%
+%% This work consists of the files tqft.dtx,
+%% tqft_doc.tex,
+%% and the derived files tqft.ins,
+%% tqft.pdf,
+%% tqft_doc.pdf,
+%% tqft.sty, and
+%% tikzlibrarytqft.code.tex.
+%%
+%%
+%% End of file `tikzlibrarytqft.code.tex'.
diff --git a/Master/texmf-dist/tex/latex/tqft/tqft.sty b/Master/texmf-dist/tex/latex/tqft/tqft.sty
index 490c95867b2..a85df63cc49 100644
--- a/Master/texmf-dist/tex/latex/tqft/tqft.sty
+++ b/Master/texmf-dist/tex/latex/tqft/tqft.sty
@@ -6,14 +6,14 @@
%%
%% tqft.dtx (with options: `package')
%% ----------------------------------------------------------------
-%% tqft --- a style file for drawing TQFT diagrams with TikZ/PGF
+%% tqft --- a library for drawing TQFT diagrams with TikZ/PGF
%% E-mail: stacey@math.ntnu.no
%% Released under the LaTeX Project Public License v1.3c or later
%% See http://www.latex-project.org/lppl.txt
%% ----------------------------------------------------------------
%%
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{tqft}[2011/05/03 v1.0 Tikz/PGF commands for drawing TQFT diagrams]
+\ProvidesPackage{tqft}[2014/04/07 v2.0 Tikz/PGF commands for drawing TQFT diagrams]
\RequirePackage{pgfkeys}
\RequirePackage{pgf}
\def\pgf@tqft@minus{-}
@@ -40,22 +40,42 @@
\newdimen\tqft@w
\newif\iftqft@within@node
\pgfkeys{
- /tikz/tqft/.style={%
- /tikz/shape=tqft cobordism,
- /pgf/tqft,
- /tikz/every tqft
+ /tikz/tqft/use nodes/.is choice,
+ /tikz/tqft/use nodes/true/.code={%
+ \tikzset{
+ tqft/.style={%
+ /tikz/shape=tqft cobordism,
+ /pgf/tqft,
+ /tikz/every tqft/.try
+ },
+ tqft/.unknown/.code={%
+ \let\tqft@searchname=\pgfkeyscurrentname%
+ \pgfkeys{%
+ /pgf/tqft/\tqft@searchname={##1}
+ }
+ },
+ }%
},
- /pgf/tqft/.unknown/.code={%
- \let\tqft@searchname=\pgfkeyscurrentname%
- \pgfkeysalso{%
- /tikz/\tqft@searchname=#1
- }
+ /tikz/tqft/use nodes/false/.code={%
+ \tikzset{
+ tqft/.style={%
+ pic type=cobordism,
+ tqft/.cd,
+ every tqft/.try,
+ },
+ tqft/.unknown/.code={%
+ \let\tqft@searchname=\pgfkeyscurrentname%
+ \pgfkeys{%
+ /tikz/\tqft@searchname={##1}
+ }
+ },
+ }%
},
- /tikz/every tqft/.style={},
- /tikz/tqft/.unknown/.code={%
+ /tikz/tqft/use nodes=true,
+ /pgf/tqft/.unknown/.code={%
\let\tqft@searchname=\pgfkeyscurrentname%
\pgfkeysalso{%
- /pgf/tqft/\tqft@searchname=#1
+ /tikz/\tqft@searchname={#1}
}
},
/pgf/tqft/.is family,
@@ -744,10 +764,13 @@
%% This work is "maintained" (as per LPPL maintenance status) by
%% Andrew Stacey.
%%
-%% This work consists of the file tqft.dtx
-%% and the derived files tqft.ins,
-%% tqft.pdf, and
-%% tqft.sty.
+%% This work consists of the files tqft.dtx,
+%% tqft_doc.tex,
+%% and the derived files tqft.ins,
+%% tqft.pdf,
+%% tqft_doc.pdf,
+%% tqft.sty, and
+%% tikzlibrarytqft.code.tex.
%%
%%
%% End of file `tqft.sty'.