diff options
author | Karl Berry <karl@freefriends.org> | 2013-01-28 22:55:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-01-28 22:55:48 +0000 |
commit | 639ea304450fded74d7d5483729877cebd382a38 (patch) | |
tree | 6724dacbf36f193990fa84f9dcdfff6d2ddf80e5 /Master | |
parent | b408bb5e71abeaab64eb560f06d2e2eb562403f1 (diff) |
makeshape 2.1 (25jan13)
git-svn-id: svn://tug.org/texlive/trunk@28973 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/texmf-dist/doc/latex/makeshape/README | 64 | ||||
-rw-r--r-- | Master/texmf-dist/doc/latex/makeshape/makeshape.pdf | bin | 0 -> 404031 bytes | |||
-rw-r--r-- | Master/texmf-dist/doc/latex/makeshape/ontesting.pdf | bin | 0 -> 355325 bytes | |||
-rw-r--r-- | Master/texmf-dist/doc/latex/makeshape/sampleshape.tex | 131 | ||||
-rw-r--r-- | Master/texmf-dist/doc/latex/makeshape/testsample.pdf | bin | 0 -> 108691 bytes | |||
-rw-r--r-- | Master/texmf-dist/doc/latex/makeshape/testsample.tex | 685 | ||||
-rw-r--r-- | Master/texmf-dist/source/latex/makeshape/makeshape.dtx | 1757 | ||||
-rw-r--r-- | Master/texmf-dist/source/latex/makeshape/makeshape.ins | 108 | ||||
-rw-r--r-- | Master/texmf-dist/source/latex/makeshape/ontesting.dtx | 1124 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/makeshape/makeshape.sty | 162 | ||||
-rwxr-xr-x | Master/tlpkg/bin/tlpkg-ctan-check | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc | 1 | ||||
-rw-r--r-- | Master/tlpkg/tlpsrc/makeshape.tlpsrc | 0 |
13 files changed, 4033 insertions, 1 deletions
diff --git a/Master/texmf-dist/doc/latex/makeshape/README b/Master/texmf-dist/doc/latex/makeshape/README new file mode 100644 index 00000000000..1b02f737716 --- /dev/null +++ b/Master/texmf-dist/doc/latex/makeshape/README @@ -0,0 +1,64 @@ + +makeshape 2.1 (25 January 2013) + +The makeshape package simplifies writing PGF shapes. + +Declaring custom shapes with correct anchor borders 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. + +------------------------------------------------------------------------- +The package's documentation files are + +makeshape.pdf - The package's user guide +sampleshape.tex - A sample shape. +testsample.tex - Source for a document that tests the sample shape. +testsample.pdf - The outcome of the tests. +ontesting.pdf - A report on the various tests used in testsample.tex + +The package's installation files are + +makeshape.sty - The package's style file + +makeshape.ins - The package's installation file. +makeshape.dtx - Source for the package's user documentation and code. +ontesting.dtx - Source for a report on testing and code for the test + document. + +These files can be generated with the following commands + +pdflatex makeshape.ins +pdflatex makeshape.dtx +pdflatex ontesting.dtx +pdflatex testsample.tex + +Comment out the 'OnlyDescription' line in makeshape.dtx to include the +package's implementation documentation. + +------------------------------------------------------------------------- +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 P 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 + +------------------------------------------------------------------------- diff --git a/Master/texmf-dist/doc/latex/makeshape/makeshape.pdf b/Master/texmf-dist/doc/latex/makeshape/makeshape.pdf Binary files differnew file mode 100644 index 00000000000..fa61daa503c --- /dev/null +++ b/Master/texmf-dist/doc/latex/makeshape/makeshape.pdf diff --git a/Master/texmf-dist/doc/latex/makeshape/ontesting.pdf b/Master/texmf-dist/doc/latex/makeshape/ontesting.pdf Binary files differnew file mode 100644 index 00000000000..c007b430aa8 --- /dev/null +++ b/Master/texmf-dist/doc/latex/makeshape/ontesting.pdf diff --git a/Master/texmf-dist/doc/latex/makeshape/sampleshape.tex b/Master/texmf-dist/doc/latex/makeshape/sampleshape.tex new file mode 100644 index 00000000000..01454695efa --- /dev/null +++ b/Master/texmf-dist/doc/latex/makeshape/sampleshape.tex @@ -0,0 +1,131 @@ +%% +%% This is file `sampleshape.tex', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% makeshape.dtx (with options: `sample') +%% +%% 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 +%% +%%-------------------------------------------------- +%% +%% 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 + +\endinput +%% +%% End of file `sampleshape.tex'. diff --git a/Master/texmf-dist/doc/latex/makeshape/testsample.pdf b/Master/texmf-dist/doc/latex/makeshape/testsample.pdf Binary files differnew file mode 100644 index 00000000000..fe589db561e --- /dev/null +++ b/Master/texmf-dist/doc/latex/makeshape/testsample.pdf diff --git a/Master/texmf-dist/doc/latex/makeshape/testsample.tex b/Master/texmf-dist/doc/latex/makeshape/testsample.tex new file mode 100644 index 00000000000..da2161c708a --- /dev/null +++ b/Master/texmf-dist/doc/latex/makeshape/testsample.tex @@ -0,0 +1,685 @@ +%% +%% This is file `testsample.tex', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% ontesting.dtx (with options: `testbed') +%% +%% 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 +%% +%%-------------------------------------------------------- +%% +%% 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 + +%%-------------------------------------------------------- +\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} + +\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 + +\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} + +%%-------------------------------------------------------- +\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} + +%%-------------------------------------------------------- +\section*{Anchorborder } + +%%-------------------------------------------------------- +\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} + +%%-------------------------------------------------------- +\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} + + +%%-------------------------------------------------------- +\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} + +%%-------------------------------------------------------- +\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} + +%%-------------------------------------------------------- +\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} + +%%-------------------------------------------------------- +\section*{Package Tests} + +%%-------------------------------------------------------- +\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} + +%%-------------------------------------------------------- +\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} + +\end{document} +\endinput +%% +%% End of file `testsample.tex'. 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 + diff --git a/Master/texmf-dist/tex/latex/makeshape/makeshape.sty b/Master/texmf-dist/tex/latex/makeshape/makeshape.sty new file mode 100644 index 00000000000..1e875325418 --- /dev/null +++ b/Master/texmf-dist/tex/latex/makeshape/makeshape.sty @@ -0,0 +1,162 @@ +%% +%% This is file `makeshape.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% makeshape.dtx (with options: `package') +%% +%% 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 +%% +\NeedsTeXFormat{LaTeX2e}[2011/06/27] +\ProvidesPackage{makeshape} + [2013/01/25 2.1 Making custom shapes for PGF/TikZ] +\RequirePackage{tikz} +\usepgflibrary{intersections} +\def\setpaths#1#2{ + \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 + } + \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 + } + \savedmacro\pgfshapeouterxsep{ + \pgfkeysgetvalue{/pgf/outer xsep}{\temp@sep} + \let\pgfshapeouterxsep\temp@sep + } + \savedmacro\pgfshapeouterysep{ + \pgfkeysgetvalue{/pgf/outer ysep}{\temp@sep} + \let\pgfshapeouterysep\temp@sep + } + \savedmacro{\pgfshapeminwidth}{ + \pgfkeysgetvalue{/pgf/minimum width}{\temp@wd} + \let\pgfshapeminwidth\temp@wd + } + \savedmacro{\pgfshapeminheight}{ + \pgfkeysgetvalue{/pgf/minimum height}{\temp@ht} + \let\pgfshapeminheight\temp@ht + } + \savedanchor{\centre}{ + \pgfpointorigin + } + \savedanchor{\text}{ + \pgf@y=-0.5\ht\pgfnodeparttextbox + \advance\pgf@y by 0.5\dp\pgfnodeparttextbox + \pgf@x=-0.5\wd\pgfnodeparttextbox + } + \savedanchor{\boundbox@ne}{ + \pgfusepath{} + #1 + \pgf@xb=\pgf@pathmaxx + \pgf@yb=\pgf@pathmaxy + \pgf@xc=\pgf@pathminx + \pgf@yc=\pgf@pathminy + \pgfusepath{} + \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 + \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 + } + \anchor{center}{\centre} + \anchor{text}{\text} + \anchorborder{ + \edef\targpointx{\the\pgf@x} + \edef\targpointy{\the\pgf@y} + \pgf@relevantforpicturesizefalse + \pgftransformreset + \boundbox@ne + \pgf@xa=\pgf@x + \pgf@ya=\pgf@y + \pgfpointborderrectangle{\pgfpoint{\targpointx}{\targpointy}} + {\pgfpoint{\pgf@xa}{\pgf@ya}} + \edef\corrx{\the\pgf@x} + \edef\corry{\the\pgf@y} + \pgfintersectionofpaths { + #1 + }{ + \pgfpathmoveto{\pgfpoint{0}{0}} + \pgfpathlineto{\pgfpoint{\corrx}{\corry}} + } + \pgfpointintersectionsolution{1} + } + \backgroundpath{ + #2 + } +} +\newdimen\crct@dim +\def\mincorrect#1#2{ + \pgfmathsetlength\crct@dim{#2} + \pgfmathsetlength\crct@dim{0.5\crct@dim} + \ifdim#1<\crct@dim + #1=\crct@dim + \fi +} +\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 +} +\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 +} +\endinput +%% +%% End of file `makeshape.sty'. diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index 56a23e87163..1c801ffb358 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -264,7 +264,7 @@ my @TLP_working = qw( lxfonts ly1 m-tx macqassign macros2e mafr magaz magyar mailing mailmerge makebarcode makebox makecell makecirc makecmds makedtx makeglos makeplot - mandi manuscript margbib + makeshape mandi manuscript margbib marginfix marginnote marvosym match_parens math-e mathabx mathabx-type1 mathalfa mathastext mathcomp mathdesign mathdots mathexam diff --git a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc index a66de3d5bc8..af4bbcbc9e8 100644 --- a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc +++ b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc @@ -452,6 +452,7 @@ depend makecirc depend makecmds depend makedtx depend makeglos +depend makeshape depend mandi depend manfnt depend manuscript diff --git a/Master/tlpkg/tlpsrc/makeshape.tlpsrc b/Master/tlpkg/tlpsrc/makeshape.tlpsrc new file mode 100644 index 00000000000..e69de29bb2d --- /dev/null +++ b/Master/tlpkg/tlpsrc/makeshape.tlpsrc |