summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r--Master/texmf-dist/tex/latex/tikz-3dtools/tikzlibrary3dtools.code.tex712
1 files changed, 0 insertions, 712 deletions
diff --git a/Master/texmf-dist/tex/latex/tikz-3dtools/tikzlibrary3dtools.code.tex b/Master/texmf-dist/tex/latex/tikz-3dtools/tikzlibrary3dtools.code.tex
deleted file mode 100644
index fd29370c812..00000000000
--- a/Master/texmf-dist/tex/latex/tikz-3dtools/tikzlibrary3dtools.code.tex
+++ /dev/null
@@ -1,712 +0,0 @@
-% Copyright 2019 by an anonymous marmot
-%
-% This file may be distributed and/or modified
-%
-% 1. under the LaTeX Project Public License and/or
-% 2. under the GNU Public License.
-%
-% See the file doc/generic/pgf/licenses/LICENSE for more details.
-\ProvidesFileRCS{tikzlibrary3dtools.code.tex}
-\usetikzlibrary{3d,decorations,fpu}% to do: ability to switch on and off
-\usepackage{calculator}% maybe drop
-\makeatletter%
-\def\extractpgfversionaux#1.#2.#3|#4#5#6;{\def#4{#1}\def#5{#2}\def#6{#3}}%
-\def\checkversion{%
-\edef\temp{\noexpand\extractpgfversionaux\pgfversion|\noexpand\myu\noexpand\myv\noexpand\myw;}%
-\temp%
-\pgfmathtruncatemacro{\itest}{ifthenelse(10*\myu+\myv<31,0,1)}%
-\ifnum\itest=0%
-\message{You are using a too old version of pgf (\pgfversion). You need at least
-version 3.1.1 to use the features of this library.}%
-\fi}%
-\checkversion%
-\newcommand{\orthmat}[3]{% the entries of this matrix keep track
-\pgfmathparse{cos(#1)*cos(#2)}% of the current transformation
-\xdef\tikz@td@matAA{\pgfmathresult}%
-\pgfmathparse{cos(#2)*sin(#1)}%
-\xdef\tikz@td@matAB{\pgfmathresult}%
-\pgfmathparse{sin(#2)}%
-\xdef\tikz@td@matAC{\pgfmathresult}%
-\pgfmathparse{-cos(#3)*sin(#1)-cos(#1)*sin(#2)*sin(#3)}%
-\xdef\tikz@td@matBA{\pgfmathresult}%
-\pgfmathparse{cos(#1)*cos(#3)-sin(#1)*sin(#2)*sin (#3)}%
-\xdef\tikz@td@matBB{\pgfmathresult}%
-\pgfmathparse{cos(#2)*sin (#3)}%
-\xdef\tikz@td@matBC{\pgfmathresult}%
-\pgfmathparse{sin(#1)*sin(#3)-cos(#1)*cos(#3)*sin(#2)}%
-\xdef\tikz@td@matCA{\pgfmathresult}%
-\pgfmathparse{-cos(#3)*sin(#1)*sin(#2)-cos(#1)*sin(#3)}%
-\xdef\tikz@td@matCB{\pgfmathresult}%
-\pgfmathparse{cos(#2)*cos(#3)}%
-\xdef\tikz@td@matCC{\pgfmathresult}}%
-\tikzset{3d/.cd,phi/.initial=0,psi/.initial=0,theta/.initial=0,
-install view/.style={/utils/exec=\tikzset{3d/.cd,#1}%
-\orthmat{\pgfkeysvalueof{/tikz/3d/phi}}{%
-\pgfkeysvalueof{/tikz/3d/psi}}{\pgfkeysvalueof{/tikz/3d/theta}},%
-/tikz/x={({\tikz@td@matAA*1cm},{\tikz@td@matBA*1cm})},%
-/tikz/y={({\tikz@td@matAB*1cm},{\tikz@td@matBB*1cm})},%
-/tikz/z={({\tikz@td@matAC*1cm},{\tikz@td@matBC*1cm})}}}%
-\def\pgfmathparse@td@FPU#1{\begingroup%
-\pgfkeys{/pgf/fpu,/pgf/fpu/output format=fixed}%
-\pgfmathparse{#1}%
-\pgfmathsmuggle\pgfmathresult\endgroup}%
-%
-\newlength\pgf@X% not clear if one should use lengths here at all
-\newlength\pgf@Y%
-\newlength\pgf@Z%
-\newlength\pgf@Xa%
-\newlength\pgf@Ya%
-\newlength\pgf@Za%
-\newlength\pgf@Xb%
-\newlength\pgf@Yb%
-\newlength\pgf@Zb%
-\xdef\tikz@td@type{0}%0=linear combination,1=vector product
-\long\def\RawCoord(#1){\csname tikz@dcl@coord@#1\endcsname}%
-\long\def\ParseCoord(#1){%
-\pgfutil@tempcnta=0%
-\pgfutil@for\pgf@tmp:={#1}\do{\advance\pgfutil@tempcnta by1}%
-\ifnum\the\pgfutil@tempcnta=1
-\edef\pgfutil@tmp{\csname tikz@dcl@coord@#1\endcsname}%
-\else%
-\edef\pgfutil@tmp{(#1)}%
-\fi%
-\pgfmathparse@td@FPU{xcomp3(\pgfutil@tmp)}%
-\pgf@X=\pgfmathresult pt%
-\pgfmathparse@td@FPU{ycomp3(\pgfutil@tmp)}%
-\pgf@Y=\pgfmathresult pt%
-\pgfmathparse@td@FPU{zcomp3(\pgfutil@tmp)}%
-\pgf@Z=\pgfmathresult pt}%
-\pgfmathdeclarefunction{TD}{1}{%
-\begingroup%
-\pgfmathtdparse{#1}%
-\pgfmathsmuggle\pgfmathresult\endgroup%
-}%
-% projections
-\pgfmathdeclarefunction{xcomp3}{3}{% x component of a 3-vector
-\begingroup%
-\pgfmathparse@td@FPU{#1}%
-\pgfmathsmuggle\pgfmathresult\endgroup}
-\pgfmathdeclarefunction{ycomp3}{3}{% y component of a 3-vector
-\begingroup%
-\pgfmathparse@td@FPU{#2}%
-\pgfmathsmuggle\pgfmathresult\endgroup}
-\pgfmathdeclarefunction{zcomp3}{3}{% z component of a 3-vector
-\begingroup%
-\pgfmathparse@td@FPU{#3}%
-\pgfmathsmuggle\pgfmathresult\endgroup}
-\pgfmathdeclarefunction{TDx}{1}{% x component of a 3-vector
-\begingroup%
-\edef\mycoord{\RawCoord(#1)}%
-\pgfmathparse@td@FPU{xcomp3\mycoord}%
-\pgfmathsmuggle\pgfmathresult\endgroup}%
-\pgfmathdeclarefunction{TDy}{1}{% x component of a 3-vector
-\begingroup%
-\edef\mycoord{\RawCoord(#1)}%
-\pgfmathparse@td@FPU{ycomp3\mycoord}%
-\pgfmathsmuggle\pgfmathresult\endgroup}%
-\pgfmathdeclarefunction{TDz}{1}{% x component of a 3-vector
-\begingroup%
-\edef\mycoord{\RawCoord(#1)}%
-\pgfmathparse@td@FPU{zcomp3\mycoord}%
-\pgfmathsmuggle\pgfmathresult\endgroup}%
-\def\scalprod#1=#2.#3;{%
-\edef\coordA{\RawCoord#2}%
-\edef\coordB{\RawCoord#3}%
-\pgfmathsetmacro\pgfutil@tmpa{scalarproduct({\coordA},{\coordB})}%
-\edef#1{\pgfutil@tmpa}}%
-\def\spaux#1#2#3#4#5#6{(#1)*(#4)+(#2)*(#5)+(#3)*(#6)}%
-\pgfmathdeclarefunction{scalarproduct}{2}{% scalar product of two 3-vectors
-\begingroup%
-\pgfmathparse@td@FPU{\spaux#1#2}%
-\pgfmathsmuggle\pgfmathresult\endgroup}
-% vector product
-% vector product auxiliary functions
-\def\vpauxx#1#2#3#4#5#6{(#2)*(#6)-(#3)*(#5)}%
-\def\vpauxy#1#2#3#4#5#6{(#4)*(#3)-(#1)*(#6)}%
-\def\vpauxz#1#2#3#4#5#6{(#1)*(#5)-(#2)*(#4)}%
-% vector product pgf functions
-\pgfmathdeclarefunction{vpx}{2}{% x component of vector product
-\begingroup%
-\pgfmathparse@td@FPU{\vpauxx#1#2}%
-\pgfmathsmuggle\pgfmathresult\endgroup}
-\pgfmathdeclarefunction{vpy}{2}{% y component of vector product
-\begingroup%
-\pgfmathparse@td@FPU{\vpauxy#1#2}%
-\pgfmathsmuggle\pgfmathresult\endgroup}
-\pgfmathdeclarefunction{vpz}{2}{% z component of vector product
-\begingroup%
-\pgfmathparse@td@FPU{\vpauxz#1#2}%
-\pgfmathsmuggle\pgfmathresult\endgroup}
-%
-%
-% the following is very much "inspired" by the calc library
-\long\def\pgfmathtdparse#1{% < and > really are placeholders for a later integration
-\begingroup% into calc, which however requires changes both in
-% tikzlibrarycalc.code.tex and in tikz.code.tex
-%
-% tdparse main computation. It's a series of optional factors in front
-% of coordinates. It is very much copied from the calc library.
-%
-\pgf@Xa=0pt% We accumulate the result in here.
-\pgf@Ya=0pt%
-\pgf@Za=0pt%
-\tikz@td@cc@parse+#1%
-}%
-
-\def\tikz@td@cc@parse{%
-\pgfutil@ifnextchar>{%
-% Ok, we found the end...
-\tikz@td@cc@end%
-}
-{\pgfutil@ifnextchar+{%
-% Ok, we found a coordinate...
-\tikz@td@cc@add%
-}{%
-\pgfutil@ifnextchar-{%
-\tikz@td@cc@sub%
-}{%
-\pgfutil@ifnextchar x{%
-\tikz@td@cc@vecprod%
-}{%
-\pgfutil@ifnextchar o{%
-\tikz@td@cc@scalprod%
-}{% \tikzerror{+ or - expected}%
-\tikz@td@cc@end%
-}%
-}%
-}%
-}%
-}%
-}%
-%
-% The end is reached with > at the moment but this should change
-%
-\def\tikz@td@cc@end{%
-\ifcase\tikz@td@type%
-\pgfmathsetmacro{\pgftemp@x}{\pgf@Xa}%
-\pgfmathsetmacro{\pgftemp@y}{\pgf@Ya}%
-\pgfmathsetmacro{\pgftemp@z}{\pgf@Za}%
-\edef\pgfmathresult{\pgftemp@x,\pgftemp@y,\pgftemp@z}%
-\or%
-\pgfmathsetmacro{\myxa}{\pgf@Xa}%
-\pgfmathsetmacro{\myya}{\pgf@Ya}%
-\pgfmathsetmacro{\myza}{\pgf@Za}%
-\pgfmathsetmacro{\myxb}{\pgf@Xb}%
-\pgfmathsetmacro{\myyb}{\pgf@Yb}%
-\pgfmathsetmacro{\myzb}{\pgf@Zb}%
-\pgfmathsetmacro{\pgftemp@x}{\vpauxx{\myxb}{\myyb}{\myzb}{\myxa}{\myya}{\myza}}%
-\pgfmathsetmacro{\pgftemp@y}{\vpauxy{\myxb}{\myyb}{\myzb}{\myxa}{\myya}{\myza}}%
-\pgfmathsetmacro{\pgftemp@z}{\vpauxz{\myxb}{\myyb}{\myzb}{\myxa}{\myya}{\myza}}%
-%\typeout{P1=(\myxb,\myyb,\myzb),P2=(\myxa,\myya,\myza),P1xP2=(\pgftemp@x,\pgftemp@y,\pgftemp@z)}%
-\edef\pgfmathresult{\pgftemp@x,\pgftemp@y,\pgftemp@z}%
-\or%
-\pgfmathsetmacro{\myxa}{\pgf@Xa}%
-\pgfmathsetmacro{\myya}{\pgf@Ya}%
-\pgfmathsetmacro{\myza}{\pgf@Za}%
-\pgfmathsetmacro{\myxb}{\pgf@Xb}%
-\pgfmathsetmacro{\myyb}{\pgf@Yb}%
-\pgfmathsetmacro{\myzb}{\pgf@Zb}%
-\pgfmathparse@td@FPU{\myxa*\myxb+\myya*\myyb+\myza*\myzb}%
-%\typeout{P1=(\myxb,\myyb,\myzb),P2=(\myxa,\myya,\myza),P1.P2=(\pgmfmathresult)}%
-\fi%
-%\message{result = (\pgftemp@x,\pgftemp@y,\pgftemp@z)=\pgfmathresult^^J}%
-\xdef\tikz@td@type{0}% reset type to linear combination
-\pgfmathsmuggle\pgfmathresult\endgroup}%
-%
-\def\tikz@td@cc@add+{%
-\def\tikz@td@cc@factor{1}%
-\tikz@td@cc@factororcoordinate%
-}%
-\def\tikz@td@cc@sub-{%
-\def\tikz@td@cc@factor{-1}%
-\tikz@td@cc@factororcoordinate%
-}%
-\def\tikz@td@cc@vecprod x{%
-%\message{Ah, a vector product^^J}%
-\xdef\tikz@td@type{1}%
-\pgf@Xb=\pgf@Xa% store current vector in b
-\pgf@Yb=\pgf@Ya%
-\pgf@Zb=\pgf@Za%
-\pgf@Xa=0pt% reset a
-\pgf@Ya=0pt%
-\pgf@Za=0pt%
-\def\tikz@td@cc@factor{1}%
-\tikz@td@cc@factororcoordinate%
-}%
-\def\tikz@td@cc@scalprod o{%
-%\message{Ah, a scalar product^^J}%
-\xdef\tikz@td@type{2}%
-\pgf@Xb=\pgf@Xa% store current vector in b
-\pgf@Yb=\pgf@Ya%
-\pgf@Zb=\pgf@Za%
-\pgf@Xa=0pt% reset a
-\pgf@Ya=0pt%
-\pgf@Za=0pt%
-\def\tikz@td@cc@factor{1}%
-\tikz@td@cc@factororcoordinate%
-}%
-%
-% Check for a factor: If we see a (, its a coordinate...
-%
-\def\tikz@td@cc@factororcoordinate{%
-\pgfutil@ifnextchar({%)
-% Ok, found coordinate
-\tikz@td@cc@coordinate%
-}{%
-\tikz@td@cc@parse@factor%
-}%
-}%
-%
-% ... otherwise it's a factor. It ends at ...*(
-%
-\def\tikz@td@cc@parse@factor#1*({%
-\pgfmathparse@td@FPU{#1*\tikz@td@cc@factor}%
-\let\tikz@td@cc@factor=\pgfmathresult%
-\tikz@td@cc@coordinate(%)
-}%
-\def\tikz@td@cc@coordinate(#1){%
-\ParseCoord(#1)%
-\advance\pgf@Xa by\tikz@td@cc@factor\pgf@X
-\advance\pgf@Ya by\tikz@td@cc@factor\pgf@Y
-\advance\pgf@Za by\tikz@td@cc@factor\pgf@Z
-\tikz@td@cc@parse%
-}%
-\tikzset{declare function={torusx(\u,\v,\R,\r)=cos(\u)*(\R + \r*cos(\v));
-torusy(\u,\v,\R,\r)=(\R + \r*cos(\v))*sin(\u);
-torusz(\u,\v,\R,\r)=\r*sin(\v);
-vcrit1(\u,\th)=atan(tan(\th)*sin(\u));% first critical v value
-vcrit2(\u,\th)=180+atan(tan(\th)*sin(\u));% second critical v value
-vtest(\u,\v,\az,\el)=sin(-vcrit1(\u-\az,\el)+\v);
-disc(\th,\R,\r)=((pow(\r,2)-pow(\R,2))*pow(cot(\th),2)+%
-pow(\r,2)*(2+pow(tan(\th),2)))/pow(\R,2);% discriminant
-umax(\th,\R,\r)=ifthenelse(disc(\th,\R,\r)>0,asin(sqrt(abs(disc(\th,\R,\r)))),0);
-}}%
-%
-\tikzset{3d parse/.style={/utils/exec=\pgfmathtdparse{#1},%
-insert path={(\pgfmathresult)}},3d coordinate/.style args={#1=#2}{%
-/utils/exec=\pgfmathtdparse{#2},%
-insert path={(\pgfmathresult) coordinate #1}}}%
-\def\pgfmathprintvector#1{%
-\pgfutil@tempcnta=0%
-\pgfutil@for\pgf@tmp:={#1}\do{\advance\pgfutil@tempcnta by1}%
-\pgfutil@tempcntb=1%
-\pgfutil@for\pgf@tmp:={#1}\do{\advance\pgfutil@tempcntb by1%
-\ifnum\the\pgfutil@tempcntb<\the\pgfutil@tempcnta
-\pgfmathprintnumber\pgf@tmp,%
-\else
-\pgfmathprintnumber\pgf@tmp
-\fi}%
-}%
-%%
-%% predefined pics
-% based on https://en.wikipedia.org/wiki/Circumscribed_circle
-\tikzset{pics/3d circle through 3 points/.style={code={%
- \tikzset{3d/circle through 3 points/.cd,#1}%
- \edef\temp{\noexpand\path[overlay,
- 3d coordinate={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}b)=\pgfkeysvalueof{/tikz/3d/circle through 3 points/A}-\pgfkeysvalueof{/tikz/3d/circle through 3 points/C}},
- 3d coordinate={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)=\pgfkeysvalueof{/tikz/3d/circle through 3 points/B}-\pgfkeysvalueof{/tikz/3d/circle through 3 points/C}},
- 3d coordinate={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}c)=\pgfkeysvalueof{/tikz/3d/circle through 3 points/A}-\pgfkeysvalueof{/tikz/3d/circle through 3 points/B}},
- 3d coordinate={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)=(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)x(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}b)}];}%
- \temp
- \pgfmathsetmacro{\lengthn}{sqrt(TD("(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)o(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)"))}
- \ifdim\lengthn pt<0.02pt
- \message{The points are (almost) on a line. Circle cannot be determined.}
- \else
- \pgfmathsetmacro{\tmpradius}{sqrt(TD("(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)o(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)"))*%
- sqrt(TD("(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}b)o(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}b)"))*sqrt(TD("(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}c)o(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}c)"))/%
- (2*\lengthn)}
- \pgfmathsetmacro{\coeffa}{-1*TD("(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}b)o(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}b)")/(2*TD("(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)o(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)"))}
- \pgfmathsetmacro{\coeffb}{TD("(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)o(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)")/(2*TD("(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)o(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)"))}
- \edef\temp{%
- \noexpand\path[overlay,3d coordinate={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}u)=\coeffa*(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)x(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)},
- 3d coordinate={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}v)=\coeffb*(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}b)x(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)}];
- \noexpand\path[3d coordinate={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/center name})=\pgfkeysvalueof{/tikz/3d/circle through 3 points/C}+(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}u)+(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}v)}];
- }%
- \temp
- \pgfmathsetmacro{\normalizationa}{1/sqrt(TD("(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)o(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)"))}
- \pgfmathsetmacro{\normalizationn}{1/sqrt(TD("(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)o(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)"))}
- \edef\temp{%
- \noexpand\path[overlay,3d coordinate={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)=\normalizationa*(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)},
- 3d coordinate={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)=\normalizationn*(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)},
- 3d coordinate={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}c)=(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)x(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}n)}];
- }%
- \temp
- \edef\temp{%
- \noexpand\begin{scope}[plane x={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}a)},plane y={(\pgfkeysvalueof{/tikz/3d/circle through 3 points/auxiliary coordinate prefix}c)},canvas is plane]
- \noexpand\draw[pic actions] (\pgfkeysvalueof{/tikz/3d/circle through 3 points/center name}) circle[radius=\tmpradius];
- \noexpand\end{scope}}%
- \temp
- \fi
-}},3d/circle through 3 points/.cd,A/.initial={(1,0,0)},B/.initial={(0,1,0)},
-C/.initial={(0,0,1)},
-auxiliary coordinate prefix/.initial=tmp,center name/.initial=M}%
-%%
-%% decorations
-%%
-\newif\ifcoil@closed%
-\pgfkeys{%%
-/pgf/decoration/.cd,%
-3d coil color/.store in=\TDCoilColor, %
-3d coil color/.initial=black,%
-3d coil color=black,%
-3d coil width/.store in=\TDCoilWidth, %
-3d coil width/.initial=0.4pt,%
-3d coil width=0.4pt,%
-3d coil dist/.store in=\TDCoilDist, %
-3d coil dist/.initial=0.6pt,%
-3d coil dist=0.6pt,%
-3d coil opacity/.store in=\TDCoilOpacity, %
-3d coil opacity/.initial=1,%
-3d coil opacity=1,%
-3d coil closed/.code=\coil@closedtrue%
-}%
-% https://tex.stackexchange.com/a/219088/121799%
-\tikzset{get stroke color/.code={%%
- \expandafter\global% Jump over, now we have \global%
- \expandafter\let% Jump over now we have \global\let%
- \expandafter\pgfsavedstrokecolor% Jump we have \global\let\pgf...%
- \csname\string\color@pgfstrokecolor\endcsname% Finally expand this and put it at the end %
- }, % \global\let\pgf...{} in expanded form %
- restore stroke color/.code={\pgf@setstrokecolor#1},%
-}%
-\def\pgfpoint@onthreedcoil#1#2#3{%%
- \pgf@x=#1\pgfdecorationsegmentamplitude%%
- \pgf@x=\pgfdecorationsegmentaspect\pgf@x%%
- \pgf@y=#2\pgfdecorationsegmentamplitude%%
- \pgf@xa=0.083333333333\pgfdecorationsegmentlength%%
- \advance\pgf@x by#3\pgf@xa%%
- \advance\pgf@x by-\generaloffset pt%%
-}%
-% coil decoration%
-%%
-% Parameters: \pgfdecorationsegmentamplitude, \pgfdecorationsegmentlength,%
-\pgfdeclaredecoration{3d complete coil}{initial}%
-{ %
- \state{initial}[width=0.5*\pgfdecorationsegmentlength,%
- next state=coil, persistent precomputation={% from https://tex.stackexchange.com/a/25689/121799%
- \pgfmathsetmacro\matchinglength{\pgfdecoratedinputsegmentlength / int(\pgfdecoratedinputsegmentlength/\pgfdecorationsegmentlength)}%
- \setlength{\pgfdecorationsegmentlength}{\matchinglength pt}%
- \tikzset{get stroke color}%
- \pgfmathsetmacro{\generaloffset}{\pgfdecorationsegmentlength}%
- \pgfmathsetmacro{\initialoffset}{1.5*\pgfdecorationsegmentlength}%
- \pgfmathsetmacro{\auxoffset}{2.5*\pgfdecorationsegmentlength}%
- }] { %
- % line in the back%
- %%
- \pgfsetstrokecolor{\TDCoilColor}%
- \pgfsetfillcolor{\TDCoilColor}%
- \pgfsetstrokeopacity{\TDCoilOpacity}%
- \pgfsetlinewidth{\TDCoilWidth} %
- \ifcoil@closed%
- \begingroup%
- \def\generaloffset{\auxoffset}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{ 1 }{15}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{1.555}{ 1 }{16}}%
- {\pgfpoint@onthreedcoil{2 }{ 0.555}{17}}%
- {\pgfpoint@onthreedcoil{2 }{ 0 }{18}}%
- \pgfcoordinate{TD@coilast}{\pgfpoint@onthreedcoil{2 }{ 0 }{18}}%
- \pgfcoordinate{TD@coilfirst}{\pgfpoint@onthreedcoil{1 }{ 1 }{15}}%
- \pgfusepath{stroke} %
- \pgfsetstrokecolor{\TDCoilColor}%
- \endgroup%
- \fi%
- \begingroup %%
- \def\generaloffset{\initialoffset}%
- \ifcoil@closed%
- \pgfpathmoveto{\pgfpointanchor{TD@coilast}{center}}%
- \else%
- \pgfpathmoveto{\pgfpointorigin}%
- \fi%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{2 }{-0.555}{7}}%
- {\pgfpoint@onthreedcoil{1.555}{-1 }{8}}%
- {\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfusepath{stroke} %
- %%
- % white background for front thick part%
- %%
- \pgfsetstrokeopacity{1}%
- \pgfsetstrokecolor{white}%
- \pgfsetfillcolor{white}%
- \pgfsetlinewidth{1.5*\TDCoilWidth+1.5*\TDCoilDist}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- % draw forward%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{11.25}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{12.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{13.25}}%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14.25}}%
- {\pgfpoint@onthreedcoil{1 }{ 1 }{15}}%
- % draw the curve back%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14}}%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{12.75}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{11.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{10.75}}%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfusepath{stroke,fill} %
- % %
- % draw the thick foreground path%
- %%
- \pgfsetstrokecolor{\TDCoilColor}%
- \pgfsetfillcolor{\TDCoilColor}%
- \pgfsetstrokeopacity{\TDCoilOpacity}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{ 1 }{3}}%
- \pgfsetlinewidth{\TDCoilWidth} %
- % forward shifted +%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{11.25}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{12.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{13.25}}%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14.25}}%
- {\pgfpoint@onthreedcoil{1 }{ 1 }{15}}%
- % draw the curve back shfted -%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14}}%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{12.75}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{11.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{10.75}}%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfusepath{stroke,fill} %
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{ 1 }{15}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{1.555}{ 1 }{16}}%
- {\pgfpoint@onthreedcoil{2 }{ 0.555}{17}}%
- {\pgfpoint@onthreedcoil{2 }{ 0 }{18}}%
- \pgfcoordinate{TD@coilast}{\pgfpoint@onthreedcoil{2 }{ 0 }{18}} %
- \pgfusepath{stroke} %
- \endgroup%
- }%
- \state{coil}[switch if less than=%%
- 1.9*\pgfdecorationsegmentlength to last,%
- width=+\pgfdecorationsegmentlength]%
- { % line in the back%
- %%
- \pgfsetstrokecolor{\TDCoilColor}%
- \pgfsetfillcolor{\TDCoilColor}%
- \pgfsetstrokeopacity{\TDCoilOpacity}%
- \pgfpathmoveto{\pgfpointanchor{TD@coilast}{center}}%
- \pgfsetlinewidth{\TDCoilWidth} %
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{2 }{-0.555}{7}}%
- {\pgfpoint@onthreedcoil{1.555}{-1 }{8}}%
- {\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfusepath{stroke} %
- %%
- % white background for front thick part%
- %%
- \pgfsetstrokeopacity{1}%
- \pgfsetstrokecolor{white}%
- \pgfsetfillcolor{white}%
- \pgfsetlinewidth{1.5*\TDCoilWidth+1.5*\TDCoilDist}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{ 1 }{3}}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- % draw forward%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{11.25}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{12.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{13.25}}%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14.25}}%
- {\pgfpoint@onthreedcoil{1 }{ 1 }{15}}%
- % draw the curve back%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14}}%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{12.75}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{11.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{10.75}}%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfusepath{stroke,fill} %
- % %
- % draw the thick foreground path%
- %%
- \pgfsetstrokecolor{\TDCoilColor}%
- \pgfsetfillcolor{\TDCoilColor}%
- \pgfsetstrokeopacity{\TDCoilOpacity}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{ 1 }{3}}%
- \pgfsetlinewidth{\TDCoilWidth} %
- % forward shifted +%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{11.25}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{12.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{13.25}}%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14.25}}%
- {\pgfpoint@onthreedcoil{1 }{ 1 }{15}}%
- % draw the curve back shfted -%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14}}%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{12.75}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{11.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{10.75}}%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfusepath{stroke,fill} %
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{ 1 }{15}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{1.555}{ 1 }{16}}%
- {\pgfpoint@onthreedcoil{2 }{ 0.555}{17}}%
- {\pgfpoint@onthreedcoil{2 }{ 0 }{18}}%
- \pgfusepath{stroke} %
- \pgfcoordinate{TD@coilast}{\pgfpoint@onthreedcoil{2 }{ 0 }{18}} %
- }%
- \state{last}[next state=final]%
- { % line in the back%
- %%
- \pgfsetstrokecolor{\TDCoilColor}%
- \pgfsetfillcolor{\TDCoilColor}%
- \pgfsetstrokeopacity{\TDCoilOpacity}%
- \pgfpathmoveto{\pgfpointanchor{TD@coilast}{center}}%
- \pgfsetlinewidth{\TDCoilWidth} %
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{2 }{-0.555}{7}}%
- {\pgfpoint@onthreedcoil{1.555}{-1 }{8}}%
- {\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfusepath{stroke} %
- % %
- % draw the thick foreground path%
- %%
- \ifcoil@closed %\pgfpointanchor{TD@coilfirst}{center}%
- %%
- % white background for front thick part%
- %%
- \pgfsetstrokeopacity{1}%
- \pgfsetstrokecolor{white}%
- \pgfsetfillcolor{white}%
- \pgfsetlinewidth{1.5*\TDCoilWidth+1.5*\TDCoilDist}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{ 1 }{3}}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- % draw forward%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{11.25}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{12.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{13.25}}%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14.25}}%
- {\pgfpointanchor{TD@coilfirst}{center}}%
- % draw the curve back%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14}}%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{12.75}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{11.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{10.75}}%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfusepath{stroke,fill} %
- \pgfsetstrokecolor{\TDCoilColor}%
- \pgfsetfillcolor{\TDCoilColor}%
- \pgfsetstrokeopacity{\TDCoilOpacity}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{ 1 }{3}}%
- \pgfsetlinewidth{\TDCoilWidth} %
- % forward shifted +%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{11.25}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{12.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{13.25}}%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14.25}}%
- {\pgfpointanchor{TD@coilfirst}{center}}%
- % draw the curve back shifted %
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14}}%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{12.75}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{11.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{10.75}}%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfusepath{stroke,fill} %
- \else%
- %%
- % white background for front thick part%
- %%
- \pgfsetstrokeopacity{1}%
- \pgfsetstrokecolor{white}%
- \pgfsetfillcolor{white}%
- \pgfsetlinewidth{1.5*\TDCoilWidth+1.5*\TDCoilDist}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{ 1 }{3}}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- % draw forward%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{11.25}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{12.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{13.25}}%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14.25}}%
- {\pgfpoint@onthreedcoil{1 }{ 1 }{15}}%
- % draw the curve back%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14}}%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{12.75}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{11.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{10.75}}%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfusepath{stroke,fill} %
- \pgfsetstrokecolor{\TDCoilColor}%
- \pgfsetfillcolor{\TDCoilColor}%
- \pgfsetstrokeopacity{\TDCoilOpacity}%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{ 1 }{3}}%
- \pgfsetlinewidth{\TDCoilWidth} %
- % forward shifted +%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{11.25}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{12.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{13.25}}%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14.25}}%
- {\pgfpoint@onthreedcoil{1 }{ 1 }{15}}%
- % draw the curve back shifted %
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0.445}{ 1 }{14}}%
- {\pgfpoint@onthreedcoil{0 }{ 0.555}{12.75}}%
- {\pgfpoint@onthreedcoil{0 }{ 0 }{11.5}}%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{0 }{-0.555}{10.75}}%
- {\pgfpoint@onthreedcoil{0.445}{-1 }{10}}%
- {\pgfpoint@onthreedcoil{1 }{-1 }{9}}%
- \pgfusepath{stroke,fill} %
- \fi%
- \pgfpathmoveto{\pgfpoint@onthreedcoil{1 }{ 1 }{15}}%
- \ifcoil@closed %TD@coilfirst%
- \else%
- \pgfpathcurveto%
- {\pgfpoint@onthreedcoil{1.555}{ 1 }{16}}%
- {\pgfpoint@onthreedcoil{2 }{ 0.555}{17}}%
- {\pgfpoint@onthreedcoil{2 }{ 0 }{18}}%
- \fi%
- \pgfusepath{stroke} %
- %\pgfcoordinate{TD@coilast}{\pgfpoint@onthreedcoil{2 }{ 0 }{18}} %
- }%
- \state{final}%
- {%
- \pgfpathmoveto{\pgfpointdecoratedpathlast}%
- \tikzset{restore stroke color/.expand once=\pgfsavedstrokecolor}%
- }%
-}%
-\makeatother
-\endinput