summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/sankey/tikzlibrarydubins.code.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-02-04 22:19:22 +0000
committerKarl Berry <karl@freefriends.org>2022-02-04 22:19:22 +0000
commit04a585df0c1efc659651ea6535edbb43558c83ca (patch)
tree3b3fda67fb21339528700d9479444459184318ad /Master/texmf-dist/tex/latex/sankey/tikzlibrarydubins.code.tex
parent791a232caa9b4caf8f61713ddd320d9305a2270b (diff)
sankey (4feb22)
git-svn-id: svn://tug.org/texlive/trunk@61874 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/sankey/tikzlibrarydubins.code.tex')
-rw-r--r--Master/texmf-dist/tex/latex/sankey/tikzlibrarydubins.code.tex24
1 files changed, 2 insertions, 22 deletions
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}