From 04a585df0c1efc659651ea6535edbb43558c83ca Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 4 Feb 2022 22:19:22 +0000 Subject: sankey (4feb22) git-svn-id: svn://tug.org/texlive/trunk@61874 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/latex/sankey/tikzlibrarydubins.code.tex | 24 ++-------------------- 1 file changed, 2 insertions(+), 22 deletions(-) (limited to 'Master/texmf-dist/tex/latex/sankey/tikzlibrarydubins.code.tex') diff --git a/Master/texmf-dist/tex/latex/sankey/tikzlibrarydubins.code.tex b/Master/texmf-dist/tex/latex/sankey/tikzlibrarydubins.code.tex index 291bcd771fe..4526f1b937d 100644 --- a/Master/texmf-dist/tex/latex/sankey/tikzlibrarydubins.code.tex +++ b/Master/texmf-dist/tex/latex/sankey/tikzlibrarydubins.code.tex @@ -30,32 +30,27 @@ %% sankey-example3-variation.tex, sankey-example4.tex, %% sankey-example-energy.tex %% -\def\tikzlibrarydubins@version{v3.0} -\def\tikzlibrarydubins@date{2021/03/14} - +\def\tikzlibrarydubins@version{v3.0.1} +\def\tikzlibrarydubins@date{2022/02/04} \usetikzlibrary{calc} \RequirePackage{etoolbox} \RequirePackage{xfp} \newbool{dubinspathreverse} - \def\ifpgfmathcond#1{% \pgfmathparse{(#1)?1:0}% \ifnumequal{\pgfmathresult}{1}% } - \def\dbp@getxy#1#2#3{% \tikz@scan@one@point\pgfutil@firstofone(#3)\relax% \edef#1{\the\pgf@x}% \edef#2{\the\pgf@y}% } - \def\dbp@anglebetween#1#2#3{%macro, s, t \dbp@getxy\dbp@ax\dbp@ay{#2} \dbp@getxy\dbp@bx\dbp@by{#3} \pgfmathsetmacro#1{atan2(\dbp@by-\dbp@ay,\dbp@bx-\dbp@ax)} } - \def\dbp@distancebetween#1#2#3{%macro, s, t \dbp@getxy\dbp@ax\dbp@ay{#2} \dbp@getxy\dbp@bx\dbp@by{#3} @@ -64,7 +59,6 @@ +(\dbp@by-\dbp@ay)*(\dbp@by-\dbp@ay)% )}}% } - \newcommand\dbp@rsr{% s, sa, t, ta, as, len, at, r let \p{tr}=([shift={(\dbp@angb-90:\dbp@radius pt)}]\dbp@b), @@ -76,7 +70,6 @@ -- ([shift={(\p{tr})}]\n3:\dbp@rradius pt) arc(\n3:\n2:\dbp@rradius pt) } - \newcommand\dbp@lsl{% s, sa, t, ta, as, len, at, r let \p{tl}=([shift={(\dbp@angb+90:\dbp@radius pt)}]\dbp@b), @@ -87,7 +80,6 @@ -- ([shift={(\p{tl})}]\n4:\dbp@lradius pt) arc(\n4:\n3:\dbp@lradius pt) } - \newcommand\dbp@rsl{% s, sa, t, ta, as, len, at, r let \p{tl}=([shift={(\dbp@angb+90:\dbp@radius pt)}]\dbp@b), @@ -98,7 +90,6 @@ -- ([shift={(\p{tl})}]\n4:\dbp@lradius pt) arc(\n4:\n3:\dbp@lradius pt) } - \newcommand\dbp@lsr{% s, sa, t, ta, as, len, at, r let \p{tr}=([shift={(\dbp@angb-90:\dbp@radius pt)}]\dbp@b), @@ -109,7 +100,6 @@ -- ([shift={(\p{tr})}]\n4:\dbp@rradius pt) arc(\n4:\n3:\dbp@rradius pt) } - \newcommand\dbp@lrl{% s, sa, t, ta, as, ai, at, r let \n1={\dbp@anga-90},\n2={\n1+\dbp@firstangle}, @@ -119,7 +109,6 @@ arc(\n2+180:\n2+180-\dbp@midparam:\dbp@rradius pt) arc(\n4:\n3:\dbp@lradius pt) } - \newcommand\dbp@rlr{% s, sa, t, ta, as, ai, at, r let \n1={\dbp@anga+90},\n2={\n1-\dbp@firstangle}, @@ -135,7 +124,6 @@ \newcommand\dbp@rev@rsl{\dbp@rsl} \newcommand\dbp@rev@lrl{\dbp@rlr} \newcommand\dbp@rev@rlr{\dbp@lrl} - \newcommand\dubinspath[1]{% \pgfextra{ \dubinspathset{#1} @@ -163,9 +151,6 @@ } \csname dbp@\dbp@method\endcsname% } - -%% solution - \def\dbp@store#1#2{% \expandafter\xdef\csname dbp@store@#1@#2\endcsname% {\csname dbp@#2\endcsname}% @@ -173,7 +158,6 @@ \def\dbp@get#1#2{% \csname dbp@store@#1@#2\endcsname% } - \def\dbp@setparams#1#2#3#4#5{% % method, length, fisrt angle, middle param, last angle \edef\dbp@method{#1} @@ -187,13 +171,11 @@ } }{} } - \def\dbp@updateparams#1#2#3#4#5{ \ifpgfmathcond{#2<\dbp@length}{ \dbp@setparams{#1}{#2}{#3}{#4}{#5} }{} } - \tikzset{ dubins path/.is family, dubins path, @@ -224,9 +206,7 @@ middle param/.store in=\dbp@midparam, reverse/.is if=dubinspathreverse, } - \newcommand\dubinspathset[1]{\tikzset{dubins path,#1}} - \newcommand\dubinspathcalc[1]{% \begingroup \dubinspathset{#1} -- cgit v1.2.3