summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-01-28 22:55:48 +0000
committerKarl Berry <karl@freefriends.org>2013-01-28 22:55:48 +0000
commit639ea304450fded74d7d5483729877cebd382a38 (patch)
tree6724dacbf36f193990fa84f9dcdfff6d2ddf80e5 /Master/texmf-dist/source
parentb408bb5e71abeaab64eb560f06d2e2eb562403f1 (diff)
makeshape 2.1 (25jan13)
git-svn-id: svn://tug.org/texlive/trunk@28973 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source')
-rw-r--r--Master/texmf-dist/source/latex/makeshape/makeshape.dtx1757
-rw-r--r--Master/texmf-dist/source/latex/makeshape/makeshape.ins108
-rw-r--r--Master/texmf-dist/source/latex/makeshape/ontesting.dtx1124
3 files changed, 2989 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/makeshape/makeshape.dtx b/Master/texmf-dist/source/latex/makeshape/makeshape.dtx
new file mode 100644
index 00000000000..795d3d569cc
--- /dev/null
+++ b/Master/texmf-dist/source/latex/makeshape/makeshape.dtx
@@ -0,0 +1,1757 @@
+% \iffalse meta-comment
+%
+% makeshape.dtx
+% 25 January 2013
+%
+% This is version 1.0 of makeshape.dtx
+% It generates a style file (makeshape.sty), a sample shape (sampleshape.tex),
+% and a user guide and documentation (makeshape.pdf).
+%
+% Generation of the makeshape.sty and sampleshape.tex is with
+% pdflatex makeshape.ins
+% which contains
+% \generate{\file{makeshape.sty}
+% {\from{makeshape.dtx}{package}}}
+% \generate{\file{sampleshape.tex}
+% {\from{makeshape.dtx}{sample}}}
+%
+% Generation of makeshape.pdf is with
+% pdflatex makeshape.dtx
+%
+% The \OnlyDescription command is used to suppress implementation
+% documentation.
+%
+% This is part of Silhouette 2.1
+%
+% -----------------------------------------------------------
+% \fi
+%
+%^^A-------------------------------------------------------------------
+%^^A .sty file header
+%^^A-------------------------------------------------------------------
+% \iffalse
+%<package>\NeedsTeXFormat{LaTeX2e}[2011/06/27]
+%^^A - ** Use package version number (not file version) **
+%<package>\ProvidesPackage{makeshape}
+%<package> [2013/01/25 2.1 Making custom shapes for PGF/TikZ]
+%<package>\RequirePackage{tikz}
+%<package>\usepgflibrary{intersections}
+%
+%^^A-------------------------------------------------------------------
+%^^A Preamble for documentation
+%^^A-------------------------------------------------------------------
+%<*driver>
+\documentclass[10pt,a4paper]{ltxdoc}
+
+\usepackage[T1]{fontenc}
+\usepackage{lmodern}
+
+\usepackage{fancyvrb}
+\usepackage{enumitem}
+\usepackage{url}
+\usepackage{bigstrut}
+\usepackage[draft]{hyperref}
+%\usepackage{hyperref}
+
+\usepackage{tikz}
+\usetikzlibrary{patterns}
+\usetikzlibrary{arrows}
+\usetikzlibrary{positioning}
+\usepgflibrary{intersections}
+
+\input{sampleshape} % includes makeshape.sty
+
+\newcommand{\mnote}[1]
+{\marginpar{\scriptsize \raggedright #1 }}
+
+\newcommand{\pfgManCiteA}{\cite{pgfMan}, \emph{Constructing Paths}, \S71, pp 579-589}
+\newcommand{\pfgManCiteB}{\cite{pgfMan}, \emph{Declaring New Shapes}, \S75.5, pp 625-631}
+
+\EnableCrossrefs
+\CodelineIndex
+\RecordChanges
+\OnlyDescription % comment out for code implementation
+
+\begin{document}
+\DocInput{makeshape.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+%^^A-------------------------------------------------------------------
+%^^A Change log...
+%^^A-------------------------------------------------------------------
+%^^A
+%^^A 0.0 - 5 January 2013
+% \changes{0.0}{2013/01/05}{
+% Experimental -
+% Develop the style file and a sample shape.
+% Write the user guide.
+% Incorporate makeshape.sty generation and documentation.
+% Generate the samplshape.tex file.
+% }
+%^^A
+%^^A 0.1 - 11 January 2013
+% \changes{0.1}{2013/01/11}{
+% Experimental -
+% Fix the sample shape's cardinal anchor points problem by
+% correcting a bug in the north-east saved anchor.
+% Correct errors in the user guide and fill in omissions.
+% \emph{Experimental phase complete.}}
+%^^A
+%^^A 25 January 2013
+% \changes{1.0}{2013/01/25}{
+% Prepare for publication -
+% Very minor changes made to the style file code.
+% Standard path commands used in sample shape code.
+% A lot of the report is rewritten.
+% An abstract is added, and its contents removed. }
+%^^A
+%^^A-------------------------------------------------------------------
+%^^A Check sums...
+%^^A-------------------------------------------------------------------
+%
+%^^A \CheckSum{0} ^^A no checksum for development
+% \CheckSum{272}
+% \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
+% Lower-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
+% Digits \0\1\2\3\4\5\6\7\8\9
+% Exclamation \! Double quote \" Hash (number) \#
+% Dollar \$ Percent \% Ampersand \&
+% Acute accent \' Left paren \( Right paren \)
+% Asterisk \* Plus \+ Comma \,
+% Minus \- Point \. Solidus \/
+% Colon \: Semicolon \; Less than \<
+% Equals \= Greater than \> Question mark \?
+% Commercial at \@ Left bracket \[ Backslash \\
+% Right bracket \] Circumflex \^ Underscore \_
+% Grave accent \` Left brace \{ Vertical bar \|
+% Right brace \} Tilde \~}
+%
+%^^A===========================================================================
+%^^A Generate figure files for input into this report
+%^^A===========================================================================
+%
+%^^A---------------------------------------------------------------------------
+%^^A Background path diagram file
+%^^A---------------------------------------------------------------------------
+% \begin{VerbatimOut}[gobble=5]{msbackground.tmp}
+% %^^A - The background path diagram, part of makeshape,dtx
+% %^^A - This is a temporary file and should be deleted
+% %^^A
+% \begin{tikzpicture}[>=latex',font={\sf \small}]
+%
+% %^^A-- diagram 1 --------------------------------------------
+% \begin{scope}
+%
+% \def\ctbw{88pt}
+% \def\ctbh{14pt}
+%
+% \def\ctbnex{\ctbw/2}
+% \def\ctbney{\ctbh/2}
+%
+% \node (outer) at (0,0) [draw, rectangle, pattern=crosshatch dots,
+% minimum width=\ctbw+20pt,
+% minimum height=\ctbh+20pt,
+% ] {} ;
+%
+% \node at (\ctbnex,\ctbney) [circle, fill=white] {};
+%
+% \node (ctb) at (0,0) [draw, rectangle, fill=white,
+% minimum width=\ctbw,
+% minimum height=\ctbh,
+% ] {};
+%
+% \node (ctbne) at (\ctbnex,\ctbney) [draw, circle] {};
+%
+% %^^A - Labels
+% \node (ctbneLabel) at (4cm,1cm)
+% [inner sep = 0] {(\verb|\ctbnex|,\verb|\ctbney|)};
+% \node (ctbLabel) at (2cm,-1.2cm)
+% [inner sep = 0] {corrected text box};
+% \node (innerLabel) at (-1.8cm,1.2cm)
+% [] {inner surface};
+% \node (outerLabel) at (-2cm,-1.2cm)
+% [inner sep = 0] {outer surface};
+%
+% \draw [->] (ctbneLabel.south west) -- (ctbne);
+% \draw [->] (ctbLabel.north west) -- (ctb.320);
+% \draw [->] (innerLabel.320) -- (ctb.160);
+% \draw [->] (outerLabel.north east) -- (outer);
+%
+% %^^A - xy axis
+% \draw [dotted] (0,0) -- ++(2.5cm,0); % origin
+% \draw [dotted] (0,0) -- ++(-2.5cm,0); % origin
+% \draw [dotted] (0,0) -- ++(0,1cm); % origin
+% \draw [dotted] (0,0) -- ++(0,-1cm); % origin
+%
+% \end{scope}
+%
+% %^^A-- diagram 2 --------------------------------------------
+% \begin{scope}[yshift=-4cm]
+%
+% \def\ctbw{88pt}
+% \def\ctbh{14pt}
+%
+% \def\ctbnex{\ctbw/2}
+% \def\ctbney{\ctbh/2}
+%
+% \node (outer) at (0,0) [draw, rectangle, pattern=crosshatch dots,
+% minimum width=\ctbw+40pt,
+% minimum height=\ctbh+40pt,
+% ] {} ;
+%
+% \node at (\ctbnex,\ctbney) [circle, fill=white] {};
+%
+% \node (inner) at (0,0) [draw, rectangle, fill=white,
+% minimum width=\ctbw+20pt,
+% minimum height=\ctbh+20pt,
+% ] {};
+%
+% \node (ctb) at (0,0) [draw, rectangle, fill=white,
+% minimum width=\ctbw,
+% minimum height=\ctbh,
+% ] {};
+%
+% \node at (\ctbnex,\ctbney) [draw, circle] (ctbne) {};
+%
+% %^^A - Labels
+% \node (ctbneLabel) at (4cm,1cm)
+% [inner sep = 0] {(\verb|\ctbnex|,\verb|\ctbney|)};
+% \node (ctbLabel) at (2cm,-1.5cm)
+% [inner sep = 0] {corrected text box};
+% \node (innerLabel) at (-2cm,-2cm)
+% [inner sep = 0] {inner surface};
+% \node (outerLabel) at (-2.5cm,-1.5cm)
+% [inner sep = 0] {outer surface};
+%
+% \draw [->] (ctbneLabel.south west) -- (ctbne);
+% \draw [->] (ctbLabel.north west) -- (ctb.320);
+% \draw [->] (innerLabel.north east) -- (inner.250);
+% \draw [->] (outerLabel.north east) -- (outer);
+%
+% %^^A - minimum dimensions
+% \node (a) [coordinate, left=15pt of outer.south west] {};
+% \node (b) [coordinate, left=15pt of outer.north west] {};
+% \draw [|<->|] (a) -- (b) node [midway,left] {\tt minimum height};
+%
+% \node (c) [coordinate, above=15pt of outer.north west] {};
+% \node (d) [coordinate, above=15pt of outer.north east] {};
+% \draw [|<->|] (c) -- (d) node [midway,above] {\tt minimum width};
+%
+% %^^A - xy axis
+% \draw [dotted] (0,0) -- ++(2.8cm,0); % origin
+% \draw [dotted] (0,0) -- ++(-2.5cm,0); % origin
+% \draw [dotted] (0,0) -- ++(0,1.2cm); % origin
+% \draw [dotted] (0,0) -- ++(0,-1.2cm); % origin
+%
+% \end{scope}
+%
+% \end{tikzpicture}
+% \end{VerbatimOut}
+%
+%^^A---------------------------------------------------------------------------
+%^^A Anchor path diagram file
+%^^A---------------------------------------------------------------------------
+% \begin{VerbatimOut}[gobble=5]{msanchor.tmp}
+% %^^A - The anchor path diagram, part of makeshape,dtx
+% %^^A - This is a temporary file and should be deleted
+% %^^A
+% \begin{tikzpicture}[>=latex',font={\sf \small}]
+%
+% \def\ctbw{88pt}
+% \def\ctbh{14pt}
+%
+% \def\ctbnex{\ctbw/2}
+% \def\ctbney{\ctbh/2}
+%
+% %^^A-- diagram 1 --------------------------------------------
+% \begin{scope}
+%
+% \node (outer) at (0,0) [draw, rectangle, pattern=crosshatch dots,
+% minimum width=\ctbw+20pt,
+% minimum height=\ctbh+20pt,
+% ] {};
+%
+% \node at (\ctbnex,\ctbney) [circle, fill=white] {};
+%
+% \node (ctb) at (0,0) [draw, rectangle, fill=white,
+% minimum width=\ctbw,
+% minimum height=\ctbh,
+% ] {};
+%
+% \node (ctbne) at (\ctbnex,\ctbney) [draw, circle] {};
+%
+% %^^A - Labels
+% \node (ctbneLabel) at (4cm,1cm)
+% [inner sep = 0] {(\verb|\ctbnex|,\verb|\ctbney|)};
+% \node (ctbLabel) at (2cm,-1.2cm)
+% [inner sep = 0] {corrected text box};
+% \node (spaceLabel) at (-1.8cm,1.2cm)
+% [] {background path space};
+% \node (outerLabel) at (-2.3cm,-1.2cm)
+% [inner sep = 0] {outer shape surface};
+% \node (anchorLabel) at (-1.5cm,-1.7cm)
+% [inner sep = 0] {anchor surface};
+%
+% \draw [->] (ctbneLabel.south west) -- (ctbne);
+% \draw [->] (ctbLabel.north west) -- (ctb.320);
+% \draw [->, shorten >=5pt] (spaceLabel.320) -- (ctb.160);
+% \draw [->] (outerLabel.north east) -- (outer);
+% \draw [->] (anchorLabel.north east) -- (outer);
+%
+% %^^A - xy axis
+% \draw [dotted] (0,0) -- ++(2.5cm,0); % origin
+% \draw [dotted] (0,0) -- ++(-2.5cm,0); % origin
+% \draw [dotted] (0,0) -- ++(0,1cm); % origin
+% \draw [dotted] (0,0) -- ++(0,-1cm); % origin
+%
+% \end{scope}
+%
+% %^^A-- diagram 2 --------------------------------------------
+% \begin{scope}[yshift=-5cm]
+%
+% \node (anchor) at (0,0) [draw, rectangle,
+% minimum width=\ctbw+70pt,
+% minimum height=\ctbh+70pt,
+% ] {} ;
+%
+% \node (outer) at (0,0) [draw, rectangle, pattern=crosshatch dots,
+% minimum width=\ctbw+40pt,
+% minimum height=\ctbh+40pt,
+% ] {} ;
+%
+% \node at (\ctbnex,\ctbney) [circle, fill=white] {};
+%
+% \node (inner) at (0,0) [draw, rectangle, fill=white,
+% minimum width=\ctbw+20pt,
+% minimum height=\ctbh+20pt,
+% ] {};
+%
+% \node (ctb) at (0,0) [draw, rectangle, fill=white,
+% minimum width=\ctbw,
+% minimum height=\ctbh,
+% ] {};
+%
+% \node at (\ctbnex,\ctbney) [draw, circle] (ctbne) {};
+%
+% %^^A - Labels
+% \node (ctbneLabel) at (4.3cm,1cm)
+% [inner sep = 0] {(\verb|\ctbnex|,\verb|\ctbney|)};
+% \node (ctbLabel) at (2cm,-1.8cm)
+% [inner sep = 0] {corrected text box};
+% \node (spaceLabel) at (-3.3cm,-1.8cm)
+% [inner sep = 0] {background path space};
+% \node (outerLabel) at (-2.8cm,-2.3cm)
+% [inner sep = 0] {outer path surface};
+% \node (anchorLabel) at (-2.7cm,-2.8cm)
+% [inner sep = 0] {anchor path surface};
+%
+% \draw [->] (ctbneLabel.south west) -- (ctbne);
+% \draw [->] (ctbLabel.north west) -- (ctb.320);
+% \draw [->, shorten >=4pt] (spaceLabel.north east) -- (inner.210);
+% \draw [->] (outerLabel.north east) -- (outer.227);
+% \draw [->] (anchorLabel.north east) -- (anchor);
+%
+% %^^A - minimum dimensions
+% \node (a) [coordinate, left=30pt of outer.south west] {};
+% \node (b) [coordinate, left=30pt of outer.north west] {};
+% \draw [|<->|] (a) -- (b) node [midway,left] {\tt minimum height};
+%
+% \node (c) [coordinate, above=30pt of outer.north west] {};
+% \node (d) [coordinate, above=30pt of outer.north east] {};
+% \draw [|<->|] (c) -- (d) node [midway,above] {\tt minimum width};
+%
+% \node (e) [coordinate, left=15pt of anchor.north west] {};
+% \draw [<->|] (b) -- (e) node [midway,left] {\tt outer ysep};
+%
+% \node (f) [coordinate, above=15pt of anchor.north east] {};
+% \draw [<->|] (d) -- (f) node [right,above] {\hspace{30pt}\tt outer xsep};
+%
+% \draw [dotted] (a) -- ++(30pt,0);
+% \draw [dotted] (b) -- ++(30pt,0);
+% \draw [dotted] (c) -- ++(0,-30pt);
+% \draw [dotted] (d) -- ++(0,-30pt);
+%
+% %^^A - xy axis
+% \draw [dotted] (0,0) -- ++(3cm,0); % origin
+% \draw [dotted] (0,0) -- ++(-3cm,0); % origin
+% \draw [dotted] (0,0) -- ++(0,1.2cm); % origin
+% \draw [dotted] (0,0) -- ++(0,-1.2cm); % origin
+%
+% \end{scope}
+%
+% \end{tikzpicture}
+% \end{VerbatimOut}
+%
+%^^A===========================================================================
+%^^A Start report body
+%^^A===========================================================================
+%
+% \GetFileInfo{makeshape.sty}
+%
+% \title{The {\sf makeshape} package\thanks{
+% This document corresponds to \textsf{makeshape}~\fileversion,
+% dated~\filedate.}\\
+% and\\
+% A Method for Creating Custom Shapes in PGF}
+%
+% \author{Adrian P. Robson\thanks{\texttt{adrian.robson@nepsweb.co.uk}}}
+% \date{25 January 2013}
+%
+% \maketitle
+%
+%^^A - Abstract
+% \vspace{-3ex}
+% \begin{quote}
+% The {\sf makeshape} package simplifies writing PGF shapes.
+% Declaring a custom shape with a correct anchor border can be difficult.
+% Complex shapes often need complicated calculations to find the touching point
+% of a connecting line.
+% This package only requires that a developer write a PGF path describing the
+% anchor border.
+% It also provides macros that help with the management of shape parameters
+% and the definition of anchor points.
+% \end{quote}
+%
+%
+%^^A \tableofcontents
+%
+%\section{Introduction}
+%
+% The |\pgfdeclareshape| command can be used to create new shapes with the PGF package
+% (\pfgManCiteB).
+% The following are typically needed:
+% \begin{itemize} [itemsep=-0.5ex]
+% \item A shape name.
+% \item Code for computing saved anchors and saved dimensions.
+% \item Code for computing anchor positions in terms of the saved anchors.
+% \item Code for computing border anchors (|\anchorborder|).
+% \item Code for drawing a background path.
+% \end{itemize}
+% Writing these can be hard for completely new shapes, and in particular the declaration of a
+% suitable |\anchorborder| command can be very difficult for complex shapes.
+%
+% \emph{This paper presents a method that makes the process of writing new shapes from scratch
+% a little easier.}
+% Its key features are:
+% a mechanism for specifying the |\anchorborder| behaviour as a path;
+% a package that provides a set of useful macros for writing and allocating anchor
+% and background paths;
+% and an example |\pgfdeclareshape| command that can be used as a template for new shapes.
+%
+% The method involves writing some original code and modifying the template.
+% In brief, the process involves:
+% \begin{enumerate} [itemsep=-0.5ex]
+% \item Writing \emph{background path} and \emph{anchor path} macros.
+% \item Writing one or more \emph{saved anchors}.
+% \item Writing \emph{anchors} using the above saved anchors.
+% \end{enumerate}
+%
+%
+% \section{Preliminaries}
+%
+% \subsection{Background Path Macro}\label{sec:backgroundpath}
+%
+% \begin{figure}
+% \begin{center}
+% \input{msbackground.tmp}
+% \end{center}
+% \caption{The Background Path}\label{fig:backgroundpath}
+% \end{figure}
+%
+% The \emph{background path}, as illustrated in figure~\ref{fig:backgroundpath},
+% describes the curves that form the actual shape.
+% It can be just a single line and does not have to be closed.
+% However, there are no limits on is complexity.
+% If it is more than a simple outline, then its \emph{inner} and \emph{outer} surfaces
+% need to be considered separately.
+%
+% The inner surface should contain the \emph{corrected text box},
+% which is the shape's text box surrounded by the space specified by its
+% {\tt inner xsep} and {\tt inner ysep} keys.
+% The coordinates of this box are given by the package's |\ctbnex| and |\ctbnex| macros,
+% which are described in \S\ref{sec:corrctdTextBox}.
+%
+% The outer surface should have height and width dimensions that are the same as
+% the shape's {\tt minimum} {\tt width} and {\tt minimum} {\tt height}
+% keys if these are larger than the basic dimensions.
+% These keys can be obtained with the |\pgfshapeminwidth| and |\pgfshapeminheight| macros,
+% as described in \S\ref{sec:keycommands}.
+% The |\mincorrect| macro described in \S\ref{sec:mincorrmacro} can be used make the necessary
+% comparison and assignment.
+%
+% \subsubsection{Background Path Algorithm}\label{sec:backgroundpathmacro}
+%
+% The background path should be implemented as a macro with the following structure:
+% \begin{enumerate}
+%
+% \item \label{item:ctb} Use |\ctbnex| and |\ctbnex|,
+% which give the north east corner of the corrected text box,
+% to calculate significant reference coordinates.
+%
+% \item \label{item:mindim} Use |\mincorrect| to modify the reference coordinates to
+% take account of the shape's minimum dimension keys,
+% which are given by |\pgfshapeminwidth| and |\pgfshapeminheight|.
+%
+%
+% \item Use the reference coordinates from step \ref{item:mindim} to draw the actual path
+% using PGF path commands (\pfgManCiteA). Typical commands are
+% |\pgfpathmoveto|,
+% |\pgfpathlineto| and
+% |\pgfpathclose|.
+% The |\pgfpoint| command will also be needed.
+% Do this for
+% \begin{enumerate}
+% \item the outer surface curve, and \label{item:outer}
+% \item curves in the shape's inner path space
+% \end{enumerate}
+% Usually when a path is defined, it is displayed with |\pgfusepath{stroke}|.
+% However, it is not needed here.
+%
+% \end{enumerate}
+%
+% \subsection{Anchor Path Macro}\label{sec:anchorpath}
+%
+% The \emph{anchor path}, as illustrated in figure~\ref{fig:anchorpath},
+% describes the curve that forms the surface where connecting lines meet the shape.
+% It it must be a single closed path, and it is normally strongly related to
+% background path's outer surface (see \S\ref{sec:backgroundpath}).
+%
+% Like the background path, it should use the fundamental reference point of the
+% \emph{corrected text box}, which automatically includes the shape's inner
+% separation.
+% It should also take regard of the shape's {\tt minimum} {\tt width}
+% and {\tt minimum} {\tt height} keys if these are larger than the basic dimensions.
+% Furthermore, it should compensate for the {\tt outer} {\tt xsep} and {\tt outer} {\tt ysep}
+% keys as shown in figure~\ref{fig:anchorpath}.
+%
+% The corrected text box macros are decribed in \S\ref{sec:corrctdTextBox}.
+% The minimum dimension keys are given by |\pgfshapeminwidth| and |\pgfshapeminheight|,
+% and the outer separation keys are given by |\pgfshapeouterxsep| and
+% |\pgfshapeouterysep|, as described in \S\ref{sec:keycommands}.
+% The minimum dimension comparision and assignment is provided by |\mincorect| macro,
+% which is discussed in \S\ref{sec:mincorrmacro}.
+%
+% \subsubsection{Anchor Path Algorithm}\label{sec:anchorpathmacro}
+%
+%
+% The anchor path should be implemented as a macro with the following structure:
+% \begin{enumerate}
+%
+% \item Use |\ctbnex| and |\ctbnex|,
+% which give the north east corner of the corrected text box,
+% to calculate significant reference coordinates. (Normally the same as
+% \S\ref{sec:backgroundpathmacro} step \ref{item:ctb}).
+% \label{item:apctb}
+%
+% \item Use |\mincorrect| to modify the reference coordinates to
+% take account of the shape's minimum dimension keys,
+% which given by |\pgfshapeminwidth| and |\pgfshapeminheight|.
+% (Normally the same as \S\ref{sec:backgroundpathmacro} step \ref{item:mindim}).
+% \label{item:apmindim}
+%
+% \item Modify the reference coordinates to take account of outer separation,
+% which is given by |\pgfshapeouterxsep| and |\pgfshapeouterysep|.
+% \label{item:apouter}
+%
+% \item Use the corrected reference coordinates from step \ref{item:apouter} to specify
+% the anchor path using PGF path commands (\pfgManCiteA).
+% The path should be closed so a |\pgfpathclose| command is required.
+% The path will not actually be drawn, and the |\pgfusepath{stroke}| macro
+% should not be used.
+% (Normally the same as \S\ref{sec:backgroundpathmacro} step \ref{item:outer}).
+% \label{item:appath}
+%
+% \end{enumerate}
+%
+% \subsection{Anchors}
+%
+% A PGF shape requires the definition of a set of anchor point commands,
+% and these need \emph{saved anchors} to provide necessary coordinates.
+% All anchor macros should return a point coordinate by assigning values to the
+% registers |\pgf@x| and |\pgf@y|.
+%
+% Like the anchor path macro, saved anchors should use the fundamental reference point of the
+% \emph{corrected text box}, which automatically includes the shape's inner
+% separation.
+% They should also take regard of the shape's {\tt minimum} {\tt width}
+% and {\tt minimum} {\tt height} keys if these are larger than the basic dimensions.
+% Furthermore, they should compensate for the {\tt outer} {\tt xsep} and {\tt outer} {\tt ysep}
+% keys as shown in figure~\ref{fig:anchorpath}.
+%
+% The corrected text box macros are decribed in \S\ref{sec:corrctdTextBox}.
+% The minimum dimension keys are given by |\pgfshapeminwidth| and |\pgfshapeminheight|,
+% and the outer separation keys are given by |\pgfshapeouterxsep| and
+% |\pgfshapeouterysep|, as described in \S\ref{sec:keycommands}.
+% The minimum dimension comparision and assignment is provided by |\mincorect| macro,
+% which is discussed in \S\ref{sec:mincorrmacro}.
+%
+% \begin{figure}
+% \begin{center}
+% \input{msanchor.tmp}
+% \end{center}
+% \caption{The Anchor Path}\label{fig:anchorpath}
+% \end{figure}
+%
+% \subsubsection{Saved Anchor Algorithm}
+%
+% A saved anchor must set the PGF registers |\pgf@x| and |\pgf@y|
+% with the required coordinates.
+% It has a structure similar to the anchor path.
+%
+% \begin{enumerate}
+%
+% \item Use |\ctbnex| and |\ctbnex|,
+% which give the north east corner of the corrected text box,
+% to calculate significant reference coordinates.
+% (Normally similar to \S\ref{sec:anchorpathmacro} step \ref{item:apctb}).
+%
+% \item Use |\mincorrect| to modify the reference coordinates to
+% take account of the shape's minimum dimension keys,
+% which given by |\pgfshapeminwidth| and |\pgfshapeminheight|.
+% (Normally the same as \S\ref{sec:anchorpathmacro} step \ref{item:apmindim}).
+%
+% \item Modify the reference coordinates to take account of outer separation,
+% which is given by |\pgfshapeouterxsep| and |\pgfshapeouterxsep|.
+% (Normally the same as \S\ref{sec:anchorpathmacro} step \ref{item:apouter}).
+% \label{item:sanchosep}
+%
+% \item Use the reference coordinates from step \ref{item:sanchosep} to calculate the
+% location of the anchor point, and assign values to the |\pgf@x| and |\pgf@y|
+% registers.
+%
+% \end{enumerate}
+%
+% \section{Making a Shape}
+%
+% \subsection{Helper Macros}\label{sec:macros}
+%
+% The following macros are available for use in the anchor path,
+% background path and saved anchors.
+%
+% \subsubsection{Corrected text box}\label{sec:corrctdTextBox}
+%
+% The \emph{corrected text box} is a bounding box for the
+% shape's text that includes the shape's {\tt inner} {\tt xsep} and {\tt inner} {\tt ysep} keys.
+% The box is symmetric about the origin.
+% Its x and y coordinates are given by the following commands:
+%
+% \begin{description} [itemsep=-0.5ex, labelindent=-0.5em]
+%
+% \item[] |\ctbnex|:
+% The x-coordinate of the north east corner of the shape's corrected text box.
+%
+% \item[] |\ctbney|:
+% The y-coordinate of the north east corner of the shape's
+% corrected text box.
+%
+% \end{description}
+%
+% \subsubsection{Correcting for minimum dimensions}\label{sec:mincorrmacro}
+%
+% A shape's size should be corrected for its
+% {\tt minimum} {\tt width} and {\tt minimum} {\tt height} keys.
+% The |\mincorrect| macro is provided to help with this.
+%
+% \begin{description} [itemsep=-0.5ex, labelindent=-0.5em]
+%
+% \item[] |\mincorrect{|{\it dimreg\/}|}{|{\it minkey\/}|}|:
+% Correct an x or y outer bound dimension for {\tt minimum} {\tt width} or
+% {\tt minimum} {\tt height} keys.
+%
+% \vspace{-1.5ex}
+% \begin{description}
+%
+% \item[{\it dimreg} \rm --] A dimension register.
+% On entry, it should hold the normal dimension of the shape.
+% On exit, $dimreg$ is assigned the larger of its original value or $minkey/2$.
+%
+% \item[{\it minkey} \rm--] A minimum dimension key value.
+% In practice, one of the minimum height or width commands given in
+% \S\ref{sec:keycommands} below.
+%
+% \end{description}
+%
+% \end{description}
+%
+% \subsubsection{Getting key values}\label{sec:keycommands}
+%
+% The shape's key values can be accesses with the following commands:
+%
+% \begin{center}
+% \begin{tabular}{ll}
+% \hline
+% key & command \bigstrut\\\hline
+% {\tt minimum} {\tt width} & |\pgfshapeminwidth| \bigstrut[t]\\
+% {\tt minimum} {\tt height} & |\pgfshapeminheight| \\
+% {\tt outer} {\tt xsep} & |\pgfshapeouterxsep| \\
+% {\tt outer} {\tt ysep} & |\pgfshapeouterysep| \bigstrut[b]\\\hline
+% \end{tabular}
+% \end{center}
+%
+% \noindent
+% The outer separation keys are not relevant to the background path,
+% but should be used by the anchor path and saved anchors.
+%
+% The shape's inner separation keys are automatically included in the \emph{corrected text box}
+% coordinates |\ctbnex| and |\ctbney|.
+%
+% \subsubsection{Testing support}
+%
+% There are a couple of macros can be used in the background path to delineate a
+% shape's text box during development:
+%\begin{description}[nosep]
+% \item[{\tt \textbackslash path@textbox}] draws a line around the the shape's text
+% that is the uncorrected text box.
+% \item[{\tt \textbackslash path@ctextbox}] shows the shape's corrected text box,
+% which includes inner separation.
+% \end{description}
+% These macros should not be used in `production' shapes.
+%
+% \subsection{Procedure}
+%
+% The procedure in outline for making a new shape is as follows:
+% \medskip
+%
+% \begin{enumerate}[nosep]
+% \item Create the border path
+% \item Create the anchor path
+%\item Declare the shape
+% \begin{enumerate}[nosep]
+% \item Use |\setpaths| to employ the paths
+% \item Create the anchors
+% \end{enumerate}
+% \end{enumerate}
+% \medskip
+%
+% The sample shape given in \S\ref{sec:samplecode} can be used as a template to
+% create a new shape.
+% The code can be copied from there, or it can be acquired as the file |sampleshape.tex|,
+% which is part of the package's distribution.
+%
+% The procedure for adapting the template code is as follows:
+% \begin{enumerate}
+%
+% \item Change the name of the shape in the |\pgfdeclareshape| command
+% from `{\tt sample}' to the name of the new shape.
+%
+% \item \label{item:steppaths} Write \emph{anchor path} and \emph{background path} macros.
+%
+% These and any sub macros are placed at the start of the file and replace
+% the sample |\sampleanchor| and |\sampleborder| macros.
+%
+% As discussed in \S\ref{sec:backgroundpath} and \S\ref{sec:anchorpath},
+% the background path should take account of the minimum dimension keys,
+% and the anchor path should handle the minimum keys, and outer
+% separation.
+% The macros given in \S\ref{sec:macros} are provided to help with this,
+% and the sample code gives an indication of how they can be used.
+%
+% \item Change the arguments of |\setpaths| in the template to the macros written
+% in step \ref{item:steppaths}.
+% The first is the anchor path and the second is the background path.
+%
+% \item \label{item:stepsavedanchors} Write the saved anchors that will needed by the anchors
+% written in step~\ref{item:stepanchors}.
+%
+% Saved anchors, like the anchor path written in step \ref{item:steppaths},
+% should correct for outer separation, and minimum dimensions
+% using the macros in \S\ref{sec:macros}.
+% They should set the |\pgf@x| and |\pgf@y| registers.
+%
+% \item \label{item:stepanchors}
+% Write anchors that set |\pgf@x| and |\pgf@y| registers using
+% the saved anchors from step \ref{item:stepsavedanchors}.
+%
+% \begin{enumerate}
+%
+% \item Write anchors for the cardinal and sub cardinal points:
+%
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \anchor{north}{ ... }
+% \anchor{north east}{ ... }
+% \anchor{east}{ ... }
+% \anchor{south east}{ ... }
+% \anchor{south}{ ... }
+% \anchor{south west}{ ... }
+% \anchor{west}{ ... }
+% \anchor{north west}{ ... }
+% \end{VerbatimOut}
+% \VerbatimInput{\jobname.tmp}
+%
+% \item Write any additional anchors that the shape needs.
+%
+% \end{enumerate}
+%
+% \end{enumerate}
+%
+% The PGF registers used throughout this method of declaring new shapes have the
+% |@| character in their names.
+% Unfortunately, this character has a special role in \LaTeX{}.
+% So either the |\makeatletter| and |\makeatother| commands must be used as in
+% |sampleshape.tex|, or the shape must be defined in a |sty| file.
+%
+% \section{Path and Anchor Examples}
+%
+% Here an example of an actual shape that is implemented using the {\sf makeshape} method:
+%
+% \bigskip
+%
+% \begin{tikzpicture}%[>=latex',font={\sf \small}]
+% \node at (0,0) [draw, sample,
+% minimum width=2cm,
+% minimum height=1cm] {};
+% \end{tikzpicture}
+% \bigskip
+%
+% Its background path, anchor path, and anchor points use a common macro that gives
+% the space between the outer and inner boundaries of the shape.
+%
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \def\gap{4pt}
+% \end{VerbatimOut}
+% \VerbatimInput{\jobname.tmp}
+%
+% \subsection{Background Path}\label{sec:backgroundpathexmpl}
+%
+% In this example, the background path macro is called {\tt sampleshape}.
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \def\sampleshape{
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left]{\jobname.tmp}
+% First we get the corrected text box coordinates,
+% and add space for the shape using the |\gap| macro.
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \pgf@xa=\ctbnex
+% \pgf@ya=\ctbney
+% \advance\pgf@xa by \gap
+% \advance\pgf@ya by \gap
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left, firstnumber=2]{\jobname.tmp}
+% Then the standard correction for minimum size is applied using the |\mincorrect| macro.
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \mincorrect{\pgf@xa}{\pgfshapeminwidth}
+% \mincorrect{\pgf@ya}{\pgfshapeminheight}
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left, firstnumber=6]{\jobname.tmp}
+% Using these coordinates the outer boundary of the shape can be drawn
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \pgfpathmoveto{\pgfpoint{\pgf@xa}{\pgf@ya}}
+% \pgfpathlineto{\pgfpoint{\pgf@xa}{-\pgf@ya}}
+% \pgfpathlineto{\pgfpoint{-\pgf@xa}{-\pgf@ya}}
+% \pgfpathlineto{\pgfpoint{-\pgf@xa}{\pgf@ya}}
+% \pgfpathclose
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left, firstnumber=8]{\jobname.tmp}
+% Finally, the reference coordinates are moved to the inner boundary and the shape is completed
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \advance\pgf@xa by -\gap
+% \advance\pgf@ya by -\gap
+% \pgfpathmoveto{\pgfpoint{\pgf@xa}{\pgf@ya}}
+% \pgfpathlineto{\pgfpoint{\pgf@xa}{-\pgf@ya}}
+% \pgfpathlineto{\pgfpoint{-\pgf@xa}{-\pgf@ya}}
+% \pgfpathlineto{\pgfpoint{-\pgf@xa}{\pgf@ya}}
+% \pgfpathclose
+% }
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left, firstnumber=13]{\jobname.tmp}
+%
+% \subsection{Anchor Path}\label{sec:anchorpathexmpl}
+%
+% The shape's anchor path macro called {\tt sampleanchor},
+% and is similar to the path macro in \S\ref{sec:backgroundpathexmpl},
+% but it also handles outer separation.
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \def\sampleanchor{
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left]{\jobname.tmp}
+% First we get the corrected text box coordinates, and add space for the shape using
+% the |\gap| macro.
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \pgf@xa=\ctbnex
+% \pgf@ya=\ctbney
+% \advance\pgf@xa by \gap
+% \advance\pgf@ya by \gap
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left, firstnumber=2]{\jobname.tmp}
+% Then corrections for minimum size and outer separation are applied:
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \mincorrect{\pgf@xa}{\pgfshapeminwidth}
+% \advance\pgf@xa\pgfshapeouterxsep
+% \mincorrect{\pgf@ya}{\pgfshapeminheight}
+% \advance\pgf@ya\pgfshapeouterysep
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left, firstnumber=6]{\jobname.tmp}
+% Using these coordinates the anchor boundary path is finally drawn
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \pgfpathmoveto{\pgfpoint{\pgf@xa}{\pgf@ya}}
+% \pgfpathlineto{\pgfpoint{\pgf@xa}{-\pgf@ya}}
+% \pgfpathlineto{\pgfpoint{-\pgf@xa}{-\pgf@ya}}
+% \pgfpathlineto{\pgfpoint{-\pgf@xa}{\pgf@ya}}
+% \pgfpathclose
+% }
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left, firstnumber=10]{\jobname.tmp}
+%
+% \subsection{Shape Declaration and Anchor Points}
+%
+% The {\tt sample} shape declaration is started with
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \pgfdeclareshape{sample}{
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left]{\jobname.tmp}
+% Then the shape and anchor paths, which were defined in \S\ref{sec:backgroundpathexmpl}
+% and \S\ref{sec:anchorpathexmpl}, are employed with
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \setpaths{\sampleanchor}{\sampleshape}
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left, firstnumber=2]{\jobname.tmp}
+%
+% \subsubsection{Anchors}
+%
+% Next in the shape's declaration are its saved anchors.
+% In this case, we establish the north east anchor location with code that is equivalent
+% to the first part of the anchor path macro (\S\ref{sec:anchorpathexmpl}).
+% Note how the anchor point's coordinate is returned in |\pgf@x| and |\pgf@y|.
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \savedanchor{\northeast}{
+% \pgf@x = \ctbnex
+% \pgf@y = \ctbney
+% \advance\pgf@xa by \gap
+% \advance\pgf@ya by \gap
+% \mincorrect{\pgf@x}{\pgfshapeminwidth}
+% \mincorrect{\pgf@y}{\pgfshapeminheight}
+% \advance\pgf@x\pgfshapeouterxsep
+% \advance\pgf@y\pgfshapeouterysep
+% }
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left, firstnumber=3]{\jobname.tmp}
+%
+% \noindent
+% The saved anchor is then used to construct the shape's anchors,
+% and the declaration is ended as follows:
+%
+% \begin{VerbatimOut}[gobble=5]{\jobname.tmp}
+% \anchor{north}{\northeast \pgf@x=0pt}
+% \anchor{north east}{\northeast}
+% \anchor{east}{\northeast \pgf@y=0pt}
+% \anchor{south east}{\northeast \pgf@y=-\pgf@y}
+% \anchor{south}{\northeast \pgf@x=0pt \pgf@y=-\pgf@y}
+% \anchor{south west}{\northeast \pgf@x=-\pgf@x \pgf@y=-\pgf@y}
+% \anchor{west}{\northeast \pgf@x=-\pgf@x \pgf@y=0pt}
+% \anchor{north west}{\northeast \pgf@x=-\pgf@x}
+% }
+% \end{VerbatimOut}
+% \VerbatimInput[numbers=left, firstnumber=13]{\jobname.tmp}
+%
+%
+% \subsection{Sample Shape Code}\label{sec:samplecode}
+%
+% The following is a full listing of the code needed to make the sample shape
+% described above.
+% It can be used as a templete for new shapes.
+% A copy of this code can be found in the the file {\tt sampleshape.tex},
+% which is included in the package's distribution.
+% Note the use of the |\makeatletter| and |\makeatother| commands, which are required
+% because the sample shape is in a |tex| file.
+%
+%^^A - Code must be < 67 characters to fit on page at 10pt ...
+% \VerbatimInput[ ^^A numbers=left,
+% firstline=40, lastline=127]{sampleshape}
+%
+%
+%^^A===========================================================================
+%^^A References
+%^^A===========================================================================
+%
+%^^A - Used in \StopEventually ...
+%
+% \def\printBib{
+% \begin{thebibliography}{9}
+% \raggedright
+%
+% \bibitem{pgfMan}
+% Till Tantau,
+% \emph{The TikZ and PGF Packages, Manual for version 2.10},
+% 2010.
+% Available as
+% \href{http://mirrors.ctan.org/graphics/pgf/base/doc/generic/pgf/pgfmanual.pdf}
+% {\tt pgfmanual.pdf}
+% from the \href{http://ctan.org}{Comprehensive TeX Archive Network}.
+%
+%^^A in pgfMan \emph{Constructing Paths}, section 71, pp 579-589.
+%^^A in pgfMan \emph{Declaring New Shapes}, section 75.5, pp 625-631.
+%
+% \end{thebibliography}
+% }
+%
+%
+%^^A===========================================================================
+%^^A Start code implementation
+%^^A===========================================================================
+%
+% \StopEventually{ \printBib }
+%^^A \StopEventually{ \printBib \PrintChanges }
+%^^A -> Run pdfLaTeX makeshape.dtx
+%^^A makeindex -s gglo.ist -o makeshape.gls makeshape.glo
+%^^A pdfLaTeX makeshape.dtx
+%
+% \section{Implementation}
+%
+% \subsection{Text Box Calculations}\label{sec:textboxcalc}
+%
+% The shape's text is at its centre for shape's made with this package.
+% The text box position is defined by the shape's |text| anchor, which must give the coordinate
+% of the west end of the text's base line.
+% PGF provides three useful dimensions:
+%
+% \smallskip
+% \begin{tabular}{lll}
+% |\wd\pgfnodeparttextbox| & width & $wd$\\
+% |\ht\pgfnodeparttextbox| & height & $ht$\\
+% |\dp\pgfnodeparttextbox| & depth & $dp$\\
+% \end{tabular}
+%
+% \smallskip\noindent
+% These are related as follows:
+% \medskip
+%
+%^^A----------------------------------
+%^^A- Text box diagram - start
+%^^A----------------------------------
+% \begin{tikzpicture}[>=latex',font={\sf \small}]
+%
+% \def\tbht{30pt} ^^A - text box height
+% \def\tbdp{15pt} ^^A - text box depth
+% \def\tbwd{150pt} ^^A - text box width
+%
+% \def\blwx{-\tbwd/2} ^^A - baseline west x
+% \def\blwy{-\tbht/2+\tbdp/2} ^^A - baseline west y
+%
+% \def\tbnex{\tbwd/2} ^^A - text box north east x
+% \def\tbney{\tbht/2+\tbdp/2} ^^A - text box north east y
+%
+% \node (textbox) at (0,0) [draw, rectangle, fill=white,
+% minimum width=\tbwd,
+% minimum height=\tbht+\tbdp,
+% ] {};
+% \draw [] (\blwx,\blwy) -- ++(\tbwd,0);
+%
+% \node (textanchor) [coordinate] at (\blwx,\blwy){};
+%
+% \node at (textanchor) [draw, circle] (blinewest) {};
+%
+%^^A - Labels
+% \node (blinelable) at (3.5cm,\blwy) [inner sep = 0] {baseline};
+% \node (textanchlabel) at (\blwx+28pt,\blwy+8pt) [inner sep = 0] {text anchor};
+%
+%^^A - Dimensions
+% \node (hta) [coordinate, left=15pt of textbox.south west] {};
+% \node (htc) [coordinate, left=15pt of textbox.north west] {};
+% \node (htb) [coordinate, left=15pt of textanchor] {};
+% \draw [|<->|] (hta) -- (htb) node [midway,left] {depth};
+% \draw [<->|] (htb) -- (htc) node [midway,left] {height};
+% \node (wda) [coordinate, above=10pt of textbox.north west] {};
+% \node (wdb) [coordinate, above=10pt of textbox.north east] {};
+% \draw [|<->|] (wda) -- (wdb) node [midway,above] {width};
+%
+%^^A - xy axis
+% \def\xaxisdim{0.5cm}
+% \def\yaxisdim{0.5cm}
+% \draw [dotted] (0,0) -- ++(\xaxisdim,0); ^^A - origin
+% \draw [dotted] (0,0) -- ++(-\xaxisdim,0); ^^A - origin
+% \draw [dotted] (0,0) -- ++(0,\yaxisdim); ^^A - origin
+% \draw [dotted] (0,0) -- ++(0,-\yaxisdim); ^^A - origin
+%
+% \end{tikzpicture}
+%^^A----------------------------------
+%^^A- Text box diagram - end
+%^^A----------------------------------
+%\medskip
+%
+% For this box to be centred on the origin, we need to calculate suitable coordinates for
+% the |text| anchor.
+% So, if the box's south west corner is at $(x_{sw},y_{sw})$ and the box is centred, then
+% $x_{sw} = -wd/2$ and $y_{sw}=-(ht+dp)/2$.
+% If the |text| anchor is at $(x_{text},y_{text})$, then
+% \vspace{-2ex}
+%\begin{eqnarray}
+% x_{text} & = & x_{sw} = -\frac{wd}{2}\label{eqn:xtext}\\
+% y_{text} & = & y_{sw} + dp = -\frac{ht}{2} - \frac{dp}{2} + dp
+% = \frac{dp}{2} - \frac{ht}{2} \label{eqn:ytext}
+%\end{eqnarray}
+%
+% Furthermore, the shape's north east corner $(x_{ne},y_{ne})$ is at
+%\begin{eqnarray}
+% x_{ne} & = & \frac{wd}{2} \label{eqn:xne}\\[1ex]
+% y_{ne} & = & \frac{ht+dp}{2} \label{eqn:yne}
+%\end{eqnarray}
+%
+%\iffalse
+%<*package>
+%\fi
+%
+%\subsection{Symetric bounding box}\label{sec:symbbox}
+%
+% We require a rectangle that contains the anchor path, and has its centre at the origin.
+% Such a rectangle, defined by the coordinate of its north east corner, is needed
+% in the anchor border algorithm described in \S\ref{sec:anchoralgorithm}.
+%
+% \vspace{2ex}
+%
+%^^A----------------------------------
+%^^A- Bounding box diagram - start
+%^^A----------------------------------
+% \begin{tikzpicture}[>=latex',font={\sf \small}]
+%
+% \def\bbnex{60pt} ^^A - box ne x
+% \def\bbney{30pt} ^^A - box ne y
+%
+% \node (boundingbox) at (0,0) [draw, rectangle, dashed,
+% minimum width=2*\bbnex,
+% minimum height=2*\bbney,
+% ] {};
+%
+% \node at (\bbnex,\bbney) [draw, circle] (boxne) {};
+%
+% \def\nx{0pt} \def\ny{20pt}
+% \def\ex{30pt} \def\ey{-10pt}
+% \def\sx{-20pt} \def\sy{-\bbney}
+% \def\wx{-\bbnex} \def\wy{10pt}
+%
+%^^A - Anchor path
+% \draw [] (\nx,\ny) -- (\ex,\ey);
+% \draw [] (\ex,\ey) -- (\sx,\sy);
+% \draw [] (\sx,\sy) -- (\wx,\wy);
+% \draw [] (\wx,\wy) -- (\nx,\ny);
+%
+%^^A - mins and maxs with labels
+% \draw [dotted] (\nx,\ny) -- (\bbnex+10pt,\ny);
+% \draw [dotted] (\bbnex,\sy) -- (\bbnex+10pt,\sy);
+% \draw [dotted] (\ex,\ey) -- (\ex,-\bbney-10pt);
+% \draw [dotted] (\wx,-\bbney) -- (\wx,-\bbney-10pt);
+% \node (maxy) at (\bbnex+24pt,\ny) [inner sep = 0] {$y_{max}$};
+% \node (miny) at (\bbnex+24pt,\sy) [inner sep = 0] {$y_{min}$};
+% \node (maxx) at (\wx,-\bbney-16pt) [inner sep = 0] {$x_{min}$};
+% \node (maxx) at (\ex,-\bbney-16pt) [inner sep = 0] {$x_{max}$};%
+%
+%^^A - Labels
+% \node (path) at (\wx-40pt,\wy-32pt) [inner sep = 0] {anchor path};
+% \draw [->] (path.east) -- (-40pt,-10pt);
+% \node (box) at (\wx-40pt,\wy+13pt) [inner sep = 0] {bounding box};
+% \draw [->] (box.east) -- (\wx,23pt);
+% \node (bbne) at (\bbnex+25pt,\bbney+10pt) [inner sep = 0] {$(x_{ne},y_{ne})$};
+%
+%^^A - xy axis
+% \def\xaxisdim{0.2cm}
+% \def\yaxisdim{0.2cm}
+% \draw [] (0,0) -- ++(\xaxisdim,0); ^^A - origin
+% \draw [] (0,0) -- ++(-\xaxisdim,0); ^^A - origin
+% \draw [] (0,0) -- ++(0,\yaxisdim); ^^A - origin
+% \draw [] (0,0) -- ++(0,-\yaxisdim); ^^A - origin
+%
+% \end{tikzpicture}
+%^^A----------------------------------
+%^^A- Bounding box diagram - end
+%^^A----------------------------------
+%
+% \medskip
+% The \emph{symmetric bounding box} is defined by the coordinate of its north east corner:
+% \vspace{-3ex}
+% \begin{eqnarray}
+% x_{ne} &=& \max{(\vert x_{min} \vert \, ,\vert x_{max} \vert )} \label{eqn:bbx}\\
+% y_{ne} &=& \max{(\vert y_{min} \vert \, ,\vert y_{max} \vert )} \label{eqn:bby}
+% \end{eqnarray}
+%
+% \subsection{The Anchor Border Algorithm}\label{sec:anchoralgorithm}
+%
+% A shape's |\anchorborder| command must calculate the intersection of a line drawn
+% between the origin and a target point, and the shape's border.
+% The aim here is to do this calculation using an \emph{anchor path} that describes
+% the shapes outer border.
+%
+% The |\pgfintersectionofpaths| command can be used to do this, but it will only work
+% for points that are outside the anchor path.
+% The solution is to \emph{externalise the point} using the |\pgfpointborderrectangle| command.
+%
+% \bigskip
+%^^A------------------------------------------------
+%^^A- Anchor border point algorithm diagram - start
+%^^A------------------------------------------------
+% \begin{tikzpicture}[>=latex',font={\sf \small}]
+%
+%^^A - xy axis
+% \def\xaxisdim{0.2cm}
+% \def\yaxisdim{0.2cm}
+% \draw [] (0,0) -- ++(-\xaxisdim,0); ^^A - origin
+% \draw [] (0,0) -- ++(0,\yaxisdim); ^^A - origin
+% \draw [] (0,0) -- ++(0,-\yaxisdim); ^^A - origin
+% \filldraw[white] (0,0) circle (2pt);
+%
+%^^A - Bounding box
+% \def\bbnex{60pt} ^^A - box ne x
+% \def\bbney{30pt} ^^A - box ne y
+%
+% \node (boundingbox) at (0,0) [draw, rectangle, dashed,
+% minimum width=2*\bbnex,
+% minimum height=2*\bbney,
+% ] {};
+%
+% \draw ((\bbnex,\bbney) circle (2pt);
+%
+%^^A - Anchor path
+% \def\nx{30pt} \def\ny{20pt}
+% \def\ex{50pt} \def\ey{-20pt}
+% \def\sx{-20pt} \def\sy{-\bbney}
+% \def\wx{-\bbnex} \def\wy{10pt}
+%
+% \def\apath{
+% \pgfpathmoveto{\pgfpoint{\nx}{\ny}}
+% \pgfpathlineto{\pgfpoint{\ex}{\ey}}
+% \pgfpathlineto{\pgfpoint{\sx}{\sy}}
+% \pgfpathlineto{\pgfpoint{\wx}{\wy}}
+% \pgfpathclose }
+%
+%^^A - Draw the anchor path
+% \apath
+% \pgfusepath{stroke}
+%
+%^^A - Target point and vectors
+% \def\tx{20pt}
+% \def\ty{5pt}
+% \def\endx{3.5*\tx}
+% \def\endy{3.5*\ty}
+%
+% \draw [] (0,0) -- (\tx,\ty);
+% \draw [dotted] (\tx,\ty) -- (\endx,\endy);
+% \filldraw (\tx,\ty) circle (2pt);
+%
+%^^A - Intersection with bounding box
+% \pgfpathcircle{\pgfpointborderrectangle{\pgfpoint{\tx}{\ty}}
+% {\pgfpoint{\bbnex}{\bbney}}}{2pt}
+% \pgfusepath{stroke}
+%
+%^^A - intersection with anchor path
+% \pgfintersectionofpaths{\apath}
+% { \pgfpathmoveto{\pgfpoint{0}{0}}
+% \pgfpathlineto{\pgfpoint{\endx}{\endy}} }
+% \pgfpathcircle{\pgfpointintersectionsolution{1}}{2pt}
+% \pgfusepath{stroke}
+%
+%^^A - Labels
+% \node (path) at (\wx-40pt,\wy-32pt) [inner sep = 0] {anchor path};
+% \draw [->] (path.east) -- (-40pt,-10pt);
+% \node (box) at (\wx-40pt,\wy+13pt) [inner sep = 0] {bounding box};
+% \draw [->] (box.east) -- (\wx,23pt);
+% \node (p1) at (\tx+5pt,\ty-8pt) [inner sep = 0] {p1};
+% \node (p2) at (\bbnex+10pt,\bbney+5pt) [inner sep = 0] {p2};
+% \node (p3) at (\bbnex+10pt,8pt) [inner sep = 0] {p3};
+% \node (p4) at (40pt,18pt) [inner sep = 0] {p4};
+%
+%^^A - point key
+%^^A \def\pkeyx{90pt}
+%^^A \def\pkeyy{10pt}
+%^^A \def\pkeystep{-10pt}
+%^^A \node (key1) at (\pkeyx,\pkeyy) [right, inner sep = 0] {p1 = target point};
+%^^A \node (key2) at (\pkeyx,\pkeyy+\pkeystep) [right, inner sep = 0] {p2 = bounding box corner};
+%^^A \node (key3) at (\pkeyx,\pkeyy+2*\pkeystep) [right, inner sep = 0]
+%^^A {p3 = bounding box intersection};
+%^^A \node (key4) at (\pkeyx,\pkeyy+3*\pkeystep) [right, inner sep = 0]
+%^^A {p4 = anchor path intersection};
+%
+% \end{tikzpicture}
+%^^A------------------------------------------------
+%^^A- Anchor border point algorithm diagram - end
+%^^A------------------------------------------------
+%
+%\bigskip
+%
+%\begin{description}
+%
+% \item[Step 1 - Externalise the target point]
+%
+% The vector to the target point {\sf p1} is extended to the bounding box to find
+% the intersection {\sf p3}.
+% The bounding box is by definition outside the anchor path.
+% Thus point {\sf p3} must also be outside the anchor path.
+%
+% To achieve this, the |\pgfpointborderrectangle| command is applied to the target point {\sf p1}
+% and the centred rectangle defined by {\sf p2}, which is the symmetric bounding box defined
+% in \S\ref{sec:symbbox}.
+%
+% \item[Step 2 - Find the border intersection]
+%
+% The line from the origin to the point {\sf p3} passes through {\sf p1},
+% and its intersection with the anchor path is the required point {\sf p4}.
+%
+% The intersection is found with the |\pgfintersectionofpaths| command,
+% which takes the anchor path and the path of the line from the origin to {\sf p3} as input.
+% Since {\sf p3} is always outside the anchor path, such an intersection will always be found.
+%
+% \end{description}
+%
+% \subsection{Declare Shape Commands}
+%
+% \begin{macro}{\setpaths}
+% The |\setpaths| macro is used in |\pgfdeclareshape| definitions to specify the shape's paths.
+% It has two parameters:
+% \begin{description}[nosep]
+% \item[\tt ~\#1] is a macro defining the anchor path.
+% \item[\tt ~\#2] is a macro defining the background path.
+% \end{description}
+%
+% \begin{macrocode}
+\def\setpaths#1#2{
+% \end{macrocode}
+%
+% \noindent
+% It defines saved macros for use in the shape's path macros and saved anchors.
+% There are also macros defined that are only used within the packages other macros.
+%
+% \subsubsection{Corrected text box saved macros}
+%
+% These two saved macros give the x and y coordinates of the corrected text box's north east corner.
+% They are invoked by users of the package to define a shape's path macros.
+%
+% \begin{macro}{\ctbnex}
+% The |\ctbnex| saved macro gives the x-coordinate,
+% which is calculated as described by equation \ref{eqn:xne} in \S\ref{sec:textboxcalc}.
+% \begin{macrocode}
+ \savedmacro\ctbnex{
+ \pgf@x=.5\wd\pgfnodeparttextbox
+ \pgfmathsetlength\pgf@xa{\pgfshapeinnerxsep}
+ \advance\pgf@x\pgf@xa
+ \edef\temp@x{\the\pgf@x}
+ \let\ctbnex\temp@x
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\ctbney}
+% The y-coordinate is given by the |\ctbney| saved macro,
+% which implements equation \ref{eqn:yne} in \S\ref{sec:textboxcalc}.
+% \begin{macrocode}
+ \savedmacro\ctbney{
+ \pgf@y=.5\ht\pgfnodeparttextbox
+ \advance\pgf@y.5\dp\pgfnodeparttextbox
+ \pgfmathsetlength\pgf@ya{\pgfshapeinnerysep}
+ \advance\pgf@y\pgf@ya
+ \edef\temp@y{\the\pgf@y}
+ \let\ctbney\temp@y
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \subsubsection{Key value saved macros}
+%
+% These saved macros give the values of significant shape keys.
+% They have the same names as the standard PGF macros,
+% and allow the user's anchor and background path macros to use the standard names.
+%
+% \begin{macro}{\pgfshapeouterxsep}
+% The value of the x outer separation key is given by |\pgfshapeouterxsep|.
+% \begin{macrocode}
+ \savedmacro\pgfshapeouterxsep{
+ \pgfkeysgetvalue{/pgf/outer xsep}{\temp@sep}
+ \let\pgfshapeouterxsep\temp@sep
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\pgfshapeouterysep}
+% The value of the y outer separation key is given by |\pgfshapeouterysep|.
+% \begin{macrocode}
+ \savedmacro\pgfshapeouterysep{
+ \pgfkeysgetvalue{/pgf/outer ysep}{\temp@sep}
+ \let\pgfshapeouterysep\temp@sep
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\pgfshapeminwidth}
+% The value of the minimum width key is given by |\pgfshapeminwidth|.
+% \begin{macrocode}
+ \savedmacro{\pgfshapeminwidth}{
+ \pgfkeysgetvalue{/pgf/minimum width}{\temp@wd}
+ \let\pgfshapeminwidth\temp@wd
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\pgfshapeminheight}
+% The value of the minimum height key is given by |\pgfshapeminheight|.
+% \begin{macrocode}
+ \savedmacro{\pgfshapeminheight}{
+ \pgfkeysgetvalue{/pgf/minimum height}{\temp@ht}
+ \let\pgfshapeminheight\temp@ht
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \subsubsection{Saved anchors}\label{sec:savedanchors}
+%
+% The saved anchors are used to implement the anchors provided by the package,
+% but can be used by the user to define custom anchors if required.
+% They are required to return the coordinates of a point in |\pgf@x| and |\pgf@y|.
+%
+% \begin{macro}{\centre}
+% The |\centre| saved anchor is used to implement the package |center| anchor.
+% The |\pgfpointorigin| command sets |\pgf@x| and |\pgf@y|.
+% \begin{macrocode}
+ \savedanchor{\centre}{
+ \pgfpointorigin
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\text}
+% The |\text| saved anchor is used to implement the package |text| anchor.
+% It gives the coordinate of the west end of the text base line.
+% The calculation it uses is explained in \S\ref{sec:textboxcalc}.
+% Equation \ref{eqn:xtext} gives the x-coordinate
+% and equation \ref{eqn:ytext} gives the y-coordinate.
+% \begin{macrocode}
+ \savedanchor{\text}{
+ \pgf@y=-0.5\ht\pgfnodeparttextbox
+ \advance\pgf@y by 0.5\dp\pgfnodeparttextbox
+ \pgf@x=-0.5\wd\pgfnodeparttextbox
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\boundbox@ne}
+% The |\boundbox@ne| saved anchor gives the north east corner of the
+% anchor path's symmetric bounding rectangle (see \S\ref{sec:symbbox}).
+% \begin{macrocode}
+ \savedanchor{\boundbox@ne}{
+% \end{macrocode}
+%
+% First clear any existing path, and then execute the anchor path macro given as
+% the first parameter of |\setpaths|.
+% \begin{macrocode}
+ \pgfusepath{}
+ #1
+% \end{macrocode}
+% Store the path's minimum and maximum coordinates, and then discard the path.
+% \begin{macrocode}
+ \pgf@xb=\pgf@pathmaxx
+ \pgf@yb=\pgf@pathmaxy
+ \pgf@xc=\pgf@pathminx
+ \pgf@yc=\pgf@pathminy
+ \pgfusepath{}
+% \end{macrocode}
+%
+% The north east corner x-coordinate of the symmetric bounding box is calculated using
+% equation \ref{eqn:bbx} from \S\ref{sec:symbbox}.
+%
+% \begin{macrocode}
+ \ifdim\pgf@xb<0pt \pgf@xb=-\pgf@xb \fi
+ \ifdim\pgf@xc<0pt \pgf@xc=-\pgf@xc \fi
+ \ifdim\pgf@xb<\pgf@xc
+ \pgf@x=\pgf@xc
+ \else
+ \pgf@x=\pgf@xb
+ \fi
+% \end{macrocode}
+% The y-coordinate is calculated with equation \ref{eqn:bby}:
+% \begin{macrocode}
+ \ifdim\pgf@yb<0pt \pgf@yb=-\pgf@yb \fi
+ \ifdim\pgf@yc<0pt \pgf@yc=-\pgf@yc \fi
+ \ifdim\pgf@yb<\pgf@yc
+ \pgf@y=\pgf@yc
+ \else
+ \pgf@y=\pgf@yb
+ \fi
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \subsubsection{Anchors}
+%
+% \begin{macro}{center}
+% \begin{macro}{text}
+% PGF shapes require |center| and |text| anchors.
+% They are implemented by the saved anchors |\center| and |\text| (see \ref{sec:savedanchors}),
+% and in effect centre the shape's text on the origin.
+% \begin{macrocode}
+ \anchor{center}{\centre}
+ \anchor{text}{\text}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\anchorborder}
+% The |\anchorborder| anchor is critically responsible for calculating points on
+% the shape's boundary
+% Its algoritm is explained in \S\ref{sec:anchoralgorithm}.
+% \begin{macrocode}
+ \anchorborder{
+% \end{macrocode}
+% On entry, the coordinates of the target point are supplied in |\pgf@x| and |\pgf@y|,
+% and these are immediately saved:
+% \begin{macrocode}
+ \edef\targpointx{\the\pgf@x}
+ \edef\targpointy{\the\pgf@y}
+% \end{macrocode}
+%
+% A couple of settings are needed to support shapes that are not centred on the origin:
+% \begin{macrocode}
+ \pgf@relevantforpicturesizefalse
+ \pgftransformreset
+% \end{macrocode}
+% The first suppresses updating of the picture bounding box and ensures correct positioning
+% of the shape.
+% The second stops coordinate transformations being applied,
+% which is needed for the correct behaviour of points relying on the |\anchorborder| command.
+%
+% Start the computation by finding the north east corner of the anchor path's bounding box:
+% \begin{macrocode}
+ \boundbox@ne
+ \pgf@xa=\pgf@x
+ \pgf@ya=\pgf@y
+% \end{macrocode}
+% Perform step 1 of the algorithm described in \S\ref{sec:anchoralgorithm} to externalise
+% the target to a point on the bounding box:
+% \begin{macrocode}
+ \pgfpointborderrectangle{\pgfpoint{\targpointx}{\targpointy}}
+ {\pgfpoint{\pgf@xa}{\pgf@ya}}
+ \edef\corrx{\the\pgf@x}
+ \edef\corry{\the\pgf@y}
+% \end{macrocode}
+% Next, use this externalised point to find the required boundary point with step 2 of
+% the algorithm.
+% The anchor path is |#1|, which is the first argument |setpaths|.
+% \begin{macrocode}
+ \pgfintersectionofpaths {
+ #1
+ }{
+ \pgfpathmoveto{\pgfpoint{0}{0}}
+ \pgfpathlineto{\pgfpoint{\corrx}{\corry}}
+ }
+% \end{macrocode}
+% Finally, the command |\pgfpointintersectionsolution| puts the point's coordinates in
+% |\pgf@x| and |\pgf@y|.
+% \begin{macrocode}
+ \pgfpointintersectionsolution{1}
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \subsubsection{Background path}
+%
+% \begin{macro}{\backgroundpath}
+% The shape is actually drawn by |\backgroundpath|, which executes the second argument of
+% |\setpaths|, which is the shape's background path.
+% \begin{macrocode}
+ \backgroundpath{
+ #2
+ }
+% \end{macrocode}
+% \end{macro}
+% Finally, |setpaths| is completed.
+% \begin{macrocode}
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \subsection{Utility macros}
+%
+% \subsubsection{Dimension correction}
+%
+% \begin{macro}{\mincorrect}
+% The |\mincorrect| macro finds the larger of two dimensions.
+% It is applied to shape coordinates and keys.
+% It uses a working dimension register, and has two parameters
+% \begin{macrocode}
+\newdimen\crct@dim
+\def\mincorrect#1#2{
+% \end{macrocode}
+% The parameters have the following roles:
+% \begin{description}[nosep]
+% \item[\tt ~\#1] A register holding the normal outer bound dimension of the shape,
+% and then the largest value, in a PGF register such as |\pgf@xa|.
+% \item[\tt ~\#2] A key value, normally one of |\pgfshapeminwidth| or |\pgfshapeminheight|.
+% \end{description}
+% The |\crct@dim| register is used to calculate half of |#2|:
+% \begin{macrocode}
+ \pgfmathsetlength\crct@dim{#2}
+ \pgfmathsetlength\crct@dim{0.5\crct@dim}
+% \end{macrocode}
+%
+% Then if |#1| is larger than |\crct@dim|, |#1| is assigned this value
+% otherwise |#1| remains unchanged.
+% \begin{macrocode}
+ \ifdim#1<\crct@dim
+ #1=\crct@dim
+ \fi
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \subsubsection{Macros for testing}
+%
+% There are a couple of macros can be used to delineate a shape's text box during development.
+% They should not be used in `production' shapes.
+%
+% \begin{macro}{\path@textbox}
+% The |\path@textbox| macro draws a line around the the shape's text that is the
+% uncorrected text box.
+% \begin{macrocode}
+\def\path@textbox{
+ \pgf@xa=.5\wd\pgfnodeparttextbox
+ \pgf@ya=.5\ht\pgfnodeparttextbox
+ \advance\pgf@ya.5\dp\pgfnodeparttextbox
+ \typeout{**** TEST text box (x,y) = (\the\pgf@xa,\the\pgf@ya) }
+ \pgfpathmoveto{\pgfpoint{\pgf@xa}{\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{\pgf@xa}{-\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{-\pgf@xa}{-\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{-\pgf@xa}{\pgf@ya}}
+ \pgfpathclose
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\path@ctextbox}
+% The |\path@ctextbox| macro shows the shape's corrected text box,
+% which includes inner separation.
+% \begin{macrocode}
+\def\path@ctextbox{
+ \pgf@xa=.5\wd\pgfnodeparttextbox
+ \pgfmathsetlength\pgf@xc{\pgfshapeinnerxsep}
+ \advance\pgf@xa\pgf@xc
+ \pgf@ya=.5\ht\pgfnodeparttextbox
+ \advance\pgf@ya.5\dp\pgfnodeparttextbox
+ \pgfmathsetlength\pgf@yc{\pgfshapeinnerysep}
+ \advance\pgf@ya\pgf@yc
+ \typeout{**** TEST corrected text box (x,y) =
+ (\the\pgf@xa,\the\pgf@ya) }
+ \pgfpathmoveto{\pgfpoint{\pgf@xa}{\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{\pgf@xa}{-\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{-\pgf@xa}{-\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{-\pgf@xa}{\pgf@ya}}
+ \pgfpathclose
+}
+% \end{macrocode}
+% \end{macro}
+%
+%\iffalse
+%</package>
+%\fi
+%
+% \Finale
+%
+%^^A###########################################################################
+%^^A# Additional installed files #
+%^^A###########################################################################
+%
+%^^A - Option = sample ...
+%^^A - This is the package's sample shape.
+%^^A - It is included in the report, and it is given as a file to be used as
+%^^A - a template for new shapes.
+%\iffalse
+%<*sample>
+%%--------------------------------------------------
+%%
+%% This is a sample shape for the makeshape package
+%%
+%% It can be adapted for other shapes. See
+%% makeshape.pdf for instructions.
+%%
+%% 25 January 2013
+
+\usepackage{makeshape}
+\makeatletter
+
+%% Constant for sample shape
+\def\gap{4pt}
+
+%% Anchor path <- change and rename as required
+\def\sampleanchor{
+ % get corrected text box
+ \pgf@xa=\ctbnex
+ \pgf@ya=\ctbney
+ % make room for shape
+ \advance\pgf@xa by \gap
+ \advance\pgf@ya by \gap
+ % correct for minheight and minwidth and
+ % for outerxsep or outerysep
+ \mincorrect{\pgf@xa}{\pgfshapeminwidth}
+ \advance\pgf@xa\pgfshapeouterxsep
+ \mincorrect{\pgf@ya}{\pgfshapeminheight}
+ \advance\pgf@ya\pgfshapeouterysep
+ % draw the path
+ \pgfpathmoveto{\pgfpoint{\pgf@xa}{\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{\pgf@xa}{-\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{-\pgf@xa}{-\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{-\pgf@xa}{\pgf@ya}}
+ \pgfpathclose
+}
+
+%% Background path <- change and rename as required
+\def\sampleborder{
+ % get corrected text box
+ \pgf@xa=\ctbnex
+ \pgf@ya=\ctbney
+ % make room for shape
+ \advance\pgf@xa by \gap
+ \advance\pgf@ya by \gap
+ % correct for minheight and minwidth but
+ % not for outerxsep or outerysep
+ \mincorrect{\pgf@xa}{\pgfshapeminwidth}
+ \mincorrect{\pgf@ya}{\pgfshapeminheight}
+ % draw outer shape
+ \pgfpathmoveto{\pgfpoint{\pgf@xa}{\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{\pgf@xa}{-\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{-\pgf@xa}{-\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{-\pgf@xa}{\pgf@ya}}
+ \pgfpathclose
+ % draw inner shape
+ \advance\pgf@xa by -\gap
+ \advance\pgf@ya by -\gap
+ \pgfpathmoveto{\pgfpoint{\pgf@xa}{\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{\pgf@xa}{-\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{-\pgf@xa}{-\pgf@ya}}
+ \pgfpathlineto{\pgfpoint{-\pgf@xa}{\pgf@ya}}
+ \pgfpathclose
+}
+
+%%------------------------------------------------
+%% Shape declaration <- Change name as required
+\pgfdeclareshape{sample}{
+
+ % Set paths <- change path macros as required
+ \setpaths{\sampleanchor}{\sampleborder}
+
+ % Saved anchors <- change as required
+ \savedanchor{\northeast}{
+ \pgf@x = \ctbnex
+ \pgf@y = \ctbney
+ \advance\pgf@x by \gap
+ \advance\pgf@y by \gap
+ \mincorrect{\pgf@x}{\pgfshapeminwidth}
+ \mincorrect{\pgf@y}{\pgfshapeminheight}
+ \advance\pgf@x\pgfshapeouterxsep
+ \advance\pgf@y\pgfshapeouterysep
+ }
+
+ % Anchors <- change as required
+ \anchor{north}{\northeast \pgf@x=0pt}
+ \anchor{north east}{\northeast}
+ \anchor{east}{\northeast \pgf@y=0pt}
+ \anchor{south east}{\northeast \pgf@y=-\pgf@y}
+ \anchor{south}{\northeast \pgf@x=0pt \pgf@y=-\pgf@y}
+ \anchor{south west}{\northeast \pgf@x=-\pgf@x \pgf@y=-\pgf@y}
+ \anchor{west}{\northeast \pgf@x=-\pgf@x \pgf@y=0pt}
+ \anchor{north west}{\northeast \pgf@x=-\pgf@x}
+
+}
+
+\makeatother
+
+%</sample>
+%\fi
+%
+\endinput
+
diff --git a/Master/texmf-dist/source/latex/makeshape/makeshape.ins b/Master/texmf-dist/source/latex/makeshape/makeshape.ins
new file mode 100644
index 00000000000..c954e6ae4cc
--- /dev/null
+++ b/Master/texmf-dist/source/latex/makeshape/makeshape.ins
@@ -0,0 +1,108 @@
+% makeshape.ins
+% 18 January 2013
+%
+% Installation file for the makeshape package.
+%
+% Run LaTeX on this file, with makeshape.dtx and ontesting.dtx
+% in the same folder to make the package's makeshape.sty,
+% sampleshape.tex and testshape.tex files.
+%
+% Run LaTeX on makeshape.dtx and ontesting.dtx to produce
+% the package documentation.
+%
+% This is part of Silhouette 2.1
+%
+% Copyright (C) 2013 by Adrian P Robson
+% adrian.robson@nepsweb.co.uk
+%
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either
+% version 1.3c of this license or (at your option) any later
+% version. The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+%
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is Adrian Robson.
+%
+% This work consists of the files makeshape.ins
+% makeshape.dtx and
+% ontesting.dtx
+% and the derived files makeshape.sty
+% makeshape.pdf
+% sampleshape.tex
+% ontesting.pdf
+% testsample.tex and
+% testsample.pdf
+% -----------------------------------------------------------
+
+\input docstrip.tex
+\keepsilent
+\askforoverwritefalse
+
+% default preamble
+\preamble
+
+Copyright (C) 2013 by Adrian P Robson
+ adrian.robson@nepsweb.co.uk
+
+This work may be distributed and/or modified under the
+conditions of the LaTeX Project Public License, either
+version 1.3c of this license or (at your option) any later
+version. The latest version of this license is in
+ http://www.latex-project.org/lppl.txt
+
+This work has the LPPL maintenance status `maintained'.
+The Current Maintainer of this work is Adrian Robson.
+
+This work consists of the files makeshape.ins
+ makeshape.dtx and
+ ontesting.dtx
+and the derived files makeshape.sty
+ makeshape.pdf
+ sampleshape.tex
+ ontesting.pdf
+ testsample.tex and
+ testsample.pdf
+
+\endpreamble
+
+\Msg{}
+\Msg{**********************************************************}
+\Msg{* The makeshape package ... }
+\Msg{* makeshape.ins, makeshape.dtx and ontesting.dtx are being}
+\Msg{* processed }
+\Msg{**********************************************************}
+
+\generate{\file{makeshape.sty}{\from{makeshape.dtx}{package}}}
+\generate{\file{sampleshape.tex}{\from{makeshape.dtx}{sample}}}
+\generate{\file{testsample.tex}{\from{ontesting.dtx}{testbed}}}
+
+\Msg{**********************************************************}
+\Msg{* Processing complete ... }
+\Msg{* }
+\Msg{* To finish the installation, put makeshape.sty in a }
+\Msg{* suitable place on your system's TeX search path. }
+\Msg{* }
+\Msg{* Run LaTeX on makeshape.dtx to produce the package's user}
+\Msg{* guide. Comment out its 'OnlyDescription' line to include}
+\Msg{* the implementation documentation. }
+\Msg{* Also run LaTeX on ontesting.dtx to produce an article on}
+\Msg{* testing the package and custom shapes. }
+\Msg{* The files sampleshape.tex and testshape.tex should be }
+\Msg{* kept as examples. }
+\Msg{* }
+\Msg{* You should also keep sampleshape.tex and testsample.tex }
+\Msg{* as a templates for making and testing new shapes. }
+\Msg{* }
+\Msg{* You might also like to keep makeshape.ins, makeshape.dtx}
+\Msg{* and ontesting.dtx somewhere safe as a backup, or in case}
+\Msg{* you want to pass the makeshape package on to someone. }
+\Msg{* }
+\Msg{* Do not forget to delete the auxiliary and temporary }
+\Msg{* files. }
+\Msg{**********************************************************}
+\Msg{}
+
+
+\endbatchfile \ No newline at end of file
diff --git a/Master/texmf-dist/source/latex/makeshape/ontesting.dtx b/Master/texmf-dist/source/latex/makeshape/ontesting.dtx
new file mode 100644
index 00000000000..9f1bf6cf5f9
--- /dev/null
+++ b/Master/texmf-dist/source/latex/makeshape/ontesting.dtx
@@ -0,0 +1,1124 @@
+% \iffalse meta-comment
+%
+% ontesting.dtx
+% 22 January 2013
+%
+% This is version 1.1
+% It generates a test bed (testsample.tex) for the sample shape,
+% and an article (ontesting.pdf) on the tests.
+%
+% Generation of testsample.tex is with
+% pdflatex makeshape.ins
+% which contains
+% \generate{\file{testsample.tex}
+% {\from{ontesting.dtx}{testbed}}}
+%
+% Generation of ontesting.pdf is with
+% pdflatex ontesting.dtx
+%
+% The \OnlyDescription command is not used for this document.
+%
+% This is part of Silhouette 2.1
+%
+% ------------------------------------------------------------------
+% \fi
+%
+% \iffalse
+%^^A---------------------------------------------------------
+%^^A Preamble for documentation
+%^^A---------------------------------------------------------
+%<*driver>
+\documentclass[10pt,a4paper]{ltxdoc}
+
+\usepackage[T1]{fontenc}
+\usepackage{lmodern}
+
+\usepackage{hyperref}
+
+\usepackage{makeshape}
+\GetFileInfo{makeshape.sty}
+
+\newcommand{\mnote}[1]
+{\marginpar{\scriptsize \raggedright #1 }}
+
+\EnableCrossrefs
+\CodelineIndex
+\RecordChanges
+
+\begin{document}
+\DocInput{ontesting.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+%^^A-------------------------------------------------------------------
+%^^A Change log...
+%^^A-------------------------------------------------------------------
+%^^A
+%^^A 0.0 - 6 January 2013
+% \changes{0.0}{2013/01/06}{
+% Experimental - part of Silhouette 2.0.1.
+% Testing code is adopted from existing documents but improved.
+% Monolithic testing code generation.
+% User documentation is incomplete.
+% }
+%^^A
+%^^A 1.0 - 9 January 2013 (started 7 January)
+% \changes{1.0}{2013/01/09}{
+% \emph{Experimental phase complete.}
+% Testing code generation is embedded in the documentation.
+% Testing code is updated with improved tests.
+% Documentation on the role of the tests is completed.
+% File names are finalised.
+% }
+%^^A
+%^^A 1.1 - 22 January 2013
+% \changes{1.1}{2013/01/22}{
+% Tidied up the structure and layout of the test code.
+% The description of the tests is improved.
+% The report's title is changed.
+% }
+%^^A
+%^^A-------------------------------------------------------------------
+%^^A Check sums...
+%^^A-------------------------------------------------------------------
+%
+%^^A no checksum required
+%
+% \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
+% Lower-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
+% Digits \0\1\2\3\4\5\6\7\8\9
+% Exclamation \! Double quote \" Hash (number) \#
+% Dollar \$ Percent \% Ampersand \&
+% Acute accent \' Left paren \( Right paren \)
+% Asterisk \* Plus \+ Comma \,
+% Minus \- Point \. Solidus \/
+% Colon \: Semicolon \; Less than \<
+% Equals \= Greater than \> Question mark \?
+% Commercial at \@ Left bracket \[ Backslash \\
+% Right bracket \] Circumflex \^ Underscore \_
+% Grave accent \` Left brace \{ Vertical bar \|
+% Right brace \} Tilde \~}
+%
+%^^A===========================================================================
+%^^A Start report body
+%^^A===========================================================================
+%
+% \title{The {\sf makeshape} package\thanks{
+% This document is part of \textsf{makeshape}~\fileversion, dated~\filedate.}\\
+% {\tt testshape.tex}\\A Document for Testing the Package and \\Custom Shapes}
+%
+% \author{Adrian P. Robson\thanks{\texttt{adrian.robson@nepsweb.co.uk}}}
+% \date{22 January 2013}
+%
+% \maketitle
+%
+% \tableofcontents
+%
+%\section{Introduction}
+%
+% Here we discus the |testsample.tex| document
+% that is a test bed for the {\sf makeshape} package \cite{makeshape}
+% and its sample shape.
+% The package is in |makeshape.sty| and the sample shape is defined in |sampleshape.tex|.
+% The test bed can be usefully adapted to work with any PGF \cite{pgfMan} shape
+% developed with the {\sf makeshape} package.
+%
+% There are 11 test PGF pictures in the |testsample.tex| document,
+% and we describe what each of these tests achieves, and what aspects are important for custom shapes.
+%
+%
+%^^A#################################################################
+%^^A# Test bed document - preamble - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+%%
+%% This is a test bed for the makeshape package's
+%% sampleshape in sampleshape.tex
+%%
+%% It can be easily adapted for other shapes.
+%%
+%% 22 January 2013
+
+\documentclass[10pt,a4paper]{article}
+
+\usepackage{enumitem}
+\usepackage{tikz}
+\usetikzlibrary{backgrounds}
+\usetikzlibrary{arrows}
+
+%%-------------------------------------------------
+%% file and shape being tested
+\def\filename{sampleshape} % file being tested
+\input{\filename} % It is a .tex
+%%\usepackage{\filename} % It is a .sty
+\def\testshape{sample} % shape being tested
+%%-------------------------------------------------
+
+%%--------------------------------------------------------
+%% Utility macros
+%%--------------------------------------------------------
+
+%% \spot{x}{y}
+\newcommand{\spot}[2]{
+ \draw[help lines,red] (#1,#2) circle (1pt);
+}
+
+%% \markOrig
+\def\mrksz{4pt}
+\def\mrkcol{yellow}
+\newcommand{\markOrig}{
+ \draw[help lines,\mrkcol] (0,0) circle (\mrksz);
+ \draw[help lines,\mrkcol] (-\mrksz,0) -- (\mrksz,0);
+ \draw[help lines,\mrkcol] (0,-\mrksz) -- (0,\mrksz);
+}
+
+%% \markOrigC{colour}
+\def\mrksz{4pt}
+\newcommand{\markOrigC}[1]{
+ \draw[help lines,#1] (0,0) circle (\mrksz);
+ \draw[help lines,#1] (-\mrksz,0) -- (\mrksz,0);
+ \draw[help lines,#1] (0,-\mrksz) -- (0,\mrksz);
+}
+
+%% Anchors ...
+%% \***{node}{size}{colour}
+
+\def\centeranchor#1#2#3{
+ \draw[help lines,#3] (#1.center) circle (#2);
+}
+
+\def\textanchor#1#2#3{
+ \draw[help lines,#3] (#1.text) circle (#2);
+}
+
+\def\cardinalanchors#1#2#3{
+ \draw[help lines,#3] (#1.north) circle (#2);
+ \draw[help lines,#3] (#1.west) circle (#2);
+ \draw[help lines,#3] (#1.south) circle (#2);
+ \draw[help lines,#3] (#1.east) circle (#2);
+}
+
+\def\corneranchors#1#2#3{
+ \draw[help lines,#3] (#1.north west) circle (#2);
+ \draw[help lines,#3] (#1.south west) circle (#2);
+ \draw[help lines,#3] (#1.south east) circle (#2);
+ \draw[help lines,#3] (#1.north east) circle (#2);
+}
+
+\def\allanchors#1#2#3{
+ \corneranchors{#1}{#2}{#3}
+ \cardinalanchors{#1}{#2}{#3}
+}
+
+%%--------------------------------------------------------
+
+\title{The {\sf makeshape} package\\
+ Shape Test Bed
+ \vspace{-3ex} }
+\author{}
+\date{
+\begin{tabular}{rl}
+ File & {\tt \filename}\\
+ Shape & {\tt \testshape}
+\end{tabular}
+\\[2ex]
+\today}
+
+\begin{document}
+
+\maketitle
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - preamble - end
+%^^A#################################################################
+%
+% \section{The Tests}
+%
+% \subsection{Basic Shape}
+%
+% This section shows the shape with its default size and separation options.
+% Cardinal anchor points are show in red; the centre anchor in blue;
+% and the text anchor in green.
+% The green lines show the the text box size.
+%
+% It tests the package's management of the text box, the text and centre anchors,
+% and the shape's cardinal anchors.
+% \emph{Check that the background path is correct,
+% and that the anchors are in the correct positions.}
+%
+%^^A#################################################################
+%^^A# Test bed document - basic shape tests - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+\section*{Basic Shape}
+
+\begin{center}
+\begin{tikzpicture}
+
+\node at (0,0)
+ [\testshape, draw
+ ] (test) {\verb|x x|} ;
+
+\allanchors{test}{2pt}{red}
+\textanchor{test}{2pt}{green}
+\draw[help lines,green] (test.text) -- ++(7pt,0);
+\draw[help lines,green] (test.text) -- ++(0,5pt);
+\centeranchor{test}{2pt}{blue}
+
+%% mark the anchors with arrows from enclosing rectangle
+\node at (0,0)
+ [rectangle, red,
+ minimum width=4cm,
+ minimum height=2cm
+ ] (outer) {} ;
+\begin{scope}[>=latex']
+\draw[->,help lines,red] (outer.north) -- (test.north);
+\draw[->,help lines,red] (outer.east) -- (test.east);
+\draw[->,help lines,red] (outer.south) -- (test.south);
+\draw[->,help lines,red] (outer.west) -- (test.west);
+\draw[->,help lines,red] (outer.north east) -- (test.north east);
+\draw[->,help lines,red] (outer.south east) -- (test.south east);
+\draw[->,help lines,red] (outer.south west) -- (test.south west);
+\draw[->,help lines,red] (outer.north west) -- (test.north west);
+\end{scope}
+
+\begin{scope}[on background layer]
+\node at (4cm,0)
+ [rectangle, draw
+ ] (rectRmin) {\verb|x x|};
+
+\node at (0,-1.7cm)
+ [rectangle, draw
+ ] (rectBmin) {\verb|x x|};
+
+\draw[help lines,green] (rectRmin.north west) -- ++(-4.5cm,0);
+\draw[help lines,green] (rectRmin.south west) -- ++(-4.5cm,0);
+\draw[help lines,green] (rectBmin.north west) -- ++(0,2.3cm);
+\draw[help lines,green] (rectBmin.north east) -- ++(0,2.3cm);
+\markOrig
+\end{scope}
+
+\end{tikzpicture}
+
+\end{center}
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - basic shape tests - end
+%^^A#################################################################
+%
+% \subsection{Minimum Dimensions}
+%
+% This tests support for minimum width and height keys.
+% Yellow lines mark the required sizes and centres, and
+% green lines show the text box location.
+% Cardinal anchors are shown in red.
+%
+% \emph{Check that the background path has scaled properly to the correct dimensions;
+% and the anchors are in the right places.}
+%
+%^^A#################################################################
+%^^A# Test bed document - minimum dimension tests - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+\vfill
+%%--------------------------------------------------------
+\section*{Minimum Dimensions}
+
+\def\minh{30pt}
+\def\minw{80pt}
+
+{\tt minimum width = \minw}\\
+{\tt minimum height = \minh}
+
+\begin{center}
+\begin{tikzpicture}
+
+%% The test shape
+\node at (0,0)
+ [\testshape, draw,
+ minimum width=\minw,
+ minimum height=\minh,
+ ] (test) {\verb|x x|} ;
+
+\allanchors{test}{1pt}{red}
+
+%% Guide lines
+\begin{scope}[on background layer]
+\node at (4.5cm+\minw,0)
+ [rectangle, draw
+ ] (rectRmin) {\verb|x x|};
+
+\node at (1.5cm+\minw,0)
+ [rectangle, draw,
+ minimum width=\minw,
+ minimum height=\minh
+ ] (rectR) {\verb|x x|};
+
+\node at (0,-1cm-\minh)
+ [rectangle, draw,
+ minimum width=\minw,
+ minimum height=\minh
+ ] (rectB) {\verb|x x|};
+
+\node at (0,-2.5cm-\minh)
+ [rectangle, draw,
+ ] (rectBmin) {\verb|x x|};
+
+\markOrig
+\draw[help lines,yellow] (rectR.north west) -- ++(-1.7cm-\minw,0);
+\draw[help lines,yellow] (rectR.south west) -- ++(-1.7cm-\minw,0);
+\draw[help lines,yellow] (rectR.west) -- ++(-1.7cm-\minw,0);
+\draw[help lines,yellow] (rectR.west) -- ++(\minw+0.2cm,0);
+\draw[help lines,yellow] (rectB.north west) -- ++(0,1.2cm+\minh);
+\draw[help lines,yellow] (rectB.north east) -- ++(0,1.2cm+\minh);
+\draw[help lines,yellow] (rectB.north) -- ++(0,1.2cm+\minh);
+\draw[help lines,yellow] (rectB.north) -- ++(0,-\minh-0.2cm);
+
+\draw[help lines,green] (rectRmin.north west) -- ++(-4.6cm-\minw,0);
+\draw[help lines,green] (rectBmin.north west) -- ++(0,2.6cm+\minh);
+\end{scope}
+
+\end{tikzpicture}
+\end{center}
+\vfill
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - minimum dimension tests - end
+%^^A#################################################################
+%
+% \subsection{Inner Separation}
+%
+% This tests support for the inner separation keys.
+% Inner separation is handled by the package and is included in
+% the corrected text box.
+% Green lines show the basic text box location, and
+% blue lines show the corrected text box location.
+% Cardinal anchors are shown in red.
+%
+% \emph{Check that the shape has scaled properly under the influence of the two keys;
+% and the anchors are in the right places.}
+%
+%^^A#################################################################
+%^^A# Test bed document - inner separation tests - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+\newpage
+%%--------------------------------------------------------
+\section*{Inner Separation}
+
+\def\insepx{20pt}
+\def\insepy{10pt}
+
+{\tt inner x seperation = \insepx}\\
+{\tt inner y seperation = \insepy}
+
+\begin{center}
+\begin{tikzpicture}
+
+%% The test shape
+\node at (0,0)
+ [\testshape, draw,
+ inner xsep=\insepx, inner ysep=\insepy
+ ] (test) {\verb|x x|} ;
+
+\allanchors{test}{1pt}{red}
+
+%% Guide lines
+\begin{scope}[on background layer]
+\markOrig
+
+\node at (2.5cm,0)
+ [rectangle, draw
+ ] (rectRmin) {\verb|x x|};
+
+\node at (0,-1.5cm)
+ [rectangle, draw
+ ] (rectBmin) {\verb|x x|};
+
+\node at (4cm,0)
+ [rectangle, draw,
+ inner ysep=\insepy
+ ] (rectRwithSep) {\verb|x x|};
+
+\node at (0,-2.2cm)
+ [rectangle, draw,
+ inner xsep=\insepx
+ ] (rectBwithSep) {\verb|x x|};
+
+\draw[help lines,green] (rectRmin.north west) -- ++(-3.4cm,0);
+\draw[help lines,green] (rectBmin.north west) -- ++(0,2cm);
+\draw[help lines,blue] (rectRwithSep.north west) -- ++(-4.9cm,0);
+\draw[help lines,blue] (rectBwithSep.north west) -- ++(0,2.7cm);
+\end{scope}
+
+\end{tikzpicture}
+\end{center}
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - inner separation tests - end
+%^^A#################################################################
+%
+% \subsection{Outer Separation}
+%
+% This section tests the outer separation keys.
+% The actual shape is drawn in black.
+% To shown the boundary of the outer separation surface,
+% the shape is expanded and drawn in green.
+% Anchors, which should be on this surface are displayed in red.
+%
+% \emph{Check that the expanded green shape is well formed,
+% and that the anchors are in the correct place.}
+%
+%^^A#################################################################
+%^^A# Test bed document - outer separation tests - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+\section*{Outer Separation}
+
+\def\minh{20pt}
+\def\minw{60pt}
+\def\outerx{20pt}
+\def\outery{10pt}
+
+{\tt outer x separation = \outerx}\\
+{\tt outer y separation = \outery}
+
+\begin{center}
+\begin{tikzpicture}
+
+\markOrig
+
+%% the shape with outer separation
+\node at (0,0)
+ [\testshape, draw,
+ minimum width=\minw,
+ minimum height=\minh,
+ outer xsep=\outerx, outer ysep=\outery
+ ] (test) {\verb|x x|} ;
+
+%% shape expanded to outer separation boundary
+\node at (0,0)
+ [\testshape, draw, help lines, green,
+ minimum width=\minw+2*\outerx,
+ minimum height=\minh+2*\outery,
+ ] (bigger) {} ;
+
+%% mark the anchors with arrows from enclosing rectangle
+\node at (0,0)
+ [rectangle,
+ minimum width=\minw+1cm,
+ minimum height=\minh+1cm,
+ outer xsep=\outerx, outer ysep=\outery
+ ] (outer) {} ;
+
+\begin{scope}[>=latex']
+\draw[->,help lines,red] (outer.north) -- (test.north);
+\draw[->,help lines,red] (outer.east) -- (test.east);
+\draw[->,help lines,red] (outer.south) -- (test.south);
+\draw[->,help lines,red] (outer.west) -- (test.west);
+\draw[->,help lines,red] (outer.north east) -- (test.north east);
+\draw[->,help lines,red] (outer.south east) -- (test.south east);
+\draw[->,help lines,red] (outer.south west) -- (test.south west);
+\draw[->,help lines,red] (outer.north west) -- (test.north west);
+\end{scope}
+
+%% mark anchors with circles
+\allanchors{test}{2pt}{red}
+
+%% mark text and centre anchors
+\textanchor{test}{2pt}{green}
+\draw[help lines,green] (test.text) -- ++(7pt,0);
+\draw[help lines,green] (test.text) -- ++(0,5pt);
+\centeranchor{test}{2pt}{blue}
+
+\end{tikzpicture}
+\end{center}
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - outer separation tests - end
+%^^A#################################################################
+%
+% \subsection{Anchorborder}
+%
+% There are three tests that are applied to verify the behaviour of
+% the package's |\anchorborder|, and the shape's anchor path.
+%
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+\section*{Anchorborder }
+
+%</testbed>
+%\fi
+%
+% \subsubsection{\texorpdfstring{External Points with Outer Separation and\\
+% Minimum Dimensions}
+% {External Points with Outer Separation and
+% Minimum Dimensions}}
+%
+% This tests the connection of an external point to the shape's surface.
+% It exercises outer separation and minimum dimensions.
+% The black surface is the shape without any separation,
+% and the outer green surface is where the outer separation surface should be.
+% \emph{Check that the black arrows touch the outer green surface;
+% and that the green shape is correct.}
+%
+%^^A#################################################################
+%^^A# Test bed document - external points with outer separation and
+%^^A# minimum dimensions tests - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+\subsection*{External Points with Outer Separation and\\Minimum Dimensions}
+
+\def\width{2cm}
+\def\height{1cm}
+\def\testouter{10pt}
+
+{\tt outer sep = \testouter}\\
+{\tt minimum height = \height}\\
+{\tt minimum width = \width}
+
+\begin{center}
+\begin{tikzpicture}
+
+\markOrig
+
+%% The test shape
+\node at (0,0) [\testshape, draw, font={\sf \small},
+ minimum width=\width,
+ minimum height=\height,
+ outer sep=\testouter
+ ] (test) {Test};
+
+%% green path where anchors should be
+\node at (0,0) [\testshape, draw, help lines, green,
+ minimum width=\width+2*\testouter,
+ minimum height=\height+2*\testouter,
+ ] (bigger) {} ;
+
+\def\n{20}
+\def\radius{3cm}
+\draw[dotted] (0,0) circle (\radius);
+\foreach \s in {1,...,\n}
+{
+ \draw[->, >=latex'] ({360/\n * (\s - 1)}:\radius) -- (test);
+}
+\end{tikzpicture}
+\end{center}
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - external points with outer separation and
+%^^A# minimum dimensions tests - end
+%^^A#################################################################
+%
+% \subsubsection{Internal Points with Minimum Dimensions}
+%
+% This tests the connection of an internal point to the shape's surface.
+% It uses minimum dimensions.
+% \emph{Check that the red arrows touch the outer black surface,
+% and that the black shape is correct.}
+%
+%^^A#################################################################
+%^^A# Test bed document - internal points with minimum dimensions
+%^^A# tests - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+\subsection*{Internal Points with Minimum Dimensions}
+
+\def\width{3cm}
+\def\height{3cm}
+
+{\tt minimum height = \height}\\
+{\tt minimum width = \width}
+
+\vspace{-3ex}
+\begin{center}
+\begin{tikzpicture}
+
+\markOrig
+
+%% The test shape
+\node at (0,0) [\testshape, draw, font={\sf \small},
+ minimum width=\width,
+ minimum height=\height,
+ ] (test) {};
+
+\def\n{20}
+\def\radius{1cm}
+\draw[dotted] (0,0) circle (\radius);
+\foreach \s in {1,...,\n}
+{
+ \draw[->, >=latex', red] ({360/\n * (\s - 1)}:\radius) -- (test);
+}
+\end{tikzpicture}
+\end{center}
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - internal points with minimum dimensions
+%^^A# tests - end
+%^^A#################################################################
+
+% \subsubsection{Angles with Outer Separation and Minimum Dimensions}
+%
+% This tests the `connect a line at an angle' feature.
+% Different x and y outer separations and minimum dimensions are used.
+% The black surface is the shape without any separation,
+% and the outer red surface is where the outer separation surface should be.
+% \emph{Check that the blue dots are on the outer red surface,
+% and that the red shape is correct.}
+%
+%^^A#################################################################
+%^^A# Test bed document - angles with outer separation and minimum
+%^^A# dimensions tests - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+\subsection*{Angles with Outer Separation and Minimum Dimensions}
+
+\def\angle{120}
+\def\width{2cm}
+\def\height{1cm}
+\def\testouterx{20pt}
+\def\testoutery{10pt}
+
+Marked angle = \angle\\
+{\tt outer xsep = \testouterx}\\
+{\tt outer ysep = \testoutery}\\
+{\tt minimum height = \height}\\
+{\tt minimum width = \width}
+
+\vspace{-5ex}
+\begin{center}
+\begin{tikzpicture}
+
+\markOrig
+
+%% red path where anchors should be ?
+\node at (0,0) [\testshape, draw, help lines, red,
+ minimum width=\width+2*\testouterx,
+ minimum height=\height+2*\testoutery,
+ ] (bigger) {};
+
+\node at (0,0) [\testshape, draw,
+ minimum width=\width,
+ minimum height=\height,
+ outer xsep=\testouterx,
+ outer ysep=\testoutery
+ ] (test) {};
+
+\foreach \angle in {0,5,...,355} {
+ \fill[blue] (test.\angle) circle[radius=1pt];
+}
+
+%% single angle test
+\def\angle{120}
+\draw [help lines] (test.center) -- ++(\angle:1.5cm);
+\draw[green] (test.\angle) circle[radius=2pt];
+\draw[green] (test.\angle) -- ++(3pt,3pt);
+\draw[green] (test.\angle) -- ++(-3pt,-3pt);
+\draw[green] (test.\angle) -- ++(-3pt,3pt);
+\draw[green] (test.\angle) -- ++(3pt,-3pt);
+
+\end{tikzpicture}
+\end{center}
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - angles with outer separation and minimum
+%^^A# dimensions tests - end
+%^^A#################################################################
+%
+% \subsection{Simple Node Connections}
+%
+% This tests simple node connection.
+% \emph{Check that the centre shape is connect to the surrounding eight shapes.}
+%
+%^^A#################################################################
+%^^A# Test bed document - simple node connections tests - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+\section*{Simple Node Connections}
+
+\begin{center}
+\begin{tikzpicture}
+\def\ra{0} \def\rb{60pt} \def\rc{120pt}
+\def\ca{0} \def\cb{100pt} \def\cc{200pt}
+
+\draw[help lines,step=20pt,dotted] (0pt,0pt) grid (\cc,\rc);
+
+\tikzset{node style/.style={ minimum width=40pt,minimum height=20pt}}
+
+\markOrig
+
+\node at (\ca,\ra) [draw, \testshape, node style] (A) {A};
+\node at (\cb,\ra) [draw, \testshape, node style] (B) {B};
+\node at (\cc,\ra) [draw, \testshape, node style] (C) {C};
+%%
+\node at (\ca,\rb) [draw, \testshape, node style] (D) {D};
+\node at (\cb,\rb) [draw, \testshape, node style] (E) {E};
+\node at (\cc,\rb) [draw, \testshape, node style] (F) {F};
+%%
+\node at (\ca,\rc) [draw, \testshape, node style] (G) {G};
+\node at (\cb,\rc) [draw, \testshape, node style] (H) {H};
+\node at (\cc,\rc) [draw, \testshape, node style] (I) {I};
+
+\draw (E) -- (F);
+\draw (E) -- (D);
+\draw (E) -- (B);
+\draw (E) -- (H);
+\draw (E) -- (G);
+\draw (E) -- (A);
+\draw (E) -- (I);
+\draw (E) -- (C);
+
+\end{tikzpicture}
+\end{center}
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - simple node connections tests - end
+%^^A#################################################################
+%
+% \subsection{Scaling}
+%
+% This is a simple scaling test that uses minimum dimensions to draw
+% the shape at three sizes.
+% There are guide lines showing dimensions for each size.
+% \emph{Check that all of the shapes are correct.}
+%
+%^^A#################################################################
+%^^A# Test bed document - scaling tests - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+\section*{Scaling}
+
+\def\minh{20pt}
+\def\minw{80pt}
+\def\exd{5pt}
+
+\begin{center}
+\begin{tikzpicture}
+
+\node at (0,0)
+ [\testshape, draw,
+ minimum width=\minw,
+ minimum height=\minh,
+ ] (test1) {} ;
+
+\node at (0,0)
+ [\testshape, draw, blue,
+ minimum width=\minw+1cm,
+ minimum height=\minh+1cm,
+ ] (test2) {} ;
+
+\node at (0,0)
+ [\testshape, draw, red,
+ minimum width=\minw+2cm,
+ minimum height=\minh+2cm,
+ ] (test3) {} ;
+
+\def\tgridA#1#2{
+\draw[help lines] ({0.5*(\minw+#1)+\exd},{0.5*(\minh+#1)}) -- ({-0.5*(\minw+#1)-\exd},{0.5*(\minh+#1)});
+\draw[help lines] ({0.5*(\minw+#1)+\exd},{-0.5*(\minh+#1)}) -- ({-0.5*(\minw+#1)-\exd},{-0.5*(\minh+#1)});
+\draw[help lines] ({0.5*(\minw+#1)},{0.5*(\minh+#1)+\exd}) -- ({0.5*(\minw+#1)},{-0.5*(\minh+#1)-\exd});
+\draw[help lines] ({-0.5*(\minw+#1)},{0.5*(\minh+#1)+\exd}) -- ({-0.5*(\minw+#1)},{-0.5*(\minh+#1)-\exd});
+}
+
+\begin{scope}[on background layer]
+\tgridA{0pt}{0pt}
+\tgridA{1cm}{1cm}
+\tgridA{2cm}{2cm}
+\markOrig
+\end{scope}
+
+\end{tikzpicture}
+\end{center}
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - scaling tests - end
+%^^A#################################################################
+%
+%
+% \subsection{Package Tests}
+%
+%^^A#################################################################
+%^^A# Test bed document - package tests peamble - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+\section*{Package Tests}
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - package tests preamble- end
+%^^A#################################################################
+%
+% \subsubsection{Text Alignment and the Text Box}
+%
+% This verifies the operation of the text box macros.
+% All combinations of test ascenders and descenders are used.
+% It tests the package's management of the text box and the text and centre anchors.
+% The left hand shapes are standard text boxes.
+%
+% \emph{
+% Check the shape's text boxes align with the standard boxes.
+% Also that the blue centre anchor is at the yellow origin;
+% and the green text anchor is in the correct place.
+% Finally, the red cardinal anchors should be suitably located on the shapes boundary. }
+%
+%^^A#################################################################
+%^^A# Test bed document - text alignment and
+%^^A# the text box tests - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+\subsection*{Text Alignment and the Text Box}
+
+\begin{center}
+\begin{tikzpicture}
+
+\node at (0,0)
+ [\testshape, draw
+ ] (test1) {\verb|x x|} ;
+
+\node[ \testshape, draw,
+ below of=test1,
+ node distance=1cm
+ ] (test2) {\verb|x dx|} ;
+
+\node[ \testshape, draw,
+ below of=test2, node distance=1cm
+ ] (test3) {\verb|xp x|} ;
+
+\node[ \testshape, draw,
+ below of=test3, node distance=1cm
+ ] (test4) {\verb|xp dx|} ;
+
+\allanchors{test1}{1pt}{red}
+\corneranchors{test2}{1pt}{red}
+\corneranchors{test3}{1pt}{red}
+\corneranchors{test4}{1pt}{red}
+\centeranchor{test1}{2pt}{blue}
+\centeranchor{test2}{2pt}{blue}
+\centeranchor{test3}{2pt}{blue}
+\centeranchor{test4}{2pt}{blue}
+\textanchor{test1}{1pt}{green}
+\draw[help lines,green] (test1.text) -- ++(7pt,0);
+\draw[help lines,green] (test1.text) -- ++(0,5pt);
+\textanchor{test2}{1pt}{green}
+\textanchor{test3}{1pt}{green}
+\textanchor{test4}{1pt}{green}
+
+\begin{scope}[on background layer]
+
+\markOrig
+
+\node at(4cm,0) [ rectangle, draw
+ ] (ref1) {\verb|x x|} ;
+\draw[green] (ref1.north west) -- ++(-5cm,0);
+\draw[green] (ref1.south west) -- ++(-5cm,0);
+
+\node[rectangle, draw,
+ below of=ref1, node distance=1cm
+ ] (ref2) {\verb|x dx|} ;
+\draw[green] (ref2.north west) -- ++(-5cm,0);
+\draw[green] (ref2.south west) -- ++(-5cm,0);
+
+\node[rectangle, draw,
+ below of=ref2, node distance=1cm
+ ] (ref3) {\verb|xp x|} ;
+\draw[green] (ref3.north west) -- ++(-5cm,0);
+\draw[green] (ref3.south west) -- ++(-5cm,0);
+
+\node[rectangle, draw,
+ below of=ref3, node distance=1cm
+ ] (ref4) {\verb|xp dx|} ;
+\draw[green] (ref4.north west) -- ++(-5cm,0);
+\draw[green] (ref4.south west) -- ++(-5cm,0);
+
+\end{scope}
+
+\end{tikzpicture}
+\end{center}
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - text alignment and
+%^^A# the text box tests - end
+%^^A#################################################################
+%
+% \subsubsection{Inner, Outer and Angle for Shape Off Origin}
+%
+% This is a test for the correct operation of the package's |\anchorborder|
+% with off-origin shapes.
+% In particular, its use of the |\pgf@relevantforpicturesizefalse|
+% and |\pgftransformreset| commands.
+%
+% \emph{Check that the outer box `closely' contains the picture,
+% and that the green arrows and points are on the shape's boundary.}
+%
+%^^A#################################################################
+%^^A# Test bed document - inner, outer and angle for shape off
+%^^A# origin tests - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+%%--------------------------------------------------------
+\subsection*{Inner, Outer and Angle for Shape Off Origin}
+
+The box should closely contain picture if {\tt anchorborder} is working correctly.
+\bigskip
+
+\begin{center}
+\begin{tikzpicture}[framed]
+
+\markOrigC{black}
+\draw (2pt,0) node[anchor=west]{\tt \tiny origin};
+
+%% The test shape
+\node at (70pt,40pt)
+ [\testshape, draw,
+ red, minimum width=60pt, minimum height=40pt
+ ] (node) {};
+
+%% outer test line
+\path (node);
+\pgfgetlastxy{\macrox}{\macroy}
+\coordinate (Xout) at (\macrox+20pt,\macroy+40pt);
+
+\draw (Xout) circle(3pt);
+\draw [help lines] (node.center) -- (Xout);
+\draw [->, >=latex',green] (Xout) -- (node); % <<<
+
+%% inner test line
+\path (node);
+\pgfgetlastxy{\macrox}{\macroy}
+\coordinate (Xin) at (\macrox-5pt,\macroy-5pt);
+
+\draw (Xin) circle(3pt);
+\draw [help lines,shorten >=-1cm] (node.center) -- (Xin);
+\draw [->, >=latex',green] (Xin) -- (node); % <<<
+
+%% test angle
+\def\angle{120}
+\draw [help lines] (node.center) -- ++(\angle:1.5cm);
+\draw[green] (node.\angle) circle[radius=2pt]; % <<<
+
+\end{tikzpicture}
+\end{center}
+
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - inner, outer and angle for shape off
+%^^A# origin tests - end
+%^^A#################################################################
+%
+%^^A#################################################################
+%^^A# Test bed document - epilogue - start
+%^^A#################################################################
+%\iffalse
+%<*testbed>
+\end{document}
+%</testbed>
+%\fi
+%^^A#################################################################
+%^^A# Test bed document - epilogue - end
+%^^A#################################################################
+%
+% \section{Reuse}
+%
+% The |testsample.tex| file can be adapted to test other shapes developed using
+% the {\sf makeshape} package. Find the following section:
+%
+% \begin{verbatim}
+% %%-------------------------------------------------
+% %% file and shape being tested
+% \def\filename{sampleshape} % file being tested
+% \input{\filename} % It is a .tex
+% %%\usepackage{\filename} % It is a .sty
+% \def\testshape{sample} % shape being tested
+% %%-------------------------------------------------
+% \end{verbatim}
+% Then change |sampleshape| to the new file name, and |sample| to the particular shape's name.
+% Choose |\input| or |\usepackage| dependinmg on the file type.
+%
+% The report's ending `Package Test' section can be deleted, and additional shape specific tests added.
+% The file's {\sf makeshape} package oriented name
+% and its heading comment should probably be changed as well.
+%
+%^^A===========================================================================
+%^^A References
+%^^A===========================================================================
+%
+% \begin{thebibliography}{9}
+% \raggedright
+%
+% \bibitem{makeshape}
+% Adrian P. Robson,
+% \emph{The makeshape package
+% and a method for creating custom shapes in PGF}, 2013.
+%
+% \bibitem{pgfMan}
+% Till Tantau, \emph{The TikZ and PGF Packages, Manual for version 2.10},
+% 2010.
+% Available as
+% \href{http://mirrors.ctan.org/graphics/pgf/base/doc/generic/pgf/pgfmanual.pdf}
+% {\tt pgfmanual.pdf}
+% from the \href{http://ctan.org}{Comprehensive TeX Archive Network}.
+%
+% \end{thebibliography}
+%
+%^^A===========================================================================
+%^^A Print Changes
+%^^A
+%^^A -> Run pdfLaTeX ontesting.dtx
+%^^A makeindex -s gglo.ist -o ontesting.gls ontesting.glo
+%^^A pdfLaTeX ontesting.dtx
+%^^A===========================================================================
+%
+%^^A \PrintChanges
+%
+\endinput
+