summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/rulercompass
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-12-12 22:54:58 +0000
committerKarl Berry <karl@freefriends.org>2013-12-12 22:54:58 +0000
commitb2e97cd1b691e067fe3a30311a099576cf31257e (patch)
tree9f2149e7a37b9811e3913367573b4292c9fa26a4 /Master/texmf-dist/tex/latex/rulercompass
parent7991cab643e93ba549e06207a24036d4cd8d598a (diff)
rulercompass (12dec13)
git-svn-id: svn://tug.org/texlive/trunk@32392 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/rulercompass')
-rw-r--r--Master/texmf-dist/tex/latex/rulercompass/tikzlibraryrulercompass.code.tex495
1 files changed, 495 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/rulercompass/tikzlibraryrulercompass.code.tex b/Master/texmf-dist/tex/latex/rulercompass/tikzlibraryrulercompass.code.tex
new file mode 100644
index 00000000000..76cda67eb09
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/rulercompass/tikzlibraryrulercompass.code.tex
@@ -0,0 +1,495 @@
+%%
+%% This is file `tikzlibraryrulercompass.code.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% rulercompass.dtx (with options: `tikzlibrary')
+%% ---------------------------------------------------------------
+%% rulercompass --- a TikZ/PGF library for drawing straight-edge
+%% and compass diagrams
+%% E-mail: stacey@math.ntnu.no
+%% Released under the LaTeX Project Public Licence v1.3c or later
+%% See http://www.latex-project.org/lppl.txt
+%% ---------------------------------------------------------------
+%%
+\usetikzlibrary{intersections,calc}
+\newif\ifrc@draft
+\newif\ifrc@beamer
+\newif\ifrc@fliparc
+\newcount\rc@picture@id
+\newcounter{pointlabels}
+\@ifclassloaded{beamer}{%
+ \rc@beamertrue
+}{}
+\def\rc@pathsep{@}
+\ifrc@beamer
+\resetcounteronoverlays{pointlabels}
+\resetcountonoverlays{rc@picture@id}
+\tikzset{
+ alt if exist/.code args={#1#2#3}{%
+ \@ifundefined{path@\the\rc@picture@id @#1}{%
+ \pgfkeysalso{#2}%
+ }{
+ \alt<.-\csname path@\the\rc@picture@id @#1\endcsname>{%
+ \pgfkeysalso{#2}%
+ }{
+ \pgfkeysalso{#3}%
+ }%
+ }%
+ },
+ intersection/save/.code={%
+ \only<.>{%
+ \begingroup
+ \tikz@intersect@path@names@parse#1\tikz@stop
+ \protected@write\pgfutil@auxout{}{%
+ \string\global\string\@namedef{path@\the\rc@picture@id @\tikz@intersect@path@a}{\the\beamer@slideinframe}%
+ \string\global\string\@namedef{path@\the\rc@picture@id @\tikz@intersect@path@b}{\the\beamer@slideinframe}%
+ }%
+ \endgroup
+ }%
+ }
+}
+\newcommand<>\compass[3][]{%
+ \draw#4[#1,ruler compass/compass={#2}{#3}];
+}
+
+\newcommand<>\ruler[3][]{%
+ \draw#4[#1,ruler compass/ruler={#2}{#3}];
+}
+\newcommand<>\point[4][]{%
+ {%
+ \advance\c@pointlabels by 1\relax
+ \xdef\rc@temp{\thepointlabels}%
+ }%
+ \edef\rc@tempa{\the\rc@picture@id}%
+ \expandafter\ifx\csname rc@id@\rc@temp\endcsname\rc@tempa
+ \path#5 (\rc@temp) node[ruler compass/point,#1] {};
+ \else
+ \path#5 [name intersections={use=#2 and #3}] (intersection-#4) node[ruler compass/point,#1] {};
+ \fi
+}
+\else
+\tikzset{
+ alt if exist/.code args={#1#2#3}{%
+ \pgfkeysalso{#2}%
+ },
+ intersection/save/.code={%
+ \begingroup
+ \tikz@intersect@path@names@parse#1\tikz@stop
+ \protected@write\pgfutil@auxout{}{%
+ \string\global\string\@namedef{path@\the\rc@picture@id @\tikz@intersect@path@a}{\thepage}%
+ \string\global\string\@namedef{path@\the\rc@picture@id @\tikz@intersect@path@b}{\thepage}%
+ }%
+ \endgroup
+ }
+}
+\newcommand\compass[3][]{%
+ \draw [#1,ruler compass/compass={#2}{#3}];
+}
+
+\newcommand\ruler[3][]{%
+ \draw [#1,ruler compass/ruler={#2}{#3}];
+}
+
+\newcommand\point[4][]{%
+ \path [name intersections={use=#2 and #3}] (intersection-#4) node[ruler compass/point,#1] {};
+}
+\fi
+\def\rc@processpt#1{%
+ \pgfutil@ifnextchar.{\rc@processpt@@#1}{\rc@processpt@#1}}
+\def\rc@processpt@#1#2\pgf@stop{%
+ \pgfutil@in@+{#2}%
+ \ifpgfutil@in@
+ \let\@next=\rc@processpt@plus
+ \else
+ \pgfutil@in@-{#2}%
+ \ifpgfutil@in@
+ \let\@next=\rc@processpt@minus
+ \else
+ \let\@next=\rc@processpt@bare
+ \fi
+ \fi
+ \@next#1#2\pgf@stop
+}
+\def\rc@processpt@@#1.#2\pgf@stop{%
+ \def\rc@temp{#2}%
+ \ifx\rc@temp\pgfutil@empty
+ \edef\rc@temp{\thepointlabels}%
+ \else
+ \pgfmathparse{int(\the\c@pointlabels + #2)}%
+ \begingroup
+ \c@pointlabels=\pgfmathresult\relax
+ \xdef\rc@temp{\thepointlabels}%
+ \endgroup
+ \fi
+ \let#1\rc@temp
+}
+\def\rc@processpt@plus#1#2+#3\pgf@stop{%
+ \pgfmathsetmacro\rc@temp{0}%
+ \rc@reverse#2\pgf@stop%
+ \pgfmathparse{int(\rc@temp + #3)}%
+ \begingroup
+ \c@pointlabels=\pgfmathresult\relax
+ \xdef\rc@temp{\thepointlabels}%
+ \endgroup
+ \let#1\rc@temp
+}
+\def\rc@processpt@minus#1#2-#3\pgf@stop{%
+ \pgfmathsetmacro\rc@temp{0}%
+ \rc@reverse#2\pgf@stop%
+ \pgfmathparse{int(\rc@temp - #3)}%
+ \begingroup
+ \c@pointlabels=\pgfmathresult\relax
+ \xdef\rc@temp{\thepointlabels}%
+ \endgroup
+ \let#1\rc@temp
+}
+\def\rc@processpt@bare#1#2\pgf@stop{%
+ \def#1{#2}}
+\def\rc@reverse#1{%
+ \ifx#1\pgf@stop
+ \let\@next=\pgfutil@empty
+ \else
+ \let\@next=\rc@reverse
+ \pgfutil@tempcnta=`#1\relax
+ \pgfmathsetmacro\rc@temp{\rc@temp * \rc@factor + \the\pgfutil@tempcnta - \rc@initial}%
+ \fi
+ \@next}
+\def\rc@parsepath#1#2#3#4\pgf@stop{%
+ \rc@processpt\rc@tempa#3\pgf@stop
+ \rc@processpt\rc@tempb#4\pgf@stop
+ \xdef#1{#2\rc@pathsep\rc@tempa\rc@pathsep\rc@tempb}%
+}
+\tikzset{
+ every picture/.append style={
+ ruler compass/at begin picture
+ },
+ intersection/use/.code args={#1 and #2}{%
+ \rc@parsepath\rc@pta#1\pgf@stop
+ \rc@parsepath\rc@ptb#2\pgf@stop
+ \pgfkeysalso{
+ of={\rc@pta} and \rc@ptb,
+ save={\rc@pta} and \rc@ptb,
+ }
+ },
+ circle through/.style={
+ to path={
+ \pgfextra{
+ \tikz@scan@one@point\pgfutil@firstofone(\tikztostart)\relax
+ \pgf@xa=\pgf@x
+ \pgf@ya=\pgf@y
+ \tikz@scan@one@point\pgfutil@firstofone(\tikztotarget)\relax
+ \pgfmathsetmacro\rc@radius{veclen(\pgf@x - \pgf@xa,\pgf@y - \pgf@ya)}%
+ }
+ circle[radius=\rc@radius pt] (\tikztotarget)
+ }
+ },
+ arc flip/.is if=rc@fliparc,
+ centred arc to/.code 2 args={%
+ \tikz@scan@one@point\pgfutil@firstofone(#1)\relax
+ \pgfmathsetmacro\rc@radius{veclen(\tikz@lastx-\pgf@x,\tikz@lasty-\pgf@y)}%
+ \pgfmathsetmacro\rc@sangle{atan2(\tikz@lasty - \pgf@y,\tikz@lastx - \pgf@x)}%
+ \pgf@xa=\pgf@x
+ \pgf@ya=\pgf@y
+ \tikz@scan@one@point\pgfutil@firstofone(#2)\relax
+ \pgfmathsetmacro\rc@eangle{atan2(\pgf@y - \pgf@ya,\pgf@x - \pgf@xa)}%
+ \pgfmathsetmacro\rc@eangle{\rc@eangle < \rc@sangle ? \rc@eangle + 360 : \rc@eangle}%
+ \ifrc@fliparc
+ \pgfmathsetmacro\rc@eangle{\rc@eangle - 360}%
+ \fi
+ \pgfkeysalso{start angle=\rc@sangle, end angle=\rc@eangle, radius=\rc@radius pt}
+ },
+ ruler compass/.is family,
+ ruler compass/.cd,
+ draft mode/.is if=rc@draft,
+ at begin picture/.style={
+ execute at begin picture={
+ \global\advance\rc@picture@id by 1\relax
+ \setcounter{pointlabels}{0}%
+ },
+ },
+ point labels/.is choice,
+ point labels/arabic/.code={%
+ \renewcommand\thepointlabels{\@arabic \c@pointlabels}%
+ \def\rc@initial{48}%
+ \def\rc@factor{10}%
+ },
+ point labels/alph/.code={%
+ \renewcommand\thepointlabels{\@alph \c@pointlabels}%
+ \def\rc@initial{96}%
+ \def\rc@factor{26}%
+ },
+ point labels/Alph/.code={%
+ \renewcommand\thepointlabels{\@Alph \c@pointlabels}%
+ \def\rc@initial{64}%
+ \def\rc@factor{26}%
+ },
+ point labels/alphalph/.code={%
+ \@ifundefined{alphalph}{%
+ \message{The "alphalph" option only works if the 'alphalph' package has been loaded (using "alph" instead).}%
+ \renewcommand\thepointlabels{\@alph \c@pointlabels}%
+ \def\rc@initial{96}%
+ \def\rc@factor{26}%
+ }{%
+ \renewcommand\thepointlabels{\alphalph \c@pointlabels}%
+ \def\rc@initial{96}%
+ \def\rc@factor{26}%
+ }%
+ },
+ point labels/AlphAlph/.code={%
+ \@ifundefined{alphalph}{%
+ \message{The "AlphAlph" option only works if the 'alphalph' package has been loaded (using "Alph" instead).}%
+ \renewcommand\thepointlabels{\@Alph \c@pointlabels}%
+ \def\rc@initial{64}%
+ \def\rc@factor{26}%
+ }{%
+ \renewcommand\thepointlabels{\AlphAlph \c@pointlabels}%
+ \def\rc@initial{64}%
+ \def\rc@factor{26}%
+ }%
+ },
+ construction in use/.style={
+ draw=blue
+ },
+ construction not in use/.style={
+ draw=gray!75,
+ },
+ compass/.code 2 args={%
+ \rc@processpt\rc@pta#1\pgf@stop
+ \rc@processpt\rc@ptb#2\pgf@stop
+ \pgfkeysalso{ruler compass/compass aux={\rc@pta}{\rc@ptb}}%
+ },
+ compass aux/.style 2 args={
+ alt if exist={c\rc@pathsep#1\rc@pathsep#2}{
+ ruler compass/construction in use/.try,
+ }{
+ ruler compass/construction not in use/.try
+ },
+ name path=c\rc@pathsep#1\rc@pathsep#2,
+ ruler compass/every construction path/.try,
+ ruler compass/every compass/.try,
+ insert path={
+ (#1) to[circle through] (#2)
+ node[name=c\rc@pathsep#1\rc@pathsep#2\rc@pathsep centre,ruler compass/aux point={#1}] {}
+ node[name=c\rc@pathsep#1\rc@pathsep#2\rc@pathsep rim,ruler compass/aux point={#2}] {}
+ },
+ },
+ ruler/.code 2 args={%
+ \rc@processpt\rc@pta#1\pgf@stop
+ \rc@processpt\rc@ptb#2\pgf@stop
+ \pgfkeysalso{ruler compass/ruler aux={\rc@pta}{\rc@ptb}}%
+ },
+ ruler aux/.style 2 args={
+ overlay,
+ alt if exist={r\rc@pathsep#1\rc@pathsep#2}{
+ ruler compass/construction in use/.try
+ }{
+ ruler compass/construction not in use/.try
+ },
+ name path=r\rc@pathsep#1\rc@pathsep#2,
+ ruler compass/every construction path/.try,
+ ruler compass/every ruler/.try,
+ insert path={
+ ($(#1)!\pgfkeysvalueof{/tikz/ruler compass/ruler length}!(#2)$) -- ($(#2)!\pgfkeysvalueof{/tikz/ruler compass/ruler length}!(#1)$)
+ node[name=r\rc@pathsep#1\rc@pathsep#2\rc@pathsep start,ruler compass/aux point={#1}] {}
+ node[name=r\rc@pathsep#1\rc@pathsep#2\rc@pathsep end,ruler compass/aux point={#2}] {}
+ },
+ },
+ ruler length/.initial=20,
+ aux point/.style={
+ node contents/.try={},
+ at={(#1)},
+ ruler compass/every aux point/.try
+ },
+ point/.style={
+ ruler compass/name it,
+ coordinate,
+ node contents/.try={},
+ insert path={
+ node[
+ fill=#1,
+ circle,
+ minimum width=1mm,
+ inner sep=0mm,
+ reset label anchor,
+ anchor=center,
+ node contents/.try={},
+ ruler compass/every point/.try,
+ ] {}
+ }
+ },
+ name it/.code={%
+ \ifx\tikz@fig@name\pgfutil@empty
+ \stepcounter{pointlabels}%
+ \pgfkeysalso{name=\thepointlabels}%
+ \expandafter\xdef\csname rc@id@\thepointlabels\endcsname{\the\rc@picture@id}%
+ \ifrc@draft
+ \pgfkeysalso{label={[ruler compass/draft label/.try]\thepointlabels}}%
+ \fi
+ \fi
+ },
+ point/.default=black,
+}
+\def\rc@scale{1}
+\def\rc@offset{0pt}
+\def\jump@setbb#1#2#3{%
+ \@ifundefined{jump@#1@maxbb}{%
+ \expandafter\gdef\csname jump@#1@maxbb\endcsname{#3}%
+ }{%
+ \csname jump@#1@maxbb\endcsname
+ \pgf@xa=\pgf@x
+ \pgf@ya=\pgf@y
+ #3
+ \pgfmathsetlength\pgf@x{max(\pgf@x,\pgf@xa)}%
+ \pgfmathsetlength\pgf@y{max(\pgf@y,\pgf@ya)}%
+ \expandafter\xdef\csname jump@#1@maxbb\endcsname{\noexpand\pgfpoint{\the\pgf@x}{\the\pgf@y}}%
+ }
+ \@ifundefined{jump@#1@minbb}{%
+ \expandafter\gdef\csname jump@#1@minbb\endcsname{#2}%
+ }{%
+ \csname jump@#1@minbb\endcsname
+ \pgf@xa=\pgf@x
+ \pgf@ya=\pgf@y
+ #2
+ \pgfmathsetlength\pgf@x{min(\pgf@x,\pgf@xa)}%
+ \pgfmathsetlength\pgf@y{min(\pgf@y,\pgf@ya)}%
+ \expandafter\xdef\csname jump@#1@minbb\endcsname{\noexpand\pgfpoint{\the\pgf@x}{\the\pgf@y}}%
+ }
+}
+\tikzset{
+ stop jumping/.style={
+ execute at end picture={%
+ \pgfmathsetlength\pgf@xa{\pgf@picminx/\rc@scale}%
+ \pgfmathsetlength\pgf@ya{\pgf@picminy/\rc@scale}%
+ \pgfmathsetlength\pgf@xb{\pgf@picmaxx/\rc@scale}%
+ \pgfmathsetlength\pgf@yb{\pgf@picmaxy/\rc@scale}%
+ \immediate\write\pgfutil@auxout{%
+ \noexpand\jump@setbb{\the\rc@picture@id}{\noexpand\pgfpoint{\the\pgf@xa}{\the\pgf@ya}}{\noexpand\pgfpoint{\the\pgf@xb}{\the\pgf@yb}}%
+ },
+ \pgf@x=\pgf@picminx
+ \pgf@y=\pgf@picminy
+ \csname jump@\the\rc@picture@id @minbb\endcsname
+ \pgf@xa=\pgf@x
+ \pgf@ya=\pgf@y
+ \pgf@x=\pgf@picmaxx
+ \pgf@y=\pgf@picmaxy
+ \csname jump@\the\rc@picture@id @maxbb\endcsname
+ \edef\rc@temp{\noexpand\path (\the\pgf@xa - \rc@offset,\the\pgf@ya - \rc@offset) -- (\the\pgf@x + \rc@offset,\the\pgf@y + \rc@offset);}%
+ \rc@temp
+ },
+ },
+ max size/.code 2 args={%
+ \pgfutil@ifundefined{jump@\the\rc@picture@id @maxbb}{}{%
+ \csname jump@\the\rc@picture@id @maxbb\endcsname
+ \pgf@xa=\pgf@x
+ \pgf@ya=\pgf@y
+ \csname jump@\the\rc@picture@id @minbb\endcsname
+ \advance\pgf@xa by -\pgf@x
+ \advance\pgf@ya by -\pgf@y
+ \advance\pgf@xa by \rc@offset
+ \advance\pgf@xa by \rc@offset
+ \advance\pgf@ya by \rc@offset
+ \advance\pgf@ya by \rc@offset
+ \pgfmathsetmacro\rc@xratio{\pgf@xa > #1 ? \pgf@xa/#1 : 1}%
+ \pgfmathsetmacro\rc@yratio{\pgf@ya > #2 ? \pgf@ya/#2 : 1}%
+ \pgfmathsetmacro\rc@scale{1/max(\rc@xratio,\rc@yratio)}%
+ \pgfkeysalso{scale=\rc@scale}%
+ }
+ },
+ enclosing box/offset/.store in=\rc@offset,
+ constrain/.style={
+ execute at begin picture=\constrain
+ }
+}
+\newcommand\constrain{%
+ \pgfutil@ifundefined{jump@\the\rc@picture@id @minbb}{}{%
+ \csname jump@\the\rc@picture@id @minbb\endcsname
+ \pgfmathsetlength\pgf@xa{\pgf@x-\rc@offset}%
+ \pgfmathsetlength\pgf@ya{\pgf@y-\rc@offset}%
+ \csname jump@\the\rc@picture@id @maxbb\endcsname
+ \pgfmathsetlength\pgf@xb{\pgf@x+\rc@offset}%
+ \pgfmathsetlength\pgf@yb{\pgf@y+\rc@offset}%
+ \edef\rc@temp{\noexpand\clip (\the\pgf@xa,\the\pgf@ya) rectangle (\the\pgf@xb,\the\pgf@yb);}
+ \ifpgf@relevantforpicturesize
+ \pgf@relevantforpicturesizefalse
+ \rc@temp
+ \pgf@relevantforpicturesizetrue
+ \else
+ \rc@temp
+ \fi
+ }%
+}
+
+\expandafter\def\csname pgf@sh@ns@enclosing box\endcsname{rectangle}
+\expandafter\def\csname pgf@sh@np@enclosing box\endcsname{%
+ \pgfutil@ifundefined{jump@\the\rc@picture@id @minbb}{%
+ \def\southwest{\pgfqpoint{\pgf@picminx}{\pgf@picminy}}%
+ \def\northeast{\pgfqpoint{\pgf@picmaxx}{\pgf@picmaxy}}%
+}{%
+ \csname jump@\the\rc@picture@id @minbb\endcsname
+ \pgfmathsetlength\pgf@xa{\pgf@x-\rc@offset}%
+ \pgfmathsetlength\pgf@ya{\pgf@y-\rc@offset}%
+ \edef\southwest{\noexpand\pgfqpoint{\the\pgf@xa}{\the\pgf@ya}}%
+ \csname jump@\the\rc@picture@id @maxbb\endcsname
+ \pgfmathsetlength\pgf@xb{\pgf@x+\rc@offset}%
+ \pgfmathsetlength\pgf@yb{\pgf@y+\rc@offset}%
+ \edef\northeast{\noexpand\pgfqpoint{\the\pgf@xb}{\the\pgf@yb}}%
+ }%
+}
+\expandafter\def\csname pgf@sh@nt@enclosing box\endcsname{{1}{0}{0}{1}{0pt}{0pt}}
+\expandafter\def\csname pgf@sh@pi@enclosing box\endcsname{\pgfpictureid}
+
+\tikzset{
+ on layer/.code={
+ \pgfonlayer{#1}\begingroup
+ \aftergroup\endpgfonlayer
+ \aftergroup\endgroup
+ },
+ node on layer/.code={
+ \gdef\node@@on@layer{%
+ \setbox\tikz@tempbox=\hbox\bgroup\pgfonlayer{#1}\unhbox\tikz@tempbox\endpgfonlayer\egroup}
+ \aftergroup\node@on@layer
+ },
+ reset label anchor/.code={%
+ \let\tikz@auto@anchor=\pgfutil@empty
+ \def\tikz@anchor{#1}
+ },
+ reset label anchor/.default=center
+}
+\def\node@on@layer{\aftergroup\node@@on@layer}
+\@ifpackageloaded{alphalph}%
+{
+ \tikzset{ruler compass/point labels=alphalph}
+}
+{
+ \tikzset{ruler compass/point labels=alph}
+}
+
+%%
+%% Copyright (C) 2013 by Andrew Stacey <stacey@math.ntnu.no>
+%%
+%% This file may be distributed and/or modified under the conditions
+%% of the LaTeX Project Public License, either version 1.3 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
+%%
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%%
+%% This work is "maintained" (as per LPPL maintenance status) by
+%% Andrew Stacey.
+%%
+%% This work consists of the files rulercompass.dtx
+%% rulercompass_doc.tex
+%% and the derived files tikzlibraryrulercompass.code.tex
+%% rulercompass.ins
+%% rulercompass.pdf
+%% rulercompass_doc.pdf
+%% README.txt
+%%
+%%
+%%
+%% End of file `tikzlibraryrulercompass.code.tex'.