texlive[69040] Master/texmf-dist: wheelchart (5dec23)
commits+karl at tug.org
commits+karl at tug.org
Tue Dec 5 21:45:17 CET 2023
Revision: 69040
https://tug.org/svn/texlive?view=revision&revision=69040
Author: karl
Date: 2023-12-05 21:45:17 +0100 (Tue, 05 Dec 2023)
Log Message:
-----------
wheelchart (5dec23)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/latex/wheelchart/README.md
trunk/Master/texmf-dist/doc/latex/wheelchart/wheelchart.pdf
trunk/Master/texmf-dist/doc/latex/wheelchart/wheelchart.tex
trunk/Master/texmf-dist/tex/latex/wheelchart/wheelchart.sty
Modified: trunk/Master/texmf-dist/doc/latex/wheelchart/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/latex/wheelchart/README.md 2023-12-05 20:45:10 UTC (rev 69039)
+++ trunk/Master/texmf-dist/doc/latex/wheelchart/README.md 2023-12-05 20:45:17 UTC (rev 69040)
@@ -1,13 +1,13 @@
# `wheelchart`
-## Draw wheelcharts with TikZ
+## Draw wheelcharts with Ti*k*Z
-Version 1.0 (2022/09/11)
+Version 2.0 (2023/12/03)
-This package is based on the package [TikZ](https://ctan.org/pkg/pgf) and can be used to draw wheelcharts with TikZ. It provides several options to customize the wheelcharts.
+This package is based on the package [Ti*k*Z](https://ctan.org/pkg/pgf) and can be used to draw various kinds of diagrams such as a bar chart, doughnut chart, infographic, pie chart, ring chart, square chart, sunburst chart, waffle chart and wheel chart with Ti*k*Z. It provides several options to customize the diagrams. It is also possible to specify a plot for the shape of the chart. Furthermore a legend can be added and the table of contents can be displayed as one of these diagrams.
%% README.md
-%% Copyright 2022 Matthias Floré
+%% Copyright 2023 Matthias Floré
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3c
Modified: trunk/Master/texmf-dist/doc/latex/wheelchart/wheelchart.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/wheelchart/wheelchart.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/wheelchart/wheelchart.tex 2023-12-05 20:45:10 UTC (rev 69039)
+++ trunk/Master/texmf-dist/doc/latex/wheelchart/wheelchart.tex 2023-12-05 20:45:17 UTC (rev 69040)
@@ -1,5 +1,5 @@
%% wheelchart.tex
-%% Copyright 2022 Matthias Floré
+%% Copyright 2023 Matthias Floré
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3c
@@ -18,31 +18,114 @@
\documentclass[a4paper,english,dvipsnames]{ltxdoc}
\usepackage[english]{babel}
\usepackage{graphicx}
-\usepackage[a4paper,left=2.25cm,right=2.25cm,top=2.5cm,bottom=2.5cm,nohead]{geometry}
+\usepackage[a4paper,left=2.25cm,right=2.25cm,top=2.5cm,bottom=2.5cm]{geometry}
\usepackage{parskip}
+\usepackage{iftex}
+\ifluatex
+\else
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
+\fi
+\usepackage[page]{totalcount}%\totalpages or \getpagerefnumber{Thesourcecode}-1
\usepackage{mathtools}
\usepackage{amssymb}
\usepackage{interval}
\allowdisplaybreaks
-\usepackage{siunitx}
-\usepackage{etoolbox}
+\usepackage{tabularray}
+\UseTblrLibrary{counter,siunitx}
\usepackage{listofitems}
+\usepackage{pdflscape}
\usepackage{wheelchart}
-\usetikzlibrary{decorations.markings,patterns}
+\usetikzlibrary{decorations.markings,decorations.text,patterns}
+\usepackage{tikzlings}
\input{pgfmanual-en-macros.tex}
-\usepackage[page]{totalcount}
+%The environments commandmeta and commandmetameta and the macros \extractcommandmeta and \extractcommandmetameta below are modified from pgfmanual-en-macros.tex
+\newenvironment{commandmeta}[2]{
+ \begin{pgfmanualentry}
+ \extractcommandmeta#1#2\@@
+ \pgfmanualbody
+}
+{
+ \end{pgfmanualentry}
+}
+\def\extractcommandmeta#1#2\@@{%
+ \removeats{#1}%
+ \pgfmanualentryheadline{%
+ \pgfmanualpdflabel{\textbackslash\strippedat\meta{#2}}{}%
+ \declare{\expandafter\texttt\expandafter{\string#1\meta{#2}}}%
+ }%
+ \index{\strippedat\meta{#2} @\protect\myprintocmmand{\strippedat\meta{#2}}}
+}
+\newenvironment{commandmetameta}[2]{
+ \begin{pgfmanualentry}
+ \extractcommandmetameta#1\@@#2\@@
+ \pgfmanualbody
+}
+{
+ \end{pgfmanualentry}
+}
+\def\extractcommandmetameta#1\@@#2\@@{%
+ \pgfmanualentryheadline{%
+ \pgfmanualpdflabel{\textbackslash\meta{#1}\meta{#2}}{}%
+ \declare{\expandafter\texttt\expandafter{\textbackslash\meta{#1}\meta{#2}}}%
+ }%
+ \index{\meta{#1}\meta{#2} @\protect\myprintocmmand{\meta{#1}\meta{#2}}}
+}
+\usepackage{codehigh}
\usepackage{fancyhdr}
\pagestyle{fancy}
\renewcommand{\headrulewidth}{0pt}
-\cfoot{\iftotalpages\begin{tikzpicture}[scale=0.15]\wheelchart[data={},gap,middle=\thepage,slices style={/utils/exec={\ifnum\thepage=\WCcount\def\WCcolor{Cyan}\else\def\WCcolor{Gray}\fi},\WCcolor},total count={\totalpages-1},value=1]{}\end{tikzpicture}\fi}
-\fancyhead{}
+\addtolength{\headheight}{3pt}
+\addtolength{\topmargin}{-3pt}
+\fancyhead[L,R]{}
+\fancyhead[C]{\iftotalpages\ifnum\thepage<\getpagerefnumber{Usage}\else \begin{tikzpicture}
+\def\WCtotal{16.6}%21-<left=2.25cm>-<right=2.25cm>+2<gap polar=0.05>
+\def\WCarrow{0.8}
+\pgfkeys{
+ /wheelchart,
+ data=,
+ gap polar=0.05
+}
+\wheelchart[
+ etoc use name=wheelchart table of contents,
+ slices end arrow={\WCcount==\WCtotalcount?0:\WCarrow}{0},
+ slices start arrow={\WCcount==1?0:-\WCarrow}{0},
+ slices style={MidnightBlue!\fpeval{\thepage<\WCetocthepage||\thepage>=\WCetocthepage+\WCetocthenumberofpages?20:50}},
+ value=\WCetocthenumberofpages,
+ xbar={\WCtotal}{0.4}
+]{}
+\wheelchart[
+ at={({(\thepage -\getpagerefnumber{Usage})*\WCtotal/(\getpagerefnumber{Thesourcecode}-\getpagerefnumber{Usage})},0)},
+ slices end arrow={\thepage==\getpagerefnumber{Thesourcecode}-1?0:\WCarrow}{0},
+ slices start arrow={\thepage==\getpagerefnumber{Usage}?0:-\WCarrow}{0},
+ xbar={\WCtotal/(\getpagerefnumber{Thesourcecode}-\getpagerefnumber{Usage})}{0.4}
+]{1/PineGreen/}
+\end{tikzpicture}\fi\fi}
+\fancyfoot[C]{\ifdefined\fancyfootdefaultbox\begin{tikzpicture}[scale=0.15]
+\useasboundingbox (-3,-3) rectangle (3,3);
+\node[inner sep=0pt] {\usebox{\fancyfootdefaultbox}};%reusing the box compiles faster
+%\wheelchart[
+% gap,
+% middle=\thepage,
+% slices style=Gray,
+% slices style{\thepage}=Cyan,
+% %slices style={
+% % /utils/exec={\pgfmathsetmacro{\WCcolor}{\thepage==\WCcount?"Cyan":"Gray"}},
+% % \WCcolor
+% %},
+% total count=\getpagerefnumber{Thesourcecode}-1%\totalpages
+%]{}
+\wheelchart[
+ gap,
+ middle=\thepage,
+ start angle={90-(\thepage-1)*(360/(\getpagerefnumber{Thesourcecode}-1))},%\totalpages
+ total angle={360/(\getpagerefnumber{Thesourcecode}-1)},%\totalpages
+]{1/Cyan/}
+\end{tikzpicture}\fi}
\usepackage{etoc}
-\def\WCtableofcontents{}
-\etocsetstyle{section}{}{}{\xappto\WCtableofcontents{,\etocthename/\etocthenumber/\etocthepage}}{}
\etocsettocstyle{\hypersetup{hidelinks}}{}
\etocglobaldefs
+\usepackage[nottoc]{tocbibind}
\usepackage{imakeidx}
\makeindex[program=makeindex,columns=2,intoc=true]
\indexsetup{othercode={\thispagestyle{fancy}}}
@@ -54,41 +137,95 @@
\setcounter{secnumdepth}{2}
\title{The \texttt{wheelchart} package\\[12pt]\large Draw wheelcharts with \tikzname}
\author{Matthias Flor\'e}
-\date{Version 1.0 (2022/09/11)}%\\[12pt]
+\date{Version 2.0 (2023/12/03)}%\\[12pt]
\begin{document}
+\iftotalpages%
+\newsavebox{\fancyfootdefaultbox}%
+\begin{lrbox}{\fancyfootdefaultbox}%note the % to avoid extra space
+\begin{tikzpicture}[scale=0.15]
+\useasboundingbox (-3,-3) rectangle (3,3);
+\wheelchart[
+ gap,
+ slices style=Gray,
+ total count=\getpagerefnumber{Thesourcecode}-1%\totalpages
+]{}
+\end{tikzpicture}%note the % to avoid extra space
+\end{lrbox}%
+\fi%
\maketitle
\thispagestyle{fancy}
\begin{abstract}
-\noindent This package is based on the package |tikz| (see \cite{TtTaPGFp}) and can be used to draw wheelcharts with \tikzname. It provides several options to customize the wheelcharts. Other tools for creating wheelcharts or pie charts can be found in \cite{MpMP}, \cite{JhcIparowcltopotPGFm}, \cite{Tumfdb}, \cite{RSVpaaMfp} and \cite{XdPCbupp}.% This is the manual for version .
+\noindent This package is based on the package |tikz| (see \cite{TtTaPGFp}) and can be used to draw various kinds of diagrams such as a bar chart, doughnut chart, infographic, pie chart, ring chart, square chart, sunburst chart, waffle chart and wheel chart with \tikzname. It provides several options to customize the diagrams. It is also possible to specify a plot for the shape of the chart. Furthermore a legend can be added and the table of contents can be displayed as one of these diagrams. Other tools for creating wheelcharts or pie charts can be found in \cite{MpMP}, \cite{JhcIparowcltopotPGFm}, \cite{Tumfdb}, \cite{XdPCbupp} and \cite{RSVpaaMfp}.% This is the manual for version .
\end{abstract}
\section*{\contentsname}
-\tableofcontents
-\patchcmd{\WCtableofcontents}{,}{}{}{}
-\begin{codeexample}[]
+\iftotalpages
+\begin{codeexample}[preamble={%\usepackage[page]{totalcount}
+\usepackage{etoolbox}
+\usetikzlibrary{decorations.text}
+\usepackage{etoc}
+\etocsettocstyle{\hypersetup{hidelinks}}{}
+\etocglobaldefs
+\usepackage[linktoc=all]{hyperref}}]
\begin{tikzpicture}
+\pgfkeys{
+ /wheelchart,
+ for loop start={\colorlet{WCcolor}{MidnightBlue!\fpeval{(\WCcount/\WCtotalcount)*100}}},
+ gap,
+ start angle=0,
+ value=\WCetocthenumberofpages
+}
\wheelchart[
+ after slices={
+ \pgfdeclareradialshading{WCshading}{\pgfpoint{0cm}{0cm}}{
+ color(0bp)=(WCcolor);
+ color(16.66666bp)=(WCcolor);%2/3 * 25bp
+ color(20.83333bp)=(WCcolor!10);%2.5/3 * 25bp
+ color(25bp)=(WCcolor);
+ color(50bp)=(WCcolor)
+ }
+ \shade[even odd rule,shading=WCshading] (0,0) circle[radius=3] circle[radius=2];
+ },
+ data=,
+ etoc count total pages=\getpagerefnumber{Thesourcecode}-1,%\totalpages
+ etoc level=section,
+ etoc name=wheelchart table of contents,
+ slices style={
+ fill=none,
+ clip
+ }
+]{}
+\hypersetup{linkcolor=.}
+\wheelchart[
+ anchor ysep{7,8}=30,
data={%
-\pgfmathsetmacro{\WCcolornumber}{(\WCcount/\WCtotalcount)*100}%
-\ifdefempty{\WCvarB}{\gdef\WChyperlink{section*.3}}{\gdef\WChyperlink{section.\WCcount}}%
-\hyperlink{\WChyperlink}{%
-\textbf{\textcolor{PineGreen!\WCcolornumber}{\Large\ifdefempty{\WCvarB}{}{\WCvarB{} }\WCvarA}}}\\%
-\hyperlink{\WChyperlink}{\textcolor{Cyan}{page \WCvarC}}%
-},
- gap,
+ \textcolor{WCcolor}{%
+ \textbf{\Large\ifdefempty{\WCetocthenumber}{}{\WCetocthelinkednumber{} }\WCetocthelinkedname}}\\%
+ \textcolor{PineGreen}{page \WCetocthelinkedpage}%
+ },
+ etoc use name=wheelchart table of contents,
lines,
- lines style={Cyan,very thick},
+ lines style=PineGreen,
middle={\LARGE The\\[10pt]\huge\texttt{wheelchart}\\[10pt]\LARGE package},
+ slice{\getrefnumber{Keys}}={
+ arc={
+ draw=PineGreen,
+ ->
+ },
+ arc around text,
+ arc data=~Options for customization~,
+ arc data style={text color=PineGreen},
+ lines sep=0.5
+ },
slices style={
- /utils/exec={\pgfmathsetmacro{\WCcolornumber}{(\WCcount/\WCtotalcount)*100}},
- PineGreen!\WCcolornumber,
- draw=Cyan,
- very thick
- },
- value=1
-]{\WCtableofcontents}
+ fill=none,
+ draw=PineGreen,
+ ultra thick
+ }
+]{}
\end{tikzpicture}
\end{codeexample}
-\section{Usage}
+\fi
+\section{Usage}\label{Usage}
The package |wheelchart| can be used by putting the following in the preamble.
\begin{codeexample}[code only]
\usepackage{wheelchart}
@@ -98,17 +235,17 @@
Many examples in this manual use colors which can be defined by giving |dvipsnames| as an option to |\documentclass|.
\section{The main macro}
\begin{command}{\wheelchart\opt{\oarg{options}}\marg{wheelchart data}}
-This command can be placed inside a |tikzpicture| environment. It draws a wheelchart with \meta{wheelchart data}. The \meta{wheelchart data} is a comma separated list. Each item in this list corresponds to one slice of the wheelchart and consists of data separated by a |/|. The precise syntax of the \meta{wheelchart data} will be explained below. The \meta{options} can be given with the keys described in Section \ref{Keys}.
+This command can be placed inside a |tikzpicture| environment. It draws a wheelchart with \meta{wheelchart data}. With the initial settings, the \meta{wheelchart data} is a comma separated list in which each item corresponds to one slice of the wheelchart and consists of data separated by a |/|. The precise syntax of the \meta{wheelchart data} will be explained below. The \meta{options} can be given with the keys described in Section \ref{Keys}.
\begin{command}{\exampleforthismanual}
To simplify the creation of examples in this manual, we define the \meta{wheelchart data} below.
\begin{codeexample}[]
\gdef\exampleforthismanual{%
-14/Apricot/Apricot/{A, B, C, E, K}/{north east lines}/0/0/Gray,
+14/Apricot/Apricot/{A, B, C, E, K}/north east lines/0/0/Gray,
40/LimeGreen/Lime/{B, C}/grid/0/15/Black,
20/Melon/Melon/{A, C}//0.5/0/none,
16/OliveGreen/Olive/{A, B, E, K}/dots/0/0/none,
-28/Peach/Peach/{A, B, C, E, K}/{fivepointed stars}/0/0/Lavender,
-32/Plum/Plum/{A, B, C, E, K}/bricks/0/{-15}/none,
+28/Peach/Peach/{A, B, C, E, K}/fivepointed stars/0/0/Lavender,
+32/Plum/Plum/{A, B, C, E, K}/bricks/0/-15/none,
50/WildStrawberry/Strawberry/{B, C, E, K}//1/0/DarkOrchid%
}
\end{codeexample}%pattern crosshatch,checkerboard
@@ -120,20 +257,38 @@
\end{tikzpicture}
\end{codeexample}
\end{command}
+\newpage%such that this section has its own block in the header
\section{Additional macros}
\begin{command}{\WCcount}
This macro gives the current number of the slice in the \meta{wheelchart data}.
-\begin{codeexample}[width=10cm]
-\begin{tikzpicture}
-\wheelchart[
- inner data=\WCcount
-]{\exampleforthismanual}
-\end{tikzpicture}
-\end{codeexample}
\end{command}
+\begin{command}{\WCcountdiscrete}
+If the key |discrete| is true then this macro gives the current number of the \tikzname{} pic from the key |discrete pic|.
+\end{command}
\begin{command}{\WCdataangle}
-This macro stores the sum of the value of the key |data angle shift| (taking into account the key |counterclockwise|) and the macro |\WCmidangle| modulo $360$.
+This macro is similar to |\WCmidangle| but also takes into account the keys |data angle pos|, |data angle shift| and |data sep| (with respect to the key |counterclockwise|).
\end{command}
+\begin{command}{\WCetocthelinkedname}
+\end{command}
+\begin{command}{\WCetocthelinkednumber}
+\end{command}
+\begin{command}{\WCetocthelinkedpage}
+\end{command}
+\begin{command}{\WCetocthename}
+\end{command}
+\begin{command}{\WCetocthenumber}
+\end{command}
+\begin{command}{\WCetocthenumberofpages}
+\end{command}
+\begin{command}{\WCetocthepage}
+\end{command}
+These macros are defined when the key |etoc level| is used.
+\begin{command}{\WClegend}
+If the key |legend row| is used then the resulting legend is stored in the macro |\WClegend|.
+\end{command}
+\begin{commandmeta}{\WClist}{name}
+This macro is defined when the key |WClist|\meta{name} is used and gives the element in the \meta{list} given to the key |WClist|\meta{name} with as index |\WCcount| modulo the length of this \meta{list}. The \meta{name} is the one given to the key |WClist|\meta{name}.
+\end{commandmeta}
\begin{command}{\WCmidangle}
This macro gives the angle in degrees modulo $360$ of the middle of the current slice.
\begin{codeexample}[width=10cm]
@@ -146,10 +301,7 @@
fill=GreenYellow,
anchor=west,
text=Gray
- }
-]{\exampleforthismanual}
-\wheelchart[
- data={},
+ },
inner data={%
\textbackslash WCmidangle%
},
@@ -156,19 +308,17 @@
inner data style={
rotate=\WCmidangle,
font=\ttfamily
- },
- slices style={fill=none}
+ }
]{\exampleforthismanual}
\end{tikzpicture}
\end{codeexample}
\end{command}
\begin{command}{\WCperc}
-This macro displays |\WCpercentage| rounded up to the number of decimals determined by the key |perc precision| followed by a \unit{\percent} symbol.
+This macro displays |\WCpercentagerounded| followed by a \unit{\percent} symbol.
If the package |siunitx| is loaded then the following code is used. The package |siunitx| can be loaded before or after the package |wheelchart|.
\begin{codeexample}[code only]
-\qty[round-mode=places,
- round-precision=\pgfkeysvalueof{/wheelchart/perc precision}]{\WCpercentage}{\percent}
+\qty{\WCpercentagerounded}{\percent}
\end{codeexample}
If the package |siunitx| is not loaded then the following code is used.
\begin{codeexample}[code only]
@@ -177,13 +327,12 @@
\end{command}
\begin{command}{\WCpercentage}
This macro gives the percentage of the current slice where the total is computed with the values of the key |value|. Note that rounding errors can occur.
-\begin{codeexample}[]
+\begin{codeexample}[width=10cm,preamble={\usepackage{siunitx}}]
\begin{tikzpicture}
\wheelchart[
- data={\WCvarC\\\WCperc},
+ data=\WCvarC\\\WCperc,
slices style={
- /utils/exec=\pgfmathsetmacro{\WCcolornumber}{4*\WCpercentage},
- \WCvarB!\WCcolornumber
+ \WCvarB!\fpeval{4*\WCpercentage}
}
]{\exampleforthismanual}
\end{tikzpicture}
@@ -200,12 +349,11 @@
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\wheelchart[
- data={\WCvarC: \WCvarA},
+ data=\WCvarC: \WCvarA,
middle={%
\textbf{\huge Fruit}\\%
\WCtotalcount{} species\\%
- \pgfmathprintnumber{\WCtotalnum}
- pieces%
+ \WCtotalnum{} pieces%
}
]{\exampleforthismanual}
\end{tikzpicture}
@@ -217,87 +365,113 @@
\end{command}
\begin{command}{\WCvarC}
\end{command}
-\begin{command}{\WCvarD}
-\end{command}
-\begin{command}{\WCvarE}
-\end{command}
-\begin{command}{\WCvarF}
-\end{command}
-\begin{command}{\WCvarG}
-\end{command}
-\begin{command}{\WCvarH}
-\end{command}
-\begin{command}{\WCvarI}
-\end{command}
-\begin{command}{\WCvarJ}
-\end{command}
-\begin{command}{\WCvarK}
-\end{command}
-\begin{command}{\WCvarL}
-\end{command}
-\begin{command}{\WCvarM}
-\end{command}
-\begin{command}{\WCvarN}
-\end{command}
-\begin{command}{\WCvarO}
-\end{command}
-\begin{command}{\WCvarP}
-\end{command}
-\begin{command}{\WCvarQ}
-\end{command}
-\begin{command}{\WCvarR}
-\end{command}
-\begin{command}{\WCvarS}
-\end{command}
-\begin{command}{\WCvarT}
-\end{command}
-\begin{command}{\WCvarU}
-\end{command}
-\begin{command}{\WCvarV}
-\end{command}
-\begin{command}{\WCvarW}
-\end{command}
-\begin{command}{\WCvarX}
-\end{command}
-\begin{command}{\WCvarY}
-\end{command}
-\begin{command}{\WCvarZ}
-The \meta{wheelchart data} in the command |\wheelchart| is a comma separated list. Each item in this list corresponds to one slice of the wheelchart and consists of data separated by a |/|. These individual data are interpreted as |\WCvarA/\WCvarB/\WCvarC/...| and can be accessed within the \meta{options} of the command |\wheelchart| by the macros |\WCvarA| till |\WCvarZ| except within the keys |at|, |caption|, |caption left|, |caption left style|, |caption style|, |contour|, |counterclockwise|, |expand list|, |middle fill|, |name|, |start angle|, |start half|, |title|, |title left|, |title left style|, |title style|, |total angle| and |total count|. Thus up to 26 data can be given to each slice of the wheelchart.
+\begin{commandmetameta}{prefix}{name}
+The \meta{wheelchart data} in the command |\wheelchart| is a list in which the items are separated by the value of the key |separator rows|. Each item in this list corresponds to one slice of the wheelchart and consists of data separated by the value of the key |separator columns|. The number of such data needs to be the same for each slice. With the initial settings, these individual data are interpreted as the macros |\WCvarA|, |\WCvarB|, |\WCvarC|, \dots, |\WCvarZ|, |\WCvarAA| and so on and can be accessed within the \meta{options} of the command |\wheelchart| if applicable.
+The name of these macros can be specified with \meta{prefix} and \meta{name} which are determined by respectively the keys |header prefix| and |header|.
+
Initially, only |\WCvarA|, |\WCvarB| and |\WCvarC| are used for |value=\WCvarA|, |slices style=\WCvarB| and |data=\WCvarC|.
+
+Other ways to specify data are by using for example a list such as an array with the package |tikz|, a list with the package |listofitems| or with the key |WClist|\meta{name}.
\begin{codeexample}[width=10cm,preamble={\usetikzlibrary{patterns}}]
\begin{tikzpicture}
+\pgfkeys{
+ /wheelchart,
+ gap,
+ header={value,color,text,vitamins,pattern,explode,data angle shift,border},
+ header prefix=my,
+ value=1
+}
\wheelchart[
- data={},
- gap,
+ data=,
radius={0.5}{3},
- slices style={\WCvarB!70,draw=\WCvarH,ultra thick,pattern=\WCvarE,pattern color=\WCvarB!70},
- value=1,
- wheel data=\WCvarC,
+ slices style={\mycolor!70,draw=\myborder,ultra thick,pattern=\mypattern,pattern color=\mycolor!70},
+ wheel data=\mytext,
%wheel data style={shift={(\WCmidangle:0.5)}},
%wheel data pos=0.5
]{\exampleforthismanual}
\wheelchart[
- data={\textcolor{\WCvarB}{Vitamines}\\\WCvarD},
- gap,
+ data={\textcolor{\mycolor}{Vitamins}\\\myvitamins},
radius={3.1}{4},
slices arrow={1}{0.2},
- value=1
+ slices style=\mycolor
]{\exampleforthismanual}
\end{tikzpicture}
\end{codeexample}
-\end{command}
+\end{commandmetameta}
\section{Keys}\label{Keys}
The keys in this Section can be given as \meta{options} to the command |\wheelchart|.
+
+If applicable, an optional non-empty \meta{range} between braces can be given to a key after the \meta{key name} except for the key |slice| where the \meta{range} is mandatory. This \meta{range} is processed with |\foreach| with the option |parse=true|. Hereafter the elements are processed with |\fp_eval:n|. If such a \meta{range} is given to a key then the options given to this key will only be applied to a slice if the number of the slice is in the \meta{range}. The \meta{range} only makes sense for a key which is processed for each slice. For example, the \meta{range} does not make sense for the key |middle|.
+
+Furthermore, it is possible to add |{list}| after the \meta{key name}. Then a list can be given to the key. This list is processed analogously as how the key |WClist|\meta{name} works. Then the result is given to the key.
+
+We give some examples for the options \meta{range} and |{list}| below.
+\begin{itemize}
+\item The following wheelchart can be obtained with the 3 possibilities below.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ data{list}={
+ An,example,where,some,of,the,
+ keys,are,given,using,a,list
+ },
+ slices style{list}={
+ Thistle,Orchid,Fuchsia
+ },
+ total count=12
+]{}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[code only,preamble={\usepackage{listofitems}}]
+\readlist\WCcolors{Thistle,Orchid,Fuchsia}
+
+\setsepchar{ }
+\readlist\WCdata{An example where some of the keys are given using a list}
+
+data={\WCdata[\WCcount]},
+
+slices style={
+ /utils/exec={\pgfmathsetmacro{\WCcolornumber}{int(Mod({\WCcount-1},\WCcolorslen)+1)}},
+ \WCcolors[\WCcolornumber]
+},
+
+total count=\WCdatalen,
+\end{codeexample}
+\begin{codeexample}[code only]
+slices style{1,4,...,\WCdatalen}=Thistle,
+slices style{2,5,...,\WCdatalen}=Orchid,
+slices style{3,6,...,\WCdatalen}=Fuchsia,
+\end{codeexample}
+\item The following wheelchart can be obtained with the 3 possibilities below.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ explode=\WCvarF,
+ pie
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[code only]
+explode={\WCcount==3?0.5:(\WCcount==7?1:0)},
+\end{codeexample}
+\begin{codeexample}[code only]
+explode{3}=0.5,
+explode{7}=1,
+\end{codeexample}
+\end{itemize}
+\begin{key}{/wheelchart/after slices=\marg{code} (initially \normalfont empty)}
+The \meta{code} given to this key will be executed after each slice of the wheelchart.
+\end{key}
\begin{key}{/wheelchart/anchor xsep=\marg{angle} (initially 5)}
\end{key}
\begin{key}{/wheelchart/anchor ysep=\marg{angle} (initially 5)}
-These keys determine the default anchor of the key |data| in the case that |lines ext=0|.
+These keys determine the default anchor of the key |data| in the case that |lines ext=0|. Note that rounding errors can occur in the computation of the angle which is used to determine the default anchor according to Table \ref{tableanchorofthekeydatainthecasethatlinesextequaltozero}.
\begin{table}[ht]
\centering
\begin{tabular}{ll}
& Anchor of the key |data|\\
-|\WCdataangle| & in the case that |lines ext=0|\\\hline
+Angle (up to rounding errors) & in the case that |lines ext=0|\\\hline
$0$ & west\\
$90$ & south\\
$180$ & east\\
@@ -315,83 +489,100 @@
\end{tabular}
\caption{Anchor of the key \texttt{data} in the case that \texttt{lines ext=0}.}\label{tableanchorofthekeydatainthecasethatlinesextequaltozero}
\end{table}
-\begin{codeexample}[width=10cm,preamble={\usetikzlibrary{patterns}}]
+\begin{codeexample}[width=10cm,preamble={\usepackage{siunitx}}]
\begin{tikzpicture}
\wheelchart[
- inner data={$\WCvarA^{\circ}$},
- %inner data style={shift={(\WCmidangle:{-0.1})}},
- inner data sep=0.3,
- lines,
- radius={3}{4},
- slices style={pattern=\WCvarD,pattern color=\WCvarB!70},
-]{%
- 10/Maroon/south/{north east lines},
- 70/TealBlue/{south west}/grid,
- 10/Maroon/west/{north east lines},
- 10/Maroon/west/{north east lines},
- 70/TealBlue/{north west}/grid,
- 10/Maroon/north/{north east lines},
- 10/Maroon/north/{north east lines},
- 70/TealBlue/{north east}/grid,
- 10/Maroon/east/{north east lines},
- 10/Maroon/east/{north east lines},
- 70/TealBlue/{south east}/grid,
- 10/Maroon/south/{north east lines}%
-}
-\end{tikzpicture}
-\end{codeexample}
-\begin{codeexample}[width=10cm,preamble={\usetikzlibrary{patterns}}]
-\begin{tikzpicture}
-\wheelchart[
anchor xsep=10,
anchor ysep=15,
- inner data={$\WCvarA^{\circ}$},
- %inner data style={shift={(\WCmidangle:{-0.1})}},
+ data=\WCvarA,
+ data angle pos=\WClistdap,
+ inner data=\ang{\WClistvalue},
+ inner data angle pos=\WClistdap,
inner data sep=0.3,
- lines,
- radius={3}{4},
- slices style={pattern=\WCvarD,pattern color=\WCvarB!70},
+ lines=0.5,
+ lines angle pos=\WClistdap,
+ slices style{list}={
+ Maroon,SeaGreen,Maroon
+ },
+ value=\WClistvalue,
+ WClistdap={0.9,0.5,0.1},
+ WClistvalue={10,65,15,15,65,10}
]{%
- 20/Maroon/south/{north east lines},
- 40/TealBlue/{south west}/grid,
- 30/Maroon/west/{north east lines},
- 30/Maroon/west/{north east lines},
- 40/TealBlue/{north west}/grid,
- 20/Maroon/north/{north east lines},
- 20/Maroon/north/{north east lines},
- 40/TealBlue/{north east}/grid,
- 30/Maroon/east/{north east lines},
- 30/Maroon/east/{north east lines},
- 40/TealBlue/{south east}/grid,
- 20/Maroon/south/{north east lines}%
+ south,
+ south west,
+ west,
+ west,
+ north west,
+ north,
+ north,
+ north east,
+ east,
+ east,
+ south east,
+ south%
}
\end{tikzpicture}
\end{codeexample}
-The anchor of the key |data| can also be specified manually by using the key |data style|.
-\begin{codeexample}[width=10cm,preamble={\usetikzlibrary{patterns}}]
+The anchor of the key |data| can also be specified manually by using |data style={anchor=|\meta{anchor}|}|.
+\end{key}
+\begin{stylekey}{/wheelchart/arc=\marg{options} (initially \normalfont empty)}
+If this key is set then an arc with the style determined by this key will be drawn following the plot for a slice of the wheelchart.
+\end{stylekey}
+\begin{key}{/wheelchart/arc around text=\opt{\meta{boolean}} (default true, initially false)}
+If true then the arc with the style determined by the key |arc| will be split in two parts such that the gap between these two parts leaves space for the contents of the key |arc data|. The space between the arc and the contents of the key |arc data| can be increased with for example |~| in |arc data=~text~|.
+\end{key}
+\begin{key}{/wheelchart/arc data=\marg{text} (initially \normalfont empty)}
+This key contains the \meta{text} which will be placed following the plot for a slice of the wheelchart using the decoration |text along path|. This requires the \tikzname{} library |decorations.text|. The style of this decoration is given as follows. First, the option |raise=-0.5ex| is given. Then |text align| is determined by the key |arc data align|. Thereafter, the style of the key |arc data style| is added.
+
+Note that for example |\WCpercentage| follows the arc but |\WCperc| does not. Braces are required around some macros and for example |arc data={{{{\WCperc}}}}| requires 4 pairs of braces.
+\end{key}
+\begin{key}{/wheelchart/arc data align=\mchoice{center,left,right} (initially center)}
+This key determines the alignment of the contents of the key |arc data|.
+\end{key}
+\begin{key}{/wheelchart/arc data angle pos=\marg{value} (initially 0.5)}
+\end{key}
+\begin{key}{/wheelchart/arc data angle shift=\marg{angle} (initially 0)}
+These keys determine the position of the contents of the key |arc data| similar as the corresponding keys for the key |data|.
+\end{key}
+\begin{key}{/wheelchart/arc data dir=\marg{value} (initially 1)}
+This key determines the direction of the contents of the key |arc data|. If the \meta{value} is positive then the direction is the same as the direction of the slice. If the \meta{value} is negative then the direction is reversed. The values |1| and |-1| are recommended. When the contents of the key |arc data| is placed, the corresponding domain for the plot is estimated. A warning is given when the contents of the key |arc data| did (possibly) not fit. In this case, the absolute value of the key |arc data dir| should be increased.
+\end{key}
+\begin{key}{/wheelchart/arc data pos=\marg{value} (initially 1)}
+\end{key}
+\begin{key}{/wheelchart/arc data sep=\marg{value} (initially 1ex/1cm)}
+These keys determine the position of the contents of the key |arc data| similar as the corresponding keys for the key |data|.
+\end{key}
+\begin{stylekey}{/wheelchart/arc data style=\marg{options} (initially \normalfont empty)}
+This key accepts a list of keys which will be applied to the decoration for the key |arc data|.
+\end{stylekey}
+\begin{stylekey}{/wheelchart/arc first half=\marg{options} (initially \normalfont empty)}
+If |arc around text| is true then the arc with the style determined by the key |arc| will be split in two parts. The style determined by the key |arc first half| will be appended to the first half of the arc.
+\end{stylekey}
+\begin{key}{/wheelchart/arc pos=\marg{value} (initially 1)}
+This key determines the position of the arc similar as the corresponding key for the key |data|.
+\end{key}
+\begin{stylekey}{/wheelchart/arc second half=\marg{options} (initially \normalfont empty)}
+This key is similar to the key |arc first half| but will be appended to the second half of the arc.
+\end{stylekey}
+\begin{key}{/wheelchart/arc sep=\marg{value} (initially 1ex/1cm)}
+This key determines the position of the arc similar as the corresponding key for the key |data|. Note that the actual distance is given by |0.5ex/1cm| plus |arc sep| to match the option |raise=-0.5ex| given to the decoration for the key |arc data|.
+\begin{codeexample}[width=10cm,preamble={\usetikzlibrary{decorations.text}}]
\begin{tikzpicture}
\wheelchart[
- data style={anchor=\WCvarC},
- inner data={$\WCvarA^{\circ}$},
- %inner data style={shift={(\WCmidangle:{-0.1})}},
- inner data sep=0.3,
- lines,
- radius={3}{4},
- slices style={pattern=\WCvarD,pattern color=\WCvarB!70},
-]{%
- 10/Maroon/{south west}/{north east lines},
- 70/TealBlue/west/grid,
- 10/Maroon/west/{north east lines},
- 10/Maroon/{north west}/{north east lines},
- 70/TealBlue/north/grid,
- 10/Maroon/north/{north east lines},
- 10/Maroon/{north east}/{north east lines},
- 70/TealBlue/east/grid,
- 10/Maroon/{north east}/{north east lines},
- 10/Maroon/east/{north east lines},
- 70/TealBlue/south/grid,
- 10/Maroon/south/{north east lines}%
-}
+ arc=\WCvarB,
+ arc around text,
+ arc data=~\WCvarC~,
+ arc data dir={\WCmidangle<180?1:-1},
+ arc data pos=1.2,
+ arc data style={text color=\WCvarB},
+ arc first half=dashed,
+ arc pos=1.2,
+ arc second half=->,
+ data=,
+ value=width("\WCvarC")
+]{\exampleforthismanual}
+\useasboundingbox (0,0)
+ circle[radius=4];
\end{tikzpicture}
\end{codeexample}
\end{key}
@@ -398,15 +589,24 @@
\begin{key}{/wheelchart/at=\marg{point} (initially (0,0))}
This key defines the center of the wheelchart.
\end{key}
-\begin{key}{/wheelchart/caption=\marg{text}}
-This key contains the \meta{text} which will be placed below the wheelchart. The \meta{text} is placed in a node. The $x$ coordinate of this node is the $x$ coordinate of the center of the wheelchart, which is defined by the key |at|. In general, this is \emph{not} the same as the $x$ coordinate of the center of the |local bounding box| around the wheelchart. The $y$ coordinate of this node is |0.5| below the south of the |local bounding box| around the wheelchart. The style of this node is given as follows. First, the options |anchor=north,align=center| are given. Thereafter, the style of the key |caption style| is added.
+\begin{key}{/wheelchart/before slices=\marg{code} (initially \normalfont empty)}
+The \meta{code} given to this key will be executed before each slice of the wheelchart.
\end{key}
-\begin{key}{/wheelchart/caption left=\marg{text}}
-This key contains the \meta{text} which will be placed below left of the wheelchart. The \meta{text} is placed in a node. This node is placed |0.5| below the south west of the |local bounding box| around the wheelchart. The style of this node is given as follows. First, the options |anchor=north west,align=left| are given. Thereafter, the style of the key |caption left style| is added.
+\begin{key}{/wheelchart/caption=\marg{text} (initially \normalfont empty)}
+This key contains the \meta{text} which will be placed below the wheelchart. The \meta{text} is placed in a node. The $x$ coordinate of this node is the $x$ coordinate of the center of the wheelchart, which is defined by the key |at|. In general, this is \emph{not} the same as the $x$ coordinate of the center of the |local bounding box| around the wheelchart. The $y$ coordinate of this node is at a value determined by the key |caption sep| below the south of the |local bounding box| around the wheelchart. The style of this node is given as follows. First, the options |anchor=north,align=center| are given. Thereafter, the style of the key |caption style| is added.
\end{key}
+\begin{key}{/wheelchart/caption left=\marg{text} (initially \normalfont empty)}
+This key contains the \meta{text} which will be placed below left of the wheelchart. The \meta{text} is placed in a node. This node is placed at a value determined by the key |caption left sep| below the south west of the |local bounding box| around the wheelchart. The style of this node is given as follows. First, the options |anchor=north west,align=left| are given. Thereafter, the style of the key |caption left style| is added.
+\end{key}
+\begin{key}{/wheelchart/caption left sep=\marg{value} (initially 0.5)}
+The node where the contents of the key |caption left| is placed is at \meta{value} below the south west of the |local bounding box| around the wheelchart.
+\end{key}
\begin{stylekey}{/wheelchart/caption left style=\marg{options} (initially \normalfont empty)}
This key accepts a list of keys which will be applied to the node where the contents of the key |caption left| is placed.
\end{stylekey}
+\begin{key}{/wheelchart/caption sep=\marg{value} (initially 0.5)}
+The $y$ coordinate of the node where the contents of the key |caption| is placed is at \meta{value} below the south of the |local bounding box| around the wheelchart.
+\end{key}
\begin{stylekey}{/wheelchart/caption style=\marg{options} (initially \normalfont empty)}
This key accepts a list of keys which will be applied to the node where the contents of the key |caption| is placed.
\begin{codeexample}[width=10cm]
@@ -415,20 +615,20 @@
at={(5,2)},
caption=Caption,
caption style={font=\scshape},
- caption left={Caption left},
+ caption left=Caption left,
caption left style={font=\sffamily},
- middle={\texttt{name=WCname}},
+ middle=\texttt{name=WCname},
name=WCname,
start half,
title=Title,
title style={font=\bfseries},
- title left={Title left},
+ title left=Title left,
title left style={font=\em}
]{%
- 1/Goldenrod/{Text\\with\\multiple\\lines},
- 1/Mahogany/{Text which is longer than the short text},
- 1/JungleGreen/{Another text},
- 1/RoyalBlue/{Short text}%
+ 1/Goldenrod/Text\\with\\multiple\\lines,
+ 1/Mahogany/Text which is longer than the short text,
+ 1/JungleGreen/Another text,
+ 1/RoyalBlue/Short text%
}
\draw[dashed] (WCname.south west) rectangle (WCname.north east);
\foreach\pos in {north,east,south,west}{
@@ -438,32 +638,227 @@
\end{codeexample}
\end{stylekey}
\begin{stylekey}{/wheelchart/contour=\marg{options} (initially \normalfont empty)}
-If this key is set then a contour with the style determined by this key will be drawn around the wheelchart.
+If this key is set then a contour with the style determined by this key will be drawn around the wheelchart. This key does \emph{not} apply if a plot is used.
\end{stylekey}
\begin{key}{/wheelchart/counterclockwise=\opt{\meta{boolean}} (default true, initially false)}
If true, the wheelchart will be drawn counterclockwise instead of clockwise.
+\end{key}
+\begin{key}{/wheelchart/data=\marg{text} (initially \textbackslash WCvarC)}
+This key contains the \meta{text} which will be placed at each slice of the wheelchart. This can be suppressed by using |data={}|. The \meta{text} is placed in a node. The style of this node is given as follows. First, the anchor is set following Table \ref{tableanchorofthekeydatainthecasethatlinesextequaltozero} and Table \ref{tableanchorofthekeydatainthecasethatlinesextdifferentfromzero}. Then the option |align=left| is added. Thereafter, the style of the key |data style| is added.
+\end{key}
+\begin{key}{/wheelchart/data angle pos=\marg{value} (initially 0.5)}
+\end{key}
+\begin{key}{/wheelchart/data angle shift=\marg{angle} (initially 0)}
+\end{key}
+\begin{key}{/wheelchart/data pos=\marg{value} (initially 1)}
+\end{key}
+\begin{key}{/wheelchart/data sep=\marg{value} (initially 0.2)}
+The position of the contents of the key |data| is determined as follows.
+\begin{enumerate}
+\item The inner plot is evaluated in the point with as angle the convex combination with as parameter the key |data angle pos| of the inner start angle and the inner end angle, added with the key |data angle shift| in degrees (taking into account the key |counterclockwise|) and as radius the inner radius minus the key |data sep|.
+\item The outer plot is evaluated in the similar point but using the outer start angle, the outer end angle and the outer radius plus the key |data sep|.
+\item If $\text{|lines|}\neq 0$ then the values of the keys |lines sep| and |lines| are added to the radii above, in addition to the key |data sep|.
+\item The contents of the key |data| is placed at the convex combination with as parameter the key |data pos| of the previous two points.
+\end{enumerate}
+\begin{codeexample}[]
+\begin{tikzpicture}
+\wheelchart[
+ data angle pos{2}=0.3,
+ data angle pos{6}=0.8,
+ data angle shift{3}=-0.1,
+ data angle shift{5}=0.1,
+ data pos=\WClistB,
+ data sep=0,
+ lines{1,2,4,6,7}=0.5,
+ lines{3,5}=1,
+ lines angle pos{1}=0.8,
+ lines angle shift{7}=-0.2,
+ lines ext=\WClistA,
+ lines ext dir{1,...,3}=left,
+ lines ext dir{4,...,7}=right,
+ lines ext fixed,
+ lines ext fixed left=-1,
+ lines ext fixed right=7,
+ lines pos=\WClistB,
+ lines sep=0.2*\WClistA,
+ xbar={6}{1.5},
+ WClistA={1,0},
+ WClistB={0,1},
+ wheel data=\WCperc,
+ wheel data pos=0.5,
+ wheel data pos{1}=1,
+ wheel data pos{4}=0,
+ wheel data sep=0.2
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{stylekey}{/wheelchart/data style=\marg{options} (initially \normalfont empty)}
+This key accepts a list of keys which will be applied to the node where the contents of the key |data| is placed.
+\end{stylekey}
+\begin{key}{/wheelchart/discrete=\opt{\meta{boolean}} (default true, initially false)}
+If true then \tikzname{} pics are placed with the \meta{code} determined by the key |discrete pic|. The number of pics is determined by the key |value|. It is required to set the key |discrete space at borders|.
+\end{key}
+\begin{key}{/wheelchart/discrete factor=\marg{value} (initially 1)}
+The algorithm to place the \tikzname{} pics depends on the \meta{value}. The value |1| is recommended.
+\end{key}
+\begin{key}{/wheelchart/discrete partitioning=\mchoice{angle,radius} (initially radius)}
+\begin{description}
+\item[\texttt{angle}] In this case, the \tikzname{} pics are placed uniformly with respect to the angle.
+\item[\texttt{radius}] In this case, the \tikzname{} pics are placed uniformly with respect to the radius.
+\end{description}
+These options are illustrated in the examples below.
+\begin{codeexample}[]
+\begin{tikzpicture}
+\pgfkeys{
+ /wheelchart,
+ data=,
+ discrete,
+ discrete pic={\fill (0,0) circle[radius=3pt];},
+ discrete space at borders=false,
+ middle style={font=\ttfamily},
+ start angle=180,
+ total angle=180,
+ value=\WCvarA/2
+}
+\foreach\angle in {0,...,27}{
+ \draw ({180*(\angle/27)}:2)--({180*(\angle/27)}:3);
+}
+\wheelchart[
+ discrete partitioning=angle,
+ middle={discrete\\partitioning=angle}
+]{\exampleforthismanual}
+\foreach\radius in {0,...,3}{
+ \draw ({9+\radius/3},0) arc[start angle=0,end angle=180,radius={2+\radius/3}];
+}
+\wheelchart[
+ at={(7,0)},
+ middle={discrete\\partitioning=radius}
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/discrete pic=\marg{code} (initially \normalfont empty)}
+The \meta{code} determines the \tikzname{} pics.
\begin{codeexample}[width=10cm]
+\begin{tikzpicture}[yscale=-1]
+\wheelchart[
+ data=,
+ discrete,
+ discrete pic={
+ \fill[draw=black] (-0.3,-0.3)
+ rectangle +(0.6,0.6);
+ \node[black] at (0,0)
+ {\WCcountdiscrete};
+ },
+ discrete space at borders,
+ value=\WCvarA/2,
+ ybar={8}{8}
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/discrete sort=\mchoice{angle,radius} (initially angle)}
+\begin{description}
+\item[\texttt{angle}] In this case, the \tikzname{} pics are ordered with respect to the angle.
+\item[\texttt{radius}] In this case, the \tikzname{} pics are ordered with respect to the radius.
+\end{description}
+These options are illustrated in the examples below.
+\begin{codeexample}[]
\begin{tikzpicture}
+\pgfkeys{
+ /wheelchart,
+ data=,
+ discrete,
+ discrete pic={\shade[ball color=\WCvarB] (0,0) circle[radius=4pt];},
+ discrete space at borders=false,
+ middle style={font=\ttfamily},
+ start angle=180,
+ total angle=180,
+ value=\WCvarA/2
+}
\wheelchart[
- counterclockwise,
- middle=counterclockwise,
- middle style={font=\ttfamily}
+ legend columns=4,
+ legend row={\tikz\shade[ball color=\WCvarB] (0,0) circle[radius=4pt]; & \WCvarC & \WCperc},
+ legend={\node[anchor=north] at (3.5,-1) {\begin{tabular}{*{4}{l@{ }lr}}\WClegend\end{tabular}};},
+ middle={discrete sort=angle}
]{\exampleforthismanual}
+\wheelchart[
+ at={(7,0)},
+ discrete sort=radius,
+ middle={discrete sort=radius}
+]{\exampleforthismanual}
\end{tikzpicture}
\end{codeexample}
\end{key}
-\begin{key}{/wheelchart/data=\marg{text} (initially \textbackslash WCvarC)}
-This key contains the \meta{text} which will be placed at the outside of each slice of the wheelchart. This can be suppressed by using |data={}|. The \meta{text} is placed in a node. The style of this node is given as follows. First, the anchor is set following Table \ref{tableanchorofthekeydatainthecasethatlinesextequaltozero} and Table \ref{tableanchorofthekeydatainthecasethatlinesextstrictlylargerthanzero}. Then the option |align=left| is added. Thereafter, the style of the key |data style| is added.
+\begin{key}{/wheelchart/discrete space at borders=\opt{\meta{boolean}} (default true)}
+This key determines whether space is left at the begin and end where the \tikzname{} pics are placed. For example, suppose that $3$ \tikzname{} pics are placed at positions between $0$ and $1$. If |discrete space at borders| is true then these are placed at the positions $\frac{1}{6}$, $\frac{3}{6}$ and $\frac{5}{6}$. If |discrete space at borders| is false then these are placed at the positions $0$, $\frac{1}{2}$ and $1$.
+
+This key deliberately has no initial value in order to force awareness of the consequences of the settings of this key. In the example below, the cyan \tikzname{} pics are aligned if |discrete space at borders| is false while this is \emph{not} the case if |discrete space at borders| is true.
+\begin{codeexample}[]
+\begin{tikzpicture}
+\pgfkeys{
+ /wheelchart,
+ discrete,
+ discrete pic={\fill (0,0) circle[radius=4pt];},
+ middle style={font=\ttfamily},
+ start angle=180,
+ total angle=180
+}
+\draw[Red,ultra thick] (-3,0.15)--+(6,0);
+\wheelchart[
+ discrete space at borders,
+ middle={discrete space at borders=true}
+]{2/Cyan/,20/Gray/,2/Cyan/}
+\draw[Green,ultra thick] (4,0)--+(6,0);
+\wheelchart[
+ at={(7,0)},
+ discrete space at borders=false,
+ middle={discrete space\\at borders=false}
+]{2/Cyan/,20/Gray/,2/Cyan/}
+\end{tikzpicture}
+\end{codeexample}
+In the example below, the red and green \tikzname{} pics overlap if |discrete space at borders| is false while this is \emph{not} the case if |discrete space at borders| is true.
+\begin{codeexample}[]
+\begin{tikzpicture}
+\pgfkeys{
+ /wheelchart,
+ discrete,
+ discrete pic={\fill (0,0) circle[radius=\WClistradius pt];},
+ middle style={font=\ttfamily}
+}
+\wheelchart[
+ discrete space at borders,
+ middle={discrete space\\at borders=true},
+ WClistradius=4
+]{2/Red/,40/Gray/,2/Green/}
+\wheelchart[
+ at={(7,0)},
+ discrete space at borders=false,
+ middle={discrete space\\at borders=false},
+ WClistradius={8,4,4}
+]{2/Red/,40/Gray/,2/Green/}
+\end{tikzpicture}
+\end{codeexample}
\end{key}
-\begin{key}{/wheelchart/data angle shift=\marg{angle} (initially 0)}
-The contents of the key |data| is placed at the angle |\WCdataangle|, which is the sum of the value of the key |data angle shift| in degrees (taking into account the key |counterclockwise|) and the macro |\WCmidangle| modulo $360$.
+\begin{key}{/wheelchart/domain=\marg{start}:\marg{end}}
+This key sets |counterclockwise|, |start angle| to \meta{start} and |total angle| to $\text{\meta{end}}-\text{\meta{start}}$.
\end{key}
-\begin{key}{/wheelchart/data sep=\marg{value} (initially 0.2)}
-If |lines=0|, this key defines the distance between the wheelchart and the contents of the key |data|. If $\text{|lines|}>0$, this key defines the distance between the end of the lines and the contents of the key |data|.
+\begin{key}{/wheelchart/etoc code=\marg{code} (initially \textbackslash tableofcontents)}
+The \meta{code} will be executed to build the \meta{wheelchart data} if the key |etoc level| is used.
\end{key}
-\begin{stylekey}{/wheelchart/data style=\marg{options} (initially \normalfont empty)}
-This key accepts a list of keys which will be applied to the node where the contents of the key |data| is placed.
-\end{stylekey}
+\begin{key}{/wheelchart/etoc count total pages=\marg{number} (initially 0)}
+If the key |etoc level| is used then the number of pages of the last section depends on \meta{number} which can for example represent the total number of pages in the document or the number of pages before the start of the Appendix or the Index. For example, |etoc count total pages=\totalpages| can be used. To provide the command |\totalpages|, this requires |\usepackage[page]{totalcount}|, which should normally be loaded \emph{before} the package |wheelchart| to give a correct result.
+\end{key}
+\begin{key}{/wheelchart/etoc level=\marg{level}}
+If this key is used then the \meta{wheelchart data} of the command |\wheelchart| can be left empty and is defined to match the sections of the level defined by \meta{level}. Here, |\WCetocthelinkedname| corresponds to |\etocthelinkedname|, |\WCetocthelinkednumber| to |\etocthelinkednumber|, |\WCetocthelinkedpage| to |\etocthelinkedpage|, |\WCetocthename| to |\etocthename|, |\WCetocthenumber| to |\etocthenumber| and |\WCetocthepage| to |\etocthepage|. The package |etoc| is required to provide these commands. Furthermore, |\WCetocthenumberofpages| corresponds to the number of pages of the current section. For the last section, this depends on the value of the key |etoc count total pages|.
+\end{key}
+\begin{key}{/wheelchart/etoc name=\marg{name} (initially \normalfont empty)}
+The resulting \meta{wheelchart data} from the key |etoc level| is stored globally and can be reused later with the key |etoc use name|.
+\end{key}
+\begin{key}{/wheelchart/etoc use name=\marg{name}}
+If this key is used then the \meta{wheelchart data} is reused from where |etoc name| has the same \meta{name}.
+\end{key}
\begin{key}{/wheelchart/expand list=\mchoice{false,once,true} (initially once)}
\begin{description}
\item[\texttt{false}] In this case, the \meta{wheelchart data} of the command |\wheelchart| will not be expanded.
@@ -471,11 +866,7 @@
\item[\texttt{true}] In this case, the \meta{wheelchart data} of the command |\wheelchart| will be fully expanded.
\end{description}
The following example illustrates the difference between the possible values of the key |expand list|.
-\begin{codeexample}[width=10cm,preamble={\usepackage{listofitems}}]
-\readlist*\WCcolors{
- Dandelion,CarnationPink,
- SpringGreen,ProcessBlue
-}
+\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\def\WClistA{a,A}
\def\WClistB{b,B}
@@ -487,7 +878,10 @@
data=\WCvarA,
expand list=\expandlist,
radius={0}{1},
- slices style={\WCcolors[\WCcount]},
+ slices style{list}={
+ Dandelion,CarnationPink,
+ SpringGreen,ProcessBlue
+ },
title={expand list=\\\expandlist},
title style={font=\ttfamily},
value=1
@@ -503,12 +897,12 @@
%expand list=true,%true doesn't work
middle={expand list=\\false %
{\normalfont or} once},
- middle style={font=\ttfamily}
+ middle style={font=\large\ttfamily}
]{%
- 1/Emerald/{Section \ref{Keys}},
- 1/Sepia/{Reference \cite{TtTaPGFp}},
+ 1/Emerald/Section \ref{Keys},
+ 1/Sepia/Reference \cite{TtTaPGFp},
1/YellowOrange/{$e^{i\pi}=-1$},
- 1/Salmon/{\textbf{Text}}%
+ 1/Salmon/\textbf{Text}%
}
\end{tikzpicture}
\end{codeexample}
@@ -516,17 +910,17 @@
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\def\WClist{%
- 1/Emerald/{Section \ref{Keys}},
- 1/Sepia/{Reference \cite{TtTaPGFp}},
+ 1/Emerald/Section \ref{Keys},
+ 1/Sepia/Reference \cite{TtTaPGFp},
1/YellowOrange/{$e^{i\pi}=-1$},
- 1/Salmon/{\textbf{Text}}%
+ 1/Salmon/\textbf{Text}%
}
\wheelchart[
%expand list=false,
%expand list=true,
%false and true do not work
- middle={expand list=\\once},
- middle style={font=\ttfamily}
+ middle={expand list=once},
+ middle style={font=\large\ttfamily}
]{\WClist}
\end{tikzpicture}
\end{codeexample}
@@ -536,12 +930,12 @@
\def\WCcolorsA{Yellow,Red}
\def\WCcolorsB{Green,Blue}
\wheelchart[
- data={},
+ data=,
expand list=true,%false and once
%do not work
middle={expand list=true},
middle style={font=\large\ttfamily},
- slices style={\WCvarA},
+ slices style=\WCvarA,
value=1
]{\WCcolorsA,\WCcolorsB}
\end{tikzpicture}
@@ -557,45 +951,65 @@
expand list=true,%false and once
%do not work
middle={expand list=true},
- middle style={font=\large\ttfamily},
+ middle style={font=\large\ttfamily}
]{\WCsliceAfinal,\WCsliceBfinal}
%\WCsliceA and \WCsliceB do not work
\end{tikzpicture}
\end{codeexample}
\end{key}
-\begin{key}{/wheelchart/explode=\marg{value} (default 0.2, initially 0)}
-This key will shift the slices of the wheelchart with \meta{value} with respect to the center of the wheelchart.
+\begin{key}{/wheelchart/expand list items=\mchoice{false,once,true} (initially false)}
+This key is similar to the key |expand list| but applies to the items in the \meta{wheelchart data} of the command |\wheelchart| which correspond to a slice of the wheelchart.
\begin{codeexample}[width=10cm]
-\begin{tikzpicture}
+\def\WClistA{a/b}%
+\def\WClistB{c/d}%
+\def\WCdata{\WClistA/\WClistB}%
+\texttt{expand list items}%
+\foreach\expandlistitems in
+ {false,once,true}{%
\wheelchart[
- explode=\WCvarF,
- pie
-]{\exampleforthismanual}
-\end{tikzpicture}
+ expand list=false,
+ expand list items=\expandlistitems,
+ legend={; \texttt{\expandlistitems}:
+ \WCvarA},
+ legend only,
+ value=1
+]{\WCdata}%
+}
\end{codeexample}
\end{key}
+\begin{key}{/wheelchart/explode=\marg{value} (default 0.2, initially 0)}
+This key will shift the slices of the wheelchart with \meta{value} with respect to the center of the wheelchart.
+\end{key}
+\begin{key}{/wheelchart/for loop end=\marg{code} (initially \normalfont empty)}
+The slices of the wheelchart, the wheel lines determined by the key |wheel lines| and the different kinds of data are placed in for loops. If the key |for loop end| is set then the \meta{code} given to this key will be executed at the end of the body of these for loops.
+\end{key}
+\begin{key}{/wheelchart/for loop start=\marg{code} (initially \normalfont empty)}
+This key is similar to the key |for loop end| but the \meta{code} given to this key will be executed at the start of the body of the for loops.
+\end{key}
\begin{key}{/wheelchart/gap=\marg{value} (default 0.05, initially 0)}
-The \meta{value} of this key defines half the distance between two slices of the wheelchart.
-
-The following example illustrates the behaviour of the key |gap| when a slice has $360$ degrees.
-\begin{codeexample}[width=10cm]
+The \meta{value} of this key defines half the distance between two slices of the wheelchart. This key does \emph{not} apply if a plot is used.
+\end{key}
+\begin{key}{/wheelchart/gap max angle=\marg{angle} (initially 180)}
+If the value of the key |gap| is too large then a slice can partly disappear such as for example below when |gap max angle| is \ang{155}. The \meta{angle} of the key |gap max angle| determines the inner arc of the slice as illustrated in the examples below.
+\begin{codeexample}[preamble={\usepackage{siunitx}}]
\begin{tikzpicture}
-\foreach\gap [count=\m] in {0,1}{
-\foreach\pie [count=\n] in {false,true}{
+\foreach\gapmaxangle [count=\n] in {90,120,155}{
+\begin{scope}[shift={({5*\n},0)}]
\wheelchart[
- at={({5*\m},{-5*\n})},
- data={},
- gap=\gap,
- middle={gap=\gap\\pie=\pie},
- middle style={font=\ttfamily},
- pie=\pie,
- radius={1.5}{2},
- slices style=Bittersweet,
- total count=1,
- value=1
-]{}
+ gap=1,
+ gap max angle=\gapmaxangle,
+ radius={0}{2},
+ total angle=315
+]{1/CornflowerBlue!50/}
+\fill (0,0) circle[radius=2pt];
+\draw (0,0) circle[radius=2];
+\draw (135:2)--(0:0)--(90:2);
+\draw (0:0)--({135+\gapmaxangle}:{1/sin(\gapmaxangle)}) arc[start angle={135+\gapmaxangle},
+ end angle={450-\gapmaxangle},radius={1/sin(\gapmaxangle)}]--cycle;
+\node at (45:0.6) {\ang{\gapmaxangle}};
+\node at (180:0.6) {\ang{\gapmaxangle}};
+\end{scope}
}
-}
\end{tikzpicture}
\end{codeexample}
\end{key}
@@ -606,7 +1020,6 @@
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\wheelchart[
- data={},
explode=1,
middle={\Large\texttt{explode}},
radius={1}{2},
@@ -615,8 +1028,7 @@
fill=none,
ultra thick
},
- total count=6,
- value=1
+ total count=6
]{}
\draw (0,0) circle[radius=2];
\draw (0,0) circle[radius=3];
@@ -625,7 +1037,6 @@
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\wheelchart[
- data={},
gap=0.5,
middle={\Large\texttt{gap}},
slices style={
@@ -633,15 +1044,14 @@
fill=none,
ultra thick
},
- total count=6,
- value=1
+ total count=6
]{}
\draw (0,0) circle[radius=2];
\draw (0,0) circle[radius=3];
\foreach\a in {0,60,120}{
\foreach\x in {-0.5,0.5}{
-\draw[rotate=\a] (\x,{sqrt(3^2-0.5^2})--
- (\x,{-sqrt(3^2-0.5^2});
+\draw[rotate=\a] (\x,{sqrt(3^2-0.5^2)})
+ --(\x,{-sqrt(3^2-0.5^2)});
}
}
\end{tikzpicture}
@@ -649,7 +1059,6 @@
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\wheelchart[
- data={},
gap polar=10,
middle={\Large\texttt{gap polar}},
slices style={
@@ -657,8 +1066,7 @@
fill=none,
ultra thick
},
- total count=6,
- value=1
+ total count=6
]{}
\draw (0,0) circle[radius=2];
\draw (0,0) circle[radius=3];
@@ -670,42 +1078,148 @@
\end{tikzpicture}
\end{codeexample}
\end{key}
-\begin{key}{/wheelchart/inner data=\marg{text}}
-This key contains the \meta{text} which will be placed at the inside of each slice of the wheelchart. The \meta{text} is placed in a node. The style of this node is given as follows. First, the option |align=left| is given. Thereafter, the style of the key |inner data style| is added.
+\begin{key}{/wheelchart/gap radius=\marg{value} (default 0.05, initially 0)}
+The \meta{value} of this key will be added to |inner radius| and substracted from |outer radius|.
+\begin{codeexample}[width=10cm,preamble={\usepackage{siunitx}}]
+\begin{tikzpicture}
+\def\n{73}
+\wheelchart[
+ data=,
+ gap radius=\WCvarC,
+ middle={\Huge\qty{\n}{\percent}}
+]{%
+ \n/NavyBlue/0,
+ {100-\n}/BurntOrange/0.2%
+}
+\draw[Gray] (0,0) circle[radius=1.9];
+\end{tikzpicture}
+\end{codeexample}
\end{key}
+\begin{key}{/wheelchart/header=\marg{list}}
+The items in the \meta{list} determine the names in the macros |\|\meta{prefix}\meta{name}.
+\end{key}
+\begin{key}{/wheelchart/header prefix=\marg{prefix} (initially WC)}
+The \meta{prefix} is used in the macros |\|\meta{prefix}\meta{name}.
+\end{key}
+\begin{key}{/wheelchart/inner data=\marg{text} (initially \normalfont empty)}
+This key contains the \meta{text} which will be placed at each slice of the wheelchart. The \meta{text} is placed in a node. The style of this node is given as follows. First, the option |align=left| is given. Thereafter, the style of the key |inner data style| is added.
+\end{key}
+\begin{key}{/wheelchart/inner data angle pos=\marg{value} (initially 0.5)}
+\end{key}
+\begin{key}{/wheelchart/inner data angle shift=\marg{angle} (initially 0)}
+\end{key}
+\begin{key}{/wheelchart/inner data pos=\marg{value} (initially 0)}
+\end{key}
\begin{key}{/wheelchart/inner data sep=\marg{value} (initially 0.2)}
-This key defines the distance between the wheelchart and the contents of the key |inner data|.
+These keys determine the position of the contents of the key |inner data| similar as the corresponding keys for the key |data|. No lines are drawn for the inner data.
\end{key}
\begin{stylekey}{/wheelchart/inner data style=\marg{options} (initially \normalfont empty)}
This key accepts a list of keys which will be applied to the node where the contents of the key |inner data| is placed.
\end{stylekey}
+\begin{key}{/wheelchart/inner plot=\marg{code}}
+The \meta{code} is a coordinate definition which will be used for the inner parts of the slices of the wheelchart. In the \meta{code}, |#1| and |#2| can be used where |#1| corresponds to the angle and |#2| corresponds to the radius. For example, a circle can be obtained with |inner plot={{#1}:{#2}}|.
+\end{key}
+\begin{stylekey}{/wheelchart/inner plot style=\marg{options} (initially \normalfont empty)}
+This key accepts a list of keys which will be applied to the plot determined by the key |inner plot|.
+\end{stylekey}
\begin{key}{/wheelchart/inner radius=\marg{value} (initially 2)}
The \meta{value} of this key defines the inner radius of the wheelchart.
\end{key}
-\begin{key}{/wheelchart/legend=\marg{code}}
-If this key is set then the \meta{code} given to this key will be executed at the end of the command |\wheelchart|.
+\begin{key}{/wheelchart/legend=\marg{code} (initially \normalfont empty)}
+The \meta{code} given to this key will be executed at the end of the command |\wheelchart|.
\end{key}
-\begin{key}{/wheelchart/legend entry=\marg{code}}
-If this key is set then the \meta{code} given to this key will be executed for each slice of the wheelchart.
-\begin{codeexample}[width=10cm,preamble={\usepackage{etoolbox}}]
+\begin{key}{/wheelchart/legend columns=\marg{number} (initially 1)}
+If the key |legend row| is used then the maximum number of times that the \meta{code} given to the key |legend row| appears on one row is determined by \meta{number}. The environment (for example |tabular|, |tabularx| from the package |tabularx|, |tabulary| from the package |tabulary| or |tblr| from the package |tabularray|) which contains the macro |\WClegend| needs to have a suitable column specification according with \meta{number} and the key |legend row|.
+\end{key}
+\begin{key}{/wheelchart/legend entry=\marg{code} (initially \normalfont empty)}
+The \meta{code} given to this key will be executed for each slice of the wheelchart.
+\end{key}
+\begin{key}{/wheelchart/legend only=\opt{\meta{boolean}} (default true, initially false)}
+If true then only the legend is constructed. This does \emph{not} apply to the key |legend entry|.
+
+In this case it is \emph{not} necessary to place the command |\wheelchart| in a |tikzpicture| environment.
+\begin{codeexample}[width=10cm,preamble={\usepackage{tikzlings}}]
+\wheelchart[
+ header={animal,accessory},
+ legend columns=3,
+ legend only,
+ legend row={\tikz[scale=0.3]{
+ \csname \WCanimal\endcsname[
+ signpost=\WCcount,
+ \WCaccessory
+ ]} & \WCanimal},
+ legend={%
+ \begin{tabular}{*{3}{cl}}
+ \multicolumn{6}{c}{%
+ \WCtotalcount{} animals%
+ from the package%
+ \texttt{tikzlings}}\\\hline
+ \WClegend\hline
+ \end{tabular}%
+ },
+ separator columns={{ }},
+ separator rows=;,
+ value=1
+]{%
+ bear basket;
+ bee book;
+ bug chef;
+ cat crown;
+ elephant football;
+ koala handbag;
+ owl hat;
+ panda icecream;
+ penguin milkshake;
+ snowman santa;
+ squirrel shovel%
+}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/legend row=\marg{code}}
+If this key is set then a legend consisting of rows for an environment such as |tabular|, |tabularx| from the package |tabularx|, |tabulary| from the package |tabulary| or |tblr| from the package |tabularray| is constructed using the \meta{code} for each slice of the wheelchart.
+
+If a |tblr| environment from the package |tabularray| is used then the option |expand=\WClegend| needs to be given to this |tblr| environment and |\UseTblrLibrary{counter}| is required.
+
+The maximum number of times that the \meta{code} appears on one row is determined by the key |legend columns|.
+
+The code automatically inserts |&| and |\\| after the \meta{code} if necessary.
+
+The result is stored in the macro |\WClegend|.
+\begin{codeexample}[preamble={\usepackage{tabularray}
+\UseTblrLibrary{counter,siunitx}}]
\begin{tikzpicture}
-\def\WClegend{}
-\def\WClegendrow#1#2#3#4#5{\tikz\fill[#1] (0,0) rectangle (0.3,0.3); & #2 & $#3$ & #4 & #5\\}
\wheelchart[
- data={},
- legend entry={
- \gappto\WClegend{\WClegendrow}
- \xappto\WClegend{{\WCvarB}{\WCvarC}{\WCvarA}{\WCperc}{\WCvarD}}
+ after slices={
+ \pgfdeclareradialshading{WCshading}{\pgfpoint{0cm}{0cm}}{
+ color(0bp)=(\WCvarB);
+ color(16.66666bp)=(\WCvarB);%2/3 * 25bp
+ color(20.83333bp)=(\WCvarB!10);%2.5/3 * 25bp
+ color(25bp)=(\WCvarB);
+ color(50bp)=(\WCvarB)
+ }
+ \shade[even odd rule,shading=WCshading] (0,0) circle[radius=3] circle[radius=2];
},
+ data=,
+ legend row={\tikz\fill[\WCvarB] (0,0) rectangle (0.3,0.3);%
+ & \WCvarC & \WCvarA & \WCpercentagerounded & \WCvarD},
legend={
\node[anchor=west] at (3.5,0) {%
- \begin{tabular}{l@{ }lrrl}%
- & Fruit & Value & Percentage & Vitamines\\\hline%
- \\[-10pt]%
- \WClegend\hline%
- & \textbf{Total} & $\pgfmathprintnumber{\WCtotalnum}$ & & \\%
- \end{tabular}%
+ \begin{tblr}[expand=\WClegend]{
+ colspec={llS[table-format=3.0]S[table-format=2.0{\,\unit{\percent}}]l},
+ column{1}={rightsep=0pt,appto={\ }},
+ column{2}={leftsep=0pt},
+ cell{2-Y}{4}={appto={\,\unit{\percent}}},
+ row{1}={guard}
+ }
+ & Fruit & Value & Percentage & Vitamins\\\hline
+ \WClegend\hline
+ & \textbf{Total} & \WCtotalnum & & \\
+ \end{tblr}%
};
+ },
+ slices style={
+ fill=none,
+ clip
}
]{\exampleforthismanual}
\end{tikzpicture}
@@ -712,111 +1226,146 @@
\end{codeexample}
\end{key}
\begin{key}{/wheelchart/lines=\marg{value} (default 1, initially 0)}
-This key will draw lines of length \meta{value} between the wheelchart and the contents of the key |data|.
-\begin{codeexample}[width=10cm]
+The \meta{value} is used in the positioning of the contents of the key |data|. The end point of the lines is determined similarly but without the key |data sep|.
+\begin{codeexample}[width=10cm,preamble={\usepackage{siunitx}}]
\begin{tikzpicture}
\def\WCtest#1#2{%
- \ifdim \WCpercentage pt>10 pt%
- #1%
- \else%
- #2%
- \fi%
+ \pgfmathparse{
+ \WCpercentage>10?"#1":"#2"
+ }%
+ \pgfmathresult%
}
\wheelchart[
- data={\WCtest{}{\WCperc}},
- lines={
- 1-max(sign(\WCpercentage-10),0)
- },
+ data=\WCtest{}{\WCperc},
+ lines={\WCpercentage>10?0:0.5},
lines style={dotted,thick},
pie,
- wheel data={\WCtest{\WCperc}{}}
+ slices style={
+ bottom color=\WCvarB,
+ top color=\WCvarB!80!black,
+ shading angle=\WCmidangle-90
+ },
+ wheel data=\WCtest{\WCperc}{}
]{\exampleforthismanual}
\end{tikzpicture}
\end{codeexample}
\end{key}
+\begin{key}{/wheelchart/lines angle pos=\marg{value} (initially 0.5)}
+\end{key}
+\begin{key}{/wheelchart/lines angle shift=\marg{angle} (initially 0)}
+These keys are similar to the corresponding keys for |data| but determine the start point of the lines.
+\end{key}
\begin{key}{/wheelchart/lines ext=\marg{value} (default 0.5, initially 0)}
-If the \meta{value} of this key is $>0$ then the lines between the wheelchart and the contents of the key |data| will be extended horizontally with a length defined by \meta{value}.
+If the \meta{value} of this key is nonzero and |lines ext fixed| is false then the lines between the wheelchart and the contents of the key |data| will be extended horizontally with a length defined by \meta{value}.
\end{key}
\begin{key}{/wheelchart/lines ext bottom dir=\mchoice{left,right} (initially right)}
-This key applies when |\WCdataangle|${}\in[270-\text{|lines ext dirsep|},270+\text{|lines ext dirsep|}]$. In this case, this key defines the direction in which the lines between the wheelchart and the contents of the key |data| will be extended horizontally and in this case, this key also determines the anchor of the key |data|.
-\begin{description}
-\item[\texttt{left}] In this case, the lines between the wheelchart and the contents of the key |data| will be extended horizontally to the left and the anchor of the key |data| is the value of the key |lines ext left anchor|.
-\item[\texttt{right}] In this case, the lines between the wheelchart and the contents of the key |data| will be extended horizontally to the right and the anchor of the key |data| is the value of the key |lines ext right anchor|.
-\end{description}
\end{key}
+\begin{key}{/wheelchart/lines ext dir=\mchoice{left,right}}
+The default direction in which the lines between the wheelchart and the contents of the key |data| will be extended horizontally if $\text{|lines ext|}\neq 0$ is determined by Table \ref{tablelinesextdir} and illustrated in the following example. This can be overruled by giving an explicit value to this key. Note that rounding errors can occur in the computation of the angle which is used to determine the default direction according to Table \ref{tablelinesextdir}.
+\begin{table}[ht]
+\centering
+\begin{tabular}{ll}
+ & The direction in which the lines between the\\
+ & wheelchart and the contents of the key |data| will\\
+ & be extended horizontally if $\text{|lines ext|}\neq 0$ and\\
+Angle (up to rounding errors) & if the key |lines ext dir| is not used\\\hline
+$\rinterval{0}{90-\text{|lines ext dirsep|}}$ & right\\
+$[90-\text{|lines ext dirsep|},90+\text{|lines ext dirsep|}]$ & value of the key |lines ext top dir|\\
+$\ointerval{90+\text{|lines ext dirsep|}}{270-\text{|lines ext dirsep|}}$ & left\\
+$[270-\text{|lines ext dirsep|},270+\text{|lines ext dirsep|}]$ & value of the key |lines ext bottom dir|\\
+$\ointerval{270+\text{|lines ext dirsep|}}{360}$ & right\\
+\end{tabular}
+\caption{The direction in which the lines between the wheelchart and the contents of the key \texttt{data} will be extended horizontally if $\text{\ttfamily lines ext}\neq 0$ and if the key \texttt{lines ext dir} is not used.}\label{tablelinesextdir}
+\end{table}
+\begin{codeexample}[width=10cm,preamble={\usetikzlibrary{patterns}}]
+\begin{tikzpicture}[font=\ttfamily]
+\def\WClinesextdirsep{10}
+\wheelchart[
+ data{1,6}=lines ext top dir,
+ data{2}=right,
+ data{3,4}=lines ext bottom dir,
+ data{5}=left,
+ data angle pos=\WClistdap,
+ data sep=0,
+ inner data angle pos{1,4}=0.1,
+ inner data angle pos{3,6}=0.9,
+ inner data pos=1,
+ inner data sep=0.4,
+ inner data style={anchor=\WClistia},
+ lines=0.6,
+ lines{1,3}=0.2,
+ lines angle pos=\WClistdap,
+ lines ext,
+ lines ext dirsep=\WClinesextdirsep,
+ lines sep{list}={0.7,0.2,0.7},
+ lines style=->,
+ slice{1,3,4,6}={
+ arc=<->,
+ inner data=lines ext dirsep,
+ value=\WClinesextdirsep
+ },
+ slices style={
+ draw,
+ pattern=\WClistpattern
+ },
+ total count=6,
+ value{2,5}=180-2*\WClinesextdirsep,
+ WClistdap={0.9,0.2,0.1},
+ WClistia={west,east},
+ WClistpattern={
+ crosshatch,dots,crosshatch
+ }
+]{}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
\begin{key}{/wheelchart/lines ext dirsep=\marg{angle} (initially 0)}
This key determines half the angle in degrees of the segment to which the keys |lines ext bottom dir| and |lines ext top dir| apply.
\end{key}
\begin{key}{/wheelchart/lines ext fixed=\opt{\meta{boolean}} (default true, initially false)}
-If true, all lines between the wheelchart and the contents of the key |data| will be extended horizontally till the same $x$ coordinate at the left and till the same $x$ coordinate at the right.
+If true, the line between the wheelchart and the contents of the key |data| will be extended horizontally till the $x$ coordinate determined by the keys |lines ext fixed left| and |lines ext fixed right|.
\end{key}
+\begin{key}{/wheelchart/lines ext fixed left=\marg{value}}
+\end{key}
+\begin{key}{/wheelchart/lines ext fixed right=\marg{value}}
+If |lines ext fixed| is true, the lines are extended horizontally initially to the right till the $x$ coordinate $\text{|outer radius|}+\text{|lines sep|}+\text{|lines|}+\text{|lines ext|}$ and to the left till the opposite of this $x$ coordinate. This can be overruled by giving an explicit value to the key |lines ext fixed left| and/or |lines ext fixed right|.
+\end{key}
\begin{key}{/wheelchart/lines ext left anchor=\marg{anchor} (initially mid east)}
-This key defines the anchor of the key |data| when the lines between the wheelchart and the contents of the key |data| are extended horizontally to the left.
\end{key}
\begin{key}{/wheelchart/lines ext right anchor=\marg{anchor} (initially mid west)}
-This key defines the anchor of the key |data| when the lines between the wheelchart and the contents of the key |data| are extended horizontally to the right.
-\end{key}
-\begin{key}{/wheelchart/lines ext top dir=\mchoice{left,right} (initially right)}
-This key applies when |\WCdataangle|${}\in[90-\text{|lines ext dirsep|},90+\text{|lines ext dirsep|}]$. In this case, this key defines the direction in which the lines between the wheelchart and the contents of the key |data| will be extended horizontally and in this case, this key also determines the anchor of the key |data|.
-\begin{description}
-\item[\texttt{left}] In this case, the lines between the wheelchart and the contents of the key |data| will be extended horizontally to the left and the anchor of the key |data| is the value of the key |lines ext left anchor|.
-\item[\texttt{right}] In this case, the lines between the wheelchart and the contents of the key |data| will be extended horizontally to the right and the anchor of the key |data| is the value of the key |lines ext right anchor|.
-\end{description}
\begin{table}[ht]
\centering
\begin{tabular}{ll}
- & Anchor of the key |data|\\
-|\WCdataangle| & in the case that $\text{|lines ext|}>0$\\\hline
-$\rinterval{0}{90-\text{|lines ext dirsep|}}$ & value of the key |lines ext right anchor|\\
-$[90-\text{|lines ext dirsep|},90+\text{|lines ext dirsep|}]$ & value of the key |lines ext left anchor|\\
- & if |lines ext top dir=left|\\
- & value of the key |lines ext right anchor|\\
- & if |lines ext top dir=right|\\
-$\ointerval{90+\text{|lines ext dirsep|}}{270-\text{|lines ext dirsep|}}$ & value of the key |lines ext left anchor|\\
-$[270-\text{|lines ext dirsep|},270+\text{|lines ext dirsep|}]$ & value of the key |lines ext left anchor|\\
- & if |lines ext bottom dir=left|\\
- & value of the key |lines ext right anchor|\\
- & if |lines ext bottom dir=right|\\
-$\ointerval{270+\text{|lines ext dirsep|}}{360}$ & value of the key |lines ext right anchor|\\
+The direction in which the lines between the & \\
+wheelchart and the contents of the key |data| will & \\
+be extended horizontally if $\text{|lines ext|}\neq 0$ & Anchor of the key |data|\\\hline
+left & value of the key |lines ext left anchor|\\
+right & value of the key |lines ext right anchor|\\
\end{tabular}
-\caption{Anchor of the key \texttt{data} in the case that $\text{\ttfamily lines ext}>0$.}\label{tableanchorofthekeydatainthecasethatlinesextstrictlylargerthanzero}
+\caption{Anchor of the key \texttt{data} in the case that $\text{\ttfamily lines ext}\neq 0$.}\label{tableanchorofthekeydatainthecasethatlinesextdifferentfromzero}
\end{table}
-The number of columns in the legend in the example below can be specified with |\WClegendcolumns|.
-\begin{codeexample}[width=10cm,preamble={\usepackage{etoolbox}
+\end{key}
+\begin{key}{/wheelchart/lines ext top dir=\mchoice{left,right} (initially right)}
+\end{key}
+\begin{key}{/wheelchart/lines pos=\marg{value} (initially 1)}
+\end{key}
+\begin{key}{/wheelchart/lines sep=\marg{value} (initially 0.2)}
+These keys are similar to the corresponding keys for |data| but determine the start point of the lines.
+\end{key}
+\begin{stylekey}{/wheelchart/lines style=\marg{options} (initially \normalfont empty)}
+This key accepts a list of keys which will be applied to the lines drawn by the key |lines|.
+\begin{codeexample}[width=10cm,preamble={\usepackage{siunitx}
\usetikzlibrary{decorations.markings}}]
\begin{tikzpicture}
-\def\WClegendcolumns{2}%specify the number of columns in the legend
-\def\WClegendrow#1#2#3{\tikz\fill[#1] (0,0) circle[radius=0.15]; & #2 & $#3$}
\wheelchart[
- data={\WCperc},
- data style={outer xsep=4pt},
- legend entry={
- \csgdef{WClegend\WCcount}{}
- \csgappto{WClegend\WCcount}{\WClegendrow}
- \csxappto{WClegend\WCcount}{{\WCvarB}{\WCvarC}{\WCvarA}}
- },
+ data=\WCperc,
+ data angle pos{4}=0.2,
+% data style={outer xsep=4pt},
+ legend columns=2,
+ legend row={\tikz\fill[\WCvarB] (0,0) circle[radius=0.15]; & \WCvarC & $\WCvarA$},
legend={
- \def\WClegend{}
- \pgfmathsetmacro{\WClegendrows}{int(ceil(\WCtotalcount/\WClegendcolumns))}
- \foreach\n in {1,...,\WClegendrows}{
- \foreach\k in {1,...,\WClegendcolumns}{
- \pgfmathparse{int(\n+(\k-1)*\WClegendrows)}
- \ifnum\pgfmathresult>\WCtotalcount
- \gappto\WClegend{ & & }
- \else
- \gappto\WClegend{\csname WClegend}
- \xappto\WClegend{\pgfmathresult}
- \gappto\WClegend{\endcsname}
- \fi
- \ifnum\k=\WClegendcolumns
- \gappto\WClegend{\\}
- \else
- \gappto\WClegend{ & }
- \fi
- }
- }
\node[anchor=north,draw,rounded corners,thick] at (0,-4.5) {%
- \begin{tabular}{*{\WClegendcolumns}{l@{ }lr}}%
+ \begin{tabular}{*{2}{l@{ }lr}}%
\WClegend%
\end{tabular}%
};
@@ -833,15 +1382,13 @@
postaction=decorate,
decoration={
markings,
- mark=at position 1 with {
- \fill[\WCvarB] (0,0) circle[radius=0.15];
- }
+ mark=at position 1 with {\fill[\WCvarB] (0,0) circle[radius=0.15];}
}
},
start angle=331.2
]{\exampleforthismanual}
\wheelchart[
- data={},
+ data=,
radius={1.5}{2},
slices style=\WCvarB!70,
start angle=331.2
@@ -851,19 +1398,21 @@
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\wheelchart[
+ data sep=0,
data style={
inner sep=0pt,
shift={(0,0.1)}
},
- lines,
+ lines=0.5,
lines ext=1.2,
lines ext bottom dir=right,
lines ext dirsep=1,
%lines ext fixed,
- lines ext left anchor={base west},
- lines ext right anchor={base east},
+ lines ext left anchor=base west,
+ lines ext right anchor=base east,
lines ext top dir=left,
- lines sep=-0.5,
+ lines pos=0.5,
+ lines sep=0,
%lines style=\WCvarB,
start angle=331.2
]{\exampleforthismanual}
@@ -872,8 +1421,9 @@
\begin{codeexample}[width=10cm,preamble={\usetikzlibrary{decorations.markings}}]
\begin{tikzpicture}
\wheelchart[
- data={\WCvarC: \WCvarA},
+ data=\WCvarC: \WCvarA,
data angle shift=\WCvarG,
+ data sep=0,
data style={draw=\WCvarB,fill=\WCvarB!20},
lines=1.5,
lines ext=1,
@@ -883,9 +1433,7 @@
postaction=decorate,
decoration={
markings,
- mark=at position 0 with {
- \fill[Black] (0,0) circle[radius=0.15];
- }
+ mark=at position 0 with {\fill[Black] (0,0) circle[radius=0.15];}
}
},
pie,
@@ -893,23 +1441,16 @@
]{\exampleforthismanual}
\end{tikzpicture}
\end{codeexample}
-\end{key}
-\begin{key}{/wheelchart/lines sep=\marg{value} (initially 0.2)}
-This key defines the distance between the wheelchart and the start of the lines.
-\end{key}
-\begin{stylekey}{/wheelchart/lines style=\marg{options} (initially \normalfont empty)}
-This key accepts a list of keys which will be applied to the lines drawn by the key |lines|.
\end{stylekey}
-\begin{key}{/wheelchart/middle=\marg{text}}
+\begin{key}{/wheelchart/middle=\marg{text} (initially \normalfont empty)}
This key contains the \meta{text} which will be placed at the center of the wheelchart. The \meta{text} is placed in a node. The style of this node is given as follows. First, the option |align=center| is given. Thereafter, the style of the key |middle style| is added.
\end{key}
\begin{stylekey}{/wheelchart/middle fill=\marg{options} (initially \normalfont empty)}
-If this key is set then the middle of the wheelchart will be filled with this style.
+If this key is set then the middle of the wheelchart will be filled with this style. This key does \emph{not} apply if a plot is used.
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\wheelchart[
counterclockwise,
- data={},
middle fill={
Green,
draw=Red,
@@ -924,8 +1465,7 @@
},
start angle=0,
total angle=300,
- total count=4,
- value=1
+ total count=4
]{}
\end{tikzpicture}
\end{codeexample}
@@ -936,9 +1476,48 @@
\begin{key}{/wheelchart/name=\marg{name} (initially wheelchart at name)}
This key defines the \meta{name} of the |local bounding box| around the wheelchart.
\end{key}
+\begin{key}{/wheelchart/outer plot=\marg{code}}
+This key is similar to the key |inner plot| but determines the outer parts of the slices of the wheelchart.
+\begin{codeexample}[]
+\begin{tikzpicture}
+\wheelchart[
+ inner plot={{#1}:{#2+0.2*(cos(#1*\WCtotalcount)+1)}},
+ outer plot={{#1}:{#2+0.2*(cos(#1*\WCtotalcount*2)+1)}}
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[]
+\begin{tikzpicture}
+\wheelchart[
+ arc data=\WCvarC,
+ arc data pos=0.5,
+ data=,
+ domain=0:450,
+ inner plot={
+ {int((#1)/180)*5+(0.5-((-1)^Mod(int((#1)/180),2))*2.5)*cos(#1)},
+ {(2.5-((-1)^Mod(int((#1)/180),2))*0.5)*sin(#1)}
+ },
+ outer plot={
+ {int((#1)/180)*5+(-0.5-((-1)^Mod(int((#1)/180),2))*2.5)*cos(#1)},
+ {(2.5+((-1)^Mod(int((#1)/180),2))*0.5)*sin(#1)}
+ },
+ value=1
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{stylekey}{/wheelchart/outer plot style=\marg{options} (initially \normalfont empty)}
+This key accepts a list of keys which will be applied to the plot determined by the key |outer plot|.
+\end{stylekey}
\begin{key}{/wheelchart/outer radius=\marg{value} (initially 3)}
The \meta{value} of this key defines the outer radius of the wheelchart.
\end{key}
+\begin{key}{/wheelchart/parse=\mchoice{pgfmath,l3fp} (initially pgfmath)}
+\begin{description}
+\item[\texttt{pgfmath}] In this case, the values of applicable keys will be parsed with |\pgfmathparse|.
+\item[\texttt{l3fp}] In this case, the values of applicable keys will be parsed with |\fp_eval:n|.
+\end{description}
+\end{key}
\begin{key}{/wheelchart/perc precision=\marg{number} (initially 0)}
This key defines the number of decimals up to which the percentage in the macros |\WCperc| and |\WCpercentagerounded| are rounded.
\end{key}
@@ -945,6 +1524,83 @@
\begin{key}{/wheelchart/pie=\opt{\meta{boolean}} (default true, initially false)}
If true, the inner radius of the wheelchart is set to |0|.
\end{key}
+\begin{key}{/wheelchart/plot=\marg{code}}
+This key sets |inner plot| and |outer plot|.
+
+Since the \emph{let operation} from the \tikzname{} library |calc| is used, it is not possible to use the variable names |\n|, |\p|, |\x| and |\y| inside the \meta{code}.
+
+Note that positions depend on the |domain| and \emph{not} on the length of the |plot|. For example below, |data angle pos=0.5|. The corresponding value of the |domain| is $1$ which gives the $x$ coordinate $1$ which is \emph{not} in the middle of the plot. Whereas |wheel data angle pos=sqrt(2)/2|. The corresponding value of the |domain| is $\sqrt{2}$ which gives the $x$ coordinate $2$ which is in the middle of the plot.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ domain=0:2,
+ plot={{(#1)^2},{#2}},
+ wheel data=text B,
+ wheel data angle pos=sqrt(2)/2
+]{1/BrickRed/text A}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ plot={{#1}:{0.5*(sin(#1*3)+1)+#2}}
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[]
+\begin{tikzpicture}
+\wheelchart[
+ domain=0:720,
+ gap polar=5,
+ plot={{#1*3.5/180},{sin(#1)-#2}},
+ radius={0}{2},
+ value=1,
+ wheel data=\WCcount,
+ wheel data pos=0.5
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ arc data=\WCvarC,
+ arc data dir={\WCmidangle<180?-1:1},
+ arc data pos=0.5,
+ data=,
+ domain=0:900,
+ plot={{#1}:
+ {(((#1)*pi/180+15)^2-1)/300
+ +(#2)-0.25}},
+ radius={0}{0.5},
+ slices arrow={1}{0},
+ value=sqrt(3+\WCcount*pi*(pi+6)/7)-
+ sqrt(3+(\WCcount-1)*pi*(pi+6)/7)
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[]
+\begin{tikzpicture}
+\pgfkeys{
+ /wheelchart,
+ gap,
+ radius={1.3}{2},
+ start angle=180*(1-2/\WCtotalcount),
+ value=1
+}
+\wheelchart[
+ plot={{#1}:{(#2)*cos(180/\WCtotalcount)/cos(Mod(#1,{360/\WCtotalcount})-180/\WCtotalcount)}}
+]{\exampleforthismanual}
+\wheelchart[
+ at={(8,0)},
+ slices inner arrow={-cot(90*(1-2/\WCtotalcount))}{0},
+ slices outer arrow={cot(90*(1-2/\WCtotalcount))}{0}
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{stylekey}{/wheelchart/plot style=\marg{options} (initially \normalfont empty)}
+This key sets |inner plot style| and |outer plot style|.
+\end{stylekey}
\begin{key}{/wheelchart/radius=\marg{inner radius}\marg{outer radius}}
This key defines the inner and outer radius of the wheelchart.
\begin{codeexample}[width=10cm]
@@ -951,7 +1607,7 @@
\begin{tikzpicture}
\wheelchart[
contour={Green,ultra thick},
- data={},
+ data=,
radius={0.5}{\WCcount},
slices style=\WCvarA,
start angle=180,
@@ -961,52 +1617,20 @@
]{Yellow,Orange,Red,Blue}
\end{tikzpicture}
\end{codeexample}
-\begin{codeexample}[width=10cm,preamble={\usepackage{siunitx}}]
-\begin{tikzpicture}
-\def\n{73}
-\wheelchart[
- data={},
- middle={{\Huge\qty{\n}{\percent}}},
- radius={2.5-\WCvarC}{2.5+\WCvarC}
-]{%
- \n/MidnightBlue/0.5,
- {100-\n}/BurntOrange/0.3%
-}
-\draw[Gray] (0,0) circle[radius=1.9];
-\end{tikzpicture}
-\end{codeexample}
\end{key}
+\begin{key}{/wheelchart/samples=\marg{number} (initially 25)}
+This key determines the \meta{number} of samples used in the plots.
+\end{key}
+\begin{key}{/wheelchart/separator columns=\marg{delimiter} (initially /)}
+\end{key}
+\begin{key}{/wheelchart/separator rows=\marg{delimiter} (initially ,)}
+The \meta{wheelchart data} in the command |\wheelchart| is a list in which the items are separated by the value of the key |separator rows|. Each item in this list corresponds to one slice of the wheelchart and consists of data separated by the value of the key |separator columns|.
+\end{key}
\begin{key}{/wheelchart/slices=\marg{path}}
If this key is set then the shape of the slices of the wheelchart is defined by \meta{path}.
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\wheelchart[
- data={},
- radius={2}{2},
- slices={(90:1) arc[start angle=-30,
- end angle=-90,radius=1]
- arc[start angle=-210,
- end angle=90,radius=1]--cycle;},
- slices style={
- /utils/exec={
- \pgfmathsetmacro
- {\WCcolornumber}
- {(\WCcount/
- \WCtotalcount)*100}
- },
- ForestGreen!\WCcolornumber,
- draw=RedViolet,
- ultra thick
- },
- total count=6,
- value=1,
- wheel data=\WCcount
-]{}
-\end{tikzpicture}
-\end{codeexample}
-\begin{codeexample}[width=10cm]
-\begin{tikzpicture}
-\wheelchart[
radius={2.7}{3.1},
slices={(0,-0.3)--(0.3,0)--(0,0.3)
--cycle;},
@@ -1013,11 +1637,11 @@
value=1
]{\exampleforthismanual}
\wheelchart[
- data={},
+ data=,
value=1
]{\exampleforthismanual}
\wheelchart[
- data={},
+ data=,
radius={2}{2},
slices={(0,0) circle[radius=0.4];},
slices style=White,
@@ -1024,7 +1648,7 @@
value=1
]{\exampleforthismanual}
\wheelchart[
- data={},
+ data=,
radius={2}{2},
slices={(0,0) circle[radius=0.3];},
value=1,
@@ -1032,30 +1656,51 @@
]{\exampleforthismanual}
\end{tikzpicture}
\end{codeexample}
+In the following example, a |;| is placed at the beginning of the argument for the key |slices| because there is no path to be filled. Thereafter, a node is placed still within the argument for the key |slices|.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ data=,
+ radius={3.5}{3.5},
+ slices={;\node[
+ bottom color=\WCvarB!60,
+ top color=\WCvarB!10,
+ circle,
+ draw=gray,
+ minimum width=2.5cm
+ ] (WCslice\WCcount)
+ {\WCcount: \WCvarC};},
+ slices style={},
+ start half,
+ value=1
+]{\exampleforthismanual}
+\foreach\n in {1,...,7}{
+\pgfmathsetmacro{\k}{int(Mod(\n,7)+1)}
+\draw[->,line width=2pt] (WCslice\n)
+ to[bend left=10] (WCslice\k);
+}
+\end{tikzpicture}
+\end{codeexample}
\end{key}
+\begin{key}{/wheelchart/slices angle pos=\marg{value} (initially 0.5)}
+\end{key}
+\begin{key}{/wheelchart/slices angle shift=\marg{angle} (initially 0)}
+These keys determine the position of the slices if the key |slices| is used similar as the corresponding keys for the key |data|.
+\end{key}
+Below we list some keys to modify the shape of the slices. These keys only affect the shape of the slices and \emph{not} the computation of the inner and outer plot. In particular, these keys do \emph{not} affect the placement of |arc data|, |data|, |inner data|, |lines|, |wheel data| and |wheel lines|. If this placement should be changed then the keys |inner plot| and |outer plot| can be used.
\begin{key}{/wheelchart/slices arc=\marg{value 1}\marg{value 2}}
-This key sets both |slices end arc| and |slices start arc|. The effect of \meta{value 1} and \meta{value 2} is shown in the table below.
-
-%\begin{codeexample}[width=10cm]
-\def\exampleslicesarc#1#2{%
-\begin{tikzpicture}[baseline={(0,0)}]
-\draw[Red,ultra thick] (-1,0)--(1,0);
-\pgfmathsetmacro{\angle}{atan(0.5*((1/(#1))-(#1)))}
-\draw (-1,0)--({-(1-(#2))},0) arc[start angle={sign(#1)*180-\angle},end angle={\angle},radius={0.5*(1-(#2))*abs((1/(#1))+(#1))}]--(1,0);
-\end{tikzpicture}%
-}
-\begin{tabular}{l|ccc}
- & $\text{\meta{value 2}}=-0.5$ & $\text{\meta{value 2}}=0$ & $\text{\meta{value 2}}=0.5$\\\hline
-$\text{\meta{value 1}}=2$ & \exampleslicesarc{2}{-0.5} & \exampleslicesarc{2}{0} & \exampleslicesarc{2}{0.5}\\
-$\text{\meta{value 1}}=1$ & \exampleslicesarc{1}{-0.5} & \exampleslicesarc{1}{0} & \exampleslicesarc{1}{0.5}\\
-$\text{\meta{value 1}}=-1$ & \exampleslicesarc{-1}{-0.5} & \exampleslicesarc{-1}{0} & \exampleslicesarc{-1}{0.5}\\
-$\text{\meta{value 1}}=-2$ & \exampleslicesarc{-2}{-0.5} & \exampleslicesarc{-2}{0} & \exampleslicesarc{-2}{0.5}\\
-\end{tabular}
-%\end{codeexample}
+This key sets |slices end arc| and |slices start arc| but uses the opposite of \meta{value 1} for |slices start arc|.
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\wheelchart[
- slices arc={1}{0}
+ slices arc={1}{0},
+ wheel data=\WCcount,
+ wheel data angle pos=1,
+ wheel data pos=0.5,
+ wheel data style={
+ circle,
+ fill=\WCvarB!50
+ }
]{\exampleforthismanual}
\end{tikzpicture}
\end{codeexample}
@@ -1062,7 +1707,7 @@
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\wheelchart[
- data={},
+ data=,
radius={1}{4.5},
slices arc={1}{0.66},
slices style=\WCvarA,
@@ -1075,17 +1720,183 @@
wheel data pos=0.5,
wheel data style=White
]{%
- Yellow/{Some text A},
- Orange/{Some text B},
- Red/{Some text C},
- Green/{Some text D},
- Blue/{Some text E}%
+ Yellow/Some text A,
+ Orange/Some text B,
+ Red/Some text C,
+ Green/Some text D,
+ Blue/Some text E%
}
\end{tikzpicture}
\end{codeexample}
\end{key}
+\begin{key}{/wheelchart/slices arc inner end=\opt{\meta{boolean}} (default true, initially false)}
+If true then the keys |slices end arc|, |slices inner arc| and |slices start arc| are set such that the inner part and the end of each of the slices of the wheelchart form one arc and such that the start has the opposite curvature as the end.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}[font=\scriptsize]
+\foreach\a/\x in {0/0,45/4.5}{
+\wheelchart[
+ at={(\x,0)},
+ data=,
+ gap,
+ radius={1}{2.2},
+ slices arc inner end,
+ slices outer angle shift=\a,
+ value=1,
+ wheel data=\WCvarC,
+ wheel data angle pos=0.6
+]{\exampleforthismanual}
+}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices arc inner end start=\opt{\meta{boolean}} (default true, initially false)}
+If true then the keys |slices end arc|, |slices inner arc| and |slices start arc| are set such that the inner part and the end of each of the slices of the wheelchart form one arc and such that the start has the same curvature as the end.
+\begin{codeexample}[]
+\begin{tikzpicture}
+\foreach\a/\x in {-60/0,0/4.5,60/10}{
+\wheelchart[
+ at={(\x,0)},
+ radius={0.66}{2},
+ slices arc inner end start,
+ slices inner angle shift=\a,
+ slices style={fill=none,draw=Turquoise,ultra thick},
+ total count=20
+]{}
+}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices arc inner start=\opt{\meta{boolean}} (default true, initially false)}
+If true then the keys |slices end arc|, |slices inner arc| and |slices start arc| are set such that the inner part and the start of each of the slices of the wheelchart form one arc and such that the end has the opposite curvature as the start.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ middle={%
+ slices arc\\%
+ inner start,\\%
+ slices inner\\%
+ angle shift=90%
+ },
+ middle style={font=\ttfamily},
+ slices arc inner start,
+ slices inner angle shift=90
+]{%
+ 1/Goldenrod/,
+ 1/Mahogany/,
+ 1/JungleGreen/,
+ 1/RoyalBlue/%
+}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices arc inner start end=\opt{\meta{boolean}} (default true, initially false)}
+If true then the keys |slices end arc|, |slices inner arc| and |slices start arc| are set such that the inner part and the start of each of the slices of the wheelchart form one arc and such that the end has the same curvature as the start.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ data=,
+ gap polar=5,
+ middle={%
+ slices arc\\%
+ inner start end%
+ },
+ middle style={font=\ttfamily},
+ slices arc inner start end,
+ value=1,
+ wheel data=\WCvarC,
+ wheel data pos=0.4
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices arc match=\marg{arg 1}\marg{num 1}\marg{num 2}\marg{num 3}\marg{arg 2}\marg{arg 3}\marg{arg 4}}
+This key modifies the shape of the slices according to the $7$ arguments.
+
+Here, \meta{arg 1} must be |end|, |inner|, |outer| or |start| and \meta{arg 2}, \meta{arg 3} and \meta{arg 4} must be |inner end|, |inner start|, |outer end| or |outer start|. For example, the key |slices arc inner end| sets |slices arc match={inner}{1}{-1}{1}{inner end}{inner start}{outer end}|.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\foreach\a/\b/\x in
+ {end/1/0,inner/-1/4.8}{
+\wheelchart[
+ at={(\x,0)},
+ radius={0.66}{2},
+ slices arc match=
+ {\a}{\b}{1}{1}{inner end}
+ {inner start}{outer end},
+ slices inner angle shift=60,
+ slices style={
+ fill=none,
+ draw=Turquoise
+ },
+ total count=20
+]{}
+}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices arc outer end=\opt{\meta{boolean}} (default true, initially false)}
+If true then the keys |slices end arc|, |slices outer arc| and |slices start arc| are set such that the outer part and the end of each of the slices of the wheelchart form one arc and such that the start has the opposite curvature as the end.
+\end{key}
+\begin{key}{/wheelchart/slices arc outer end start=\opt{\meta{boolean}} (default true, initially false)}
+If true then the keys |slices end arc|, |slices outer arc| and |slices start arc| are set such that the outer part and the end of each of the slices of the wheelchart form one arc and such that the start has the same curvature as the end.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ data=,
+ gap polar=5,
+ middle={%
+ slices arc\\%
+ outer end start%
+ },
+ middle style={font=\ttfamily},
+ slices arc outer end start,
+ value=1,
+ wheel data=\WCvarC
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices arc outer start=\opt{\meta{boolean}} (default true, initially false)}
+If true then the keys |slices end arc|, |slices outer arc| and |slices start arc| are set such that the outer part and the start of each of the slices of the wheelchart form one arc and such that the end has the opposite curvature as the start.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ data=,
+ gap=0.1,
+ slices arc inner start,
+ slices arc outer start,
+ slices style={
+ \WCvarB!50,
+ draw=\WCvarB,
+ ultra thick
+ },
+ value=1,
+ wheel data=\WCcount,
+ wheel data pos=0.8
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[]
+\begin{tikzpicture}
+\foreach\a/\x in {0/0,45/5,90/10}{
+\wheelchart[
+ at={(\x,0)},
+ data=,
+ gap,
+ radius={0.66}{2},
+ slices arc outer start,
+ slices outer angle shift=\a,
+ value=1
+]{\exampleforthismanual}
+}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices arc outer start end=\opt{\meta{boolean}} (default true, initially false)}
+If true then the keys |slices end arc|, |slices outer arc| and |slices start arc| are set such that the outer part and the start of each of the slices of the wheelchart form one arc and such that the end has the same curvature as the start.
+\end{key}
\begin{key}{/wheelchart/slices arrow=\marg{value 1}\marg{value 2}}
-This key is similar to the key |slices arc|.
+This key is similar to the key |slices arc| but draws an arrow.
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\wheelchart[
@@ -1096,48 +1907,484 @@
\end{codeexample}
\end{key}
\begin{key}{/wheelchart/slices end arc=\marg{value 1}\marg{value 2}}
-This key is similar to the key |slices arc| but only sets the end of the slice.
+This key determines the end of the slice.
+
+The effect of \meta{value 1} and \meta{value 2} is shown in the figure and the table below.
+
+If $\text{\meta{value 1}}>0$ then the arc points outwards the slice. If $\text{\meta{value 1}}<0$ then the arc points inwards the slice. Here, outwards and inwards are relative to the orientation of the four-sided polygon formed by the points whose coordinates are determined by the inner and outer radius of the first slice and the start angle and the angle at the inverse of the key |samples| between the start angle and the end angle of the first slice. If the start angle and the end angle of the first slice are equal then the end angle of the last slice is used instead. If this test is inconclusive then the orientation is set according to the key |counterclockwise|.
+
+If $\text{\meta{value 1}}=0$ then a line segment is drawn.
+
+If \meta{value 1} and \meta{value 2} are negative then an arc is drawn which behaves the same as an arc with $\text{\meta{value 2}}=0$ and such that its radius matches the radius of the arc corresponding to setting \meta{value 1} to its opposite. This is illustrated in the table below.
+\begin{center}
+\begin{tikzpicture}[scale=3]
+\wheelchart[
+ slices end arc={2}{0.5},
+ slices style={
+ fill=none,
+ draw=Cyan,
+ ultra thick
+ },
+ xbar={1}{1}
+]{1//}
+\draw[<->] (1,0.5)--(1.5,0.5) node[below,midway] {$a$};
+\draw[<->] (1,0.5)--(1,0.75) node[left,midway] {$b$};
+\draw[<->] (1,0.75)--(1,1) node[left,midway] {$c$};
+\draw[<->] (0.75,0.5)--(0.75,1) node[left,midway] {$d$};
+\node[right] at (2,0.5) {$\lvert\text{\meta{value 1}}\rvert=\frac{a}{b},\ \lvert\text{\meta{value 2}}\rvert=\frac{c}{d}$};
+\end{tikzpicture}
+
+\newcommand{\exampleslicesarc}[2]{%
+\begin{tikzpicture}[baseline={(0,0.5)}]
+\ifdim #1 pt<0pt
+\ifdim #2 pt<0pt
+\edef\r{\fpeval{0.25*((#2)-1)*(1/(#1)+(#1))}}
+\wheelchart[
+ at={({1.5+sqrt((\r)^2-0.25)-(#1)*0.5*(1-(#2))-\r},0)},
+ slices start arc={-(#1)}{#2},
+ slices style={
+ fill=none,
+ draw=Goldenrod,
+ ultra thick
+ },
+ xbar={0.5}{1}
+]{1//}
+\fi
+\fi
+\wheelchart[
+ slices end arc={#1}{#2},
+ slices style={
+ fill=none,
+ draw
+ },
+ xbar={1.5}{1}
+]{1//}
+\useasboundingbox ($(current bounding box.south west)-(2pt,2pt)$) rectangle ($(current bounding box.north east)+(2pt,2pt)$);
+\end{tikzpicture}%
+}
+\newcommand{\exampleslicesarcrow}[1]{$\text{\meta{value 1}}=#1$ & \exampleslicesarc{#1}{-0.5} & \exampleslicesarc{#1}{0} & \exampleslicesarc{#1}{0.5}\\}
+\begin{tabular}{l|lll}
+ & $\text{\meta{value 2}}=-0.5$ & $\text{\meta{value 2}}=0$ & $\text{\meta{value 2}}=0.5$\\\hline
+\exampleslicesarcrow{2}
+\exampleslicesarcrow{1}
+\exampleslicesarcrow{0}
+\exampleslicesarcrow{-1}
+\exampleslicesarcrow{-2}
+\end{tabular}
+\end{center}
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ for loop start={
+ \definecolor{WCcolor}{wave}{
+ \fpeval{380+(\WCcount-1)*
+ 340/(\WCtotalcount-1)}}
+ },
+ gap polar=180/\WCtotalcount,
+ radius={1.5}{3},
+ slices end arc={-0.6}{0},
+ slices start arc={1.2}{0},
+ slices style=WCcolor,
+ total count=20
+]{}
+\end{tikzpicture}
+\end{codeexample}
\end{key}
\begin{key}{/wheelchart/slices end arrow=\marg{value 1}\marg{value 2}}
-This key is similar to the key |slices arrow| but only sets the end of the slice.
+This key is similar to the key |slices end arc| but draws an arrow.
+\end{key}
+\begin{key}{/wheelchart/slices end to=\marg{value 1}\marg{value 2}}
+This key sets the |to| path operation for the end of the slice. The angle at the inner side is determined by \meta{value 1} and the angle at the outer side is determined by \meta{value 2}.
+\end{key}
+\begin{key}{/wheelchart/slices inner angle reduce=\marg{angle}}
+This key sets |slices inner end angle shift| to $-\text{\meta{angle}}$ and |slices inner start angle shift| to \meta{angle}.
+\end{key}
+\begin{key}{/wheelchart/slices inner angle shift=\marg{angle}}
+This key sets |slices inner end angle shift| and |slices inner start angle shift| to \meta{angle}.
\begin{codeexample}[width=10cm]
\begin{tikzpicture}
\wheelchart[
- data={},
- explode=1,
- middle={\Large Recycle},
- slices end arrow={1}{-0.5},
- slices style=Green,
- total count=3,
+ data=,
+ middle={%
+ slices inner\\%
+ angle shift=90%
+ },
+ middle style={font=\ttfamily},
+ slices inner angle shift=90
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ data=,
+ gap,
+ radius={1}{3},
+ slices arc={0.5}{0},
+ slices inner angle shift=45,
+ value=1,
+ wheel data=\WCvarC,
+ wheel data angle pos=0.8
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[]
+\begin{tikzpicture}
+\foreach\a/\x in {-60/0,0/5.6,60/10}{
+\wheelchart[
+ at={(\x,0)},
+ radius={0.66}{2},
+ slices arc inner start,
+ slices inner angle shift=\a,
+ slices style={fill=\WClistcolors},
+ total count=40,
+ WClistcolors={RedOrange,none}
+]{}
+}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}[font=\small]
+\pgfkeys{
+ /wheelchart,
+ data=,
+ inner data=\WCcount,
+ inner data pos=0.1,
+ inner data sep=0,
+ radius={1}{2.4},
+ slices inner angle shift=
+ 90-180/\WCtotalcount,
+ slices inner arc={0}{0},
+ value=1,
+ wheel data=\WCvarC
+}
+\wheelchart{\exampleforthismanual}
+\wheelchart[
+ at={(4.8,0)},
+ slices outer arc={0}{0},
+ wheel data pos=0.58
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices inner arc=\marg{value 1}\marg{value 2}}
+This key is similar to the key |slices end arc| but sets the inner part of the slice.
+\end{key}
+\begin{key}{/wheelchart/slices inner arc tangent=\opt{\meta{boolean}} (default true, initially false)}
+If true then the key |slices inner arc| is set such that the arc is tangent to the end and start of the slice if possible. Note that this is not possible for all settings for keys such as |plot| and |slices inner angle shift|.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ counterclockwise,
+ data=,
+ gap=0.1,
+ middle=slices inner\\arc tangent,
+ middle style={font=\ttfamily},
+ slices inner arc tangent,
+ slices style={
+ draw=\WCvarB,
+ fill=\WCvarB!50,
+ ultra thick
+ },
value=1
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices inner arrow=\marg{value 1}\marg{value 2}}
+This key is similar to the key |slices end arrow| but sets the inner part of the slice.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\def\n{10}
+\wheelchart[
+ radius={0}{1.5},
+ slices outer arrow={cot(180/\n)}{0},
+ slices style{list}={
+ BurntOrange,RedOrange
+ },
+ total count=\n
]{}
+\wheelchart[
+ radius={3*cos(180/\n)}
+ {3*cos(180/\n)},
+ slices inner arrow={cot(360/\n)}{0},
+ slices outer arrow={cot(360/\n)}{0},
+ slices style{list}={
+ Dandelion,Goldenrod
+ },
+ start half,
+ total count=\n
+]{}
\end{tikzpicture}
\end{codeexample}
\end{key}
+\begin{key}{/wheelchart/slices inner end angle shift=\marg{angle} (initially 0)}
+The end angle of the inner part of the slice will be modified such that the angle between the end and the inner part of the slice is shifted with \meta{angle} (taking into account the key |counterclockwise|). The behavior of this key depends on whether a plot is used.
+\end{key}
+\begin{key}{/wheelchart/slices inner start angle shift=\marg{angle} (initially 0)}
+This key is similar to the key |slices inner end angle shift| but modifies the start angle of the inner part of the slice.
+\end{key}
+\begin{key}{/wheelchart/slices inner to=\marg{value 1}\marg{value 2}}
+This key sets the |to| path operation for the inner part of the slice. The angle at the start is determined by \meta{value 1} and the angle at the end is determined by \meta{value 2}.
+\end{key}
+\begin{key}{/wheelchart/slices outer angle reduce=\marg{angle}}
+This key sets |slices outer end angle shift| to $-\text{\meta{angle}}$ and |slices outer start angle shift| to \meta{angle}.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ data=,
+ inner data=\WCcount,
+ inner data style={
+ circle,
+ fill=white
+ },
+ slices inner arrow={1}{0},
+ slices outer angle reduce=
+ 180/\WCtotalcount,
+ slices outer arrow={0}{0},
+ value=1,
+ wheel data=\WCvarC,
+ wheel data style={
+ rotate=\WCmidangle-90
+ }
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices outer angle shift=\marg{angle}}
+This key sets |slices outer end angle shift| and |slices outer start angle shift| to \meta{angle}.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}[looseness=2]
+\wheelchart[
+ data=,
+ inner data={\Large\WCcount},
+ inner data pos=1.1,
+ radius={1}{3},
+ slices arc inner end,
+ slices outer angle shift=80,
+ slices outer to={80}{80},
+ slices style={
+ bottom color=\WCvarB,
+ top color=\WCvarB!80!black,
+ shading angle=\WCmidangle-90
+ },
+ value=1,
+ wheel data=\WCvarC,
+ wheel data angle pos=0.4,
+ wheel data pos=0.8
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices outer arc=\marg{value 1}\marg{value 2}}
+This key is similar to the key |slices end arc| but sets the outer part of the slice.
+\end{key}
+\begin{key}{/wheelchart/slices outer arc tangent=\opt{\meta{boolean}} (default true, initially false)}
+If true then the key |slices outer arc| is set such that the arc is tangent to the end and start of the slice if possible. Note that this is not possible for all settings for keys such as |plot| and |slices inner angle shift|.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ data=,
+ gap=0.1,
+ middle=slices outer\\arc tangent,
+ middle style={font=\ttfamily},
+ slices outer arc tangent,
+ slices style={
+ draw=\WCvarB,
+ fill=\WCvarB!50,
+ ultra thick
+ },
+ value=1
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices outer arrow=\marg{value 1}\marg{value 2}}
+This key is similar to the key |slices end arrow| but sets the outer part of the slice.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}[font=\scriptsize]
+\foreach\a/\x in
+ {1/0,{tan(180/\WCtotalcount)}/5}{
+\wheelchart[
+ at={(\x,0)},
+ data=,
+ gap,
+ radius={0.66}{2},
+ slices outer arrow={\a}{0},
+ start half,
+ value=1,
+ wheel data=\WCvarC
+]{\exampleforthismanual}
+}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\pgfkeys{
+ /wheelchart,
+ data=,
+ radius={1}{1.5},
+ value=1
+}
+\wheelchart[
+ slices inner arrow={0}{0}
+]{\exampleforthismanual}
+\wheelchart[
+ at={(3.25,0)},
+ slices outer arrow={0}{0}
+]{\exampleforthismanual}
+\wheelchart[
+ at={(6.5,0)},
+ slices inner arrow={0}{0},
+ slices outer arrow={0}{0}
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\foreach\r/\s/\a in
+ {3/0/0.5,2/15/1,1/30/0.7}{
+\wheelchart[
+ radius={0.5}{\r},
+ slices outer arrow={\a}{0},
+ slices style={
+ fill=\WClistcolors!20,
+ draw=\WClistcolors,
+ ultra thick,
+ double
+ },
+ start half=\s,
+ total count=12,
+ WClistcolors={CarnationPink,Orchid}
+]{}
+}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices outer end angle shift=\marg{angle} (initially 0)}
+The end angle of the outer part of the slice will be modified such that the angle between the end and the inner (not the outer) part of the slice is shifted with \meta{angle} (taking into account the key |counterclockwise|). The behavior of this key depends on whether a plot is used.
+\end{key}
+\begin{key}{/wheelchart/slices outer start angle shift=\marg{angle} (initially 0)}
+This key is similar to the key |slices outer end angle shift| but modifies the start angle of the outer part of the slice.
+\end{key}
+\begin{key}{/wheelchart/slices outer to=\marg{value 1}\marg{value 2}}
+This key sets the |to| path operation for the outer part of the slice. The angle at the start is determined by \meta{value 1} and the angle at the end is determined by \meta{value 2}.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}[looseness=3]
+\wheelchart[
+ data=,
+ radius={0}{2.5},
+ slices arc={0.4}{0},
+ slices outer to={70}{70},
+ start half,
+ value=1,
+ wheel data=\WCvarC,
+ wheel data pos=1
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/slices pos=\marg{value} (initially 0.5)}
+This key determines the position of the slices if the key |slices| is used similar as the corresponding key for the key |data|.
+\end{key}
+\begin{stylekey}{/wheelchart/slices scope=\marg{options} (initially \normalfont empty)}
+This key accepts a list of keys which will be applied to the scope in which the slices of the wheelchart, the wheel lines determined by the key |wheel lines| and the different kinds of data are placed.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ data=,
+ radius={3.9}{4.5},
+ slices inner arc={0}{0},
+ slices outer angle reduce=5*90/7,
+ slices outer arc={0}{0},
+ slices scope={
+ shift={
+ ($(90+\WCmidangle:0.559572)
+ +(\WCmidangle:-1.16196)$)
+ }
+ },
+ value=1,
+ wheel data=\WCvarC,
+ wheel data pos=0,
+ wheel data style={
+ rotate=\WCmidangle-90
+ }
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\begin{codeexample}[width=10cm,preamble={\usepackage{siunitx}}]
+\begin{tikzpicture}
+\wheelchart[
+ data=\WCvarC\\%
+ \qty{\fpeval{\WCvarA/2}}%
+ {\percent},
+ radius={0.5}{0.5+0.1*\WCvarA},
+ slices inner arc tangent,
+ slices outer angle reduce=
+ 180/\WCtotalcount,
+ slices outer arc tangent,
+ slices scope={shift={(\WCmidangle:
+ {-cos(180/\WCtotalcount)/2})}},
+ value=1
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{stylekey}
+\begin{key}{/wheelchart/slices sep=\marg{value} (initially 0)}
+This key determines the position of the slices if the key |slices| is used similar as the corresponding key for the key |data|.
+\end{key}
\begin{key}{/wheelchart/slices start arc=\marg{value 1}\marg{value 2}}
-This key is similar to the key |slices arc| but only sets the start of the slice.
+This key is similar to the key |slices end arc| but sets the start of the slice.
\end{key}
\begin{key}{/wheelchart/slices start arrow=\marg{value 1}\marg{value 2}}
-This key is similar to the key |slices arrow| but only sets the start of the slice.
+This key is similar to the key |slices end arrow| but sets the start of the slice.
\end{key}
+\begin{key}{/wheelchart/slices start to=\marg{value 1}\marg{value 2}}
+This key sets the |to| path operation for the start of the slice. The angle at the inner side is determined by \meta{value 1} and the angle at the outer side is determined by \meta{value 2}.
+\end{key}
\begin{stylekey}{/wheelchart/slices style=\marg{options} (initially \textbackslash WCvarB)}
This key defines the style of the slices of the wheelchart.
\end{stylekey}
+\begin{key}{/wheelchart/slices to=\marg{value 1}\marg{value 2}}
+This key sets |slices end to| and |slices start to| but uses the opposite respective values for |slices start to|.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}[looseness=2]
+\wheelchart[
+ radius={1}{3},
+ slices inner angle shift=90,
+ slices inner arc={0}{0},
+ slices outer to={70}{70},
+ slices style{list}={Maroon,Salmon},
+ slices to={30}{30},
+ total count=6
+]{}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{stylekey}{/wheelchart/slice\marg{range}=\marg{options} (initially \normalfont empty)}
+This key accepts a list of keys from the wheelchart key family. The \meta{range} is mandatory and must be non-empty. It is processed with |\foreach| with the option |parse=true|. Hereafter the elements are processed with |\fp_eval:n|. The \meta{options} will only be applied to a slice if the number of the slice is in the \meta{range}. The \meta{range} only makes sense for a key which is processed for each slice. For example, the \meta{range} does not make sense for the key |middle|.
+\end{stylekey}
\begin{key}{/wheelchart/start angle=\marg{angle} (initially 90)}
This key defines the \meta{angle} in degrees at which the first slice of the wheelchart starts.
\end{key}
\begin{key}{/wheelchart/start half=\marg{angle} (default 90)}
-If this key is set then the middle of the first slice of the wheelchart is positioned at \meta{angle} in degrees.
+This key sets the start angle such that the middle of the first slice of the wheelchart is positioned at \meta{angle} in degrees.
\end{key}
-\begin{key}{/wheelchart/title=\marg{text}}
-This key contains the \meta{text} which will be placed above the wheelchart. The \meta{text} is placed in a node. The $x$ coordinate of this node is the $x$ coordinate of the center of the wheelchart, which is defined by the key |at|. In general, this is \emph{not} the same as the $x$ coordinate of the center of the |local bounding box| around the wheelchart. The $y$ coordinate of this node is |0.5| above the north of the |local bounding box| around the wheelchart. The style of this node is given as follows. First, the options |anchor=south,align=center| are given. Thereafter, the style of the key |title style| is added.
+\begin{key}{/wheelchart/title=\marg{text} (initially \normalfont empty)}
+This key contains the \meta{text} which will be placed above the wheelchart. The \meta{text} is placed in a node. The $x$ coordinate of this node is the $x$ coordinate of the center of the wheelchart, which is defined by the key |at|. In general, this is \emph{not} the same as the $x$ coordinate of the center of the |local bounding box| around the wheelchart. The $y$ coordinate of this node is at a value determined by the key |title sep| above the north of the |local bounding box| around the wheelchart. The style of this node is given as follows. First, the options |anchor=south,align=center| are given. Thereafter, the style of the key |title style| is added.
\end{key}
-\begin{key}{/wheelchart/title left=\marg{text}}
-This key contains the \meta{text} which will be placed above left of the wheelchart. The \meta{text} is placed in a node. This node is placed |0.5| above the north west of the |local bounding box| around the wheelchart. The style of this node is given as follows. First, the options |anchor=south west,align=left| are given. Thereafter, the style of the key |title left style| is added.
+\begin{key}{/wheelchart/title left=\marg{text} (initially \normalfont empty)}
+This key contains the \meta{text} which will be placed above left of the wheelchart. The \meta{text} is placed in a node. This node is placed at a value determined by the key |title left sep| above the north west of the |local bounding box| around the wheelchart. The style of this node is given as follows. First, the options |anchor=south west,align=left| are given. Thereafter, the style of the key |title left style| is added.
\end{key}
+\begin{key}{/wheelchart/title left sep=\marg{value} (initially 0.5)}
+The node where the contents of the key |title left| is placed is at \meta{value} above the north west of the |local bounding box| around the wheelchart.
+\end{key}
\begin{stylekey}{/wheelchart/title left style=\marg{options} (initially \normalfont empty)}
This key accepts a list of keys which will be applied to the node where the contents of the key |title left| is placed.
\end{stylekey}
+\begin{key}{/wheelchart/title sep=\marg{value} (initially 0.5)}
+The $y$ coordinate of the node where the contents of the key |title| is placed is at \meta{value} above the north of the |local bounding box| around the wheelchart.
+\end{key}
\begin{stylekey}{/wheelchart/title style=\marg{options} (initially \normalfont empty)}
This key accepts a list of keys which will be applied to the node where the contents of the key |title| is placed.
\end{stylekey}
@@ -1145,68 +2392,62 @@
This key defines the total \meta{angle} in degrees of the wheelchart.
\end{key}
\begin{key}{/wheelchart/total count=\marg{number}}
-If this key is set then the number of slices of the wheelchart is determined by \meta{number}.
-\begin{codeexample}[width=10cm,preamble={\usepackage{listofitems}}]
-\readlist*\WCcolors{
- Rhodamine,RedOrange,OrangeRed
-}
-\setsepchar{ }
-\readlist\WCdata{An example with the
- package \texttt{listofitems} where
- some keys are given using a list}
+If this key is set then the number of slices of the wheelchart is determined by \meta{number}. Moreover, |\WCvarA| is defined as |1| and |\WCvarB| and |\WCvarC| are defined to be empty.
+\begin{codeexample}[width=10cm,preamble={\usepackage{siunitx}}]
\begin{tikzpicture}
+\def\n{57}
\wheelchart[
- data={\WCdata[\WCcount]},
- slices style={
- /utils/exec={
- \pgfmathsetmacro
- {\WCcolornumber}
- {int(Mod({\WCcount-1},
- \WCcolorslen)+1)}
- },
- \WCcolors[\WCcolornumber]
- },
- total count={\WCdatalen},
- value=1
+ gap=0.015,
+ middle={\Huge\qty{\n}{\percent}},
+ slices style=Gray,
+ slices style{1,...,\n}=Cyan,
+ total count=100
]{}
\end{tikzpicture}
\end{codeexample}
-\begin{codeexample}[width=10cm,preamble={\usepackage{siunitx}}]
+\end{key}
+\begin{key}{/wheelchart/triangle proportional area=\marg{width}\marg{height}}
+This key configures the plot such that a triangular shape is obtained. The value is proportional to the area and \emph{not} to the height. Moreover, it sets |samples=2| and |wheel data pos=0.5|. The point $(0,0)$ is at the top. This can be shifted with the key |at|.
+\begin{codeexample}[width=10cm]
\begin{tikzpicture}
-\def\n{57}
\wheelchart[
- data={},
- gap=0.015,
- middle={%
- {\Huge\qty{\n}{\percent}}\\%
- An ode to the\\%
- ``Grothendieck prime''%
- },
- slices style={
- /utils/exec={
- \ifnum\WCcount>\n
- \def\WCcolor{Gray}
- \else
- \def\WCcolor{Cyan}
- \fi
- },
- \WCcolor
- },
- total count=100,
+ triangle proportional area={5}{4},
value=1
-]{}
+]{\exampleforthismanual}
\end{tikzpicture}
\end{codeexample}
\end{key}
+\begin{key}{/wheelchart/triangle proportional height=\marg{width}\marg{height}}
+This key configures the plot such that a triangular shape is obtained. The value is proportional to the height and \emph{not} to the area. Moreover, it sets |samples=2| and |wheel data pos=0.5|. The point $(0,0)$ is at the top. This can be shifted with the key |at|.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ triangle proportional height={5}{4},
+ value=1
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
\begin{key}{/wheelchart/value=\marg{value} (initially \textbackslash WCvarA)}
This key defines the \meta{value} which corresponds to the size of each slice of the wheelchart.
\end{key}
-\begin{key}{/wheelchart/wheel data=\marg{text}}
+\begin{key}{/wheelchart/WClist\meta{name}=\marg{list}}
+This key locally defines a macro |\WClist|\meta{name} which gives the element in the \meta{list} with as index |\WCcount| modulo the length of the \meta{list}. The \meta{list} is expanded once and processed using a |clist|. In particular, blank arguments are ignored. An empty argument in the \meta{list} can be obtained with |{}|. Items containing a |,| can be obtained by surrounding it with |{| and |}| such as |WClistA={{a,b},{c,d}}|.
+
+If |\def\mylist{a,b,c}| and |WClistA=\mylist| then |\WClistA| gives |a,b,c| for each slice. On the other hand, if |WClistA/.expanded=\mylist| then |\WClistA| alternates between |a|, |b| and |c|.
+\end{key}
+\begin{key}{/wheelchart/wheel data=\marg{text} (initially \normalfont empty)}
This key contains the \meta{text} which will be placed on top of each slice of the wheelchart. The \meta{text} is placed in a node. The style of this node is given as follows. First, the option |align=left| is given. Thereafter, the style of the key |wheel data style| is added.
\end{key}
+\begin{key}{/wheelchart/wheel data angle pos=\marg{value} (initially 0.5)}
+\end{key}
+\begin{key}{/wheelchart/wheel data angle shift=\marg{angle} (initially 0)}
+\end{key}
\begin{key}{/wheelchart/wheel data pos=\marg{value} (initially 0.66)}
-The radius of the polar coordinate at which the contents of the key |wheel data| is placed is given by the convex combination $\text{|wheel data pos|}\cdot\text{|outer radius|}+(1-\text{|wheel data pos|})\cdot\text{|inner radius|}$.
\end{key}
+\begin{key}{/wheelchart/wheel data sep=\marg{value} (initially 0)}
+These keys determine the position of the contents of the key |wheel data| similar as the corresponding keys for the key |data|.
+\end{key}
\begin{stylekey}{/wheelchart/wheel data style=\marg{options} (initially \normalfont empty)}
This key accepts a list of keys which will be applied to the node where the contents of the key |wheel data| is placed.
\end{stylekey}
@@ -1214,7 +2455,7 @@
If this key is set then lines with the style determined by this key will be drawn inside the slices of the wheelchart. The number of these lines depends on the value of the key |value|.
Below is the example from \cite[Subsection 7.6]{TtTaPGFp} recreated with the package |wheelchart|.
-\begin{codeexample}[width=10cm]
+\begin{codeexample}[width=10cm,preamble={\usepackage{siunitx}}]
\begin{tikzpicture}
\colorlet{good}{green!75!black}
\colorlet{bad}{red}
@@ -1223,8 +2464,8 @@
\wheelchart[
anchor xsep=15,
contour=gray,
- data={``\WCvarC'': \WCvarA{} (\WCperc)},
- middle={Ratings given by\\\pgfmathprintnumber{\WCtotalnum}~participants},
+ data=``\WCvarC'': \WCvarA{} (\WCperc),
+ middle=Ratings given by\\\WCtotalnum{} participants,
radius={1.8}{2.2},
start half=270,
wheel lines={black!15,thick}
@@ -1231,14 +2472,260 @@
]{%
10/neutral/ok,
9/good!60!white/good,
- 3/good/{very good},
+ 3/good/very good,
20/none/none,
- 0/bad/{very bad},
+ 0/bad/very bad,
8/bad!60!white/bad%
}
\end{tikzpicture}
\end{codeexample}
\end{stylekey}
+\begin{key}{/wheelchart/xbar=\marg{width}\marg{height}}
+This key sets |domain=0:|\marg{width}, |plot={{#1},{#2}}|, |radius={0}|\marg{height}, |samples=2| and also |wheel data pos=0.5|. The point $(0,0)$ is below left of the bar. This can be shifted with the key |at|. Note that since this key sets in particular the outer parts of the slices, keys such as |slices outer arc| must be placed \emph{after} the key |xbar| to be applied.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ data pos{list}={1,0},
+ data style={anchor=mid},
+ gap polar=0.05,
+ slices arrow={1}{0},
+ xbar={8}{1.5}
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\begin{key}{/wheelchart/ybar=\marg{width}\marg{height}}
+This key sets |domain=0:|\marg{height}, |plot={{#2},{#1}}|, |radius={0}|\marg{width}, |samples=2| and also |wheel data pos=0.5|. The point $(0,0)$ is below left of the bar. This can be shifted with the key |at|.
+\begin{codeexample}[width=10cm]
+\begin{tikzpicture}
+\wheelchart[
+ inner data=\WCperc,
+ inner data style={anchor=east},
+ ybar={1}{4}
+]{\exampleforthismanual}
+\end{tikzpicture}
+\end{codeexample}
+\end{key}
+\section{Additional examples}
+The following example is an answer to the question on \url{https://tex.stackexchange.com/questions/433848/is-there-a-way-to-make-sunburst-charts-multi-level-pie-charts-in-latex}.
+\catcode`|=12%
+\begin{codeexample}[preamble={\usepackage{etoolbox}
+\usepackage{listofitems}
+\usetikzlibrary{decorations.text}}]
+\begin{tikzpicture}
+\sffamily
+\readlist\WCcolors{orange!50,orange!75,orange}
+\pgfkeys{
+ /wheelchart,
+ arc data=\WCvarB,
+ arc data dir={\WCmidangle<180?-1:1},
+ arc data pos=0.5,
+ arc data style={text color=white},
+ counterclockwise,
+ data=,
+ gap,
+ gap radius,
+ slices style={
+ /utils/exec={
+ \ifdefempty{\WCvarB}{
+ \def\WCcolor{none}
+ \def\WCoverlay{true}
+ }{
+ \edef\WCcolor{\WCcolors[\fpeval{\WCmidangle<90?1:(\WCmidangle<210?2:(\WCmidangle<270?3:1))}]}
+ \def\WCoverlay{false}
+ }
+ },
+ fill=\WCcolor,
+ overlay=\WCoverlay
+ }
+}
+\wheelchart[
+ middle=Root\\Node,
+ middle style=darkgray,
+ radius={1}{2}
+]{2/Node 1,1/Node 2,3/Node 3}
+\wheelchart[
+ radius={2}{3}
+]{4/Sub1,4/Sub2,4/Sub3,3/Sub1,3/Sub2,6/Sub1,6/Sub2,3/Sub3,3/Sub4}
+\wheelchart[
+ radius={3}{4}
+]{4/Sub1-Sub1,20/,3/Sub2-Sub1,3/Sub2-Sub2,6/}
+\end{tikzpicture}
+\end{codeexample}
+\catcode`|=13%
+The following example is an answer to the question on \url{https://tex.stackexchange.com/questions/447920/pie-chart-with-color-palette-info-inside-and-legend}.
+\newgeometry{left=2pt,right=2pt,top=2.5cm,bottom=2.5cm}%
+\makeatletter%
+\f at nch@setoffs%
+\makeatother%
+\catcode`|=12%
+\begin{codeexample}[preamble={\usepackage{siunitx}
+\usetikzlibrary{decorations.text}}]
+\begin{tikzpicture}
+\ExplSyntaxOn
+\seq_set_from_clist:Nn \l_tmpa_seq { 190~ 30~ 46 , 240~ 65~ 54 , 241~ 90~ 43 , 247~148~ 30 , 43~ 56~144 , 28~117~188 , 40~170~225 ,
+ 119~179~225 , 181~212~239 , 0~104~ 56 , 0~148~ 69 , 57~181~ 74 , 141~199~ 63 , 215~244~ 34 ,
+ 249~237~ 50 , 248~241~148 , 242~245~205 , 123~ 82~ 49 , 104~ 73~158 , 102~ 45~145 , 148~149~151 }
+\seq_map_indexed_inline:Nn \l_tmpa_seq { \definecolor { slice#1 } { RGB } {#2} }
+\ExplSyntaxOff
+\definecolor{background}{RGB}{255 253 234}\definecolor{disc}{RGB}{ 15 119 188}
+\definecolor{text1}{RGB}{209 211 212}\definecolor{text2}{RGB}{ 67 66 63}
+\sisetup{group-separator={,},group-minimum-digits=4,text-series-to-math=true}
+\fill[background] (-6.8,-8) rectangle (13.8,8);
+\pgfkeys{/wheelchart,data=,radius={1.7}{5}}
+\wheelchart[
+ arc data{18,21}=|\bfseries|\WCvarE{} \WCpercentage{\,}{\unit{\percent}},
+ arc data pos=1.2,
+ arc data style={text color=slice\WCcount},
+ inner data{1,...,20}=\qty{\WCvarC}{\percent}\\[-4pt]yield,
+ inner data pos=0.5,
+ inner data style=\WCvarB,
+ legend entry={
+ \fill[slice\WCcount,shift={({int((\WCcount-1)/17)*4.5-3},0)}] ({45-Mod({\WCcount-1},17)*90/16}:10) circle[radius=0.4]
+ node[\WCvarB,font=\large] {\WCperc}
+ node[black,shift={(0.6,0)},anchor=west,font=\footnotesize,align=left,execute at begin node={\baselineskip=7pt}] {\WCvarD};
+ },
+ lines{18,21}=0.75,
+ lines sep=0.1,
+ lines style={slice\WCcount,dashed,ultra thick},
+ middle=Income\\[-4pt]\& growth\\{\Huge\textcolor{slice21}{\pounds 100k}}\\portfolio,
+ middle fill=white,
+ middle style={font=\bfseries\Large},
+ slices style=slice\WCcount,
+ wheel data={\Large \pounds\WCvarA k},
+ wheel data{21}=\pounds\\[-4pt]\WCvarA\\[-4pt]k,
+ wheel data pos=0.8,
+ wheel data style=\WCvarB
+]{%
+ 5/text1/4.26/Miton Multi-Cap\\Income/,
+ 6/text1/6.86/Schroder Income\\Maximiser/,
+ 6/text1/3.82/Trojan\\Income/,
+ 7/text1/3.32/CF Woodford\\Equity Income/,
+ 7/text1/2.91/Artemis Global\\Income/,
+ 4/text1/2.87/First State Global\\Listed Infrastructure/,
+ 4/slice5/2.63/Lazard Global\\Listed Infrastructure/,
+ 4/slice5/3.50/Legg Mason RARE\\Global Income/,
+ 6/slice5/2.55/Newton Global\\Income/,
+ 5/text1/4.6/Henderson\\Strategic Bond/,
+ 4/text1/5.01/Invesco Perpetual\\Monthly Income Plus/,
+ 5/text1/4.4/Jupiter Strategic\\Bond/,
+ 4/slice11/0/L\&G All Stocks Index\\Linked Gilt Index/,
+ 5/slice11/2.3/L\&G Short Dated Sterling\\Corporate Bond Index/,
+ 4/slice11/5.95/Royal London Short Duration\\Global High Yield Bond/,
+ 4/slice10/3.55/TwentyFour\\Corporate Bond/,
+ 4/slice10/5.03/TwentyFour\\Dynamic Bond/,
+ 5/text1/4.8/F\&C Property Growth\\\& Income/PROPERTY,
+ 5/text1/4.44/Aviva Multi Strategy\\Target Income/,
+ 5/text1/3.45/Invesco\\Perpetual\\Global Targeted\\Income/,
+ 1/text2/0.01/Cash/CASH%
+}
+\pgfkeys{/wheelchart,arc={draw=\WCvarB,dashed,ultra thick},arc around text,arc data{1,2,3,5}=|\bfseries|\WCvarC{} \WCvarA{\,}
+{\unit{\percent}},arc data pos=1.1,arc data style={text color=\WCvarB},arc pos=1.1,slices style={fill=none},value{5}=12}
+\wheelchart{%
+ 24/slice1/UK EQUITIES,
+ 25/slice5/GLOBAL EQUITIES,
+ 35/slice10/FIXED INTEREST,
+ 3/none/,
+ 10/slice20/ALTERNATIVE,
+ 1/none/%
+}
+\fill[disc] (12,-5.5) circle[radius=1.7]
+node[white,font=\Large\bfseries,align=center] {Portfolio\\[-4pt]income\\\pounds\num{3785}\\[10pt]{\large or \qty{3.79}{\percent}}};
+\node[rotate=270,anchor=north west] at (13.8,8) {\emph{Source: Whitechurch Securities}};
+\end{tikzpicture}
+\end{codeexample}
+\catcode`|=13%
+\restoregeometry%
+The following example is an answer to the question on \url{https://tex.stackexchange.com/questions/477310/cyclic-flowchart-in-tikz}.
+\catcode`|=12%
+\begin{codeexample}[width=10cm,preamble={\usetikzlibrary{decorations.text}}]
+\begin{tikzpicture}
+\sffamily
+\wheelchart[
+ data=,
+ middle=Optimized\\vibrating\\%
+ systems,
+ middle fill=RoyalBlue,
+ middle style=white,
+ radius={1.2}{4},
+ slices={(0,0) circle[radius=0.8];},
+ slices style=\WCvarA,
+ start half,
+ value=1,
+ wheel data=\WCvarB,
+ wheel data pos=0.5,
+ wheel data style={
+ white,
+ align=center
+ }
+]{%
+ Green/Passive\\control,
+ Maroon/Feed-\\forward,
+ Orange/Active\\control%
+}
+\wheelchart[
+ gap polar=25,
+ radius={2.5}{2.7},
+ slices end arrow={1}{-1},
+ slices start arrow={1}{-1},
+ slices style=Gray,
+ total count=3
+]{}
+\foreach\n in {-30,90,210}{
+ \draw[->,MidnightBlue,ultra thick]
+ (\n:1.7)--(\n:1.3);
+}
+\fill[
+ top color=Gray!50,
+ bottom color=Gray,
+ draw,
+ even odd rule
+] (0,0) circle[radius=3.5]
+ circle[radius=4.2];
+\wheelchart[
+ arc{2}={
+ <-,
+ ultra thick
+ },
+ arc around text,
+ arc data=~\WCvarA~,
+ arc data pos=0.5,
+ arc pos=0.5,
+ data=,
+ gap polar=10,
+ radius={3.5}{4.2},
+ slices style={fill=none},
+ start half=180,
+ value=1
+]{%
+ {Mass M, Damping D, Stiffness K},
+ Dynamic model,
+ Frequency response functions H,
+ %
+}
+\end{tikzpicture}
+\end{codeexample}
+\catcode`|=13%
+\section{Version history}
+\begin{itemize}
+\item[] \textbf{Version 1.0 (2022/09/11)} First version.
+\item[] \textbf{Version 2.0 (2023/12/03)}
+\begin{itemize}
+\item The package now mainly uses \LaTeX3 syntax.
+\item Improved the definition of the path of the slices.
+\item Many internal computations are now performed with |\fp_eval:n| instead of |pgfmath| for higher accuracy and to allow larger values. This applies in particular to the computation of |\WCpercentage|, |\WCpercentagerounded| and |\WCtotalnum|. Hence |\WCpercentagerounded| can be parsed by |siunitx| since its definition does not involve |\pgfmathprintnumberto| anymore and |\WCtotalnum| does not end with |.0| if it is an integer.
+\item The number of data which can be given to each slice of the wheelchart and accessed by |\WCvarA| and so on is not limited to $26$ anymore.
+\item \begin{flushleft}Added the macros |\WCcountdiscrete|, |\WCetocthelinkedname|, |\WCetocthelinkednumber|, |\WCetocthelinkedpage|, |\WCetocthename|, |\WCetocthenumber|, |\WCetocthenumberofpages|, |\WCetocthepage|, |\WClegend|, |\WClist|\meta{name} and |\|\meta{prefix}\meta{name}.\end{flushleft}
+\item \begin{flushleft}Added the keys |after slices|, |arc|, |arc around text|, |arc data|, |arc data align|, |arc data angle pos|, |arc data angle shift|, |arc data dir|, |arc data pos|, |arc data sep|, |arc data style|, |arc first half|, |arc pos|, |arc second half|, |arc sep|, |before slices|, |caption left sep|, |caption sep|, |data angle pos|, |data pos|, |discrete|, |discrete factor|, |discrete partitioning|, |discrete pic|, |discrete sort|, |discrete space at borders|, |domain|, |etoc code|, |etoc count total pages|, |etoc level|, |etoc name|, |etoc use name|, |expand list items|, |for loop end|, |for loop start|, |gap max angle|, |gap radius|, |header|, |header prefix|, |inner data angle pos|, |inner data angle shift|, |inner data pos|, |inner plot|, |inner plot style|, |legend columns|, |legend only|, |legend row|, |lines angle pos|, |lines angle shift|, |lines ext dir|, |lines ext fixed left|, |lines ext fixed right|, |lines pos|, |outer plot|, |outer plot style|, |parse|, |plot|, |plot style|, |samples|, |separator columns|, |separator rows|, |slices angle pos|, |slices angle shift|, |slices arc inner end|, |slices arc inner end start|, |slices arc inner start|, |slices arc inner start end|, |slices arc match|, |slices arc outer end|, |slices arc outer end start|, |slices arc outer start|, |slices arc outer start end|, |slices end to|, |slices inner angle reduce|, |slices inner angle shift|, |slices inner arc|, |slices inner arc tangent|, |slices inner arrow|, |slices inner end angle shift|, |slices inner start angle shift|, |slices inner to|, |slices outer angle reduce|, |slices outer angle shift|, |slices outer arc|, |slices outer arc tangent|, |slices outer arrow|, |slices outer end angle shift|, |slices outer start angle shift|, |slices outer to|, |slices pos|, |slices scope|, |slices sep|, |slices start to|, |slices to|, |slice|\marg{range}, |title left sep|, |title sep|, |triangle proportional area|, |triangle proportional height|, |WClist|\meta{name}, |wheel data angle pos|, |wheel dat!
a angle shift|, |wheel data sep|, |xbar| and |ybar|.\end{flushleft}
+\item Added the possibility to give a \meta{range} to the keys such that the options given to the key will only be applied to a slice if the number of the slice is in the \meta{range}.
+\item Added the possibility to give a \meta{list} to the keys.
+\item The \meta{wheelchart data} are not processed with |\foreach| anymore but instead with one of |\seq_set_split:Nee|, |\seq_set_split:Nen| or |\seq_set_split:Neo| depending on the keys |expand list| and |expand list items|. Thus syntax which is specific to how |\foreach| processes a list does not work anymore, such as the dots notation and the repeating of the last entry if some entry in the list has fewer entries than required.
+\item If the key |start angle| is set after the key |start half| then v1.0 preserved the setting of the key |start half|. In v2.0, the setting is determined by the key which is set last.
+\item In v1.0, the value of the key |data angle shift| was also applied to |inner data|, |lines| and |wheel data|. In v2.0, this is not the case anymore. Instead there are now separate keys |inner data angle shift|, |lines angle shift|, |wheel data angle shift| and also |arc data angle shift|.
+\item In v1.0, the key |data sep| was not applied if the key |lines ext| was used. In v2.0, this is not the case anymore.
+\item In v1.0, a negative value for the key |lines| was not applied. In v2.0, this is not the case anymore.
+\end{itemize}
+\end{itemize}
\begin{thebibliography}{9}
\bibitem{JhcIparowcltopotPGFm}
Jake,
@@ -1254,9 +2741,9 @@
\bibitem{RSVpaaMfp}
Dominique Rodriguez, Michael Sharpe, Herbert Vo{\ss},
\emph{{\upshape\texttt{pstricks-add} \textsf{additionals Macros for} \texttt{pstricks}}},
-Manual for version 3.92,
+Manual for version 3.94,
\url{https://ctan.org/pkg/pstricks-add},
-2021.
+2023.
\bibitem{Tumfdb}
Nicola L.C.~Talbot,
\emph{User Manual for datatool bundle version 2.32},
@@ -1265,15 +2752,23 @@
\bibitem{TtTaPGFp}
Till Tantau,
\emph{The \tikzname{} and {\upshape\pgfname} Packages},
-Manual for version 3.1.9a,
+Manual for version 3.1.10,
\url{https://ctan.org/pkg/pgf},
-2021.
+2023.
\bibitem{XdPCbupp}
Yuan Xu,
\emph{Drawing Pie Chart by using {\upshape\texttt{pgf-pie}}},
-Manual for version 0.6,
+Manual for version 0.7,
\url{https://ctan.org/pkg/pgf-pie},
-2021.
+2022.
\end{thebibliography}
\printindex
+\newgeometry{left=2.25cm,right=2.25cm,top=2.25cm,bottom=2.25cm}
+\pagestyle{plain}
+\appendix
+\addtocontents{toc}{\protect\setcounter{tocdepth}{-2}}
+\begin{landscape}
+\section{The source code}\label{Thesourcecode}
+\dochighinput[language=latex/latex3]{wheelchart.sty}
+\end{landscape}
\end{document}
\ No newline at end of file
Modified: trunk/Master/texmf-dist/tex/latex/wheelchart/wheelchart.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/wheelchart/wheelchart.sty 2023-12-05 20:45:10 UTC (rev 69039)
+++ trunk/Master/texmf-dist/tex/latex/wheelchart/wheelchart.sty 2023-12-05 20:45:17 UTC (rev 69040)
@@ -1,5 +1,5 @@
%% wheelchart.sty
-%% Copyright 2022 Matthias Floré
+%% Copyright 2023 Matthias Floré
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3c
@@ -16,428 +16,2757 @@
% This work consists of the files wheelchart.pdf, wheelchart.sty,
% wheelchart.tex and README.md.
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{wheelchart}[2022/09/11 v1.0 Draw wheelcharts with TikZ]
\RequirePackage{tikz}
\usetikzlibrary{calc}
-\def\wheelchart at slicesstart{}
-\def\wheelchart at slicesend{}
-\newif\ifwheelchart at contour
-\newif\ifwheelchart at counterclockwise
-\newif\ifwheelchart at definnercontour
-\newif\ifwheelchart at draw
-\newif\ifwheelchart at linesextfixed
-\newif\ifwheelchart at middlefill
-\newif\ifwheelchart at pie
-\newif\ifwheelchart at slicesarcadaptangle
-\newif\ifwheelchart at wheellines
-\newcommand{\wheelchart at slicesarcdefmacros}[2]{
-\pgfmathsetmacro{\wheelchart at slicesarcA}{#1}
-\pgfmathsetmacro{\wheelchart at slicesarcB}{#2}
-\pgfmathsetmacro{\wheelchart at slicesarcradius}{(1-(\wheelchart at slicesarcB))*\n1*abs((1/(\wheelchart at slicesarcA))+(\wheelchart at slicesarcA))/2}
-\wheelchart at slicesarcadaptanglefalse
-\ifdim \wheelchart at slicesarcA pt<\z@
-\pgfmathsetmacro{\wheelchart at slicesarccoord}{max(\wheelchart at slicesarcB,0)}
-\wheelchart at slicesarcadaptangletrue
-\ifdim \wheelchart at slicesarcB pt<\z@
-\else
-\pgfmathsetmacro{\wheelchart at halflengthsliceinnerstartplussliceouterstart}{veclen(\x3/\pgf at xx,\y3/\pgf at yy)}
-\pgfmathsetmacro{\wheelchart at slicesarcradiusbound}{sqrt((\wheelchart at halflengthsliceinnerstartplussliceouterstart^2-((\wheelchart at gap)^2)+((\wheelchart at gap-\wheelchart at slicesarcA*(1-(\wheelchart at slicesarcB))*\n1-\wheelchart at slicesarcradius)^2))}
-\pgfmathsetmacro{\wheelchart at slicesarcradiusboundminusslicesarcradius}{\wheelchart at slicesarcradiusbound-\wheelchart at slicesarcradius}
-\pgfmathsetmacro{\wheelchart at slicesarcradiusboundplusslicesarcradius}{\wheelchart at slicesarcradiusbound+\wheelchart at slicesarcradius}
-\ifdim \wheelchart at slicesarcradiusboundminusslicesarcradius pt>\wheelchart at innerradius pt
-\ifdim \wheelchart at slicesarcradiusboundplusslicesarcradius pt<\wheelchart at outerradius pt
-\wheelchart at slicesarcadaptanglefalse
-\fi
-\fi
-\fi
-\else
-\pgfmathsetmacro{\wheelchart at slicesarccoord}{\wheelchart at slicesarcB}
-\fi
-\pgfmathsetmacro{\wheelchart at slicesarccoordtimesnone}{\wheelchart at slicesarccoord*\n1}
-\ifwheelchart at slicesarcadaptangle
-\pgfmathsetmacro{\wheelchart at slicesarcangle}{-acos((2*(\wheelchart at slicesarccoord-1))/((1-(\wheelchart at slicesarcB))*((1/(\wheelchart at slicesarcA))+(\wheelchart at slicesarcA))))}
-\else
-\pgfmathsetmacro{\wheelchart at slicesarcangle}{atan(((1/(\wheelchart at slicesarcA))-(\wheelchart at slicesarcA))/2)}
-\fi
-}
-\newcommand{\wheelchart at slicesarrowdefmacros}[2]{
-\pgfmathsetmacro{\wheelchart at slicesarrowA}{#1}
-\pgfmathsetmacro{\wheelchart at slicesarrowB}{#2}
-\pgfmathsetmacro{\wheelchart at slicesarrowlength}{\n1}
-\ifdim \wheelchart at slicesarrowA pt<\z@
-\pgfmathsetmacro{\wheelchart at slicesarrowcoord}{max(\wheelchart at slicesarrowB,0)}
-\else
-\pgfmathsetmacro{\wheelchart at slicesarrowcoord}{\wheelchart at slicesarrowB}
-\fi
-\pgfmathsetmacro{\wheelchart at slicesarrowtip}{(1-\wheelchart at slicesarrowcoord)*\wheelchart at slicesarrowA}
-}
-\pgfkeys{
-/wheelchart/.is family,
-/wheelchart,
-anchor xsep/.initial=5,
-anchor ysep/.initial=5,
-at/.initial={(0,0)},
-caption/.store in=\wheelchart at caption,
-caption style/.style={caption style at options/.style={#1}},
-caption style at options/.style={},
-caption left/.store in=\wheelchart at captionleft,
-caption left style/.style={caption left style at options/.style={#1}},
-caption left style at options/.style={},
-contour at boolean/.is if=wheelchart at contour,
-contour/.style={contour at boolean=true,contour at options/.style={#1}},
-contour at options/.style={},
-counterclockwise/.is if=wheelchart at counterclockwise,
-data/.initial={\WCvarC},
-data angle shift/.initial=0,
-data sep/.initial=0.2,
-data style/.style={data style at options/.style={#1}},
-data style at options/.style={},
-expand list/.is choice,
-expand list/false/.code={\def\wheelchart at expandlistvalue{false}\def\wheelchart at foreachdeflist##1{\def\wheelchart at foreachlist{##1}}},
-expand list/once/.code={\def\wheelchart at expandlistvalue{true}\def\wheelchart at foreachdeflist##1{\def\wheelchart at foreachlist{\unexpanded\expandafter{##1}}}},
-expand list/true/.code={\def\wheelchart at expandlistvalue{true}\def\wheelchart at foreachdeflist##1{\def\wheelchart at foreachlist{##1}}},
-expand list=once,
-explode/.initial=0,
-explode/.default=0.2,
-gap/.initial=0,
-gap/.default=0.05,
-gap polar/.initial=0,
-gap polar/.default=1,
-inner data/.store in=\wheelchart at innerdata,
-inner data sep/.initial=0.2,
-inner data style/.style={inner data style at options/.style={#1}},
-inner data style at options/.style={},
-inner radius/.initial=2,
-legend/.store in=\wheelchart at legend,
-legend entry/.store in=\wheelchart at legendentry,
-lines/.initial=0,
-lines/.default=1,
-lines ext/.initial=0,
-lines ext/.default=0.5,
-lines ext bottom dir/.is choice,
-lines ext bottom dir/left/.code={\pgfmathsetmacro{\wheelchart at linesextbottomdir}{-1}},
-lines ext bottom dir/right/.code={\pgfmathsetmacro{\wheelchart at linesextbottomdir}{1}},
-lines ext bottom dir=right,
-lines ext dirsep/.initial=0,
-lines ext fixed/.is if=wheelchart at linesextfixed,
-lines ext left anchor/.initial={mid east},
-lines ext right anchor/.initial={mid west},
-lines ext top dir/.is choice,
-lines ext top dir/left/.code={\pgfmathsetmacro{\wheelchart at linesexttopdir}{-1}},
-lines ext top dir/right/.code={\pgfmathsetmacro{\wheelchart at linesexttopdir}{1}},
-lines ext top dir=right,
-lines sep/.initial=0.2,
-lines style/.style={lines style at options/.style={#1}},
-lines style at options/.style={},
-middle/.store in=\wheelchart at middle,
-middle fill at boolean/.is if=wheelchart at middlefill,
-middle fill/.style={middle fill at boolean=true,middle fill at options/.style={#1}},
-middle fill at options/.style={},
-middle style/.style={middle style at options/.style={#1}},
-middle style at options/.style={},
-name/.code={\xdef\wheelchart at name{#1}},
-name=wheelchart at name,
-outer radius/.initial=3,
-perc precision/.initial=0,
-pie/.is if=wheelchart at pie,
-radius/.code 2 args={\pgfkeys{/wheelchart,inner radius={#1},outer radius={#2}}},
-slices/.store in=\wheelchart at slices,
-slices arc/.code 2 args={\pgfkeys{/wheelchart,slices start arc={-(#1)}{#2},slices end arc={#1}{#2}}},
-slices arrow/.code 2 args={\pgfkeys{/wheelchart,slices start arrow={-(#1)}{#2},slices end arrow={#1}{#2}}},
-slices end arc/.code 2 args={\def\wheelchart at slicesend{{[shift={(wheelchart at sliceouterend)},rotate={90-atan2(\p2)},/utils/exec={\wheelchart at slicesarcdefmacros{#1}{#2}}]--({-\wheelchart at slicesarccoordtimesnone},0) arc[start angle={\wheelchart at counterorclockwise*\wheelchart at slicesarcangle},end angle={\wheelchart at counterorclockwise*(sign(#1)*180-\wheelchart at slicesarcangle)},radius={\wheelchart at slicesarcradius}]}}},
-slices end arrow/.code 2 args={\def\wheelchart at slicesend{{[shift={(wheelchart at sliceouterend)},rotate={90-atan2(\p2)},/utils/exec={\wheelchart at slicesarrowdefmacros{#1}{#2}}]--({-\wheelchart at slicesarrowcoord*\wheelchart at slicesarrowlength},0)--({-\wheelchart at slicesarrowlength},{\wheelchart at counterorclockwise*\wheelchart at slicesarrowtip*\wheelchart at slicesarrowlength})--({(\wheelchart at slicesarrowcoord-2)*\wheelchart at slicesarrowlength},0)}}},
-slices start arc/.code 2 args={\def\wheelchart at slicesstart{{[shift={(wheelchart at sliceinnerstart)},rotate={90-atan2(\p1)},/utils/exec={\wheelchart at slicesarcdefmacros{#1}{#2}}]({\wheelchart at slicesarccoordtimesnone},0) arc[start angle={-\wheelchart at counterorclockwise*(sign(#1)*180-\wheelchart at slicesarcangle)},end angle={-\wheelchart at counterorclockwise*\wheelchart at slicesarcangle},radius={\wheelchart at slicesarcradius}]}--}},
-slices start arrow/.code 2 args={\def\wheelchart at slicesstart{{[shift={(wheelchart at sliceinnerstart)},rotate={90-atan2(\p1)},/utils/exec={\wheelchart at slicesarrowdefmacros{#1}{#2}}]({\wheelchart at slicesarrowcoord*\wheelchart at slicesarrowlength},0)--({\wheelchart at slicesarrowlength},{-\wheelchart at counterorclockwise*\wheelchart at slicesarrowtip*\wheelchart at slicesarrowlength})--({(2-\wheelchart at slicesarrowcoord)*\wheelchart at slicesarrowlength},0)}--}},
-slices style/.style={slices style at options/.style={#1}},
-slices style at options/.style={},
-slices style={\WCvarB},
-start angle/.initial=90,
-start half/.store in=\wheelchart at starthalf,
-start half/.default=90,
-title/.store in=\wheelchart at title,
-title style/.style={title style at options/.style={#1}},
-title style at options/.style={},
-title left/.store in=\wheelchart at titleleft,
-title left style/.style={title left style at options/.style={#1}},
-title left style at options/.style={},
-total angle/.initial=360,
-total count/.code={\pgfmathsetmacro{\wheelchart at totalcount}{int(#1)}},
-value/.initial={\WCvarA},
-wheel data/.store in=\wheelchart at wheeldata,
-wheel data pos/.initial=0.66,
-wheel data style/.style={wheel data style at options/.style={#1}},
-wheel data style at options/.style={},
-wheel lines at boolean/.is if=wheelchart at wheellines,
-wheel lines/.style={wheel lines at boolean=true,wheel lines at options/.style={#1}},
-wheel lines at options/.style={},
-}
-\newcommand{\wheelchart at foreachinitial}[2]{\ifcsname wheelchart at totalcount\endcsname\ifnum\wheelchart at totalcount>1\gdef\wheelchart at foreachlist{}\foreach\wheelchart at n in {2,...,\wheelchart at totalcount}{\xdef\wheelchart at foreachlist{\wheelchart at foreachlist,}}\else\ifnum\wheelchart at totalcount=1\gdef\wheelchart at foreachlist{{}}\else\gdef\wheelchart at foreachlist{}\fi\fi\else\wheelchart at foreachdeflist{#1}\fi\foreach\WCvarA/\WCvarB/\WCvarC/\WCvarD/\WCvarE/\WCvarF/\WCvarG/\WCvarH/\WCvarI/\WCvarJ/\WCvarK/\WCvarL/\WCvarM/\WCvarN/\WCvarO/\WCvarP/\WCvarQ/\WCvarR/\WCvarS/\WCvarT/\WCvarU/\WCvarV/\WCvarW/\WCvarX/\WCvarY/\WCvarZ [count=\WCcount,expand list=\wheelchart at expandlistvalue] in \wheelchart at foreachlist{#2}}
-\newcommand{\wheelchart at foreach}[2]{\pgfmathsetmacro{\wheelchart at angle}{\wheelchart at startangle}\wheelchart at foreachinitial{#1}{\pgfmathsetmacro{\wheelchart at outerradius}{\pgfkeysvalueof{/wheelchart/outer radius}}
-\ifwheelchart at pie
-\pgfmathsetmacro{\wheelchart at innerradius}{0}
-\else
-\pgfmathsetmacro{\wheelchart at innerradius}{\pgfkeysvalueof{/wheelchart/inner radius}}
-\fi
-\pgfmathsetmacro{\wheelchart at gap}{\pgfkeysvalueof{/wheelchart/gap}}
-\pgfmathsetmacro{\wheelchart at gappolar}{\pgfkeysvalueof{/wheelchart/gap polar}}
-\pgfmathsetmacro{\wheelchart at value}{\pgfkeysvalueof{/wheelchart/value}}
-\pgfmathsetmacro{\wheelchart at newangle}{\wheelchart at angle+(\wheelchart at counterorclockwise*\wheelchart at value*(\wheelchart at totalangle/\WCtotalnum))}
-\pgfmathsetmacro{\wheelchart at abshalfangleminusnewangle}{abs((\wheelchart at angle-\wheelchart at newangle)/2)}
-\wheelchart at drawfalse
-\pgfmathsetmacro{\wheelchart at abshalfangleminusnewangleminusgappolar}{\wheelchart at abshalfangleminusnewangle-\wheelchart at gappolar}
-\ifdim \wheelchart at abshalfangleminusnewangleminusgappolar pt=180 pt
-\pgfmathsetmacro{\wheelchart at outergap}{asin(\wheelchart at gap/\wheelchart at outerradius)}
-\ifdim \wheelchart at gap pt<\wheelchart at innerradius pt
-\pgfmathsetmacro{\wheelchart at innergap}{asin(\wheelchart at gap/\wheelchart at innerradius)}
-\else
-\pgfmathsetmacro{\wheelchart at innergap}{90}
-\pgfmathsetmacro{\wheelchart at innerradius}{\wheelchart at gap}
-\fi
-\ifdim \wheelchart at innerradius pt<\wheelchart at outerradius pt
-\wheelchart at drawtrue
-\fi
-\else
-\ifdim \wheelchart at abshalfangleminusnewangleminusgappolar pt>\z@
-\pgfmathsetmacro{\wheelchart at outerradiustimessinabshalfangleminusnewangleminusgappolar}{\wheelchart at outerradius*sin(\wheelchart at abshalfangleminusnewangleminusgappolar)}
-\ifdim \wheelchart at outerradiustimessinabshalfangleminusnewangleminusgappolar pt<\wheelchart at gap pt
-\else
-\pgfmathsetmacro{\wheelchart at outergap}{asin(\wheelchart at gap/\wheelchart at outerradius)+\wheelchart at gappolar}
-\pgfmathsetmacro{\wheelchart at innerradiustimessinabshalfangleminusnewangleminusgappolar}{\wheelchart at innerradius*sin(\wheelchart at abshalfangleminusnewangleminusgappolar)}
-\ifdim \wheelchart at innerradiustimessinabshalfangleminusnewangleminusgappolar pt>\wheelchart at gap pt
-\pgfmathsetmacro{\wheelchart at innergap}{asin(\wheelchart at gap/\wheelchart at innerradius)+\wheelchart at gappolar}
-\else
-\pgfmathsetmacro{\wheelchart at innergap}{\wheelchart at abshalfangleminusnewangle}
-\ifdim \wheelchart at innerradiustimessinabshalfangleminusnewangleminusgappolar pt<\wheelchart at gap pt
-\pgfmathsetmacro{\wheelchart at innerradius}{\wheelchart at gap/sin(\wheelchart at abshalfangleminusnewangleminusgappolar)}
-\fi
-\fi
-\ifdim \wheelchart at innerradius pt<\wheelchart at outerradius pt
-\wheelchart at drawtrue
-\fi
-\fi
-\fi
-\fi
-\pgfmathsetmacro{\wheelchart at explode}{\pgfkeysvalueof{/wheelchart/explode}}
-\pgfmathsetmacro{\WCmidangle}{Mod((\wheelchart at angle+\wheelchart at newangle)/2,360)}
-\pgfmathsetmacro{\wheelchart at dataangleshift}{\pgfkeysvalueof{/wheelchart/data angle shift}}
-\pgfmathsetmacro{\WCdataangle}{Mod(\wheelchart at counterorclockwise*\wheelchart at dataangleshift+\WCmidangle,360)}
-\pgfmathsetmacro{\WCpercentage}{\wheelchart at value/(\WCtotalnum/100)}
-\pgfmathprintnumberto[precision=\pgfkeysvalueof{/wheelchart/perc precision}]{\WCpercentage}{\WCpercentagerounded}
-\begin{scope}[shift={(\WCmidangle:\wheelchart at explode)}]
-#2
-\end{scope}
-\global\let\wheelchart at angle=\wheelchart at newangle}}
-\AtBeginDocument{\@ifpackageloaded{siunitx}{\newcommand{\WCperc}{\qty[round-mode=places,round-precision=\pgfkeysvalueof{/wheelchart/perc precision}]{\WCpercentage}{\percent}}}{\newcommand{\WCperc}{\WCpercentagerounded\,\%}}}
-\newcommand{\wheelchart at ifnotext}[3]{%%https://tex.stackexchange.com/questions/42280/expand-away-empty-macros-within-ifthenelse%https://tex.stackexchange.com/questions/44919/proper-way-to-detect-empty-blank-text
-\begingroup%
-\begin{pgfinterruptpicture}%%https://tex.stackexchange.com/questions/459853/savebox-within-tikzpicture-results-in-an-empty-savebox
-\sbox0{#1}%
-\ifdim\wd0=\z@%
-\gdef\wheelchart at node{0}%
-\else%
-\gdef\wheelchart at node{1}%
-\fi%
-\end{pgfinterruptpicture}%
-\endgroup%
-\ifnum\wheelchart at node=0%
-{#2}%%if #1 is empty
-\else%
-{#3}%%if #1 is not empty
-\fi%
-}
-\newcommand{\wheelchart}[2][]{{
-\pgfkeys{/wheelchart,#1}
-\begin{scope}[shift/.expanded={\pgfkeysvalueof{/wheelchart/at}},local bounding box/.expanded=\wheelchart at name]
-\ifwheelchart at counterclockwise
-\pgfmathsetmacro{\wheelchart at counterorclockwise}{1}
-\else
-\pgfmathsetmacro{\wheelchart at counterorclockwise}{-1}
-\fi
-\pgfmathsetmacro{\wheelchart at totalangle}{\pgfkeysvalueof{/wheelchart/total angle}}
-\pgfmathsetmacro{\WCtotalnum}{0}
-\wheelchart at foreachinitial{#2}{
-\pgfmathsetmacro{\wheelchart at value}{\pgfkeysvalueof{/wheelchart/value}}
-\pgfmathparse{\wheelchart at value+\WCtotalnum}
-\global\let\WCtotalnum=\pgfmathresult
-\ifnum\WCcount=1
-\xdef\wheelchart at firstvalue{\wheelchart at value}
-\fi
-\xdef\WCtotalcount{\WCcount}
-}
-\ifcsname wheelchart at starthalf\endcsname
-\pgfmathsetmacro{\wheelchart at startangle}{Mod(\wheelchart at starthalf-(\wheelchart at counterorclockwise*\wheelchart at firstvalue*0.5*(\wheelchart at totalangle/\WCtotalnum)),360)}
-\else
-\pgfmathsetmacro{\wheelchart at startangle}{Mod(\pgfkeysvalueof{/wheelchart/start angle},360)}
-\fi
-\wheelchart at definnercontourfalse
-\ifwheelchart at contour
-\wheelchart at definnercontourtrue
-\xdef\wheelchart at outercontour{}
-\wheelchart at foreach{#2}{
-\xdef\wheelchart at outercontour{(\wheelchart at newangle:\wheelchart at outerradius) arc[start angle=\wheelchart at newangle,end angle=\wheelchart at angle,radius=\wheelchart at outerradius]--\wheelchart at outercontour}
-}
-\else
-\ifwheelchart at middlefill
-\wheelchart at definnercontourtrue
-\fi
-\fi
-\ifwheelchart at definnercontour
-\xdef\wheelchart at innercontour{}
-\wheelchart at foreach{#2}{
-\xdef\wheelchart at innercontour{\wheelchart at innercontour(\wheelchart at angle:\wheelchart at innerradius) arc[start angle=\wheelchart at angle,end angle=\wheelchart at newangle,radius=\wheelchart at innerradius]--}
-}
-\fi
-\ifwheelchart at middlefill
-\fill[/wheelchart/middle fill at options]
-\ifdim \wheelchart at totalangle pt=360 pt
-\else
-(0,0)--
-\fi
-\wheelchart at innercontour cycle;
-\fi
-\wheelchart at foreach{#2}{
-\ifcsname wheelchart at slices\endcsname
-\begin{scope}[shift={(\WCmidangle:{(\wheelchart at innerradius+\wheelchart at outerradius)/2})},rotate=\WCmidangle]
-\fill[/wheelchart/slices style at options] \wheelchart at slices
-\end{scope}
-\else
-\ifwheelchart at draw
-\pgfmathsetmacro{\wheelchart at sliceinnerstartangle}{\wheelchart at angle+(\wheelchart at counterorclockwise*(\wheelchart at innergap))}
-\pgfmathsetmacro{\wheelchart at sliceinnerendangle}{\wheelchart at newangle-(\wheelchart at counterorclockwise*(\wheelchart at innergap))}
-\pgfmathsetmacro{\wheelchart at sliceouterstartangle}{\wheelchart at angle+(\wheelchart at counterorclockwise*(\wheelchart at outergap))}
-\pgfmathsetmacro{\wheelchart at sliceouterendangle}{\wheelchart at newangle-(\wheelchart at counterorclockwise*(\wheelchart at outergap))}
-\coordinate (wheelchart at sliceinnerstart) at (\wheelchart at sliceinnerstartangle:\wheelchart at innerradius);
-\coordinate (wheelchart at sliceinnerend) at (\wheelchart at sliceinnerendangle:\wheelchart at innerradius);
-\coordinate (wheelchart at sliceouterstart) at (\wheelchart at sliceouterstartangle:\wheelchart at outerradius);
-\coordinate (wheelchart at sliceouterend) at (\wheelchart at sliceouterendangle:\wheelchart at outerradius);
-\fill[/wheelchart/slices style at options] let \p1=($(wheelchart at sliceouterstart)-(wheelchart at sliceinnerstart)$),\p2=($(wheelchart at sliceouterend)-(wheelchart at sliceinnerend)$),\p3=($(wheelchart at sliceinnerstart)!0.5!(wheelchart at sliceouterstart)$),\n1={veclen(\x1/\pgf at xx,\y1/\pgf at yy)/2} in \wheelchart at slicesstart(wheelchart at sliceouterstart) arc[start angle=\wheelchart at sliceouterstartangle,end angle=\wheelchart at sliceouterendangle,radius=\wheelchart at outerradius]\wheelchart at slicesend--(wheelchart at sliceinnerend) arc[start angle=\wheelchart at sliceinnerendangle,end angle=\wheelchart at sliceinnerstartangle,radius=\wheelchart at innerradius]--cycle;
-\fi
-\fi
-}
-\ifwheelchart at wheellines
-\ifdim \wheelchart at totalangle pt=360 pt
-\def\wheelchart at start{1}
-\else
-\def\wheelchart at start{0}
-\fi
-\wheelchart at foreach{#2}{
-\foreach\wheelchart at n in {\wheelchart at start,...,\wheelchart at value}{
-\pgfmathsetmacro{\wheelchart at anglewheellines}{\wheelchart at angle+(\wheelchart at counterorclockwise*\wheelchart at n*(\wheelchart at totalangle/\WCtotalnum))}
-\draw[/wheelchart/wheel lines at options] (\wheelchart at anglewheellines:\wheelchart at innerradius)--(\wheelchart at anglewheellines:\wheelchart at outerradius);
-}
-\gdef\wheelchart at start{1}
-}
-\fi
-\ifwheelchart at contour
-\ifdim \wheelchart at totalangle pt=360 pt
-\draw[/wheelchart/contour at options] \wheelchart at innercontour cycle;
-\draw[/wheelchart/contour at options] \wheelchart at outercontour cycle;
-\else
-\draw[/wheelchart/contour at options] \wheelchart at innercontour\wheelchart at outercontour cycle;
-\fi
-\fi
-\wheelchart at foreach{#2}{
-\pgfmathsetmacro{\wheelchart at datasep}{\pgfkeysvalueof{/wheelchart/data sep}}
-\pgfmathsetmacro{\wheelchart at lines}{\pgfkeysvalueof{/wheelchart/lines}}
-\pgfmathsetmacro{\wheelchart at linesext}{\pgfkeysvalueof{/wheelchart/lines ext}}
-\pgfmathsetmacro{\wheelchart at linessep}{\pgfkeysvalueof{/wheelchart/lines sep}}
-\ifdim \wheelchart at linesext pt>\z@
-\pgfmathsetmacro{\wheelchart at linesextdirsep}{\pgfkeysvalueof{/wheelchart/lines ext dirsep}}
-\pgfmathparse{
-(\WCdataangle<90-\wheelchart at linesextdirsep?"1":
-(\WCdataangle<=90+\wheelchart at linesextdirsep?"\wheelchart at linesexttopdir":
-(\WCdataangle<270-\wheelchart at linesextdirsep?"-1":
-(\WCdataangle<=270+\wheelchart at linesextdirsep?"\wheelchart at linesextbottomdir":
-"1"
-))))
-}
-\edef\wheelchart at linesextdir{\pgfmathresult}
-\draw[/wheelchart/lines style at options] let \p1=(\WCdataangle:{\wheelchart at outerradius+\wheelchart at linessep+\wheelchart at lines}) in (\WCdataangle:{\wheelchart at outerradius+\wheelchart at linessep})--(\p1)
-\ifwheelchart at linesextfixed
---({\wheelchart at linesextdir*(\wheelchart at outerradius+\wheelchart at linessep+\wheelchart at lines+\wheelchart at linesext)},\y1)
-\else
---++({\wheelchart at linesextdir*\wheelchart at linesext},0)
-\fi
-coordinate (wheelchart at datacoord);
-\pgfmathparse{
-(\wheelchart at linesextdir==1?"\pgfkeysvalueof{/wheelchart/lines ext right anchor}":
-(\wheelchart at linesextdir==-1?"\pgfkeysvalueof{/wheelchart/lines ext left anchor}":
-))
-}
-\edef\wheelchart at dataanchor{\pgfmathresult}
-\else
-\pgfmathsetmacro{\wheelchart at anchorxsep}{\pgfkeysvalueof{/wheelchart/anchor xsep}}
-\pgfmathsetmacro{\wheelchart at anchorysep}{\pgfkeysvalueof{/wheelchart/anchor ysep}}
-\pgfmathparse{
-(\WCdataangle==0?"west":
-(\WCdataangle==90?"south":
-(\WCdataangle==180?"east":
-(\WCdataangle==270?"north":
-(\WCdataangle<=\wheelchart at anchorysep?"west":
-(\WCdataangle<90-\wheelchart at anchorxsep?"south west":
-(\WCdataangle<=90+\wheelchart at anchorxsep?"south":
-(\WCdataangle<180-\wheelchart at anchorysep?"south east":
-(\WCdataangle<=180+\wheelchart at anchorysep?"east":
-(\WCdataangle<270-\wheelchart at anchorxsep?"north east":
-(\WCdataangle<=270+\wheelchart at anchorxsep?"north":
-(\WCdataangle<360-\wheelchart at anchorysep?"north west":
-"west"
-))))))))))))
-}
-\edef\wheelchart at dataanchor{\pgfmathresult}
-\ifdim \wheelchart at lines pt>\z@
-\draw[/wheelchart/lines style at options] (\WCdataangle:{\wheelchart at outerradius+\wheelchart at linessep})--++(\WCdataangle:\wheelchart at lines) coordinate[shift={(\WCdataangle:\wheelchart at datasep)}] (wheelchart at datacoord);
-\else
-\coordinate (wheelchart at datacoord) at (\WCdataangle:{\wheelchart at outerradius+\wheelchart at datasep});
-\fi
-\fi
-\wheelchart at ifnotext{\pgfkeysvalueof{/wheelchart/data}}{}{\node[anchor=\wheelchart at dataanchor,align=left,/wheelchart/data style at options] at (wheelchart at datacoord) {\pgfkeysvalueof{/wheelchart/data}};}
-\ifcsname wheelchart at innerdata\endcsname
-\wheelchart at ifnotext{\wheelchart at innerdata}{}{%
-\pgfmathsetmacro{\wheelchart at innerdatasep}{\pgfkeysvalueof{/wheelchart/inner data sep}}%
-\node[align=left,/wheelchart/inner data style at options] at (\WCdataangle:{\wheelchart at innerradius-(\wheelchart at innerdatasep)}) {\wheelchart at innerdata};%
-}
-\fi
-\ifcsname wheelchart at wheeldata\endcsname
-\wheelchart at ifnotext{\wheelchart at wheeldata}{}{%
-\pgfmathsetmacro{\wheelchart at wheeldatapos}{\pgfkeysvalueof{/wheelchart/wheel data pos}}%
-\node[align=left,/wheelchart/wheel data style at options] at (\WCdataangle:{\wheelchart at wheeldatapos*\wheelchart at outerradius+(1-\wheelchart at wheeldatapos)*\wheelchart at innerradius}) {\wheelchart at wheeldata};%
-}
-\fi
-\ifcsname wheelchart at legendentry\endcsname
-\wheelchart at legendentry
-\fi
-}
-\ifcsname wheelchart at middle\endcsname
-\wheelchart at ifnotext{\wheelchart at middle}{}{%
-\node[align=center,/wheelchart/middle style at options] at (0,0) {\wheelchart at middle};%
-}
-\fi
-\ifcsname wheelchart at legend\endcsname
-\wheelchart at legend
-\fi
-\end{scope}
-\ifcsname wheelchart at captionleft\endcsname
-\wheelchart at ifnotext{\wheelchart at captionleft}{}{%
-\node[anchor=north west,align=left,/wheelchart/caption left style at options] at ($(\wheelchart at name.south west)-(0,0.5)$) {\wheelchart at captionleft};%
-}
-\fi
-\ifcsname wheelchart at caption\endcsname
-\wheelchart at ifnotext{\wheelchart at caption}{}{%
-\coordinate[shift/.expanded={\pgfkeysvalueof{/wheelchart/at}}] (wheelchart at center) at (0,0);%
-\node[anchor=north,align=center,/wheelchart/caption style at options] at ($(\wheelchart at name.south-|wheelchart at center)-(0,0.5)$) {\wheelchart at caption};%
-}
-\fi
-\ifcsname wheelchart at titleleft\endcsname
-\wheelchart at ifnotext{\wheelchart at titleleft}{}{%
-\node[anchor=south west,align=left,/wheelchart/title left style at options] at ($(\wheelchart at name.north west)+(0,0.5)$) {\wheelchart at titleleft};%
-}
-\fi
-\ifcsname wheelchart at title\endcsname
-\wheelchart at ifnotext{\wheelchart at title}{}{%
-\coordinate[shift/.expanded={\pgfkeysvalueof{/wheelchart/at}}] (wheelchart at center) at (0,0);%
-\node[anchor=south,align=center,/wheelchart/title style at options] at ($(\wheelchart at name.north-|wheelchart at center)+(0,0.5)$) {\wheelchart at title};%
-}
-\fi
-}}
-\endinput
\ No newline at end of file
+\ProvidesExplPackage{wheelchart}{2023/12/03}{2.0}{Draw wheelcharts with TikZ}
+
+%%> \subsection{Variables}
+
+\newcounter { g__wheelchart_WCcount_counter }
+
+\bool_new:N \l__wheelchart_arc_bool
+\bool_new:N \l__wheelchart_contour_bool
+\bool_new:N \g__wheelchart_def_angle_radius_shift_bool
+\bool_new:N \l__wheelchart_def_inner_contour_bool
+\bool_new:N \l__wheelchart_discrete_bool
+\bool_new:N \l__wheelchart_etoc_use_name_bool
+\bool_new:N \l__wheelchart_legend_only_bool
+\bool_new:N \l__wheelchart_legend_row_bool
+\bool_new:N \l__wheelchart_lines_ext_dir_bool
+\bool_new:N \l__wheelchart_middle_fill_bool
+\bool_new:N \l__wheelchart_pie_bool
+\bool_new:N \l__wheelchart_plot_bool
+\bool_new:N \l__wheelchart_slices_bool
+\bool_new:N \l__wheelchart_wheel_lines_bool
+
+\box_new:N \l__wheelchart_arc_data_box
+\box_new:N \g__wheelchart_if_text_box
+
+\clist_new:N \l__wheelchart_header_clist
+\clist_new:N \g__wheelchart_slice_range_for_loop_clist
+\clist_new:N \l__wheelchart_slice_range_local_clist
+
+\fp_const:Nn \c__wheelchart_arc_data_end_factor_center_fp { 0.5 }
+\fp_const:Nn \c__wheelchart_arc_data_end_factor_left_fp { 1 }
+\fp_const:Nn \c__wheelchart_arc_data_end_factor_right_fp { 0 }
+\fp_const:Nn \c__wheelchart_arc_data_start_factor_center_fp { -0.5 }
+\fp_const:Nn \c__wheelchart_arc_data_start_factor_left_fp { 0 }
+\fp_const:Nn \c__wheelchart_arc_data_start_factor_right_fp { -1 }
+\fp_new:N \l__wheelchart_abs_half_angle_minus_new_angle_fp
+\fp_new:N \l__wheelchart_abs_half_angle_minus_new_angle_minus_gap_polar_fp
+\fp_new:N \l__wheelchart_anchor_xsep_fp
+\fp_new:N \l__wheelchart_anchor_ysep_fp
+\fp_new:N \g__wheelchart_angle_fp
+\fp_new:N \l__wheelchart_angle_wheel_lines_fp
+\fp_new:N \l__wheelchart_arc_data_angle_pos_fp
+\fp_new:N \l__wheelchart_arc_data_angle_shift_fp
+\fp_new:N \l__wheelchart_arc_data_dir_fp
+\fp_new:N \g__wheelchart_arc_data_factor_fp
+\fp_new:N \l__wheelchart_arc_data_pos_fp
+\fp_new:N \l__wheelchart_arc_data_sep_fp
+\fp_new:N \g__wheelchart_arc_data_slice_length_fp
+\fp_new:N \l__wheelchart_arc_pos_fp
+\fp_new:N \l__wheelchart_arc_sep_fp
+\fp_new:N \l__wheelchart_coord_determinant_fp
+\fp_new:N \l__wheelchart_counter_or_clockwise_fp
+\fp_new:N \l__wheelchart_data_angle_pos_fp
+\fp_new:N \l__wheelchart_data_angle_shift_fp
+\fp_new:N \l__wheelchart_data_pos_fp
+\fp_new:N \l__wheelchart_data_sep_fp
+\fp_new:N \g__wheelchart_def_angle_angle_fp
+\fp_new:N \l__wheelchart_discrete_end_length_fp
+\fp_new:N \l__wheelchart_discrete_factor_fp
+\fp_new:N \l__wheelchart_discrete_inner_length_fp
+\fp_new:N \l__wheelchart_discrete_level_fp
+\fp_new:N \l__wheelchart_discrete_level_end_length_fp
+\fp_new:N \l__wheelchart_discrete_level_start_length_fp
+\fp_new:N \l__wheelchart_discrete_levels_sum_fp
+\fp_new:N \l__wheelchart_discrete_outer_length_fp
+\fp_new:N \l__wheelchart_discrete_start_length_fp
+\fp_new:N \l__wheelchart_discrete_sublevel_end_length_fp
+\fp_new:N \l__wheelchart_discrete_sublevel_start_length_fp
+\fp_new:N \l__wheelchart_explode_fp
+\fp_new:N \l__wheelchart_gap_fp
+\fp_new:N \l__wheelchart_gap_max_angle_fp
+\fp_new:N \l__wheelchart_gap_max_angle_def_fp
+\fp_new:N \l__wheelchart_gap_polar_fp
+\fp_new:N \l__wheelchart_gap_radius_fp
+\fp_new:N \g__wheelchart_half_ex_over_one_cm_fp
+\fp_new:N \l__wheelchart_inner_data_angle_pos_fp
+\fp_new:N \l__wheelchart_inner_data_angle_shift_fp
+\fp_new:N \l__wheelchart_inner_data_pos_fp
+\fp_new:N \l__wheelchart_inner_data_sep_fp
+\fp_new:c { l__wheelchart_inner~end_x_fp }
+\fp_new:c { l__wheelchart_inner~end_y_fp }
+\fp_new:N \l__wheelchart_inner_gap_fp
+\fp_new:N \l__wheelchart_inner_plot_variable_fp
+\fp_new:N \l__wheelchart_inner_radius_fp
+\fp_new:N \l__wheelchart_inner_radius_orig_fp
+\fp_new:c { l__wheelchart_inner~start_x_fp }
+\fp_new:c { l__wheelchart_inner~start_y_fp }
+\fp_new:N \l__wheelchart_lines_fp
+\fp_new:N \l__wheelchart_lines_angle_pos_fp
+\fp_new:N \l__wheelchart_lines_angle_shift_fp
+\fp_new:N \l__wheelchart_lines_ext_fp
+\fp_new:N \l__wheelchart_lines_ext_dirsep_fp
+\fp_new:N \l__wheelchart_lines_ext_fixed_left_fp
+\fp_new:N \l__wheelchart_lines_ext_fixed_right_fp
+\fp_new:N \l__wheelchart_lines_pos_fp
+\fp_new:N \l__wheelchart_lines_sep_fp
+\fp_new:N \g__wheelchart_new_angle_fp
+\fp_new:c { l__wheelchart_outer~end_x_fp }
+\fp_new:c { l__wheelchart_outer~end_y_fp }
+\fp_new:N \l__wheelchart_outer_gap_fp
+\fp_new:N \l__wheelchart_outer_plot_variable_fp
+\fp_new:N \l__wheelchart_outer_radius_fp
+\fp_new:c { l__wheelchart_outer~start_x_fp }
+\fp_new:c { l__wheelchart_outer~start_y_fp }
+\fp_new:N \l__wheelchart_plot_variable_fp
+\fp_new:N \g__wheelchart_previous_x_coord_fp
+\fp_new:N \g__wheelchart_previous_y_coord_fp
+\fp_new:N \l__wheelchart_samples_fp
+\fp_new:N \l__wheelchart_slice_inner_end_angle_fp
+\fp_new:N \l__wheelchart_slice_inner_start_angle_fp
+\fp_new:N \l__wheelchart_slice_outer_end_angle_fp
+\fp_new:N \l__wheelchart_slice_outer_start_angle_fp
+\fp_new:N \l__wheelchart_slices_angle_fp
+\fp_new:N \l__wheelchart_slices_angle_pos_fp
+\fp_new:N \l__wheelchart_slices_angle_shift_fp
+\fp_new:N \l__wheelchart_slices_arc_A_fp
+\fp_new:N \l__wheelchart_slices_arc_A_abs_fp
+\fp_new:N \l__wheelchart_slices_arc_angle_fp
+\fp_new:N \l__wheelchart_slices_arc_B_fp
+\fp_new:N \l__wheelchart_slices_arc_coord_fp
+\fp_new:N \l__wheelchart_slices_arc_rotate_fp
+\fp_new:N \l__wheelchart_slices_arrow_A_fp
+\fp_new:N \l__wheelchart_slices_arrow_B_fp
+\fp_new:N \l__wheelchart_slices_arrow_coord_fp
+\fp_new:N \l__wheelchart_slices_inner_end_angle_shift_fp
+\fp_new:N \l__wheelchart_slices_inner_start_angle_shift_fp
+\fp_new:N \g__wheelchart_slices_orientation_fp
+\fp_new:N \l__wheelchart_slices_orientation_new_angle_fp
+\fp_new:N \l__wheelchart_slices_outer_end_angle_shift_fp
+\fp_new:N \l__wheelchart_slices_outer_start_angle_shift_fp
+\fp_new:N \l__wheelchart_slices_pos_fp
+\fp_new:N \l__wheelchart_slices_sep_fp
+\fp_new:N \l__wheelchart_start_angle_fp
+\fp_new:N \l__wheelchart_total_angle_fp
+\fp_new:N \l__wheelchart_total_count_fp
+\fp_new:N \l__wheelchart_value_fp
+\fp_new:N \g__wheelchart_value_global_fp
+\fp_new:N \l__wheelchart_wheel_data_angle_pos_fp
+\fp_new:N \l__wheelchart_wheel_data_angle_shift_fp
+\fp_new:N \l__wheelchart_wheel_data_pos_fp
+\fp_new:N \l__wheelchart_wheel_data_sep_fp
+\fp_new:N \g__wheelchart_x_coord_fp
+\fp_new:N \g__wheelchart_y_coord_fp
+
+\int_const:Nn \c__wheelchart_lines_ext_dir_left_int { -1 }
+\int_const:Nn \c__wheelchart_lines_ext_dir_right_int { 1 }
+\int_new:N \g__wheelchart_discrete_count_int
+\int_new:N \l__wheelchart_discrete_levels_int
+\int_new:N \l__wheelchart_discrete_partitioning_first_index_int
+\int_new:N \l__wheelchart_discrete_partitioning_second_index_int
+\int_new:N \l__wheelchart_discrete_sort_int
+\int_new:N \l__wheelchart_discrete_space_at_borders_int
+\int_set:Nn \l__wheelchart_discrete_space_at_borders_int { -1 }
+\int_new:N \l__wheelchart_discrete_sublevels_int
+\int_new:N \l__wheelchart_etoc_count_total_pages_int
+\int_new:N \l__wheelchart_legend_columns_int
+\int_new:N \l__wheelchart_legend_rows_int
+\int_new:N \l__wheelchart_lines_ext_bottom_dir_int
+\int_new:N \l__wheelchart_lines_ext_dir_int
+\int_new:N \l__wheelchart_lines_ext_top_dir_int
+\int_new:N \l__wheelchart_slice_range_index_int
+
+\seq_new:N \l__wheelchart_discrete_coefficients_first_seq
+\seq_new:N \l__wheelchart_discrete_coefficients_second_seq
+\seq_new:N \l__wheelchart_discrete_points_seq
+\seq_new:N \l__wheelchart_list_seq
+\seq_new:N \l__wheelchart_list_items_seq
+
+\tl_new:N \l__wheelchart_arc_data_align_tl
+\tl_new:N \l__wheelchart_data_anchor_tl
+\tl_new:N \l__wheelchart_etoc_level_tl
+\tl_new:N \l__wheelchart_etoc_name_tl
+\tl_new:N \l__wheelchart_expand_list_tl
+\tl_new:N \l__wheelchart_expand_list_items_tl
+\tl_new:N \g__wheelchart_inner_contour_tl
+\tl_new:N \l__wheelchart_key_name_tl
+\tl_new:N \l__wheelchart_key_range_tl
+\tl_new:N \l__wheelchart_legend_row_tl
+\tl_new:N \g__wheelchart_name_tl
+\tl_new:N \g__wheelchart_outer_contour_tl
+\tl_new:N \l__wheelchart_slices_tl
+\tl_new:N \l__wheelchart_slices_end_tl
+\tl_set:Nn \l__wheelchart_slices_end_tl
+ { -- ( \fp_use:c { l__wheelchart_inner~end_x_fp } , \fp_use:c { l__wheelchart_inner~end_y_fp } ) }
+\tl_new:N \l__wheelchart_slices_inner_tl
+\tl_set:Nn \l__wheelchart_slices_inner_tl
+ {
+ \fp_compare:nNnT { \l__wheelchart_inner_radius_fp } > { 0 }
+ {
+ \fp_compare:nNnT { \l__wheelchart_inner_gap_fp } < { \l__wheelchart_abs_half_angle_minus_new_angle_fp }
+ {
+ arc
+ [
+ start~angle = \fp_use:N \l__wheelchart_slice_inner_end_angle_fp ,
+ end~angle = \fp_use:N \l__wheelchart_slice_inner_start_angle_fp ,
+ radius = \fp_use:N \l__wheelchart_inner_radius_fp
+ ]
+ }
+ }
+ }
+\tl_new:N \l__wheelchart_slices_outer_tl
+\tl_set:Nn \l__wheelchart_slices_outer_tl
+ {
+ arc
+ [
+ start~angle = \fp_use:N \l__wheelchart_slice_outer_start_angle_fp ,
+ end~angle = \fp_use:N \l__wheelchart_slice_outer_end_angle_fp ,
+ radius = \fp_use:N \l__wheelchart_outer_radius_fp
+ ]
+ }
+\tl_new:N \l__wheelchart_slices_start_tl
+\tl_set:Nn \l__wheelchart_slices_start_tl { -- cycle }
+\tl_new:N \l__wheelchart_type_tl
+\tl_set:Nn \l__wheelchart_type_tl { default }
+
+%%> \subsection{Functions}
+
+\cs_generate_variant:Nn \seq_set_split:Nnn { Nen , Neo }
+\cs_generate_variant:Nn \tl_build_put_right:Nn { NV }
+
+\cs_new:Npn \__wheelchart_arc_around_text:nnn #1#2#3
+ {
+ \__wheelchart_convex_comb_coord_plot:nnnnnnn
+ { draw , / wheelchart / arc_style , / wheelchart / arc_#1_half }
+ {
+ \fp_eval:n
+ {
+ \l__wheelchart_arc_data_angle_pos_fp + 0.5 * \g__wheelchart_arc_data_factor_fp *
+ (
+ sign ( \l__wheelchart_arc_data_dir_fp ) *
+ (
+ \fp_use:c { c__wheelchart_arc_data_start_factor_\l__wheelchart_arc_data_align_tl _fp }
+ + \fp_use:c { c__wheelchart_arc_data_end_factor_\l__wheelchart_arc_data_align_tl _fp }
+ )
+ + #2
+ )
+ }
+ }
+ {#3}
+ { \l__wheelchart_plot_variable_fp }
+ { 0 }
+ { \l__wheelchart_arc_pos_fp }
+ { \l__wheelchart_arc_sep_fp }
+ }
+
+\cs_new:Npn \__wheelchart_caption_and_title:nnnnn #1#2#3#4#5
+ {
+ \__wheelchart_if_text:nn {#1}
+ {
+ \node [ anchor = #2 , align = #3 , / wheelchart / #1_style ]
+ at ( $ (#4) + ( 0 , { #5 * ( \pgfkeysvalueof { / wheelchart / #1~sep } ) } ) $ )
+ { \pgfkeysvalueof { / wheelchart / #1 } } ;
+ }
+ }
+
+\cs_new:Npn \__wheelchart_convex_comb_coord_aux:n #1 { (#1) }
+
+\cs_generate_variant:Nn \__wheelchart_convex_comb_coord_aux:n { o }
+
+\cs_new:Npn \__wheelchart_convex_comb_coord_def:nnnn #1#2#3#4
+ {
+ $
+ (
+ \__wheelchart_inner_plot:nn
+ {
+ \fp_eval:n
+ {
+ ( 1 - (#1) ) * \l__wheelchart_slice_inner_start_angle_fp
+ + (#1) * \l__wheelchart_slice_inner_end_angle_fp
+ + \l__wheelchart_counter_or_clockwise_fp * (#2)
+ }
+ }
+ { \fp_eval:n { \l__wheelchart_inner_radius_fp - (#4) } }
+ )
+ ! { \fp_eval:n {#3} } !
+ (
+ \__wheelchart_outer_plot:nn
+ {
+ \fp_eval:n
+ {
+ ( 1 - (#1) ) * \l__wheelchart_slice_outer_start_angle_fp
+ + (#1) * \l__wheelchart_slice_outer_end_angle_fp
+ + \l__wheelchart_counter_or_clockwise_fp * (#2)
+ }
+ }
+ { \fp_eval:n { \l__wheelchart_outer_radius_fp + (#4) } }
+ )
+ $%note the () around the #i's to keep these contents together
+ }
+
+\cs_new:Npn \__wheelchart_convex_comb_coord:nnnn #1#2#3#4
+ { \__wheelchart_convex_comb_coord_aux:o { \__wheelchart_convex_comb_coord_def:nnnn {#1} {#2} {#3} {#4} } }
+
+\cs_new:Npn \__wheelchart_convex_comb_coord_plot_aux:nnnn #1#2#3#4
+ {
+ \path [#1] plot
+ [
+ domain = {#2} \c_colon_str {#3} ,
+ samples = \fp_use:N \l__wheelchart_samples_fp ,
+ variable = \l__wheelchart_plot_variable_fp
+ ]
+ ( {#4} ) ;
+ }
+
+\cs_generate_variant:Nn \__wheelchart_convex_comb_coord_plot_aux:nnnn { nnno }
+
+\cs_new:Npn \__wheelchart_convex_comb_coord_plot:nnnnnnn #1#2#3#4#5#6#7
+ {
+ \__wheelchart_convex_comb_coord_plot_aux:nnno {#1} {#2} {#3}
+ { \__wheelchart_convex_comb_coord_def:nnnn {#4} {#5} {#6} { \g__wheelchart_half_ex_over_one_cm_fp + (#7) } }
+ }
+
+\cs_new:Npn \__wheelchart_def_angle:nnnN #1#2#3#4
+ {
+ \path let
+ \p { l__wheelchart_def_angle_1 } = \__wheelchart_convex_comb_coord:nnnn {#1} {#2} { 0 } {#3} ,
+ \p { l__wheelchart_def_angle_2 } = \__wheelchart_convex_comb_coord:nnnn {#1} {#2} { 1 } {#3}
+ in
+ [
+ / utils / exec =
+ {
+ \bool_gset:Nn \g__wheelchart_def_angle_radius_shift_bool
+ {
+ \fp_compare_p:n
+ {
+ \y { l__wheelchart_def_angle_2 } - \y { l__wheelchart_def_angle_1 } == 0
+ &&
+ \x { l__wheelchart_def_angle_2 } - \x { l__wheelchart_def_angle_1 } == 0
+ }
+ }
+ \bool_if:NF \g__wheelchart_def_angle_radius_shift_bool
+ {
+ \fp_gset:Nn \g__wheelchart_def_angle_angle_fp
+ {
+ atand
+ (
+ \y { l__wheelchart_def_angle_2 } - \y { l__wheelchart_def_angle_1 } ,
+ \x { l__wheelchart_def_angle_2 } - \x { l__wheelchart_def_angle_1 }
+ )
+ }%here \pgf at xx and so on are not used
+ }
+ }
+ ]
+ ;
+ \bool_if:NT \g__wheelchart_def_angle_radius_shift_bool
+ {
+ \path let
+ \p { l__wheelchart_def_angle_1 } =
+ \__wheelchart_convex_comb_coord:nnnn {#1} {#2} { 0 } { \fp_eval:n { (#3) + 1 / \l__wheelchart_samples_fp } } ,
+ \p { l__wheelchart_def_angle_2 } =
+ \__wheelchart_convex_comb_coord:nnnn {#1} {#2} { 1 } { \fp_eval:n { (#3) + 1 / \l__wheelchart_samples_fp } }
+ in
+ [
+ / utils / exec =
+ {
+ \fp_gset:Nn \g__wheelchart_def_angle_angle_fp
+ {
+ atand
+ (
+ \y { l__wheelchart_def_angle_2 } - \y { l__wheelchart_def_angle_1 } ,
+ \x { l__wheelchart_def_angle_2 } - \x { l__wheelchart_def_angle_1 }
+ )
+ }
+ }
+ ]
+ ;%here \pgf at xx and so on are not used
+ }
+ \pgfmathsetmacro {#4} { Mod ( \fp_use:N \g__wheelchart_def_angle_angle_fp , 360 ) }
+ }
+
+\cs_new:Npn \__wheelchart_def_coord_aux:nn #1#2
+ {
+ \path let \p { l__wheelchart_coord } = ( \use:c { __wheelchart_#1_plot:nn } {#2} { \fp_use:c { l__wheelchart_#1_radius_fp } } )
+ in
+ [
+ / utils / exec =
+ {
+ \fp_gset:Nn \g__wheelchart_x_coord_fp
+ {
+ ( \pgf at yy * \x { l__wheelchart_coord } - \pgf at yx * \y { l__wheelchart_coord } ) / \l__wheelchart_coord_determinant_fp
+ }
+ \fp_gset:Nn \g__wheelchart_y_coord_fp
+ {
+ ( \pgf at xx * \y { l__wheelchart_coord } - \pgf at xy * \x { l__wheelchart_coord } ) / \l__wheelchart_coord_determinant_fp
+ }
+ }
+ ]
+ ;
+ }
+
+\cs_new:Npn \__wheelchart_def_coord:nn #1#2
+ {
+ \__wheelchart_def_coord_aux:nn {#1} { \fp_use:c { l__wheelchart_slice_#1_#2_angle_fp } }
+ \fp_set_eq:cN { l__wheelchart_#1~#2_x_fp } \g__wheelchart_x_coord_fp
+ \fp_set_eq:cN { l__wheelchart_#1~#2_y_fp } \g__wheelchart_y_coord_fp
+ }
+
+\cs_new:Npn \__wheelchart_def_gap:NN #1#2
+ {
+ \fp_set:Nn #1
+ {
+ (#2) * sind ( min ( \l__wheelchart_abs_half_angle_minus_new_angle_minus_gap_polar_fp , \l__wheelchart_gap_max_angle_def_fp ) )
+ <
+ \l__wheelchart_gap_fp
+ ?
+ min ( \l__wheelchart_abs_half_angle_minus_new_angle_fp , \l__wheelchart_gap_max_angle_def_fp )
+ :
+ asind ( min ( \l__wheelchart_gap_fp / ( (#2) + 1 - sign (#2) ) , 1 ) ) + \l__wheelchart_gap_polar_fp
+ %note the min ( ... , 1 ) such that the asind is always defined
+ %also note the + 1 - sign (#2) such that the denominator is also nonzero if #2 = 0
+ }
+ }
+
+\cs_new:Npn \__wheelchart_def_macro:Nn #1#2
+ {
+ \str_case:enF { \pgfkeysvalueof { / wheelchart / parse } }
+ {
+ { pgfmath }
+ {
+ \pgfmathparse {#2}
+ \fp_set:Nn #1 { \pgfmathresult }
+ }
+ { l3fp }
+ { \fp_set:Nn #1 {#2} }
+ }
+ { \pgfkeys { / errors / unknown~choice~value /. expanded = { parse } { \pgfkeysvalueof { / wheelchart / parse } } } }
+ }
+
+\cs_new:Npn \__wheelchart_def_macros:n #1
+ {
+ \str_case:enF { \pgfkeysvalueof { / wheelchart / parse } }
+ {
+ { pgfmath }
+ {
+ \clist_map_inline:nn {#1}
+ {
+ \pgfmathparse { \pgfkeysvalueof { / wheelchart / ##1 } }
+ \fp_set:cn { l__wheelchart_\str_map_function:nN {##1} \__wheelchart_space_to_underscore:n _fp } { \pgfmathresult }
+ }
+ }
+ { l3fp }
+ {
+ \clist_map_inline:nn {#1}
+ {
+ \fp_set:cn { l__wheelchart_\str_map_function:nN {##1} \__wheelchart_space_to_underscore:n _fp }
+ { \pgfkeysvalueof { / wheelchart / ##1 } }
+ }
+ }
+ }
+ { \pgfkeys { / errors / unknown~choice~value /. expanded = { parse } { \pgfkeysvalueof { / wheelchart / parse } } } }
+ }
+
+\cs_new:Npn \__wheelchart_def_slice_angle:nnnn #1#2#3#4
+ {
+ \bool_if:NTF \l__wheelchart_plot_bool
+ {
+ \fp_set:cn { l__wheelchart_slice_#1_#2_angle_fp }
+ {
+ \fp_use:c { g__wheelchart_#3angle_fp } +
+ (
+ \l__wheelchart_counter_or_clockwise_fp *
+ ( (#4) * \fp_use:c { l__wheelchart_#1_gap_fp } + \fp_use:c { l__wheelchart_slices_#1_#2_angle_shift_fp } )
+ )
+ }
+ }
+ {
+ \fp_set:cn { l__wheelchart_slice_#1_#2_angle_fp }
+ {
+ \fp_use:c { g__wheelchart_#3angle_fp } +
+ (
+ \l__wheelchart_counter_or_clockwise_fp *
+ (
+ (#4) * \fp_use:c { l__wheelchart_#1_gap_fp } + \fp_use:c { l__wheelchart_slices_#1_#2_angle_shift_fp }
+ - asind
+ (
+ \l__wheelchart_inner_radius_fp * sind ( \fp_use:c { l__wheelchart_slices_#1_#2_angle_shift_fp } )
+ / \l__wheelchart_outer_radius_fp
+ )
+ )
+ )
+ }
+ }
+ }
+
+\cs_new:Npn \__wheelchart_def_slice_keys:n #1
+ {
+ {%note the double {{...}} such that the contents is in a group
+ %such that pgfkeys which are specific to the current slice are local for this slice
+ \clist_if_in:NVT \l__wheelchart_slice_range_local_clist \WCcount
+ {
+ \pgfkeys { / wheelchart , slice_final /. expanded = { \exp_not:v { l__wheelchart_slice_\WCcount _keys_clist } } }
+ \pgfkeys{ / wheelchart , slice_final_style }
+ }
+ #1
+ }
+ }
+
+\cs_new:Npn \__wheelchart_def_WClegend:
+ {
+ \int_set:Nn \l__wheelchart_legend_columns_int
+ { \fp_eval:n { ceil ( \WCtotalcount / ceil ( \WCtotalcount / ( \pgfkeysvalueof { / wheelchart / legend~columns } ) ) ) } }
+ \cs_set:Npn \WClegend {}
+ \tl_build_begin:N \WClegend
+ \int_compare:nNnTF { \l__wheelchart_legend_columns_int } = { 1 }
+ { \int_step_inline:nnn { 2 } { \WCtotalcount } { \__wheelchart_legend_append:nn {##1} { \\ } } }
+ {
+ \int_set:Nn \l__wheelchart_legend_rows_int
+ { \fp_eval:n { ceil ( \WCtotalcount / \l__wheelchart_legend_columns_int ) } }
+ \int_step_inline:nn { \l__wheelchart_legend_rows_int - 1 }
+ {
+ \int_step_inline:nn { \l__wheelchart_legend_columns_int - 2 }
+ { \__wheelchart_legend_append:nn { ##1 + \l__wheelchart_legend_rows_int * ####1 } { & } }
+ \int_compare:nNnF { ##1 + ( \l__wheelchart_legend_columns_int - 1 ) * \l__wheelchart_legend_rows_int } > { \WCtotalcount }
+ {
+ \__wheelchart_legend_append:nn
+ { ##1 + ( \l__wheelchart_legend_columns_int - 1 ) * \l__wheelchart_legend_rows_int }
+ { & }
+ }
+ \__wheelchart_legend_append:nn { ##1 + 1 } { \\ }
+ }
+ \int_step_inline:nn { \l__wheelchart_legend_columns_int - 2 }
+ { \__wheelchart_legend_append:nn { \l__wheelchart_legend_rows_int * ( ##1 + 1 ) } { & } }
+ \int_compare:nNnF { \l__wheelchart_legend_columns_int * \l__wheelchart_legend_rows_int } > { \WCtotalcount }
+ { \__wheelchart_legend_append:nn { \l__wheelchart_legend_columns_int * \l__wheelchart_legend_rows_int } { & } }
+ }
+ \__wheelchart_legend_append:nn { 1 } { \\ }%at the moment it is unnecessary to set g__wheelchart_WCcount_counter to 1
+ %but this is done to be future-proof if the contents of \WClegend would be parsed in a way that prohibits the value for
+ %g__wheelchart_WCcount_counter to be larger than \WCtotalcount
+ \tl_build_end:N \WClegend
+ \cs_set:Npn \WCcount { \theg__wheelchart_WCcount_counter }
+ \cs_set:Npn \WCpercentage { \cs:w l__wheelchart_WCpercentage_\theg__wheelchart_WCcount_counter\cs_end: }
+ \cs_set:Npn \WCpercentagerounded { \cs:w l__wheelchart_WCpercentagerounded_\theg__wheelchart_WCcount_counter\cs_end: }
+ \str_if_eq:eeTF { \l__wheelchart_type_tl } { etoc }
+ {
+ \cs_set:Npn \WCetocthelinkedname
+ { \cs:w g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_linked_name_\theg__wheelchart_WCcount_counter\cs_end: }
+ \cs_set:Npn \WCetocthelinkednumber
+ { \cs:w g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_linked_number_\theg__wheelchart_WCcount_counter\cs_end: }
+ \cs_set:Npn \WCetocthelinkedpage
+ { \cs:w g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_linked_page_\theg__wheelchart_WCcount_counter\cs_end: }
+ \cs_set:Npn \WCetocthename
+ { \cs:w g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_name_\theg__wheelchart_WCcount_counter\cs_end: }
+ \cs_set:Npn \WCetocthenumber
+ { \cs:w g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_number_\theg__wheelchart_WCcount_counter\cs_end: }
+ \cs_set:Npn \WCetocthepage
+ { \cs:w g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_page_\theg__wheelchart_WCcount_counter\cs_end: }
+ \cs_set:Npn \WCetocthenumberofpages
+ { \cs:w g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_number_of_pages_\theg__wheelchart_WCcount_counter\cs_end: }
+ }
+ {
+ \clist_if_empty:NTF \l__wheelchart_header_clist
+ {
+ \int_step_inline:nn { \seq_count:N \l__wheelchart_list_items_seq }
+ {
+ \cs_set:cpn { WCvar\int_to_Alph:n {##1} }
+ { \cs:w l__wheelchart_item_WCvar\int_to_Alph:n {##1}_\theg__wheelchart_WCcount_counter\cs_end: }
+ }
+ }
+ {
+ \int_step_inline:nn { \seq_count:N \l__wheelchart_list_items_seq }
+ {
+ \cs_set:cpn { \pgfkeysvalueof { / wheelchart / header~prefix } \clist_item:Nn \l__wheelchart_header_clist {##1} }
+ {
+ \cs:w
+ l__wheelchart_item_\pgfkeysvalueof { / wheelchart / header~prefix }
+ \clist_item:Nn \l__wheelchart_header_clist {##1}_\theg__wheelchart_WCcount_counter
+ \cs_end:
+ }
+ }
+ }
+ }
+ \setcounter { g__wheelchart_WCcount_counter } { 1 }
+ }
+
+\cs_new:Npn \__wheelchart_diff_atan:nnnn #1#2#3#4
+ {
+ Mod
+ (
+ \fp_eval:n
+ {
+ \g__wheelchart_slices_orientation_fp *
+ (
+ atand
+ (
+ \fp_use:c { l__wheelchart_#3_y_fp } - \fp_use:c { l__wheelchart_#4_y_fp } ,
+ \fp_use:c { l__wheelchart_#3_x_fp } - \fp_use:c { l__wheelchart_#4_x_fp }
+ )
+ - atand
+ (
+ \fp_use:c { l__wheelchart_#1_y_fp } - \fp_use:c { l__wheelchart_#2_y_fp } ,
+ \fp_use:c { l__wheelchart_#1_x_fp } - \fp_use:c { l__wheelchart_#2_x_fp }
+ )
+ )
+ }
+ ,
+ 360
+ )%note the Mod 360 because for example cos(90/2)\neq cos(-270/2)
+ }
+
+\cs_new:Npn \__wheelchart_discrete_algorithm:
+ {
+ \__wheelchart_def_macros:n { discrete~factor , gap~radius , samples }
+ \__wheelchart_def_macro:Nn \l__wheelchart_outer_radius_fp
+ { \pgfkeysvalueof { / wheelchart / outer~radius } - \fp_use:N \l__wheelchart_gap_radius_fp }
+ \bool_if:NTF \l__wheelchart_pie_bool
+ { \fp_set:Nn \l__wheelchart_inner_radius_fp { 0 } }
+ {
+ \__wheelchart_def_macro:Nn \l__wheelchart_inner_radius_fp
+ { \pgfkeysvalueof { / wheelchart / inner~radius } + \fp_use:N \l__wheelchart_gap_radius_fp }
+ }
+ \int_compare:nNnT { \l__wheelchart_discrete_space_at_borders_int } = { -1 }
+ {
+ \pgfkeys
+ {
+ / errors / boolean~expected /. expanded =
+ { discrete~space~at~borders }
+ { \pgfkeysvalueof { / wheelchart / discrete~space~at~borders } }
+ }
+ }
+ \seq_clear:N \l__wheelchart_discrete_points_seq
+ \bool_if:NTF \l__wheelchart_plot_bool
+ {
+ \fp_zero:N \l__wheelchart_discrete_outer_length_fp
+ \__wheelchart_discrete_def_coord:nn { outer } { 0 }
+ \int_step_inline:nn { \fp_use:N \l__wheelchart_samples_fp - 1 }
+ {
+ \__wheelchart_discrete_def_coord:nn { outer } {##1}
+ \fp_add:Nn \l__wheelchart_discrete_outer_length_fp
+ {
+ sqrt
+ (
+ ( \g__wheelchart_x_coord_fp - \g__wheelchart_previous_x_coord_fp ) ^ 2
+ + ( \g__wheelchart_y_coord_fp - \g__wheelchart_previous_y_coord_fp ) ^ 2
+ )
+ }
+ }
+ \__wheelchart_discrete_def_coord:nn { inner } { \l__wheelchart_samples_fp - 1 }
+ \fp_set:Nn \l__wheelchart_discrete_end_length_fp
+ {
+ sqrt
+ (
+ ( \g__wheelchart_x_coord_fp - \g__wheelchart_previous_x_coord_fp ) ^ 2
+ + ( \g__wheelchart_y_coord_fp - \g__wheelchart_previous_y_coord_fp ) ^ 2
+ )
+ }
+ \fp_zero:N \l__wheelchart_discrete_inner_length_fp
+ \int_step_inline:nnnn { \fp_use:N \l__wheelchart_samples_fp - 2 } { -1 } { 0 }
+ {
+ \__wheelchart_discrete_def_coord:nn { inner } {##1}
+ \fp_add:Nn \l__wheelchart_discrete_inner_length_fp
+ {
+ sqrt
+ (
+ ( \g__wheelchart_x_coord_fp - \g__wheelchart_previous_x_coord_fp ) ^ 2
+ + ( \g__wheelchart_y_coord_fp - \g__wheelchart_previous_y_coord_fp ) ^ 2
+ )
+ }
+ }
+ \__wheelchart_discrete_def_coord:nn { outer } { 0 }
+ \fp_set:Nn \l__wheelchart_discrete_start_length_fp
+ {
+ sqrt
+ (
+ ( \g__wheelchart_x_coord_fp - \g__wheelchart_previous_x_coord_fp ) ^ 2
+ + ( \g__wheelchart_y_coord_fp - \g__wheelchart_previous_y_coord_fp ) ^ 2
+ )
+ }
+ }
+ {
+ \fp_set:Nn \l__wheelchart_discrete_outer_length_fp
+ { abs ( \l__wheelchart_total_angle_fp * deg * \l__wheelchart_outer_radius_fp ) }
+ \fp_set:Nn \l__wheelchart_discrete_end_length_fp { abs ( \l__wheelchart_outer_radius_fp - \l__wheelchart_inner_radius_fp ) }
+ \fp_set:Nn \l__wheelchart_discrete_inner_length_fp
+ { abs ( \l__wheelchart_total_angle_fp * deg * \l__wheelchart_inner_radius_fp ) }
+ %note the abs ( ... ) because \l__wheelchart_total_angle_fp can be negative
+ %and \l__wheelchart_outer_radius_fp can be smaller than \l__wheelchart_inner_radius_fp
+ \fp_set_eq:NN \l__wheelchart_discrete_start_length_fp \l__wheelchart_discrete_end_length_fp
+ }
+ \str_case:enF { \pgfkeysvalueof { / wheelchart / discrete~partitioning } }
+ {
+ { radius }
+ {
+ \int_set:Nn \l__wheelchart_discrete_partitioning_first_index_int { 1 }
+ \int_set:Nn \l__wheelchart_discrete_partitioning_second_index_int { 2 }
+ \fp_set_eq:NN \l__wheelchart_discrete_level_start_length_fp \l__wheelchart_discrete_inner_length_fp
+ \fp_set_eq:NN \l__wheelchart_discrete_level_end_length_fp \l__wheelchart_discrete_outer_length_fp
+ \fp_set_eq:NN \l__wheelchart_discrete_sublevel_start_length_fp \l__wheelchart_discrete_start_length_fp
+ \fp_set_eq:NN \l__wheelchart_discrete_sublevel_end_length_fp \l__wheelchart_discrete_end_length_fp
+ }
+ { angle }
+ {
+ \int_set:Nn \l__wheelchart_discrete_partitioning_first_index_int { 2 }
+ \int_set:Nn \l__wheelchart_discrete_partitioning_second_index_int { 1 }
+ \fp_set_eq:NN \l__wheelchart_discrete_level_start_length_fp \l__wheelchart_discrete_start_length_fp
+ \fp_set_eq:NN \l__wheelchart_discrete_level_end_length_fp \l__wheelchart_discrete_end_length_fp
+ \fp_set_eq:NN \l__wheelchart_discrete_sublevel_start_length_fp \l__wheelchart_discrete_inner_length_fp
+ \fp_set_eq:NN \l__wheelchart_discrete_sublevel_end_length_fp \l__wheelchart_discrete_outer_length_fp
+ \int_set:Nn \l__wheelchart_discrete_sort_int { 3 - \l__wheelchart_discrete_sort_int }
+ }
+ }
+ {
+ \pgfkeys
+ {
+ / errors / unknown~choice~value /. expanded =
+ { discrete~partitioning }
+ { \pgfkeysvalueof { / wheelchart / discrete~partitioning } }
+ }
+ }
+ \int_set:Nn \l__wheelchart_discrete_levels_int
+ {
+ \fp_eval:n
+ {
+ max
+ (
+ round
+ (
+ sqrt
+ (
+ (
+ ( \l__wheelchart_discrete_sublevel_start_length_fp + \l__wheelchart_discrete_sublevel_end_length_fp )
+ * \l__wheelchart_discrete_factor_fp
+ / ( \l__wheelchart_discrete_level_start_length_fp + \l__wheelchart_discrete_level_end_length_fp )
+ )
+ * \WCtotalnum
+ )
+ )
+ ,
+ 1
+ )
+ }
+ }
+ \int_gzero:N \g__wheelchart_discrete_count_int
+ \fp_zero:N \l__wheelchart_discrete_levels_sum_fp
+ \int_step_inline:nn { \l__wheelchart_discrete_levels_int - 1 }
+ {
+ \fp_set:Nn \l__wheelchart_discrete_level_fp
+ {
+ ( ##1 - 0.5 * ( 1 + \l__wheelchart_discrete_space_at_borders_int ) )
+ / ( \l__wheelchart_discrete_levels_int - \l__wheelchart_discrete_space_at_borders_int )
+ }
+ \fp_add:Nn \l__wheelchart_discrete_levels_sum_fp { \l__wheelchart_discrete_level_fp }
+ \int_set:Nn \l__wheelchart_discrete_sublevels_int
+ {
+ \fp_eval:n
+ {
+ round
+ (
+ (
+ (
+ ( ##1 ) * \l__wheelchart_discrete_level_start_length_fp
+ + \l__wheelchart_discrete_levels_sum_fp
+ * ( \l__wheelchart_discrete_level_end_length_fp - \l__wheelchart_discrete_level_start_length_fp )
+ )
+ /
+ (
+ \l__wheelchart_discrete_levels_int * 0.5
+ * ( \l__wheelchart_discrete_level_start_length_fp + \l__wheelchart_discrete_level_end_length_fp )
+ )
+ )
+ * \WCtotalnum - \g__wheelchart_discrete_count_int
+ )
+ }
+ }
+ \int_gadd:Nn \g__wheelchart_discrete_count_int { \l__wheelchart_discrete_sublevels_int }
+ \int_compare:nNnTF { \l__wheelchart_discrete_sublevels_int } = { 1 }
+ {
+ \seq_put_right:Ne \l__wheelchart_discrete_points_seq
+ {
+ 0.5
+ /
+ \fp_use:N \l__wheelchart_discrete_level_fp
+ }
+ }
+ {
+ \int_step_inline:nn { \l__wheelchart_discrete_sublevels_int }
+ {
+ \seq_put_right:Ne \l__wheelchart_discrete_points_seq
+ {
+ \fp_eval:n
+ {
+ ( ####1 - 0.5 * ( 1 + \l__wheelchart_discrete_space_at_borders_int ) )
+ / ( \l__wheelchart_discrete_sublevels_int - \l__wheelchart_discrete_space_at_borders_int )
+ }
+ %the denominator is 0 if \l__wheelchart_discrete_sublevels_int = \l__wheelchart_discrete_space_at_borders_int = 1
+ %thus the case when \l__wheelchart_discrete_sublevels_int = 1 is treated separately above
+ /
+ \fp_use:N \l__wheelchart_discrete_level_fp
+ }
+ }
+ }
+ }
+ \int_compare:nNnTF { \l__wheelchart_discrete_levels_int } = { 1 }
+ { \fp_set:Nn \l__wheelchart_discrete_level_fp { 0.5 } }
+ {
+ \fp_set:Nn \l__wheelchart_discrete_level_fp
+ {
+ 1 - 0.5 * ( 1 - \l__wheelchart_discrete_space_at_borders_int )
+ / ( \l__wheelchart_discrete_levels_int - \l__wheelchart_discrete_space_at_borders_int )
+ }
+ }
+ \int_set:Nn \l__wheelchart_discrete_sublevels_int { \fp_eval:n { round ( \WCtotalnum - \g__wheelchart_discrete_count_int ) } }
+ \int_compare:nNnTF { \l__wheelchart_discrete_sublevels_int } = { 1 }
+ {
+ \seq_put_right:Ne \l__wheelchart_discrete_points_seq
+ {
+ 0.5
+ /
+ \fp_use:N \l__wheelchart_discrete_level_fp
+ }
+ }
+ {
+ \int_step_inline:nn { \l__wheelchart_discrete_sublevels_int }
+ {
+ \seq_put_right:Ne \l__wheelchart_discrete_points_seq
+ {
+ \fp_eval:n
+ {
+ ( ##1 - 0.5 * ( 1 + \l__wheelchart_discrete_space_at_borders_int ) )
+ / ( \l__wheelchart_discrete_sublevels_int - \l__wheelchart_discrete_space_at_borders_int )
+ }
+ /
+ \fp_use:N \l__wheelchart_discrete_level_fp
+ }
+ }
+ }
+ \seq_sort:Nn \l__wheelchart_discrete_points_seq
+ {
+ \seq_set_split:Nnn \l__wheelchart_discrete_coefficients_first_seq { / } {##1}
+ \seq_set_split:Nnn \l__wheelchart_discrete_coefficients_second_seq { / } {##2}
+ \fp_compare:nNnTF
+ { \seq_item:Nn \l__wheelchart_discrete_coefficients_first_seq { \l__wheelchart_discrete_sort_int } }
+ >
+ { \seq_item:Nn \l__wheelchart_discrete_coefficients_second_seq { \l__wheelchart_discrete_sort_int } }
+ { \sort_return_swapped: }
+ { \sort_return_same: }
+ }
+ \int_gzero:N \g__wheelchart_discrete_count_int
+ \__wheelchart_for_loop:n
+ {
+ \pgfkeysvalueof { / wheelchart / before~slices }
+ \int_step_inline:nn { \fp_eval:n { round ( \l__wheelchart_value_fp ) } }%note that \fp_eval:n { round ( ... ) } is necessary
+ %even when the value is an integer because if parse=pgfmath then .0 is added and then
+ %\int_step_inline:nn { \fp_use:N \l__wheelchart_value_fp } would give the messages
+ %Missing character: There is no . in font nullfont! Missing character: There is no 0 in font nullfont!
+ {
+ \int_gincr:N \g__wheelchart_discrete_count_int
+ \cs_set:Npe \WCcountdiscrete { \int_use:N \g__wheelchart_discrete_count_int }
+ \seq_set_split:Nne \l__wheelchart_discrete_coefficients_first_seq { / }
+ { \seq_item:Nn \l__wheelchart_discrete_points_seq { \g__wheelchart_discrete_count_int } }
+ %Naturally, an error occurs if the sum of the rounded values of the key value is
+ %greater than the rounded value of \WCtotalnum.
+ %For example if there are 2 values 1.6 and 1.7 then these numbers are 4 and 3 and then there is no 4-th item in the list.
+ %However only positive integer values make practical sense for this diagram.
+ \pic [ / wheelchart / slices_style ] at
+ (
+ $
+ (
+ \__wheelchart_inner_plot:nn
+ {
+ \fp_eval:n
+ {
+ \l__wheelchart_start_angle_fp + \l__wheelchart_counter_or_clockwise_fp * \l__wheelchart_total_angle_fp *
+ (
+ \seq_item:Nn \l__wheelchart_discrete_coefficients_first_seq
+ { \l__wheelchart_discrete_partitioning_first_index_int }
+ )
+ }
+ }
+ { \fp_use:N \l__wheelchart_inner_radius_fp }
+ )
+ !
+ {
+ \seq_item:Nn \l__wheelchart_discrete_coefficients_first_seq
+ { \l__wheelchart_discrete_partitioning_second_index_int }
+ }
+ !
+ (
+ \__wheelchart_outer_plot:nn
+ {
+ \fp_eval:n
+ {
+ \l__wheelchart_start_angle_fp + \l__wheelchart_counter_or_clockwise_fp * \l__wheelchart_total_angle_fp *
+ (
+ \seq_item:Nn \l__wheelchart_discrete_coefficients_first_seq
+ { \l__wheelchart_discrete_partitioning_first_index_int }
+ )
+ }
+ }
+ { \fp_use:N \l__wheelchart_outer_radius_fp }
+ )
+ $
+ )
+ { code = { \pgfkeysvalueof { / wheelchart / discrete~pic } } } ;
+ }
+ \pgfkeysvalueof { / wheelchart / after~slices }
+ }
+ }
+
+\cs_new:Npn \__wheelchart_discrete_def_coord:nn #1#2
+ {
+ \fp_gset_eq:NN \g__wheelchart_previous_x_coord_fp \g__wheelchart_x_coord_fp
+ \fp_gset_eq:NN \g__wheelchart_previous_y_coord_fp \g__wheelchart_y_coord_fp
+ \__wheelchart_def_coord_aux:nn
+ {#1}
+ {
+ \fp_eval:n
+ {
+ \l__wheelchart_start_angle_fp + ( ( #2 ) / ( \l__wheelchart_samples_fp - 1 ) )
+ * \l__wheelchart_counter_or_clockwise_fp * \l__wheelchart_total_angle_fp
+ }
+ }
+ }
+
+\cs_new:Npn \__wheelchart_for_loop:n #1
+ {
+ \fp_gset_eq:NN \g__wheelchart_angle_fp \l__wheelchart_start_angle_fp
+ \__wheelchart_for_loop_initial:n
+ {
+ \__wheelchart_def_slice_keys:n
+ {
+ \fp_set_eq:Nc \l__wheelchart_value_fp { l__wheelchart_value_\WCcount _fp }
+ \cs_set_eq:Nc \WCpercentage { l__wheelchart_WCpercentage_\WCcount }
+ \cs_set_eq:Nc \WCpercentagerounded { l__wheelchart_WCpercentagerounded_\WCcount }
+ \fp_gset:Nn \g__wheelchart_new_angle_fp
+ {
+ \WCcount == \WCtotalcount
+ ?
+ \l__wheelchart_start_angle_fp + \l__wheelchart_counter_or_clockwise_fp * \l__wheelchart_total_angle_fp
+ :
+ \g__wheelchart_angle_fp +
+ (
+ \l__wheelchart_counter_or_clockwise_fp * \l__wheelchart_value_fp
+ * ( \l__wheelchart_total_angle_fp / \WCtotalnum )
+ )
+ }
+ \__wheelchart_def_macros:n
+ {
+ data~angle~pos ,
+ gap ,
+ gap~max~angle ,
+ gap~polar ,
+ gap~radius ,
+ samples ,
+ slices~inner~end~angle~shift ,
+ slices~inner~start~angle~shift ,
+ slices~outer~end~angle~shift ,
+ slices~outer~start~angle~shift
+ }
+ \__wheelchart_def_macro:Nn \l__wheelchart_outer_radius_fp
+ { \pgfkeysvalueof { / wheelchart / outer~radius } - \fp_use:N \l__wheelchart_gap_radius_fp }
+ \bool_if:NTF \l__wheelchart_pie_bool
+ { \fp_set:Nn \l__wheelchart_inner_radius_fp { 0 } }
+ {
+ \__wheelchart_def_macro:Nn \l__wheelchart_inner_radius_fp
+ { \pgfkeysvalueof { / wheelchart / inner~radius } + \fp_use:N \l__wheelchart_gap_radius_fp }
+ }
+ \fp_set_eq:NN \l__wheelchart_inner_radius_orig_fp \l__wheelchart_inner_radius_fp
+ \fp_set:Nn \l__wheelchart_abs_half_angle_minus_new_angle_fp
+ { abs ( \g__wheelchart_angle_fp - \g__wheelchart_new_angle_fp ) / 2 }
+ \fp_set:Nn \l__wheelchart_abs_half_angle_minus_new_angle_minus_gap_polar_fp
+ { \l__wheelchart_abs_half_angle_minus_new_angle_fp - \l__wheelchart_gap_polar_fp }
+ \bool_if:NTF \l__wheelchart_plot_bool
+ {
+ \fp_set_eq:NN \l__wheelchart_outer_gap_fp \l__wheelchart_gap_polar_fp
+ \fp_set_eq:NN \l__wheelchart_inner_gap_fp \l__wheelchart_gap_polar_fp
+ }
+ {
+ \fp_set:Nn \l__wheelchart_gap_max_angle_def_fp
+ {
+ \l__wheelchart_inner_radius_fp > 0
+ ?
+ 90
+ :
+ (
+ sind ( \l__wheelchart_abs_half_angle_minus_new_angle_minus_gap_polar_fp ) < 0.001
+ ?
+ (
+ 90 < \l__wheelchart_gap_max_angle_fp && \l__wheelchart_gap_max_angle_fp < 180
+ ?
+ \l__wheelchart_gap_max_angle_fp
+ :
+ 90
+ )
+ :
+ (
+ \l__wheelchart_gap_max_angle_fp < 90 || \l__wheelchart_gap_max_angle_fp > 180
+ ?
+ 180
+ :
+ \l__wheelchart_gap_max_angle_fp
+ )
+ )
+ }
+ \__wheelchart_def_gap:NN \l__wheelchart_outer_gap_fp \l__wheelchart_outer_radius_fp
+ \__wheelchart_def_gap:NN \l__wheelchart_inner_gap_fp \l__wheelchart_inner_radius_fp
+ \fp_compare:nNnT { \l__wheelchart_abs_half_angle_minus_new_angle_minus_gap_polar_fp } > { 0.01 }
+ {
+ \fp_set:Nn \l__wheelchart_inner_radius_fp
+ {
+ max
+ (
+ \l__wheelchart_gap_fp
+ / sind
+ (
+ min
+ (
+ \l__wheelchart_abs_half_angle_minus_new_angle_minus_gap_polar_fp ,
+ \l__wheelchart_gap_max_angle_def_fp
+ )
+ )
+ ,
+ \l__wheelchart_inner_radius_fp
+ )
+ }
+ }
+ }
+ \__wheelchart_def_slice_angle:nnnn { inner } { end } { new_ } { -1 }
+ \__wheelchart_def_slice_angle:nnnn { inner } { start } {} { 1 }
+ \__wheelchart_def_slice_angle:nnnn { outer } { end } { new_ } { -1 }
+ \__wheelchart_def_slice_angle:nnnn { outer } { start } {} { 1 }
+ \__wheelchart_def_angle:nnnN { 0.5 } { 0 } { 0 } \WCmidangle
+ \__wheelchart_def_macros:n { data~angle~shift , data~sep }
+ \__wheelchart_def_angle:nnnN
+ { \l__wheelchart_data_angle_pos_fp }
+ { \l__wheelchart_data_angle_shift_fp }
+ { \l__wheelchart_data_sep_fp }
+ \WCdataangle
+ \__wheelchart_def_macros:n { explode }
+ \pgfkeysvalueof { / wheelchart / for~loop~start }%this must be placed after the definition of macros such as \WCpercentage
+ %such that these macros can be used in the key for loop start
+ \begin { scope }
+ [ shift = { ( \WCmidangle \c_colon_str \fp_use:N \l__wheelchart_explode_fp ) } , / wheelchart / slices_scope ]
+ #1
+ \end { scope }
+ \fp_gset_eq:NN \g__wheelchart_angle_fp \g__wheelchart_new_angle_fp
+ \pgfkeysvalueof { / wheelchart / for~loop~end }
+ }
+ }
+ }
+
+\cs_new:Npn \__wheelchart_for_loop_initial:n #1
+ {
+ \str_case:en { \l__wheelchart_type_tl }
+ {
+ { default }
+ {
+ \clist_if_empty:NTF \l__wheelchart_header_clist
+ {
+ \int_step_inline:nn { \WCtotalcount }
+ {
+ \cs_set:Npe \WCcount {##1}
+ \int_step_inline:nn { \seq_count:N \l__wheelchart_list_items_seq }
+ { \cs_set_eq:cc { WCvar\int_to_Alph:n {####1} } { l__wheelchart_item_WCvar\int_to_Alph:n {####1}_##1 } }
+ #1
+ }
+ }
+ {
+ \int_step_inline:nn { \WCtotalcount }
+ {
+ \cs_set:Npe \WCcount {##1}
+ \int_step_inline:nn { \seq_count:N \l__wheelchart_list_items_seq }
+ {
+ \cs_set_eq:cc
+ { \pgfkeysvalueof { / wheelchart / header~prefix } \clist_item:Nn \l__wheelchart_header_clist {####1} }
+ {
+ l__wheelchart_item_\pgfkeysvalueof { / wheelchart / header~prefix }
+ \clist_item:Nn \l__wheelchart_header_clist {####1}_##1
+ }
+ }
+ #1
+ }
+ }
+ }
+ { totalcount }
+ {
+ \int_step_inline:nn { \WCtotalcount }
+ {
+ \cs_set:Npe \WCcount {##1}
+ #1
+ }
+ }
+ { etoc }
+ {
+ \int_step_inline:nn { \WCtotalcount }
+ {
+ \cs_set:Npe \WCcount {##1}
+ \cs_set_eq:Nc \WCetocthelinkedname { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_linked_name_##1 }
+ \cs_set_eq:Nc \WCetocthelinkednumber { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_linked_number_##1 }
+ \cs_set_eq:Nc \WCetocthelinkedpage { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_linked_page_##1 }
+ \cs_set_eq:Nc \WCetocthename { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_name_##1 }
+ \cs_set_eq:Nc \WCetocthenumber { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_number_##1 }
+ \cs_set_eq:Nc \WCetocthepage { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_page_##1 }
+ \cs_set_eq:Nc \WCetocthenumberofpages { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _the_number_of_pages_##1 }
+ #1
+ }
+ }
+ }
+ }
+
+\cs_new:Npn \__wheelchart_if_text:nn #1#2
+ {
+ %https://tex.stackexchange.com/questions/42280/expand-away-empty-macros-within-ifthenelse
+ %https://tex.stackexchange.com/questions/44919/proper-way-to-detect-empty-blank-text
+ \begin { pgfinterruptpicture }
+ %https://tex.stackexchange.com/questions/459853/savebox-within-tikzpicture-results-in-an-empty-savebox
+ \hbox_gset:Nn \g__wheelchart_if_text_box { \pgfkeysvalueof { / wheelchart / #1 } }
+ \end { pgfinterruptpicture }
+ \dim_compare:nNnT { \box_wd:N \g__wheelchart_if_text_box } > { 0 pt }
+ { {#2} }
+ }
+
+\cs_new:Npn \__wheelchart_initial:n #1
+ {
+ \str_case:en { \l__wheelchart_type_tl }
+ {
+ { default }
+ {
+ \tl_if_empty:nTF {#1}
+ { \cs_set:Npn \WCtotalcount { 0 } }
+ {
+ \use:c { seq_set_split:Ne\l__wheelchart_expand_list_tl }
+ \l__wheelchart_list_seq
+ { \pgfkeysvalueof { / wheelchart / separator~rows } }
+ {#1}
+ \cs_set:Npe \WCtotalcount { \seq_count:N \l__wheelchart_list_seq }
+ \seq_map_indexed_inline:Nn \l__wheelchart_list_seq
+ {
+ \use:c { seq_set_split:Ne\l__wheelchart_expand_list_items_tl }
+ \l__wheelchart_list_items_seq
+ { \pgfkeysvalueof { / wheelchart / separator~columns } }
+ {##2}
+ %make sure that the namespace l__wheelchart_item_ below is unique
+ \clist_if_empty:NTF \l__wheelchart_header_clist
+ {
+ \seq_map_indexed_inline:Nn \l__wheelchart_list_items_seq
+ { \cs_set:cpn { l__wheelchart_item_WCvar\int_to_Alph:n {####1}_##1 } {####2} }
+ }
+ {
+ \seq_map_indexed_inline:Nn \l__wheelchart_list_items_seq
+ {
+ \cs_set:cpn
+ {
+ l__wheelchart_item_\pgfkeysvalueof { / wheelchart / header~prefix }
+ \clist_item:Nn \l__wheelchart_header_clist {####1}_##1
+ }
+ {####2}
+ }
+ }
+ }
+ }
+ }
+ { totalcount }
+ {
+ \cs_set:Npe \WCtotalcount { \fp_use:N \l__wheelchart_total_count_fp }
+ \cs_set:Npn \WCvarA { 1 }
+ \cs_set:Npn \WCvarB {}
+ \cs_set:Npn \WCvarC {}
+ }
+ { etoc }
+ {
+ \bool_if:NTF \l__wheelchart_etoc_use_name_bool
+ {
+ \int_if_exist:cTF { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ { \cs_set:Npe \WCtotalcount { \int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int } } }
+ { \cs_set:Npn \WCtotalcount { 0 } }
+ }
+ {
+ \@ifpackageloaded { etoc } {}
+ { \PackageError { wheelchart } { The~package~etoc~must~be~loaded~to~use~the~key~etoc~level } {} }
+ \etocsetlevel { part } { 0 }
+ \etocsetlevel { chapter } { 0 }
+ \etocsetlevel { section } { 0 }
+ \etocsetlevel { subsection } { 0 }
+ \etocsetlevel { subsubsection } { 0 }
+ \etocsetlevel { paragraph } { 0 }
+ \etocsetlevel { subparagraph } { 0 }
+ \etocsetlevel { \l__wheelchart_etoc_level_tl } { -1 }%these level changes are local to the current group
+ \etocsetnexttocdepth { -1 }%only for the next toc
+ \etocsetstyle { \l__wheelchart_etoc_level_tl } {} {}
+ {
+ \int_compare:nNnT { \int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int } } > { 0 }
+ {
+ \cs_gset:cpe
+ {
+ g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl
+ _the_number_of_pages_\int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ }
+ {
+ \int_eval:n
+ {
+ \etocthepage -
+ \cs:w
+ g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl
+ _the_page_\int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ \cs_end:
+ }
+ }
+ }
+ \int_gincr:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ \cs_gset_eq:cN
+ {
+ g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl
+ _the_linked_name_\int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ }
+ \etocthelinkedname
+ \cs_gset_eq:cN
+ {
+ g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl
+ _the_linked_number_\int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ }
+ \etocthelinkednumber
+ \cs_gset_eq:cN
+ {
+ g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl
+ _the_linked_page_\int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ }
+ \etocthelinkedpage
+ \cs_gset_eq:cN
+ {
+ g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl
+ _the_name_\int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ }
+ \etocthename
+ \cs_gset_eq:cN
+ {
+ g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl
+ _the_number_\int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ }
+ \etocthenumber
+ \cs_gset_eq:cN
+ {
+ g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl
+ _the_page_\int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ }
+ \etocthepage
+ }
+ {}
+ \int_gzero_new:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ \pgfkeysvalueof { / wheelchart / etoc~code }
+ \int_compare:nNnT { \int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int } } > { 0 }
+ {
+ \cs_gset:cpe
+ {
+ g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl
+ _the_number_of_pages_\int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ }
+ {
+ \int_eval:n
+ {
+ \l__wheelchart_etoc_count_total_pages_int + 1 -
+ \cs:w
+ g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl
+ _the_page_\int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int }
+ \cs_end:
+ }
+ }
+ }
+ \cs_set:Npe \WCtotalcount { \int_use:c { g__wheelchart_etoc_item_\l__wheelchart_etoc_name_tl _count_int } }
+ }
+ }
+ }
+ \cs_set:Npn \WCtotalnum { 0 }
+ \__wheelchart_for_loop_initial:n
+ {
+ \__wheelchart_def_slice_keys:n
+ {
+ \__wheelchart_def_macros:n { value }
+ \fp_gset_eq:NN \g__wheelchart_value_global_fp \l__wheelchart_value_fp
+ }
+ \fp_zero_new:c { l__wheelchart_value_\WCcount _fp }
+ \fp_set_eq:cN { l__wheelchart_value_\WCcount _fp } \g__wheelchart_value_global_fp
+ \cs_set:Npe \WCtotalnum { \fp_eval:n { \WCtotalnum + \g__wheelchart_value_global_fp } }
+ }
+ \int_step_inline:nn { \WCtotalcount }
+ {
+ \cs_set:cpe { l__wheelchart_WCpercentage_##1 }
+ { \fp_eval:n { \fp_use:c { l__wheelchart_value_##1_fp } / ( \WCtotalnum / 100 ) } }
+ \cs_set:cpe { l__wheelchart_WCpercentagerounded_##1 }
+ { \fp_eval:n { round ( \cs:w l__wheelchart_WCpercentage_##1\cs_end: , \pgfkeysvalueof { / wheelchart / perc~precision } ) } }
+ }
+ }
+
+\cs_new:Npn \__wheelchart_inner_plot:nn #1#2
+ { {#1} \c_colon_str {#2} }
+
+\cs_new:Npn \__wheelchart_legend_append:nn #1#2
+ {
+ \tl_build_put_right:NV \WClegend \l__wheelchart_legend_row_tl%note the V specifier such that \WClegend can also be combined
+ %with an S column of the package siunitx and such that \WClegend can be used in a tblr environment of the package tabularray
+ %and then the option expand=\WClegend needs to be given to the tblr environment
+ \tl_build_put_right:Nn \WClegend { \protect \setcounter { g__wheelchart_WCcount_counter } }%note the \protect for in case that
+ %\WClegend would be parsed in a particular way
+ %note that the counter g__wheelchart_WCcount_counter is defined globally and at the end of the previous \l__wheelchart_legend_row_tl
+ %such that this value is defined and has the right value at the start of the next \l__wheelchart_legend_row_tl
+ %if \WClegend is used in a tblr environment of the package tabularray then \UseTblrLibrary{counter} is required
+ \tl_build_put_right:Ne \WClegend { { \int_eval:n {#1} } }
+ \tl_build_put_right:Nn \WClegend {#2}
+ }
+
+\cs_new:Npn \__wheelchart_outer_plot:nn #1#2
+ { {#1} \c_colon_str {#2} }
+
+\cs_new:Npn \__wheelchart_slices_arc:nnnnnn #1#2#3#4#5#6
+ {
+ {
+ [
+ / utils / exec =
+ {
+ \__wheelchart_def_macro:Nn \l__wheelchart_slices_arc_A_fp {#1}
+ #6
+ \fp_set:Nn \l__wheelchart_slices_arc_A_abs_fp { abs ( \l__wheelchart_slices_arc_A_fp ) }
+ \fp_compare:nNnF { \l__wheelchart_slices_arc_A_abs_fp } < { 0.01 }
+ {
+ \__wheelchart_def_macro:Nn \l__wheelchart_slices_arc_B_fp {#2}
+ \fp_set:Nn \l__wheelchart_slices_arc_rotate_fp
+ {
+ atand
+ (
+ \fp_use:c { l__wheelchart_#3_y_fp } - \fp_use:c { l__wheelchart_#4_y_fp } ,
+ \fp_use:c { l__wheelchart_#3_x_fp } - \fp_use:c { l__wheelchart_#4_x_fp }
+ )
+ }
+ \fp_set:Nn \l__wheelchart_slices_arc_coord_fp
+ {
+ \l__wheelchart_slices_arc_A_fp < 0 && \l__wheelchart_slices_arc_B_fp < 0
+ ?
+ 0
+ :
+ \l__wheelchart_slices_arc_B_fp
+ }
+ \fp_set:Nn \l__wheelchart_slices_arc_angle_fp
+ {
+ \l__wheelchart_slices_arc_A_fp < 0 && \l__wheelchart_slices_arc_B_fp < 0
+ ?
+ acosd
+ (
+ 2 /
+ (
+ ( min ( \l__wheelchart_slices_arc_B_fp , 0 ) - 1 )
+ * ( ( 1 / \l__wheelchart_slices_arc_A_fp ) + \l__wheelchart_slices_arc_A_fp )
+ )
+ )
+ :
+ atand ( ( \l__wheelchart_slices_arc_A_fp - ( 1 / \l__wheelchart_slices_arc_A_fp ) ) / 2 )
+ }%note the min ( \l__wheelchart_slices_arc_B_fp , 0 ) such that the acosd is always defined
+ }
+ }
+ ]
+ \fp_compare:nNnTF { \l__wheelchart_slices_arc_A_abs_fp } < { 0.01 }
+ {#5}
+ {
+ \fp_compare:nNnT { \l__wheelchart_slices_arc_B_fp } < { 1 }
+ {
+ \fp_compare:nNnF { \l__wheelchart_slices_arc_coord_fp } = { 0 }
+ {
+ --
+ (
+ $
+ ( \fp_use:c { l__wheelchart_#3_x_fp } , \fp_use:c { l__wheelchart_#3_y_fp } )
+ ! { \fp_eval:n { \l__wheelchart_slices_arc_coord_fp / 2 } } !
+ ( \fp_use:c { l__wheelchart_#4_x_fp } , \fp_use:c { l__wheelchart_#4_y_fp } )
+ $
+ )
+ }
+ arc
+ [
+ start~angle =
+ {
+ \fp_eval:n
+ {
+ \l__wheelchart_slices_arc_rotate_fp
+ - \g__wheelchart_slices_orientation_fp * \l__wheelchart_slices_arc_angle_fp
+ }
+ } ,
+ end~angle =
+ {
+ \fp_eval:n
+ {
+ \l__wheelchart_slices_arc_rotate_fp + \g__wheelchart_slices_orientation_fp *
+ ( sign ( \l__wheelchart_slices_arc_A_fp ) * 180 + \l__wheelchart_slices_arc_angle_fp )
+ }
+ } ,
+ radius =
+ {
+ \fp_eval:n
+ {
+ 0.25 * ( 1 - \l__wheelchart_slices_arc_B_fp )
+ * abs ( ( 1 / \l__wheelchart_slices_arc_A_fp ) + \l__wheelchart_slices_arc_A_fp )
+ * sqrt
+ (
+ ( \fp_use:c { l__wheelchart_#3_x_fp } - \fp_use:c { l__wheelchart_#4_x_fp } ) ^ 2
+ + ( \fp_use:c { l__wheelchart_#3_y_fp } - \fp_use:c { l__wheelchart_#4_y_fp } ) ^ 2
+ )
+ }
+ }
+ ]
+ }
+ \fp_compare:nNnF { \l__wheelchart_slices_arc_coord_fp } = { 0 }
+ {#5}
+ }
+ }
+ }
+
+\cs_new:Npn \__wheelchart_slices_arrow:nnnnn #1#2#3#4#5
+ {
+ {
+ [
+ / utils / exec =
+ {
+ \__wheelchart_def_macro:Nn \l__wheelchart_slices_arrow_A_fp {#1}
+ \fp_compare:nNnF { \l__wheelchart_slices_arrow_A_fp } = { 0 }
+ {
+ \__wheelchart_def_macro:Nn \l__wheelchart_slices_arrow_B_fp {#2}
+ \fp_set:Nn \l__wheelchart_slices_arrow_coord_fp
+ {
+ \l__wheelchart_slices_arrow_A_fp < 0 && \l__wheelchart_slices_arrow_B_fp < 0 ? 0 : \l__wheelchart_slices_arrow_B_fp
+ }
+ }
+ }
+ ]
+ \fp_compare:nNnTF { \l__wheelchart_slices_arrow_A_fp } = { 0 }
+ {#5}
+ {
+ \fp_compare:nNnT { \l__wheelchart_slices_arrow_B_fp } < { 1 }
+ {
+ \fp_compare:nNnF { \l__wheelchart_slices_arrow_coord_fp } = { 0 }
+ {
+ --
+ (
+ $
+ ( \fp_use:c { l__wheelchart_#3_x_fp } , \fp_use:c { l__wheelchart_#3_y_fp } )
+ ! { \fp_eval:n { \l__wheelchart_slices_arrow_coord_fp / 2 } } !
+ ( \fp_use:c { l__wheelchart_#4_x_fp } , \fp_use:c { l__wheelchart_#4_y_fp } )
+ $
+ )
+ }
+ --
+ (
+ \fp_eval:n
+ {
+ (
+ \fp_use:c { l__wheelchart_#3_x_fp } + \fp_use:c { l__wheelchart_#4_x_fp } +
+ (
+ \g__wheelchart_slices_orientation_fp * ( \l__wheelchart_slices_arrow_coord_fp - 1 )
+ * \l__wheelchart_slices_arrow_A_fp
+ * ( \fp_use:c { l__wheelchart_#3_y_fp } - \fp_use:c { l__wheelchart_#4_y_fp } )
+ )
+ )
+ / 2
+ }
+ ,
+ \fp_eval:n
+ {
+ (
+ \fp_use:c { l__wheelchart_#3_y_fp } + \fp_use:c { l__wheelchart_#4_y_fp } +
+ (
+ \g__wheelchart_slices_orientation_fp * ( \l__wheelchart_slices_arrow_coord_fp - 1 )
+ * \l__wheelchart_slices_arrow_A_fp
+ * ( \fp_use:c { l__wheelchart_#4_x_fp } - \fp_use:c { l__wheelchart_#3_x_fp } )
+ )
+ )
+ / 2
+ }
+ )
+ \fp_compare:nNnF { \l__wheelchart_slices_arrow_coord_fp } = { 0 }
+ {
+ --
+ (
+ $
+ ( \fp_use:c { l__wheelchart_#4_x_fp } , \fp_use:c { l__wheelchart_#4_y_fp } )
+ ! { \fp_eval:n { \l__wheelchart_slices_arrow_coord_fp / 2 } } !
+ ( \fp_use:c { l__wheelchart_#3_x_fp } , \fp_use:c { l__wheelchart_#3_y_fp } )
+ $
+ )
+ }
+ }
+ #5
+ }
+ }
+ }
+
+\cs_new:Npn \__wheelchart_slices_to:nn #1#2
+ {
+ to
+ [
+ out = { \fp_eval:n { - \g__wheelchart_slices_orientation_fp * sign ( \l__wheelchart_coord_determinant_fp ) * (#1) } } ,
+ in = { \fp_eval:n { \g__wheelchart_slices_orientation_fp * sign ( \l__wheelchart_coord_determinant_fp ) * ( (#2) - 180 ) } } ,
+ relative
+ ]
+ }
+
+\cs_new:Npn \__wheelchart_space_to_underscore:n #1
+ { \str_if_eq:nnTF {#1} { ~ } { _ } {#1} }
+
+%%> \subsection{Pgfkeys}
+
+\pgfkeys
+ {
+ / wheelchart /. is~family ,
+ / wheelchart ,
+ after~slices /. initial = {} ,
+ anchor~xsep /. initial = 5 ,
+ anchor~ysep /. initial = 5 ,
+ arc /. style =
+ {
+ bool_set_true = \l__wheelchart_arc_bool ,
+ arc_style /. style = {#1}
+ } ,
+ arc_style /. style = {} ,
+ arc~around~text /. default = true ,%this key is not set up with /.is choice or \bool_set:Nn
+ %such that for example \WCvarA can be used as value for this key
+ arc~around~text /. initial = false ,
+ arc~data /. initial = {} ,
+ arc~data~align /. code = { \tl_set:Nn \l__wheelchart_arc_data_align_tl {#1} } ,%this key is not set up with /.is choice
+ %such that for example \WCvarA can be used as value for this key
+ arc~data~align = center ,
+ arc~data~angle~pos /. initial = 0.5 ,
+ arc~data~angle~shift /. initial = 0 ,
+ arc~data~dir /. initial = 1 ,
+ arc~data~pos /. initial = 1 ,
+ arc~data~sep /. initial = 1 ex / 1 cm ,
+ arc~data~style /. style = { arc_data_style /. style = {#1} } ,
+ arc_data_style /. style = {} ,
+ arc~first~half /. style = { arc_first_half /. style = {#1} } ,
+ arc_first_half /. style = {} ,
+ arc~pos /. initial = 1 ,
+ arc~second~half /. style = { arc_second_half /. style = {#1} } ,
+ arc_second_half /. style = {} ,
+ arc~sep /. initial = 1 ex / 1 cm ,
+ at /. initial = { ( 0 , 0 ) } ,
+ before~slices /. initial = {} ,
+ bool_set_true /. code = { \bool_set_true:N #1 } ,
+ caption /. initial = {} ,
+ caption~left /. initial = {} ,
+ caption~left~sep /. initial = 0.5 ,
+ caption~left~style /. style = { caption~left_style /. style = {#1} } ,
+ caption~left_style /. style = {} ,
+ caption~sep /. initial = 0.5 ,
+ caption~style /. style = { caption_style /. style = {#1} } ,
+ caption_style /. style = {} ,
+ contour /. style =
+ {
+ bool_set_true = \l__wheelchart_contour_bool ,
+ contour_style /. style = {#1}
+ } ,
+ contour_style /. style = {} ,
+ counterclockwise /. is~choice ,
+ counterclockwise / false /. code = { \fp_set:Nn \l__wheelchart_counter_or_clockwise_fp { -1 } } ,
+ counterclockwise / false /. value~forbidden ,
+ counterclockwise / true /. code = { \fp_set:Nn \l__wheelchart_counter_or_clockwise_fp { 1 } } ,
+ counterclockwise / true /. value~forbidden ,
+ counterclockwise /. default = true ,
+ counterclockwise = false ,
+ data /. initial = { \WCvarC } ,
+ data~angle~pos /. initial = 0.5 ,
+ data~angle~shift /. initial = 0 ,
+ data~pos /. initial = 1 ,
+ data~sep /. initial = 0.2 ,
+ data~style /. style = { data_style /. style = {#1} } ,
+ data_style /. style = {} ,
+ discrete /. is~choice ,
+ discrete / false /. code = { \bool_set_false:N \l__wheelchart_discrete_bool } ,
+ discrete / false /. value~forbidden ,
+ discrete / true /. code = { \bool_set_true:N \l__wheelchart_discrete_bool } ,
+ discrete / true /. value~forbidden ,
+ discrete /. default = true ,
+ discrete = false ,
+ discrete~factor /. initial = 1 ,
+ discrete~partitioning /. initial = radius ,
+ discrete~pic /. initial = {} ,
+ discrete~sort /. is~choice ,
+ discrete~sort / angle /. code = { \int_set:Nn \l__wheelchart_discrete_sort_int { 1 } } ,
+ discrete~sort / angle /. value~forbidden ,
+ discrete~sort / radius /. code = { \int_set:Nn \l__wheelchart_discrete_sort_int { 2 } } ,
+ discrete~sort / radius /. value~forbidden ,
+ discrete~sort = angle ,
+ discrete~space~at~borders /. is~choice ,%this key is not set up with /.is if because an initial value is unwanted for this key
+ discrete~space~at~borders / false /. code = { \int_set:Nn \l__wheelchart_discrete_space_at_borders_int { 1 } } ,
+ discrete~space~at~borders / false /. value~forbidden ,
+ discrete~space~at~borders / true /. code = { \int_set:Nn \l__wheelchart_discrete_space_at_borders_int { 0 } } ,
+ discrete~space~at~borders / true /. value~forbidden ,
+ discrete~space~at~borders /. default = true ,
+ domain /. style~args /. expanded = { ##1 \c_colon_str ##2 }
+ {
+ counterclockwise ,
+ start~angle = {##1} ,
+ total~angle = { (##2) - (##1) }
+ } ,
+ etoc~code /. initial = { \tableofcontents } ,
+ etoc~count~total~pages /. code = { \int_set:Nn \l__wheelchart_etoc_count_total_pages_int {#1} } ,
+ etoc~level /. code =
+ {
+ \tl_set:Nn \l__wheelchart_type_tl { etoc }
+ \tl_set:Nn \l__wheelchart_etoc_level_tl {#1}
+ } ,
+ etoc~name /. code = { \tl_set:Nn \l__wheelchart_etoc_name_tl {#1} } ,
+ etoc~name = ,
+ etoc~use~name /. code =
+ {
+ \tl_set:Nn \l__wheelchart_etoc_name_tl {#1}
+ \tl_set:Nn \l__wheelchart_type_tl { etoc }
+ \bool_set_true:N \l__wheelchart_etoc_use_name_bool
+ } ,
+ expand~list /. is~choice ,
+ expand~list / false /. code = { \tl_set:Nn \l__wheelchart_expand_list_tl { n } } ,
+ expand~list / false /. value~forbidden ,
+ expand~list / once /. code = { \tl_set:Nn \l__wheelchart_expand_list_tl { o } } ,
+ expand~list / once /. value~forbidden ,
+ expand~list / true /. code = { \tl_set:Nn \l__wheelchart_expand_list_tl { e } } ,
+ expand~list / true /. value~forbidden ,
+ expand~list = once ,
+ expand~list~items /. is~choice ,
+ expand~list~items / false /. code = { \tl_set:Nn \l__wheelchart_expand_list_items_tl { n } } ,
+ expand~list~items / false /. value~forbidden ,
+ expand~list~items / once /. code = { \tl_set:Nn \l__wheelchart_expand_list_items_tl { o } } ,
+ expand~list~items / once /. value~forbidden ,
+ expand~list~items / true /. code = { \tl_set:Nn \l__wheelchart_expand_list_items_tl { e } } ,
+ expand~list~items / true /. value~forbidden ,
+ expand~list~items = false ,
+ explode /. initial = 0 ,
+ explode /. default = 0.2 ,
+ for~loop~end /. initial = {} ,
+ for~loop~start /. initial = {} ,
+ gap /. initial = 0 ,
+ gap /. default = 0.05 ,
+ gap~max~angle /. initial = 180 ,
+ gap~polar /. initial = 0 ,
+ gap~polar /. default = 1 ,
+ gap~radius /. initial = 0 ,
+ gap~radius /. default = 0.05 ,%the same default value as for gap
+ header /. code = { \clist_set:Nn \l__wheelchart_header_clist {#1} } ,
+ header~prefix /. initial = WC ,
+ inner~data /. initial = {} ,
+ inner~data~angle~pos /. initial = 0.5 ,
+ inner~data~angle~shift /. initial = 0 ,
+ inner~data~pos /. initial = 0 ,
+ inner~data~sep /. initial = 0.2 ,
+ inner~data~style /. style = { inner_data_style /. style = {#1} } ,
+ inner_data_style /. style = {} ,
+ inner~plot /. code =
+ {
+ \bool_set_true:N \l__wheelchart_plot_bool
+ \cs_set:Npn \__wheelchart_inner_plot:nn ##1##2 {#1}
+ \tl_set:Nn \l__wheelchart_slices_inner_tl
+ {
+ -- plot
+ [
+ domain =
+ \fp_use:N \l__wheelchart_slice_inner_end_angle_fp
+ \c_colon_str
+ \fp_use:N \l__wheelchart_slice_inner_start_angle_fp ,
+ samples = \fp_use:N \l__wheelchart_samples_fp ,
+ variable = \l__wheelchart_inner_plot_variable_fp ,
+ / wheelchart / inner_plot_style
+ ]
+ ( \__wheelchart_inner_plot:nn { \l__wheelchart_inner_plot_variable_fp } { \fp_use:N \l__wheelchart_inner_radius_fp } )
+ }
+ } ,
+ inner~plot~style /. style = { inner_plot_style /. style = {#1} } ,
+ inner_plot_style /. style = {} ,
+ inner~radius /. initial = 2 ,
+ legend /. initial = {} ,
+ legend~columns /. initial = 1 ,
+ legend~entry /. initial = {} ,
+ legend~only /. code = { \bool_set:Nn \l__wheelchart_legend_only_bool { \cs:w c_#1_bool\cs_end: } } ,
+ legend~only /. default = true ,
+ legend~only = false ,
+ legend~row /. code =
+ {
+ \bool_set_true:N \l__wheelchart_legend_row_bool
+ \tl_set:Nn \l__wheelchart_legend_row_tl {#1}
+ } ,
+ lines /. initial = 0 ,
+ lines /. default = 1 ,
+ lines~angle~pos /. initial = 0.5 ,
+ lines~angle~shift /. initial = 0 ,
+ lines~ext /. initial = 0 ,
+ lines~ext /. default = 0.5 ,
+ lines~ext~bottom~dir /. code = { \int_set_eq:Nc \l__wheelchart_lines_ext_bottom_dir_int { c__wheelchart_lines_ext_dir_#1_int } } ,
+ lines~ext~bottom~dir = right ,
+ lines~ext~dir /. code =
+ {
+ \bool_set_true:N \l__wheelchart_lines_ext_dir_bool
+ \int_set_eq:Nc \l__wheelchart_lines_ext_dir_int { c__wheelchart_lines_ext_dir_#1_int }
+ } ,
+ lines~ext~dirsep /. initial = 0 ,
+ lines~ext~fixed /. default = true ,%this key is not set up with /.is choice or \bool_set:Nn
+ %such that for example \WCvarA can be used as value for this key
+ lines~ext~fixed /. initial = false ,
+ lines~ext~fixed~left /. initial =
+ {
+ \fp_eval:n
+ {
+ \l__wheelchart_lines_ext_dir_int
+ * ( \l__wheelchart_outer_radius_fp + \l__wheelchart_lines_sep_fp + \l__wheelchart_lines_fp + \l__wheelchart_lines_ext_fp )
+ }
+ } ,
+ lines~ext~fixed~right /. initial =
+ {
+ \fp_eval:n
+ {
+ \l__wheelchart_lines_ext_dir_int
+ * ( \l__wheelchart_outer_radius_fp + \l__wheelchart_lines_sep_fp + \l__wheelchart_lines_fp + \l__wheelchart_lines_ext_fp )
+ }
+ } ,
+ lines~ext~left~anchor /. initial = mid~east ,
+ lines~ext~right~anchor /. initial = mid~west ,
+ lines~ext~top~dir /. code = { \int_set_eq:Nc \l__wheelchart_lines_ext_top_dir_int { c__wheelchart_lines_ext_dir_#1_int } } ,
+ lines~ext~top~dir = right ,
+ lines~pos /. initial = 1 ,
+ lines~sep /. initial = 0.2 ,
+ lines~style /. style = { lines_style /. style = {#1} } ,
+ lines_style /. style = {} ,
+ middle /. initial = {} ,
+ middle~fill /. style =
+ {
+ bool_set_true = \l__wheelchart_middle_fill_bool ,
+ middle_fill /. style = {#1}
+ } ,
+ middle_fill /. style = {} ,
+ middle~style /. style = { middle_style /. style = {#1} } ,
+ middle_style /. style = {} ,
+ name /. code = { \tl_gset:Ne \g__wheelchart_name_tl {#1} } ,
+ name = wheelchart at name ,
+ outer~plot /. code =
+ {
+ \bool_set_true:N \l__wheelchart_plot_bool
+ \cs_set:Npn \__wheelchart_outer_plot:nn ##1##2 {#1}
+ \tl_set:Nn \l__wheelchart_slices_outer_tl
+ {
+ -- plot
+ [
+ domain =
+ \fp_use:N \l__wheelchart_slice_outer_start_angle_fp
+ \c_colon_str
+ \fp_use:N \l__wheelchart_slice_outer_end_angle_fp ,
+ samples = \fp_use:N \l__wheelchart_samples_fp ,
+ variable = \l__wheelchart_outer_plot_variable_fp ,
+ / wheelchart / outer_plot_style
+ ]
+ ( \__wheelchart_outer_plot:nn { \l__wheelchart_outer_plot_variable_fp } { \fp_use:N \l__wheelchart_outer_radius_fp } )
+ }
+ } ,
+ outer~plot~style /. style = { outer_plot_style /. style = {#1} } ,
+ outer_plot_style /. style = {} ,
+ outer~radius /. initial = 3 ,
+ parse /. initial = pgfmath ,
+ perc~precision /. initial = 0 ,
+ pie /. code = { \bool_set:Nn \l__wheelchart_pie_bool { \cs:w c_#1_bool\cs_end: } } ,
+ pie /. default = true ,
+ pie = false ,
+ plot /. style =
+ {
+ inner~plot = {#1} ,
+ outer~plot = {#1}
+ } ,
+ plot~style /. style =
+ {
+ inner~plot~style = {#1} ,
+ outer~plot~style = {#1}
+ } ,
+ radius /. style~2~args =
+ {
+ inner~radius = {#1} ,
+ outer~radius = {#2}
+ } ,
+ samples /. initial = 25 ,%the same number as /tikz/samples
+ separator~columns /. initial = / ,
+ separator~rows /. initial = { , } ,
+ slice_final /. style = { slice_final_style /. style = {#1} } ,
+ slice_final_style /. style = {} ,
+ slices /. code =
+ {
+ \bool_set_true:N \l__wheelchart_slices_bool
+ \tl_set:Nn \l__wheelchart_slices_tl {#1}
+ } ,
+ slices~angle~pos /. initial = 0.5 ,
+ slices~angle~shift /. initial = 0 ,
+ slices~arc /. style~2~args =
+ {
+ slices~start~arc = { - (#1) } {#2} ,
+ slices~end~arc = {#1} {#2}
+ } ,
+ slices~arc~inner~end /. is~choice ,
+ slices~arc~inner~end / false /. style = {} ,
+ slices~arc~inner~end / false /. value~forbidden ,
+ slices~arc~inner~end / true /. style =
+ { slices~arc~match = { inner } { 1 } { -1 } { 1 } { inner~end } { inner~start } { outer~end } } ,
+ slices~arc~inner~end / true /. value~forbidden ,
+ slices~arc~inner~end /. initial = false ,
+ slices~arc~inner~end /. default = true ,
+ slices~arc~inner~end~start /. is~choice ,
+ slices~arc~inner~end~start / false /. style = {} ,
+ slices~arc~inner~end~start / false /. value~forbidden ,
+ slices~arc~inner~end~start / true /. style =
+ { slices~arc~match = { inner } { 1 } { 1 } { 1 } { inner~end } { inner~start } { outer~end } } ,
+ slices~arc~inner~end~start / true /. value~forbidden ,
+ slices~arc~inner~end~start /. initial = false ,
+ slices~arc~inner~end~start /. default = true ,
+ slices~arc~inner~start /. is~choice ,
+ slices~arc~inner~start / false /. style = {} ,
+ slices~arc~inner~start / false /. value~forbidden ,
+ slices~arc~inner~start / true /. style =
+ { slices~arc~match = { inner } { 1 } { -1 } { -1 } { inner~start } { inner~end } { outer~start } } ,
+ slices~arc~inner~start / true /. value~forbidden ,
+ slices~arc~inner~start /. initial = false ,
+ slices~arc~inner~start /. default = true ,
+ slices~arc~inner~start~end /. is~choice ,
+ slices~arc~inner~start~end / false /. style = {} ,
+ slices~arc~inner~start~end / false /. value~forbidden ,
+ slices~arc~inner~start~end / true /. style =
+ { slices~arc~match = { inner } { -1 } { -1 } { -1 } { inner~start } { inner~end } { outer~start } } ,
+ slices~arc~inner~start~end / true /. value~forbidden ,
+ slices~arc~inner~start~end /. initial = false ,
+ slices~arc~inner~start~end /. default = true ,
+ slices~arc~match /. style~n~args = { 7 }
+ {
+ slices~end~arc = { (#2) * tan ( \__wheelchart_diff_atan:nnnn {#7} {#6} {#5} {#6} / 2 ) } { 0 } ,
+ slices~start~arc = { (#3) * tan ( \__wheelchart_diff_atan:nnnn {#7} {#6} {#5} {#6} / 2 ) } { 0 } ,
+ slices~#1~arc = { (#4) * tan ( \__wheelchart_diff_atan:nnnn {#5} {#7} {#6} {#7} / 2 ) } { 0 }
+ } ,
+ slices~arc~outer~end /. is~choice ,
+ slices~arc~outer~end / false /. style = {} ,
+ slices~arc~outer~end / false /. value~forbidden ,
+ slices~arc~outer~end / true /. style =
+ { slices~arc~match = { outer } { -1 } { 1 } { -1 } { outer~end } { outer~start } { inner~end } } ,
+ slices~arc~outer~end / true /. value~forbidden ,
+ slices~arc~outer~end /. initial = false ,
+ slices~arc~outer~end /. default = true ,
+ slices~arc~outer~end~start /. is~choice ,
+ slices~arc~outer~end~start / false /. style = {} ,
+ slices~arc~outer~end~start / false /. value~forbidden ,
+ slices~arc~outer~end~start / true /. style =
+ { slices~arc~match = { outer } { -1 } { -1 } { -1 } { outer~end } { outer~start } { inner~end } } ,
+ slices~arc~outer~end~start / true /. value~forbidden ,
+ slices~arc~outer~end~start /. initial = false ,
+ slices~arc~outer~end~start /. default = true ,
+ slices~arc~outer~start /. is~choice ,
+ slices~arc~outer~start / false /. style = {} ,
+ slices~arc~outer~start / false /. value~forbidden ,
+ slices~arc~outer~start / true /. style =
+ { slices~arc~match = { outer } { -1 } { 1 } { 1 } { outer~start } { outer~end } { inner~start } } ,
+ slices~arc~outer~start / true /. value~forbidden ,
+ slices~arc~outer~start /. initial = false ,
+ slices~arc~outer~start /. default = true ,
+ slices~arc~outer~start~end /. is~choice ,
+ slices~arc~outer~start~end / false /. style = {} ,
+ slices~arc~outer~start~end / false /. value~forbidden ,
+ slices~arc~outer~start~end / true /. style =
+ { slices~arc~match = { outer } { 1 } { 1 } { 1 } { outer~start } { outer~end } { inner~start } } ,
+ slices~arc~outer~start~end / true /. value~forbidden ,
+ slices~arc~outer~start~end /. initial = false ,
+ slices~arc~outer~start~end /. default = true ,
+ slices~arrow /. style~2~args =
+ {
+ slices~start~arrow = { - (#1) } {#2} ,
+ slices~end~arrow = {#1} {#2}
+ } ,
+ slices~end~arc /. code~2~args =
+ {
+ \tl_set:Nn \l__wheelchart_slices_end_tl
+ {
+ \__wheelchart_slices_arc:nnnnnn
+ {#1}
+ {#2}
+ { outer~end }
+ { inner~end }
+ { -- ( \fp_use:c { l__wheelchart_inner~end_x_fp } , \fp_use:c { l__wheelchart_inner~end_y_fp } ) }
+ {}
+ }
+ } ,
+ slices~end~arrow /. code~2~args =
+ {
+ \tl_set:Nn \l__wheelchart_slices_end_tl
+ {
+ \__wheelchart_slices_arrow:nnnnn
+ {#1}
+ {#2}
+ { outer~end }
+ { inner~end }
+ { -- ( \fp_use:c { l__wheelchart_inner~end_x_fp } , \fp_use:c { l__wheelchart_inner~end_y_fp } ) }
+ }
+ } ,
+ slices~end~to /. code~2~args =
+ {
+ \tl_set:Nn \l__wheelchart_slices_end_tl
+ {
+ \__wheelchart_slices_to:nn {#2} {#1}
+ ( \fp_use:c { l__wheelchart_inner~end_x_fp } , \fp_use:c { l__wheelchart_inner~end_y_fp } )
+ }
+ } ,
+ slices~inner~angle~reduce /. style =
+ {
+ slices~inner~end~angle~shift = { - (#1) } ,
+ slices~inner~start~angle~shift = {#1}
+ } ,
+ slices~inner~angle~shift /. style =
+ {
+ slices~inner~end~angle~shift = {#1} ,
+ slices~inner~start~angle~shift = {#1}
+ } ,
+ slices~inner~arc /. code~2~args =
+ {
+ \tl_set:Nn \l__wheelchart_slices_inner_tl
+ {
+ \__wheelchart_slices_arc:nnnnnn
+ {#1}
+ {#2}
+ { inner~end }
+ { inner~start }
+ { -- ( \fp_use:c { l__wheelchart_inner~start_x_fp } , \fp_use:c { l__wheelchart_inner~start_y_fp } ) }
+ {}
+ }
+ } ,
+ slices~inner~arc~tangent /. is~choice ,
+ slices~inner~arc~tangent / false /. code = {} ,
+ slices~inner~arc~tangent / false /. value~forbidden ,
+ slices~inner~arc~tangent / true /. code =
+ {
+ \tl_set:Nn \l__wheelchart_slices_inner_tl
+ {
+ \__wheelchart_slices_arc:nnnnnn
+ { \__wheelchart_diff_atan:nnnn { outer~start } { inner~start } { outer~end } { inner~end } }
+ { 0 }
+ { inner~end }
+ { inner~start }
+ { -- ( \fp_use:c { l__wheelchart_inner~start_x_fp } , \fp_use:c { l__wheelchart_inner~start_y_fp } ) }
+ {
+ \fp_compare:nNnTF { \l__wheelchart_slices_arc_A_fp } > { 359.99 }
+ { \fp_set:Nn \l__wheelchart_slices_arc_A_fp { 1 } }
+ { \fp_set:Nn \l__wheelchart_slices_arc_A_fp { tand ( 45 - \l__wheelchart_slices_arc_A_fp / 4 ) } }
+ }
+ }
+ } ,
+ slices~inner~arc~tangent / true /. value~forbidden ,
+ slices~inner~arc~tangent /. initial = false ,
+ slices~inner~arc~tangent /. default = true ,
+ slices~inner~arrow /. code~2~args =
+ {
+ \tl_set:Nn \l__wheelchart_slices_inner_tl
+ {
+ \__wheelchart_slices_arrow:nnnnn
+ {#1}
+ {#2}
+ { inner~end }
+ { inner~start }
+ { -- ( \fp_use:c { l__wheelchart_inner~start_x_fp } , \fp_use:c { l__wheelchart_inner~start_y_fp } ) }
+ }
+ } ,
+ slices~inner~end~angle~shift /. initial = 0 ,
+ slices~inner~start~angle~shift /. initial = 0 ,
+ slices~inner~to /. code~2~args =
+ {
+ \tl_set:Nn \l__wheelchart_slices_inner_tl
+ {
+ \__wheelchart_slices_to:nn {#2} {#1}
+ ( \fp_use:c { l__wheelchart_inner~start_x_fp } , \fp_use:c { l__wheelchart_inner~start_y_fp } )
+ }
+ } ,
+ slices~outer~angle~reduce /. style =
+ {
+ slices~outer~end~angle~shift = { - (#1) } ,
+ slices~outer~start~angle~shift = {#1}
+ } ,
+ slices~outer~angle~shift /. style =
+ {
+ slices~outer~end~angle~shift = {#1} ,
+ slices~outer~start~angle~shift = {#1}
+ } ,
+ slices~outer~arc /. code~2~args =
+ {
+ \tl_set:Nn \l__wheelchart_slices_outer_tl
+ {
+ \__wheelchart_slices_arc:nnnnnn
+ {#1}
+ {#2}
+ { outer~start }
+ { outer~end }
+ { -- ( \fp_use:c { l__wheelchart_outer~end_x_fp } , \fp_use:c { l__wheelchart_outer~end_y_fp } ) }
+ {}
+ }
+ } ,
+ slices~outer~arc~tangent /. is~choice ,
+ slices~outer~arc~tangent / false /. code = {} ,
+ slices~outer~arc~tangent / false /. value~forbidden ,
+ slices~outer~arc~tangent / true /. code =
+ {
+ \tl_set:Nn \l__wheelchart_slices_outer_tl
+ {
+ \__wheelchart_slices_arc:nnnnnn
+ { \__wheelchart_diff_atan:nnnn { outer~start } { inner~start } { outer~end } { inner~end } }
+ { 0 }
+ { outer~start }
+ { outer~end }
+ { -- ( \fp_use:c { l__wheelchart_outer~end_x_fp } , \fp_use:c { l__wheelchart_outer~end_y_fp } ) }
+ {
+ \fp_compare:nNnTF { \l__wheelchart_slices_arc_A_fp } > { 359.99 }
+ { \fp_set:Nn \l__wheelchart_slices_arc_A_fp { 1 } }
+ {
+ \fp_compare:nNnTF { \l__wheelchart_slices_arc_A_fp } = { 180 }
+ { \fp_set:Nn \l__wheelchart_slices_arc_A_fp { 0 } }
+ { \fp_set:Nn \l__wheelchart_slices_arc_A_fp { cotd ( 45 - \l__wheelchart_slices_arc_A_fp / 4 ) } }
+ }
+ }
+ }
+ } ,
+ slices~outer~arc~tangent / true /. value~forbidden ,
+ slices~outer~arc~tangent /. initial = false ,
+ slices~outer~arc~tangent /. default = true ,
+ slices~outer~arrow /. code~2~args =
+ {
+ \tl_set:Nn \l__wheelchart_slices_outer_tl
+ {
+ \__wheelchart_slices_arrow:nnnnn
+ {#1}
+ {#2}
+ { outer~start }
+ { outer~end }
+ { -- ( \fp_use:c { l__wheelchart_outer~end_x_fp } , \fp_use:c { l__wheelchart_outer~end_y_fp } ) }
+ }
+ } ,
+ slices~outer~end~angle~shift /. initial = 0 ,
+ slices~outer~start~angle~shift /. initial = 0 ,
+ slices~outer~to /. code~2~args =
+ {
+ \tl_set:Nn \l__wheelchart_slices_outer_tl
+ {
+ \__wheelchart_slices_to:nn {#1} {#2}
+ ( \fp_use:c { l__wheelchart_outer~end_x_fp } , \fp_use:c { l__wheelchart_outer~end_y_fp } )
+ }
+ } ,
+ slices~pos /. initial = 0.5 ,
+ slices~scope /. style = { slices_scope /. style = {#1} } ,
+ slices_scope /. style = {} ,
+ slices~sep /. initial = 0 ,
+ slices~start~arc /. code~2~args =
+ {
+ \tl_set:Nn \l__wheelchart_slices_start_tl
+ {
+ \__wheelchart_slices_arc:nnnnnn
+ {#1}
+ {#2}
+ { inner~start }
+ { outer~start }
+ { -- cycle }
+ {}
+ }
+ } ,
+ slices~start~arrow/.code~2~args =
+ {
+ \tl_set:Nn \l__wheelchart_slices_start_tl
+ {
+ \__wheelchart_slices_arrow:nnnnn
+ {#1}
+ {#2}
+ { inner~start }
+ { outer~start }
+ { -- cycle }
+ }
+ } ,
+ slices~start~to /. code~2~args = { \tl_set:Nn \l__wheelchart_slices_start_tl { \__wheelchart_slices_to:nn {#1} {#2} cycle } } ,
+ slices~style /. style = { slices_style /. style = {#1} } ,
+ slices_style /. style = {} ,
+ slices~style = { \WCvarB } ,
+ slices~to /. style~2~args =
+ {
+ slices~end~to = {#1} {#2} ,
+ slices~start~to = { - (#1) } { - (#2) }
+ } ,
+ start~angle /. initial = 90 ,
+ start~half /. style =
+ {
+ start~angle =
+ {
+ (#1) -
+ \fp_eval:n
+ {
+ \l__wheelchart_counter_or_clockwise_fp * \fp_use:c { l__wheelchart_value_1_fp } * 0.5
+ * ( \l__wheelchart_total_angle_fp / \WCtotalnum )
+ }
+ }
+ } ,
+ start~half /. default = 90 ,
+ title /. initial= {} ,
+ title~left /. initial = {} ,
+ title~left~sep /. initial = 0.5 ,
+ title~left~style /. style = { title~left_style /. style = {#1} } ,
+ title~left_style /. style = {} ,
+ title~sep /. initial = 0.5 ,
+ title~style /. style = { title_style /. style = {#1} } ,
+ title_style /. style = {} ,
+ total~angle /. initial = 360 ,
+ total~count /. code =
+ {
+ \tl_set:Nn \l__wheelchart_type_tl { totalcount }
+ \__wheelchart_def_macro:Nn \l__wheelchart_total_count_fp {#1}
+ } ,
+ triangle~proportional~area /. style~2~args =
+ {
+ domain /. expanded = 0 \c_colon_str 1 ,
+ plot = { { (##2) * sqrt ( 1 - (##1) ) * (#1) / 2 } , { - sqrt ( 1 - (##1) ) * (#2) } } ,
+ radius = { -1 } { 1 } ,
+ samples = 2 ,
+ wheel~data~pos = 0.5
+ } ,
+ triangle~proportional~height /. style~2~args =
+ {
+ domain /. expanded = 0 \c_colon_str 1 ,
+ plot = { { (##2) * ( 1 - (##1) ) * (#1) / 2 } , { ( (##1) - 1 ) * (#2) } } ,
+ radius = { -1 } { 1 } ,
+ samples = 2 ,
+ wheel~data~pos = 0.5
+ } ,
+ value /. initial = { \WCvarA } ,
+ WC_list /. code~2~args =
+ {
+ \cs_set:cpn {#1}
+ { \use:e { \clist_item:nn {#2} { \int_mod:nn { \WCcount-1 } { \clist_count:n {#2} } + 1 } } }
+ %note the \use:e such that \WClist<name> also works when given as an argument to pgfmath
+ %if the list contains a macro, for example
+ %\begin{tikzpicture}
+ %\def\n{1}
+ %\wheelchart[
+ % value=\WClistA,
+ % WClistA={\n}
+ %]{\exampleforthismanual}
+ %\end{tikzpicture}
+ %https://tex.stackexchange.com/questions/671298/clist-item-and-pgfmathsetmacro-causing-an-error
+ } ,
+ wheel~data /. initial = {} ,
+ wheel~data~angle~pos /. initial = 0.5 ,
+ wheel~data~angle~shift /. initial = 0 ,
+ wheel~data~pos /. initial = 0.66 ,
+ wheel~data~sep /. initial = 0 ,
+ wheel~data~style /. style = { wheel_data_style /. style = {#1} } ,
+ wheel_data_style /. style = {} ,
+ wheel~lines /. style =
+ {
+ bool_set_true = \l__wheelchart_wheel_lines_bool ,
+ wheel_lines /. style = {#1}
+ } ,
+ wheel_lines /. style = {} ,
+ xbar /. style~2~args =
+ {
+ domain /. expanded = 0 \c_colon_str {#1} ,
+ plot = { {##1} , {##2} } ,
+ radius = { 0 } {#2} ,
+ samples = 2 ,
+ wheel~data~pos = 0.5
+ } ,
+ ybar /. style~2~args =
+ {
+ domain /. expanded = 0 \c_colon_str {#2} ,
+ plot = { {##2} , {##1} } ,
+ radius = { 0 } {#1} ,
+ samples = 2 ,
+ wheel~data~pos = 0.5
+ } ,
+ }
+
+\pgfkeys
+ {
+ / wheelchart /. unknown /. code =
+ {
+ \tl_set:Ne \l__wheelchart_key_name_tl { \pgfkeyscurrentname }%it is necessary to define \l__wheelchart_key_name_tl
+ %because \pgfkeyscurrentname will be overwritten by / errors / unknown~key /. expanded
+ \regex_match:nVTF { \{(.+)\} } \l__wheelchart_key_name_tl
+ {
+ \tl_set:Ne \l__wheelchart_key_range_tl { \pgfkeyscurrentname }
+ \regex_replace_all:nnN { \{(.+)\} } {} \l__wheelchart_key_name_tl
+ \regex_replace_all:nnN { [\w\s]+\{(.+)\} } { \1 } \l__wheelchart_key_range_tl
+ \str_if_eq:eeTF { \l__wheelchart_key_range_tl } { list }
+ {
+ \pgfkeys { / wheelchart , WC_list = { l__wheelchart_list_\l__wheelchart_key_name_tl } {#1} }
+ \pgfkeys
+ {
+ / wheelchart ,
+ \l__wheelchart_key_name_tl /. expand~once = { \cs:w l__wheelchart_list_\l__wheelchart_key_name_tl\cs_end: }
+ }
+ }
+ {
+ \clist_gclear:N \g__wheelchart_slice_range_for_loop_clist
+ \foreach \l__wheelchart_slice_range_index_int [ parse = true ] in \l__wheelchart_key_range_tl
+ {
+ \clist_gput_right:Ne \g__wheelchart_slice_range_for_loop_clist
+ { \fp_eval:n { \l__wheelchart_slice_range_index_int } }
+ }
+ \clist_map_inline:Nn \g__wheelchart_slice_range_for_loop_clist
+ {
+ \clist_put_right:Nn \l__wheelchart_slice_range_local_clist {##1}
+ \clist_if_exist:cF { l__wheelchart_slice_##1_keys_clist }
+ { \clist_new:c { l__wheelchart_slice_##1_keys_clist } }
+ \str_if_eq:eeTF { \l__wheelchart_key_name_tl } { slice }
+ { \clist_put_right:cn { l__wheelchart_slice_##1_keys_clist } {#1} }
+ {
+ \clist_put_right:ce { l__wheelchart_slice_##1_keys_clist }
+ { \exp_not:V \l__wheelchart_key_name_tl \exp_not:n { = {#1} } }
+ }
+ }
+ }
+ }
+ {
+ \str_if_eq:eeTF { \str_range:Nnn \l__wheelchart_key_name_tl { 1 } { 6 } } { WClist }
+ { \pgfkeys { / wheelchart , WC_list = { \l__wheelchart_key_name_tl } {#1} } }
+ { \pgfkeys { / errors / unknown~key /. expanded = { \l__wheelchart_key_name_tl } {#1} } }
+ }
+ }
+ }%this gives an error message if a key of the form <unknown key for wheelchart>{<range>} is given
+
+%%> \subsection{The command \textbackslash wheelchart}
+
+\NewDocumentCommand { \wheelchart } { O{} m }
+ {
+ {%note the double {{...}} such that the contents is in a group and such that & can be used in pgfmath in a tabular
+ \pgfkeys { / wheelchart , #1 }
+ \@ifpackageloaded { siunitx }
+ { \cs_set:Npn \WCperc { \qty { \WCpercentagerounded } { \percent } } }
+ { \cs_set:Npn \WCperc { \WCpercentagerounded \, \% } }%the definition of \WCperc is placed inside the command \wheelchart
+ %such that \WCperc is not defined outside this command
+ \bool_if:NTF \l__wheelchart_legend_only_bool
+ {
+ \__wheelchart_initial:n {#2}
+ \bool_if:NT \l__wheelchart_legend_row_bool
+ { \__wheelchart_def_WClegend: }
+ \pgfkeysvalueof { / wheelchart / legend }
+ }
+ {
+ \fp_set:Nn \l__wheelchart_coord_determinant_fp { \pgf at yy * \pgf at xx - \pgf at yx * \pgf at xy }
+ \begin { scope } [ shift /. expanded = { \pgfkeysvalueof { / wheelchart / at } } ]
+ \begin { scope } [ local~bounding~box /. expanded = \g__wheelchart_name_tl ]
+ \__wheelchart_def_macros:n { total~angle }
+ \__wheelchart_initial:n {#2}
+ \__wheelchart_def_macros:n { start~angle }
+ \bool_if:NF \l__wheelchart_plot_bool
+ {
+ \bool_set_false:N \l__wheelchart_def_inner_contour_bool
+ \bool_if:NTF \l__wheelchart_contour_bool
+ {
+ \bool_set_true:N \l__wheelchart_def_inner_contour_bool
+ \tl_build_gbegin:N \g__wheelchart_outer_contour_tl
+ \__wheelchart_for_loop:n
+ {
+ \tl_build_gput_left:Ne \g__wheelchart_outer_contour_tl
+ {
+ ( \fp_use:N \g__wheelchart_new_angle_fp \c_colon_str \fp_use:N \l__wheelchart_outer_radius_fp )
+ arc
+ [
+ start~angle = \fp_use:N \g__wheelchart_new_angle_fp ,
+ end~angle = \fp_use:N \g__wheelchart_angle_fp ,
+ radius = \fp_use:N \l__wheelchart_outer_radius_fp
+ ]
+ --
+ }
+ }
+ \tl_build_gend:N \g__wheelchart_outer_contour_tl
+ }
+ {
+ \bool_if:NT \l__wheelchart_middle_fill_bool
+ { \bool_set_true:N \l__wheelchart_def_inner_contour_bool }
+ }
+ \bool_if:NT \l__wheelchart_def_inner_contour_bool
+ {
+ \tl_build_gbegin:N \g__wheelchart_inner_contour_tl
+ \__wheelchart_for_loop:n
+ {
+ \tl_build_gput_right:Ne \g__wheelchart_inner_contour_tl
+ {
+ ( \fp_use:N \g__wheelchart_angle_fp \c_colon_str \fp_use:N \l__wheelchart_inner_radius_fp )
+ arc
+ [
+ start~angle = \fp_use:N \g__wheelchart_angle_fp ,
+ end~angle = \fp_use:N \g__wheelchart_new_angle_fp ,
+ radius = \fp_use:N \l__wheelchart_inner_radius_fp
+ ]
+ --
+ }
+ }
+ \tl_build_gend:N \g__wheelchart_inner_contour_tl
+ }
+ \bool_if:NT \l__wheelchart_middle_fill_bool
+ {
+ \fill [ / wheelchart / middle_fill ]
+ \fp_compare:nNnF { \l__wheelchart_total_angle_fp } = { 360 }
+ { ( 0 , 0 ) -- }
+ \g__wheelchart_inner_contour_tl cycle ;
+ }
+ }
+ \bool_if:NTF \l__wheelchart_discrete_bool
+ { \__wheelchart_discrete_algorithm: }
+ {
+ \__wheelchart_for_loop:n
+ {
+ \int_compare:nNnT { \WCcount } = { 1 }
+ {
+ %determine the orientation, this is necessary even if no plot is used, for example if
+ %inner radius > outer radius then \g__wheelchart_slices_orientation_fp is different from
+ %\l__wheelchart_counter_or_clockwise_fp
+ \fp_set:Nn \l__wheelchart_slices_orientation_new_angle_fp
+ {
+ \g__wheelchart_angle_fp +
+ (
+ \g__wheelchart_new_angle_fp == \g__wheelchart_angle_fp
+ ?
+ \l__wheelchart_counter_or_clockwise_fp * \l__wheelchart_total_angle_fp
+ :
+ \g__wheelchart_new_angle_fp - \g__wheelchart_angle_fp
+ )
+ / \l__wheelchart_samples_fp
+ }
+ \path let
+ \p { l__wheelchart_slices_orientation_1 } =
+ (
+ \__wheelchart_outer_plot:nn
+ { \fp_use:N \g__wheelchart_angle_fp }
+ { \fp_use:N \l__wheelchart_outer_radius_fp }
+ ) ,
+ \p { l__wheelchart_slices_orientation_2 } =
+ (
+ \__wheelchart_outer_plot:nn
+ { \fp_use:N \l__wheelchart_slices_orientation_new_angle_fp }
+ { \fp_use:N \l__wheelchart_outer_radius_fp }
+ ) ,
+ \p { l__wheelchart_slices_orientation_3 } =
+ (
+ \__wheelchart_inner_plot:nn
+ { \fp_use:N \l__wheelchart_slices_orientation_new_angle_fp }
+ { \fp_use:N \l__wheelchart_inner_radius_fp }
+ ) ,
+ \p { l__wheelchart_slices_orientation_4 } =
+ (
+ \__wheelchart_inner_plot:nn
+ { \fp_use:N \g__wheelchart_angle_fp }
+ { \fp_use:N \l__wheelchart_inner_radius_fp }
+ )
+ in
+ [
+ / utils / exec =
+ {
+ \fp_gset:Nn \g__wheelchart_slices_orientation_fp
+ {
+ sign
+ (
+ 0.1 * \y { l__wheelchart_slices_orientation_1 }
+ * ( \x { l__wheelchart_slices_orientation_4 } - \x { l__wheelchart_slices_orientation_2 } )
+ + 0.1 * \y { l__wheelchart_slices_orientation_2 }
+ * ( \x { l__wheelchart_slices_orientation_1 } - \x { l__wheelchart_slices_orientation_3 } )
+ + 0.1 * \y { l__wheelchart_slices_orientation_3 }
+ * ( \x { l__wheelchart_slices_orientation_2 } - \x { l__wheelchart_slices_orientation_4 } )
+ + 0.1 * \y { l__wheelchart_slices_orientation_4 }
+ * ( \x { l__wheelchart_slices_orientation_3 } - \x { l__wheelchart_slices_orientation_1 } )
+ )
+ * sign ( \l__wheelchart_coord_determinant_fp )
+ }
+ }
+ ]
+ ;%the terms are multiplied with 0.1 to try to avoid an overflow
+ \fp_compare:nNnT { \g__wheelchart_slices_orientation_fp } = { 0 }
+ { \fp_gset_eq:NN \g__wheelchart_slices_orientation_fp \l__wheelchart_counter_or_clockwise_fp }
+ }
+ \pgfkeysvalueof { / wheelchart / before~slices }
+ \bool_if:NTF \l__wheelchart_slices_bool
+ {
+ \__wheelchart_def_macros:n { slices~angle~pos , slices~angle~shift , slices~pos , slices~sep }
+ \__wheelchart_def_angle:nnnN
+ { \l__wheelchart_slices_angle_pos_fp }
+ { \l__wheelchart_slices_angle_shift_fp }
+ { \l__wheelchart_slices_sep_fp }
+ \l__wheelchart_slices_angle_fp
+ \begin { scope }
+ [
+ shift /. expanded =
+ {
+ \__wheelchart_convex_comb_coord:nnnn
+ { \l__wheelchart_slices_angle_pos_fp }
+ { \l__wheelchart_slices_angle_shift_fp }
+ { \l__wheelchart_slices_pos_fp }
+ { \l__wheelchart_slices_sep_fp }
+ } ,
+ rotate = \l__wheelchart_slices_angle_fp
+ ]
+ \fill [ / wheelchart / slices_style ] \l__wheelchart_slices_tl
+ \end { scope }
+ }
+ {
+ %Below we define x and y coordinates of the 4 points of the slice.
+ %We do not use the let operation in the path \fill[/wheelchart/slices_style] ... because then
+ %\n, \p, \x and \y can not be used as macro names inside the argument of a key which is applied
+ %on this path such as the key slices inner arc.
+ %First it is necessary to define \g__wheelchart_x_coord_fp and \g__wheelchart_y_coord_fp globally. Then we
+ %define local macros taking these values with an expanded definition. These are defined locally such that
+ %these macros do not interfere with values of another wheelchart, for example if wheelcharts would be nested.
+ %We do not use a \coordinate definition because this would be global which is not suited as explained above.
+ \__wheelchart_def_coord:nn { inner } { end }
+ \__wheelchart_def_coord:nn { inner } { start }
+ \__wheelchart_def_coord:nn { outer } { end }
+ \__wheelchart_def_coord:nn { outer } { start }
+ \fill [ / wheelchart / slices_style ]
+ ( \fp_use:c { l__wheelchart_outer~start_x_fp } , \fp_use:c { l__wheelchart_outer~start_y_fp } )
+ \l__wheelchart_slices_outer_tl
+ \l__wheelchart_slices_end_tl
+ \l__wheelchart_slices_inner_tl
+ \l__wheelchart_slices_start_tl
+ ;
+ }
+ \pgfkeysvalueof { / wheelchart / after~slices }
+ }
+ }
+ \__wheelchart_for_loop:n
+ {
+ \bool_if:NT \l__wheelchart_wheel_lines_bool
+ %this is placed inside \__wheelchart_for_loop:n such that wheel lines can be applied for specific slices
+ {
+ \int_step_inline:nnn { 0 } { \fp_eval:n { round ( \l__wheelchart_value_fp ) } }
+ %note the \fp_eval:n { round ( ... ) } to avoid the messages Missing character: There is no ... in font nullfont!
+ {
+ \fp_set:Nn \l__wheelchart_angle_wheel_lines_fp
+ {
+ \g__wheelchart_angle_fp
+ + ( \l__wheelchart_counter_or_clockwise_fp * (####1) * ( \l__wheelchart_total_angle_fp / \WCtotalnum ) )
+ }
+ \draw [ / wheelchart / wheel_lines ]
+ (
+ \__wheelchart_inner_plot:nn
+ { \fp_use:N \l__wheelchart_angle_wheel_lines_fp }
+ { \fp_use:N \l__wheelchart_inner_radius_fp }
+ )
+ --
+ (
+ \__wheelchart_outer_plot:nn
+ { \fp_use:N \l__wheelchart_angle_wheel_lines_fp }
+ { \fp_use:N \l__wheelchart_outer_radius_fp }
+ )
+ ;
+ }
+ }
+ }
+ \bool_if:NF \l__wheelchart_plot_bool
+ {
+ \bool_if:NT \l__wheelchart_contour_bool
+ {
+ \fp_compare:nNnTF { \l__wheelchart_total_angle_fp } = { 360 }
+ {
+ \draw [ / wheelchart / contour_style ] \g__wheelchart_inner_contour_tl cycle ;
+ \draw [ / wheelchart / contour_style ] \g__wheelchart_outer_contour_tl cycle ;
+ }
+ {
+ \draw [ / wheelchart / contour_style ] \g__wheelchart_inner_contour_tl \g__wheelchart_outer_contour_tl cycle ;
+ }
+ }
+ }
+ \__wheelchart_for_loop:n
+ {
+ \__wheelchart_def_macros:n
+ { data~pos , lines , lines~angle~pos , lines~angle~shift , lines~ext , lines~pos , lines~sep }
+ \fp_compare:nNnF { \l__wheelchart_lines_ext_fp } = { 0 }
+ {
+ \bool_if:NF \l__wheelchart_lines_ext_dir_bool
+ {
+ \__wheelchart_def_macros:n { lines~ext~dirsep }
+ \int_set:Nn \l__wheelchart_lines_ext_dir_int
+ {
+ \fp_eval:n
+ {
+ (
+ \WCdataangle < 90 - \l__wheelchart_lines_ext_dirsep_fp
+ ?
+ 1
+ :
+ (
+ \WCdataangle <= 90 + \l__wheelchart_lines_ext_dirsep_fp
+ ?
+ \l__wheelchart_lines_ext_top_dir_int
+ :
+ (
+ \WCdataangle < 270 - \l__wheelchart_lines_ext_dirsep_fp
+ ?
+ -1
+ :
+ (
+ \WCdataangle <= 270 + \l__wheelchart_lines_ext_dirsep_fp
+ ?
+ \l__wheelchart_lines_ext_bottom_dir_int
+ :
+ 1
+ )
+ )
+ )
+ )
+ }
+ }
+ }
+ \__wheelchart_def_macros:n { lines~ext~fixed~left , lines~ext~fixed~right }
+ }
+ \fp_compare:nF { \l__wheelchart_lines_fp == 0 && \l__wheelchart_lines_ext_fp == 0 }
+ {
+ \draw [ / wheelchart / lines_style ] let \p { l__wheelchart_lines_1 } =
+ \__wheelchart_convex_comb_coord:nnnn
+ { \l__wheelchart_data_angle_pos_fp }
+ { \l__wheelchart_data_angle_shift_fp }
+ { \l__wheelchart_data_pos_fp }
+ { \l__wheelchart_lines_sep_fp + \l__wheelchart_lines_fp }
+ in
+ \__wheelchart_convex_comb_coord:nnnn
+ { \l__wheelchart_lines_angle_pos_fp }
+ { \l__wheelchart_lines_angle_shift_fp }
+ { \l__wheelchart_lines_pos_fp }
+ { \l__wheelchart_lines_sep_fp }
+ -- ( \p { l__wheelchart_lines_1 } )
+ \fp_compare:nNnF { \l__wheelchart_lines_ext_fp } = { 0 }
+ {
+ \str_case:enF { \pgfkeysvalueof { / wheelchart / lines~ext~fixed } }
+ {
+ { true }
+ {
+ --
+ (
+ {
+ \fp_eval:n
+ {
+ \l__wheelchart_lines_ext_dir_int == 1
+ ?
+ \l__wheelchart_lines_ext_fixed_right_fp
+ :
+ \l__wheelchart_lines_ext_fixed_left_fp
+ }
+ }
+ ,
+ \y { l__wheelchart_lines_1 }
+ )
+ }
+ { false }
+ { --++ ( { \fp_eval:n { \l__wheelchart_lines_ext_dir_int * \l__wheelchart_lines_ext_fp } } , 0 ) }
+ }
+ {
+ \pgfkeys
+ {
+ / errors / boolean~expected /. expanded =
+ { lines~ext~fixed }
+ { \pgfkeysvalueof { / wheelchart / lines~ext~fixed } }
+ }
+ }
+ coordinate
+ [ shift = { ( { \fp_eval:n { \l__wheelchart_lines_ext_dir_int * \l__wheelchart_data_sep_fp } } , 0 ) } ]
+ ( g__wheelchart_data_coordinate )
+ }
+ ;
+ }
+ \__wheelchart_if_text:nn { data }
+ {
+ \fp_compare:nNnTF { \l__wheelchart_lines_ext_fp } = { 0 }
+ {
+ \__wheelchart_def_macros:n { anchor~xsep , anchor~ysep }
+ \pgfmathparse
+ {
+ ( \WCdataangle == 0 ? "west" \c_colon_str
+ ( \WCdataangle == 90 ? "south" \c_colon_str
+ ( \WCdataangle == 180 ? "east" \c_colon_str
+ ( \WCdataangle == 270 ? "north" \c_colon_str
+ ( \WCdataangle <= \fp_use:N \l__wheelchart_anchor_ysep_fp ? "west" \c_colon_str
+ ( \WCdataangle < 90 - \fp_use:N \l__wheelchart_anchor_xsep_fp ? "south~west" \c_colon_str
+ ( \WCdataangle <= 90 + \fp_use:N \l__wheelchart_anchor_xsep_fp ? "south" \c_colon_str
+ ( \WCdataangle < 180 - \fp_use:N \l__wheelchart_anchor_ysep_fp ? "south~east" \c_colon_str
+ ( \WCdataangle <= 180 + \fp_use:N \l__wheelchart_anchor_ysep_fp ? "east" \c_colon_str
+ ( \WCdataangle < 270 - \fp_use:N \l__wheelchart_anchor_xsep_fp ? "north~east" \c_colon_str
+ ( \WCdataangle <= 270 + \fp_use:N \l__wheelchart_anchor_xsep_fp ? "north" \c_colon_str
+ ( \WCdataangle < 360 - \fp_use:N \l__wheelchart_anchor_ysep_fp ? "north~west" \c_colon_str
+ "west"
+ ))))))))))))
+ }
+ \tl_set:Ne \l__wheelchart_data_anchor_tl { \pgfmathresult }
+ \coordinate
+ [
+ at =
+ \__wheelchart_convex_comb_coord:nnnn
+ { \l__wheelchart_data_angle_pos_fp }
+ { \l__wheelchart_data_angle_shift_fp }
+ { \l__wheelchart_data_pos_fp }
+ {
+ \l__wheelchart_data_sep_fp +
+ (
+ \l__wheelchart_lines_fp == 0
+ ?
+ 0
+ :
+ \l__wheelchart_lines_sep_fp + \l__wheelchart_lines_fp
+ )
+ }
+ ]
+ ( g__wheelchart_data_coordinate ) ;
+ }
+ {
+ \pgfmathparse { \int_use:N \l__wheelchart_lines_ext_dir_int == 1 ? "right" \c_colon_str "left" }
+ \tl_set:Ne \l__wheelchart_data_anchor_tl
+ { \pgfkeysvalueof { / wheelchart / lines~ext~\pgfmathresult \c_space_tl anchor } }
+ }
+ \node [ anchor = \l__wheelchart_data_anchor_tl , align = left , / wheelchart / data_style ]
+ at ( g__wheelchart_data_coordinate )
+ { \pgfkeysvalueof { / wheelchart / data } } ;%a separate \node and not at the end of the \draw with lines_style
+ %such that the key lines style is not passed to this \node
+ }
+ \__wheelchart_def_macros:n { arc~data~angle~pos , arc~data~dir }%these are needed for arc data and arc
+ \pgfinterruptpicture%
+ \fp_gset:Nn \g__wheelchart_half_ex_over_one_cm_fp { 0.5 ex / 1 cm }%
+ \endpgfinterruptpicture%
+ \fp_gset:Nn \g__wheelchart_arc_data_factor_fp { 0 }
+ \__wheelchart_if_text:nn { arc~data }
+ {
+ \__wheelchart_def_macros:n { arc~data~angle~shift , arc~data~pos , arc~data~sep }
+ \hbox_set:Nn \l__wheelchart_arc_data_box
+ { \pgfinterruptpicture { \pgfkeysvalueof { / wheelchart / arc~data } } \endpgfinterruptpicture }
+ \fp_gset:Nn \g__wheelchart_arc_data_slice_length_fp { 1 }%this is necessary if the value is 0
+ \__wheelchart_convex_comb_coord_plot:nnnnnnn
+ {
+ overlay ,
+ decorate ,
+ decoration =
+ {
+ text~along~path ,
+ text = { {} { \fp_gset:Nn \g__wheelchart_arc_data_slice_length_fp { \pgfdecoratedpathlength } } } ,
+ raise = -0.5 ex ,
+ text~align = \l__wheelchart_arc_data_align_tl ,
+ / wheelchart / arc_data_style
+ }
+ }%get the length of the path
+ %note the option overlay such that this does not increase the bounding box
+ %note the {} at the start of text and the braces around \fp_gset:Nn ... such that the compilation does not stall
+ { 0 }
+ { 1 }
+ { \l__wheelchart_plot_variable_fp }
+ { 0 }
+ { \l__wheelchart_arc_data_pos_fp }
+ { \l__wheelchart_arc_data_sep_fp }
+ \__wheelchart_convex_comb_coord_plot:nnnnnnn
+ {
+ decorate ,
+ decoration =
+ {
+ text~along~path ,
+ text =
+ {
+ { { \fp_gset:Nn \g__wheelchart_arc_data_factor_fp { \the \pgfdecoratedcompleteddistance } } }
+ \pgfkeysvalueof { / wheelchart / arc~data }
+ {
+ {
+ \fp_gset:Nn \g__wheelchart_arc_data_factor_fp
+ {
+ ( \the \pgfdecoratedcompleteddistance - \g__wheelchart_arc_data_factor_fp )
+ / \g__wheelchart_arc_data_slice_length_fp
+ }
+ }
+ }
+ } ,
+ raise = -0.5 ex ,
+ text~align = \l__wheelchart_arc_data_align_tl ,
+ / wheelchart / arc_data_style
+ }
+ }%note the double braces around \fp_gset:Nn ... so that for example arc data=text {\qty{5}{\percent}} is allowed
+ %note that \def\mytext{}\path[decorate,decoration={text along path,text={\mytext}}] (0,0)--(1,1);
+ %gives the message Missing character: There is no ... in font nullfont!, then
+ %text={\pgfkeysvalueof { / wheelchart / arc~data }{}} can be used if the \fp_gset:Nn ... would not be present
+ { \fp_use:c { c__wheelchart_arc_data_start_factor_\l__wheelchart_arc_data_align_tl _fp } }
+ { \fp_use:c { c__wheelchart_arc_data_end_factor_\l__wheelchart_arc_data_align_tl _fp } }
+ {
+ \l__wheelchart_plot_variable_fp * \l__wheelchart_arc_data_dir_fp * 1.1
+ * ( \dim_to_fp:n { \box_wd:N \l__wheelchart_arc_data_box } / \g__wheelchart_arc_data_slice_length_fp )
+ + \l__wheelchart_arc_data_angle_pos_fp
+ }
+ { \l__wheelchart_arc_data_angle_shift_fp }
+ { \l__wheelchart_arc_data_pos_fp }
+ { \l__wheelchart_arc_data_sep_fp }
+ \fp_compare:nNnT { \g__wheelchart_arc_data_factor_fp } < { 0 }
+ {
+ \PackageWarning { wheelchart }
+ {
+ The~arc~data~in~slice~\WCcount \c_space_tl did~(possibly)~not~fit.~
+ Increase~the~absolute~value~of~arc~data~dir.
+ }%refer to \WCcount and not to \pgfkeysvalueof { / wheelchart / arc~data }
+ %because the latter is not necessarily unique
+ }
+ }
+ \bool_if:NT \l__wheelchart_arc_bool
+ {
+ \__wheelchart_def_macros:n { arc~pos , arc~sep }
+ \str_case:enF { \pgfkeysvalueof { / wheelchart / arc~around~text } }
+ {
+ { true }
+ {
+ \__wheelchart_arc_around_text:nnn { first } { -1 } { 0 }
+ \__wheelchart_arc_around_text:nnn { second } { 1 } { 1 }
+ }
+ { false }
+ {
+ \__wheelchart_convex_comb_coord_plot:nnnnnnn
+ { draw , / wheelchart / arc_style }
+ { 0 }
+ { 1 }
+ { \l__wheelchart_plot_variable_fp }
+ { 0 }
+ { \l__wheelchart_arc_pos_fp }
+ { \l__wheelchart_arc_sep_fp }
+ }
+ }
+ {
+ \pgfkeys
+ {
+ / errors / boolean~expected /. expanded =
+ { arc~around~text }
+ { \pgfkeysvalueof { / wheelchart / arc~around~text } }
+ }
+ }
+ }
+ \__wheelchart_if_text:nn { inner~data }
+ {
+ \__wheelchart_def_macros:n { inner~data~angle~pos , inner~data~angle~shift , inner~data~pos , inner~data~sep }
+ \node [ align = left , / wheelchart / inner_data_style ] at
+ \__wheelchart_convex_comb_coord:nnnn
+ { \l__wheelchart_inner_data_angle_pos_fp }
+ { \l__wheelchart_inner_data_angle_shift_fp }
+ { \l__wheelchart_inner_data_pos_fp }
+ { \l__wheelchart_inner_data_sep_fp }
+ { \pgfkeysvalueof { / wheelchart / inner~data } } ;
+ }
+ \__wheelchart_if_text:nn { wheel~data }
+ {
+ \__wheelchart_def_macros:n { wheel~data~angle~pos , wheel~data~angle~shift , wheel~data~pos , wheel~data~sep }
+ \node [ align = left , / wheelchart / wheel_data_style ] at
+ \__wheelchart_convex_comb_coord:nnnn
+ { \l__wheelchart_wheel_data_angle_pos_fp }
+ { \l__wheelchart_wheel_data_angle_shift_fp }
+ { \l__wheelchart_wheel_data_pos_fp }
+ { \l__wheelchart_wheel_data_sep_fp }
+ { \pgfkeysvalueof { / wheelchart / wheel~data } } ;
+ }
+ \pgfkeysvalueof { / wheelchart / legend~entry }
+ }
+ \bool_if:NT \l__wheelchart_legend_row_bool
+ { \__wheelchart_def_WClegend: }
+ \__wheelchart_if_text:nn { middle }
+ { \node [ align = center , / wheelchart / middle_style ] at ( 0 , 0 ) { \pgfkeysvalueof { / wheelchart / middle } } ; }
+ \pgfkeysvalueof { / wheelchart / legend }
+ \end { scope }
+ \__wheelchart_caption_and_title:nnnnn
+ { caption~left } { north~west } { left } { \g__wheelchart_name_tl .south~west } { -1 }
+ \__wheelchart_caption_and_title:nnnnn
+ { caption } { north } { center } { \g__wheelchart_name_tl .south -| 0 , 0 } { -1 }
+ \__wheelchart_caption_and_title:nnnnn
+ { title~left } { south~west } { left } { \g__wheelchart_name_tl .north~west } { 1 }
+ \__wheelchart_caption_and_title:nnnnn
+ { title } { south } { center } { \g__wheelchart_name_tl .north -| 0 , 0 } { 1 }
+ \end { scope }
+ }
+ }
+ }
\ No newline at end of file
More information about the tex-live-commits
mailing list.