summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-05-04 22:26:13 +0000
committerKarl Berry <karl@freefriends.org>2021-05-04 22:26:13 +0000
commit91807c5514100ebba5c8825abdc9d92bcf13d2ee (patch)
tree8e05a272b3fbe882cc5df673d6b03ee3b38e272b /Master/texmf-dist/tex/latex
parent150981845a50d39a6af3c306ba61c88201c68460 (diff)
pgf-pie (5may21)
git-svn-id: svn://tug.org/texlive/trunk@59075 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex')
-rw-r--r--Master/texmf-dist/tex/latex/pgf-pie/pgf-pie.sty450
-rw-r--r--Master/texmf-dist/tex/latex/pgf-pie/tikzlibrarypie.code.tex465
2 files changed, 468 insertions, 447 deletions
diff --git a/Master/texmf-dist/tex/latex/pgf-pie/pgf-pie.sty b/Master/texmf-dist/tex/latex/pgf-pie/pgf-pie.sty
index 0aaa3a0b54d..b717b076a1e 100644
--- a/Master/texmf-dist/tex/latex/pgf-pie/pgf-pie.sty
+++ b/Master/texmf-dist/tex/latex/pgf-pie/pgf-pie.sty
@@ -1,450 +1,6 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Start of pgf-pie.sty
-%
-% Some LaTeX macros for pie chart by using PGF/Tikz package.
-% Home page of project: http://pgf-pie.googlecode.com/
-% Author: Xu Yuan <xuyuan.cn@gmail.com>
-%
-
+% SPDX-License-Identifier: GPL-2.0-only OR LPPL-1.3c
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
-\ProvidesPackage{pgf-pie}[2020/05/27 v0.3 Some LaTeX macros for pie
+\ProvidesPackage{pgf-pie}[2021/05/03 v0.5 Some LaTeX macros for pie
chart by using PGF/Tikz package.]
-
\RequirePackage{tikz}
-\RequirePackage{ifthen}
-\RequirePackage{scalefnt}
-
-
-% args:
-% #1: begin angle
-% #2: end angle
-% #3: number
-% #4: label
-% #5: explode
-% #6: fill color
-% #7: radius
-% #8: center
-\newcommand{\pgfpie@slice}[8]{
- \pgfmathparse{0.5*(#1)+0.5*(#2)}
- \let\midangle\pgfmathresult
-
- \path (#8) -- ++(\midangle:#5) coordinate(O);
-
- \pgfmathparse{#7+#5}
- \let\pgfpie@radius\pgfmathresult
-
- % slice
- \draw[line join=round, fill=#6, \pgfpie@style] (O) -- ++(#1:#7) arc (#1:#2:#7) -- cycle;
-
- \pgfmathparse{min(((#2)-(#1)-10)/110*(-0.3),0)}
- \let\temp\pgfmathresult
- \pgfmathparse{(max(\temp,-0.5) + 0.8)*#7}
- \let\innerpos\pgfmathresult
-
- \ifthenelse{\equal{\pgfpie@text}{inside}}
- {
- % label and number together
- \path (O) -- ++(\midangle:\innerpos) node
- {\scalefont{#3}\shortstack{#4\\\pgfpie@numbertext{#3}}};
- }
- {
- % label
- \iflegend
- \else
- \path (O) -- ++ (\midangle:\pgfpie@radius)
- node[inner sep=0, \pgfpie@text=\midangle:#4]{};
- \fi
-
- % number
- \path (O) -- ++(\midangle:\innerpos) node
- {\scalefont{#3}\pgfpie@numbertext{#3}};
- }
-}
-
-\newcommand{\pgfpie@findColor}[1]
-{
- \pgfmathparse{int(mod(#1,\value{pgfpie@colorLength}))}
- \let\ci\pgfmathresult
- \foreach \c [count=\j from 0] in \pgfpie@color {
- \ifnum \j=\ci
- \xdef\thecolor{\c}
- \thecolor
- \breakforeach
- \fi
- }
-}
-
-\newcommand{\pgfpie@findExplode}[1]
-{
- \pgfmathparse{int(mod(#1,\value{pgfpie@explodeLength}))}
- \let\ei\pgfmathresult
- \foreach \e [count=\j from 0] in \pgfpie@explode {
- \ifnum \j=\ei
- \xdef\theexplode{\e}
- \breakforeach
- \fi
- }
-}
-
-% #1: bottom left point
-% #2: size
-% #3: number
-% #4: color
-% #5: text
-\newcommand{\pgfpie@square}[5]
-{
- \ifthenelse{\equal{\pgfpie@text}{inside}}
- {
- \draw[fill=#4, \pgfpie@style] (#1) rectangle node
- {\scalefont{#3}\shortstack{#5\\\pgfpie@numbertext{#3}}} ++(#2);
- }
- {
- \draw[fill=#4, \pgfpie@style] (#1) rectangle node
- {\scalefont{#3}\pgfpie@numbertext{#3}} ++(#2);
- }
-}
-
-% #1: pos
-% #2: radius
-% #3: number
-% #4: color
-% $5: style
-% $6: label
-\newcommand{\pgfpie@cloud}[6]
-{
- \draw[fill=#4, #5] (#1) circle[radius=#2];
- \ifthenelse{\equal{\pgfpie@text}{inside}}
- {
- \node at (#1) {\scalefont{#3}\shortstack{#6\\\pgfpie@numbertext{#3}}};
- }
- {
- \node at (#1) {\scalefont{#3}\pgfpie@numbertext{#3}};
- }
-}
-
-\newlength{\pgfpie@angleEnd}
-\newcounter{pgfpie@explodeLength}
-\newcounter{pgfpie@colorLength}
-\newcounter{pgfpie@sliceLength}
-
-\def\setexplode#1\pgfeov{\def\pgfpie@explode{#1}}
-\pgfkeyslet{/explode/.@cmd}{\setexplode}
-
-\def\setcolor#1\pgfeov{\def\pgfpie@color{#1}}
-\pgfkeyslet{/color/.@cmd}{\setcolor}
-
-\def\setradius#1\pgfeov{\def\pgfpie@radius{#1}}
-\pgfkeyslet{/radius/.@cmd}{\setradius}
-
-\def\setpos#1\pgfeov{\def\pgfpie@pos{#1}}
-\pgfkeyslet{/pos/.@cmd}{\setpos}
-
-\def\setstyle#1\pgfeov{\def\pgfpie@style{#1}}
-\pgfkeyslet{/style/.@cmd}{\setstyle}
-
-\def\setbeforenumber#1\pgfeov{\def\pgfpie@beforenumber{#1}}
-\pgfkeyslet{/before number/.@cmd}{\setbeforenumber}
-
-\def\setafternumber#1\pgfeov{\def\pgfpie@afternumber{#1}}
-\pgfkeyslet{/after number/.@cmd}{\setafternumber}
-
-\def\settext#1\pgfeov{\xdef\pgfpie@text{#1}}
-\pgfkeyslet{/text/.@cmd}{\settext}
-
-\def\setsum#1\pgfeov{\xdef\pgfpie@sum{#1}}
-\pgfkeyslet{/sum/.@cmd}{\setsum}
-
-\def\setrotate#1\pgfeov{\xdef\pgfpie@rotate{#1}}
-\pgfkeyslet{/rotate/.@cmd}{\setrotate}
-
-\newif\ifpolar
-\pgfkeys{/polar/.is if=polar}
-
-\newif\iflegend
-
-\newif\ifsquare
-\pgfkeys{/square/.is if=square}
-
-\newif\ifcloud
-\pgfkeys{/cloud/.is if=cloud}
-
-\newif\ifscalefont
-\pgfkeys{/scale font/.is if=scalefont}
-\let\scalefontorg\scalefont
-\renewcommand{\scalefont}[1]
-{
- \ifscalefont
- \pgfmathparse{#1 / \pgfpie@sum * 3 + 0.9}
- \scalefontorg{\pgfmathresult}
- \fi
-}
-
-\newif\ifhidenumber
-\pgfkeys{/hide number/.is if=hidenumber}
-\newcommand{\pgfpie@numbertext}[1]
-{
- \ifhidenumber
- \else
- \pgfpie@beforenumber#1\pgfpie@afternumber
- \fi
-}
-
-\newcommand{\pie}[2][]
-{
- % load default parameters
- \pgfkeys{
- explode=0,
- color={blue!60, cyan!60, yellow!60, orange!60, red!60,
- blue!60!cyan!60, cyan!60!yellow!60, red!60!cyan!60,
- red!60!blue!60, orange!60!cyan!60},
- radius=3,
- pos={0,0},
- style={thick},
- before number=,
- after number=,
- text=label,
- sum=100,
- rotate=0,
- polar=false,
- square=false,
- cloud=false,
- scale font=false,
- hide number=false
- }
- % load user's parameters
- \pgfkeys{#1}
- % add percentage automatically
- \ifthenelse{\equal{\pgfpie@sum}{100}}
- {
- \pgfkeys{after number=\%}
- \pgfkeys{#1}
- }{}
-
- % legend or not
- \ifthenelse{\equal{\pgfpie@text}{legend}}
- {\legendtrue}
- {\legendfalse}
-
- % handle sum
- \ifthenelse{\equal{\pgfpie@sum}{auto}}
- {
- % sum all input
- \xdef\pgfpie@sum{0}
- \foreach \p/\t in {#2}
- {
- \pgfmathparse{\pgfpie@sum + \p}
- \xdef\pgfpie@sum{\pgfmathresult}
- }
- }
- {}
-
- % init counters
- \setcounter{pgfpie@explodeLength}{0}
- \foreach \e in \pgfpie@explode { \addtocounter{pgfpie@explodeLength}{1} }
-
- \setcounter{pgfpie@colorLength}{0}
- \foreach \c in \pgfpie@color { \addtocounter{pgfpie@colorLength}{1} }
-
- \pgfmathsetlength{\pgfpie@angleEnd}{0}
-
- \setcounter{pgfpie@sliceLength}{0}
- \foreach \p/\e in {#2} { \addtocounter{pgfpie@sliceLength}{1} }
-
- \ifsquare
- %%%%%%%%%% SQUARE PIE BEGIN %%%%%%%%%%%
- \pgfmathparse{\pgfpie@radius*2}
- \xdef\verticalLength{\pgfmathresult}
- \xdef\horizontalLength{\pgfmathresult}
- \path (\pgfpie@pos) -- ++(-\pgfpie@radius, -\pgfpie@radius) coordinate (start);
- \pgfmathparse{\verticalLength * \horizontalLength / \pgfpie@sum}
- \let\squareUnit\pgfmathresult
-
- % drawing loop
- \foreach \p/\t [count=\i from 0] in {#2}
- {
- \pgfpie@findColor{\i}
-
- \ifthenelse{\lengthtest{\verticalLength cm > \horizontalLength cm}}
- {
- \pgfmathparse{\p * \squareUnit / \horizontalLength}
- \let\height\pgfmathresult
-
- \pgfpie@square{start}{\horizontalLength,\height}
- {\p}
- {\thecolor}
- {\t}
- %label
- \iflegend
- \else
- \ifthenelse{\equal{\pgfpie@text}{inside}}
- {}
- {
- \path (start) -- ++(\horizontalLength,\height*0.5) node[inner
- sep=0, \pgfpie@text=0:\t]{};
- }
- \fi
-
- \pgfmathparse{\verticalLength - \height}
- \xdef\verticalLength{\pgfmathresult}
- \path (start) -- ++(0, \height) coordinate (start);
- }
- {
- \pgfmathparse{\p * \squareUnit / \verticalLength }
- \let\width\pgfmathresult
-
- \pgfpie@square{start}{\width,\verticalLength}
- {\p}
- {\thecolor}
- {\t}
- %label
- \iflegend
- \else
- \ifthenelse{\equal{\pgfpie@text}{inside}}
- {}
- {
- \path (start) -- ++(\width*0.5,\verticalLength) node[inner
- sep=0, \pgfpie@text=90:\t]{};
- }
- \fi
-
- \pgfmathparse{\horizontalLength - \width}
- \xdef\horizontalLength{\pgfmathresult}
- \path (start) -- ++(\width, 0) coordinate (start);
- }
- }
-
- %%%%%%%%%% SQUARE PIE END %%%%%%%%%%%
- \else
- \ifcloud
- %%%%%%%%%% CLOUD PIE BGEIN %%%%%%%%%%%
- % drawing loop
- \foreach \p/\t [count=\i from 0] in {#2}
- {
- % find explode
- \pgfpie@findExplode{\i}
- \def\cloudGap{\theexplode + 0.1}
- \pgfmathparse{sqrt(\p / \pgfpie@sum) * \pgfpie@radius}
- \let\cloudR\pgfmathresult
- \ifnum \i = 0
- % first cloud
- \coordinate (O) at (\pgfpie@pos);
- \xdef\cloudRone{\cloudR}
- \xdef\cloudExtendDir{180+\pgfpie@rotate}
- \else
- \ifnum \i = 1
- % second cloud
- \xdef\cloudRtwo{\cloudR}
- \xdef\cloudExtendDir{45+\pgfpie@rotate}
- \path (O) -- ++(\cloudExtendDir:\cloudRone+\cloudGap+\cloudRtwo) coordinate (O);
- \else
- % next cloud
- \pgfmathparse{\cloudRone+\cloudGap+\cloudRtwo}
- \let\la\pgfmathresult
- \pgfmathparse{\cloudRone+\cloudGap+\cloudR}
- \let\lb\pgfmathresult
- \pgfmathparse{\cloudRtwo+\cloudGap+\cloudR}
- \let\lc\pgfmathresult
- \pgfmathparse{\la^2+\lc^2-\lb^2}
- \let\tmp\pgfmathresult
- \pgfmathparse{180 - acos(\tmp / 2 / \la / \lc)}
- \let\cloudRot\pgfmathresult
- \ifodd \i
- \pgfmathparse{-\cloudRot}
- \let\cloudRot\pgfmathresult
- \fi
- \pgfmathparse{\cloudExtendDir - \cloudRot}
- \xdef\cloudExtendDir{\pgfmathresult}
- \path (O) -- ++(\cloudExtendDir:\lc) coordinate (O);
- \xdef\cloudRone{\cloudRtwo}
- \xdef\cloudRtwo{\cloudR}
- \fi
- \fi
-
- % find color
- \pgfpie@findColor{\i}
-
- \pgfpie@cloud{O}{\cloudR}{\p}
- {\thecolor}{\pgfpie@style}{\t}
-
- % label
- \iflegend
- \else
- \ifthenelse{\equal{\pgfpie@text}{inside}}
- {}
- {
- \path (O) -- ++(\cloudExtendDir:\cloudR)
- node[inner sep=0, \pgfpie@text=\cloudExtendDir:\t] {};
- }
- \fi
- }
- %%%%%%%%%% CLOUD PIE BGEIN %%%%%%%%%%%
- \else
- %%%%%%%%%% CIRCLE PIE BGEIN %%%%%%%%%%%
- \ifpolar
- \xdef\maxValue{0}
- \foreach \p/\e in {#2} {
- \ifnum \maxValue < \p
- \xdef\maxValue{\p}
- \fi
- }
- \pgfmathparse{\pgfpie@sum / \value{pgfpie@sliceLength}}
- \xdef\polarangle{\pgfmathresult}
- \pgfmathparse{\pgfpie@radius / sqrt(\maxValue)}
- \xdef\polarRadiusUnit{\pgfmathresult}
- \else
- \xdef\theradius{\pgfpie@radius}
- \fi
-
- \xdef\pgfpie@angleBegin{\the\pgfpie@angleEnd}
- % drawing loop
- \foreach \p/\t [count=\i from 0] in {#2}
- {
- \pgfmathsetlength{\pgfpie@angleEnd}{\pgfpie@angleBegin}
- \ifpolar
- % Polar area diagram
- \pgfmathaddtolength{\pgfpie@angleEnd}{\polarangle}
- \pgfmathparse{sqrt(\p) * \polarRadiusUnit}
- \xdef\theradius{\pgfmathresult}
- \else
- % normal pie
- \pgfmathaddtolength{\pgfpie@angleEnd}{\p}
- \fi
-
- % find explode
- \pgfpie@findExplode{\i}
-
- % find color
- \pgfpie@findColor{\i}
- \pgfpie@slice{\pgfpie@angleBegin/\pgfpie@sum*360+\pgfpie@rotate}
- {\the\pgfpie@angleEnd/\pgfpie@sum*360+\pgfpie@rotate}
- {\p}
- {\t}
- {\theexplode}
- {\thecolor}
- {\theradius}
- {\pgfpie@pos}
- \xdef\pgfpie@angleBegin{\the\pgfpie@angleEnd}
- }
- %%%%%%%%%% CIRCLE PIE END %%%%%%%%%%%
- \fi
- \fi
-
- % legend
- \iflegend
- \coordinate[xshift=0.8cm,
- yshift=(\value{pgfpie@sliceLength}*0.5+1)*0.5cm] (legendpos) at
- (current bounding box.east);
-
- \begin{scope}[node distance=0.5cm]
- \foreach \p/\t [count=\i from 0] in {#2}
- {
- \pgfpie@findColor{\i}
- \node[draw, fill=\thecolor, \pgfpie@style, below of=legendpos, label=0:\t] (legendpos) {};
- }
- \end{scope}
- \fi
-}
-
-%%% End of pgf-pie.sty
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
+\usetikzlibrary{pie}
diff --git a/Master/texmf-dist/tex/latex/pgf-pie/tikzlibrarypie.code.tex b/Master/texmf-dist/tex/latex/pgf-pie/tikzlibrarypie.code.tex
new file mode 100644
index 00000000000..dd949d9644d
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/pgf-pie/tikzlibrarypie.code.tex
@@ -0,0 +1,465 @@
+% SPDX-License-Identifier: GPL-2.0-only OR LPPL-1.3c
+\RequirePackage{scalefnt}
+
+%
+% Utilities
+%
+
+\def\pgfpie@ifx#1#2{%
+ \ifx#1#2%
+ \expandafter\pgfutil@firstoftwo
+ \else
+ \expandafter\pgfutil@secondoftwo
+ \fi}
+
+\def\pgfpie@ifdim#1#2#3{%
+ \ifdim\dimexpr#1\relax#2\dimexpr#3\relax
+ \expandafter\pgfutil@firstoftwo
+ \else
+ \expandafter\pgfutil@secondoftwo
+ \fi}
+
+\def\pgfpie@ifnum#1#2#3{%
+ \ifnum\numexpr#1\relax#2\numexpr#3\relax
+ \expandafter\pgfutil@firstoftwo
+ \else
+ \expandafter\pgfutil@secondoftwo
+ \fi}
+
+\def\pgfpie@ifodd#1{%
+ \ifodd\numexpr#1\relax
+ \expandafter\pgfutil@firstoftwo
+ \else
+ \expandafter\pgfutil@secondoftwo
+ \fi}
+
+\def\pgfpie@newif#1{%
+ \csname newif\expandafter\endcsname\csname ifpgfpie@#1\endcsname
+ \expandafter\def\csname pgfpie@if#1\expandafter\endcsname\expandafter{%
+ \csname ifpgfpie@#1\endcsname
+ \expandafter\pgfutil@firstoftwo
+ \else
+ \expandafter\pgfutil@secondoftwo
+ \fi}%
+}
+
+%
+% Constants for text comparison
+%
+
+\def\pgfpie@text@inside{inside}
+\def\pgfpie@text@legend{legend}
+\def\pgfpie@sum@c{100}
+\def\pgfpie@sum@auto{auto}
+
+% args:
+% #1: begin angle
+% #2: end angle
+% #3: number
+% #4: label
+% #5: explode
+% #6: fill color
+% #7: radius
+% #8: center
+\def\pgfpie@slice#1#2#3#4#5#6#7#8{%
+ \pgfmathparse{0.5*(#1)+0.5*(#2)}
+ \let\pgfpie@midangle\pgfmathresult
+
+ \path (#8) -- ++({\pgfpie@midangle}:{#5}) coordinate (pgfpie@O);
+
+ \pgfmathparse{(#7)+(#5)}
+ \let\pgfpie@radius\pgfmathresult
+
+ % slice
+ \draw[line join=round,fill={#6},\pgfpie@style] (pgfpie@O) -- ++({#1}:{#7}) arc ({#1}:{#2}:{#7}) -- cycle;
+
+ \pgfmathparse{min(((#2)-(#1)-10)/110*(-0.3),0)}
+ \pgfmathparse{(max(\pgfmathresult,-0.5) + 0.8)*(#7)}
+ \let\pgfpie@innerpos\pgfmathresult
+
+ \pgfpie@ifx\pgfpie@text\pgfpie@text@inside{%
+ % label and number together
+ \path (pgfpie@O) -- ++({\pgfpie@midangle}:{\pgfpie@innerpos}) node[align=center]
+ {\pgfpie@scalefont{#3}\pgfpie@labeltext{#4}\\\pgfpie@numbertext{#3}};
+ }{%
+ % label
+ \pgfpie@ifhidelabel{}{%
+ \pgfpie@iflegend{}{%
+ \path (pgfpie@O) -- ++ ({\pgfpie@midangle}:{\pgfpie@radius})
+ node[inner sep=0, \pgfpie@text={\pgfpie@midangle:#4}]{};
+ }%
+ }%
+
+ % number
+ \path (pgfpie@O) -- ++({\pgfpie@midangle}:{\pgfpie@innerpos}) node
+ {\pgfpie@scalefont{#3}\pgfpie@numbertext{#3}};
+ }%
+}
+
+\def\pgfpie@findColor#1{%
+ \pgfmathparse{int(mod(#1,\the\pgfpie@colorLength))}%
+ \let\pgfpie@ci\pgfmathresult
+ \foreach \pgfpie@c [count=\pgfpie@j from 0] in \pgfpie@color {%
+ \pgfpie@ifnum{\pgfpie@j}{=}{\pgfpie@ci}{%
+ \xdef\pgfpie@thecolor{\pgfpie@c}%
+ \breakforeach
+ }{}%
+ }
+}
+
+\def\pgfpie@findExplode#1{%
+ \pgfmathparse{int(mod(#1,\the\pgfpie@explodeLength))}%
+ \let\pgfpie@ei\pgfmathresult
+ \foreach \pgfpie@e [count=\pgfpie@j from 0] in \pgfpie@explode {%
+ \pgfpie@ifnum{\pgfpie@j}{=}{\pgfpie@ei}{%
+ \xdef\pgfpie@theexplode{\pgfpie@e}%
+ \breakforeach
+ }{}%
+ }%
+}
+
+% #1: bottom left point
+% #2: size
+% #3: number
+% #4: color
+% #5: text
+\def\pgfpie@square#1#2#3#4#5{%
+ \pgfpie@ifx\pgfpie@text\pgfpie@text@inside{%
+ \draw[fill={#4},\pgfpie@style] (#1) rectangle node[align=center]
+ {\pgfpie@scalefont{#3}\pgfpie@labeltext{#5}\\\pgfpie@numbertext{#3}} ++(#2);
+ }{%
+ \draw[fill={#4},\pgfpie@style] (#1) rectangle node
+ {\pgfpie@scalefont{#3}\pgfpie@numbertext{#3}} ++(#2);
+ }%
+}
+
+% #1: pos
+% #2: radius
+% #3: number
+% #4: color
+% $5: style
+% $6: label
+\def\pgfpie@cloud#1#2#3#4#5#6{%
+ \draw[fill=#4, #5] (#1) circle[radius=#2];
+ \pgfpie@ifx\pgfpie@text\pgfpie@text@inside{%
+ \node[align=center] at (#1) {\pgfpie@scalefont{#3}\pgfpie@labeltext{#6}\\\pgfpie@numbertext{#3}};
+ }{%
+ \node at (#1) {\pgfpie@scalefont{#3}\pgfpie@numbertext{#3}};
+ }%
+}
+
+\newdimen\pgfpie@angleEnd
+\newcount\pgfpie@explodeLength
+\newcount\pgfpie@colorLength
+\newcount\pgfpie@sliceLength
+
+\pgfqkeys{/pgfpie}{%
+ explode/.store in=\pgfpie@explode,
+ color/.store in=\pgfpie@color,
+ radius/.store in=\pgfpie@radius,
+ pos/.store in=\pgfpie@pos,
+ style/.store in=\pgfpie@style,
+ before number/.store in=\pgfpie@beforenumber,
+ after number/.store in=\pgfpie@afternumber,
+ text/.store in=\pgfpie@text,
+ sum/.store in=\pgfpie@sum,
+ rotate/.store in=\pgfpie@rotate,
+}
+
+\pgfpie@newif{polar}
+\pgfqkeys{/pgfpie}{polar/.is if=pgfpie@polar}
+
+\pgfpie@newif{legend}
+
+\pgfpie@newif{square}
+\pgfqkeys{/pgfpie}{square/.is if=pgfpie@square}
+
+\pgfpie@newif{cloud}
+\pgfqkeys{/pgfpie}{cloud/.is if=pgfpie@cloud}
+
+\pgfpie@newif{scalefont}
+\pgfqkeys{/pgfpie}{scale font/.is if=pgfpie@scalefont}
+\def\pgfpie@scalefont#1{%
+ \pgfpie@ifscalefont{%
+ \pgfmathparse{(#1) / (\pgfpie@sum) * 3 + 0.9}%
+ \scalefont{\pgfmathresult}%
+ }{}%
+}
+
+\pgfpie@newif{hidenumber}
+\pgfqkeys{/pgfpie}{hide number/.is if=pgfpie@hidenumber}
+\def\pgfpie@numbertext#1{%
+ \pgfpie@ifhidenumber{}{%
+ \pgfpie@beforenumber#1\pgfpie@afternumber
+ }%
+}
+
+\pgfpie@newif{hidelabel}
+\pgfqkeys{/pgfpie}{hide label/.is if=pgfpie@hidelabel}
+\def\pgfpie@labeltext#1{\pgfpie@ifhidelabel{}{#1}}
+
+\tikzaddtikzonlycommandshortcutlet{\pie}{\pgfpie@pie}%
+
+\def\pgfpie@pie{%
+ \pgfutil@ifnextchar[{\pgfpie@@pie}{\pgfpie@@pie[]}%
+}
+
+\def\pgfpie@@pie[#1]#2{%
+ % load default parameters
+ \pgfqkeys{/pgfpie}{
+ explode=0,
+ color={blue!60, cyan!60, yellow!60, orange!60, red!60,
+ blue!60!cyan!60, cyan!60!yellow!60, red!60!cyan!60,
+ red!60!blue!60, orange!60!cyan!60},
+ radius=3,
+ pos={0,0},
+ style={thick},
+ before number=,
+ after number=,
+ text=label,
+ sum=100,
+ rotate=0,
+ polar=false,
+ square=false,
+ cloud=false,
+ scale font=false,
+ hide number=false,
+ hide label=false,
+ every pie/.try,
+ }%
+ % load user's parameters
+ \pgfqkeys{/pgfpie}{#1}%
+ % add percentage automatically
+ \pgfpie@ifx\pgfpie@sum\pgfpie@sum@c{%
+ \pgfqkeys{/pgfpie}{after number=\%}%
+ \pgfqkeys{/pgfpie}{#1}%
+ }{}%
+
+ % legend or not
+ \pgfpie@ifx\pgfpie@text\pgfpie@text@legend{%
+ \pgfpie@legendtrue
+ }{%
+ \pgfpie@legendfalse
+ }%
+
+ % handle sum
+ \pgfpie@ifx\pgfpie@sum\pgfpie@sum@auto{%
+ % sum all input
+ \xdef\pgfpie@sum{0}%
+ \foreach \pgfpie@p/\pgfpie@t in {#2} {%
+ \pgfmathparse{(\pgfpie@sum) + (\pgfpie@p)}%
+ \xdef\pgfpie@sum{\pgfmathresult}%
+ }%
+ }{}%
+
+ % init counters
+ \global\pgfpie@explodeLength=0
+ \foreach \pgfpie@e in \pgfpie@explode {%
+ \global\advance\pgfpie@explodeLength by 1
+ }%
+
+ \global\pgfpie@colorLength=0
+ \foreach \pgfpie@c in \pgfpie@color {%
+ \global\advance\pgfpie@colorLength by 1
+ }%
+
+ \pgfmathsetlength{\pgfpie@angleEnd}{0}%
+
+ \global\pgfpie@sliceLength=0
+ \foreach \pgfpie@p/\pgfpie@e in {#2} {%
+ \global\advance\pgfpie@sliceLength by 1
+ }%
+
+ \pgfpie@ifsquare{%
+ \pgfpie@pie@square{#2}%
+ }{\pgfpie@ifcloud{\pgfpie@pie@cloud{#2}%
+ }{\pgfpie@pie@circle{#2}}}
+
+ % legend
+ \pgfpie@ifhidelabel{}{%
+ \pgfpie@iflegend{%
+ \pgfpie@legend{#2}%
+ }{}}%
+}
+
+\def\pgfpie@pie@square#1{%
+ \pgfmathparse{(\pgfpie@radius)*2}
+ \xdef\pgfpie@verticalLength{\pgfmathresult}
+ \xdef\pgfpie@horizontalLength{\pgfmathresult}
+ \path (\pgfpie@pos) -- ++({-\pgfpie@radius},{-\pgfpie@radius}) coordinate (pgfpie@start);
+ \pgfmathparse{(\pgfpie@verticalLength) * (\pgfpie@horizontalLength) / (\pgfpie@sum)}
+ \let\pgfpie@squareUnit\pgfmathresult
+
+ % drawing loop
+ \foreach \pgfpie@p/\pgfpie@t [count=\pgfpie@i from 0] in {#1}
+ {
+ \pgfpie@findColor{\pgfpie@i}
+
+ \pgfpie@ifdim{\pgfpie@verticalLength cm}{>}{\pgfpie@horizontalLength cm}{%
+ \pgfmathparse{(\pgfpie@p) * (\pgfpie@squareUnit) / (\pgfpie@horizontalLength)}
+ \let\pgfpie@height\pgfmathresult
+
+ \pgfpie@square{pgfpie@start}{\pgfpie@horizontalLength,\pgfpie@height}
+ {\pgfpie@p}
+ {\pgfpie@thecolor}
+ {\pgfpie@t}
+ %label
+ \pgfpie@iflegend{}{%
+ \pgfpie@ifx\pgfpie@text\pgfpie@text@inside{}{%
+ \pgfpie@ifhidelabel{}{%
+ \path (pgfpie@start) -- ++({\pgfpie@horizontalLength},{\pgfpie@height*0.5})
+ node[inner sep=0, \pgfpie@text={0:{\pgfpie@t}}]{};
+ }%
+ }%
+ }%
+
+ \pgfmathparse{\pgfpie@verticalLength - \pgfpie@height}
+ \xdef\pgfpie@verticalLength{\pgfmathresult}
+ \path (pgfpie@start) -- ++(0, \pgfpie@height) coordinate (pgfpie@start);
+ }{%
+ \pgfmathparse{(\pgfpie@p) * (\pgfpie@squareUnit) / (\pgfpie@verticalLength)}%
+ \let\pgfpie@width\pgfmathresult
+
+ \pgfpie@square{pgfpie@start}{\pgfpie@width,\pgfpie@verticalLength}
+ {\pgfpie@p}
+ {\pgfpie@thecolor}
+ {\pgfpie@t}
+ %label
+ \pgfpie@iflegend{}{%
+ \pgfpie@ifx\pgfpie@text\pgfpie@text@inside{}{%
+ \pgfpie@ifhidelabel{}{%
+ \path (pgfpie@start) -- ++({\pgfpie@width*0.5},{\pgfpie@verticalLength})
+ node[inner sep=0, \pgfpie@text={90:{\pgfpie@t}}]{};
+ }%
+ }%
+ }%
+
+ \pgfmathparse{(\pgfpie@horizontalLength) - (\pgfpie@width)}%
+ \xdef\pgfpie@horizontalLength{\pgfmathresult}%
+ \path (pgfpie@start) -- ++({\pgfpie@width},0) coordinate (pgfpie@start);
+ }%
+ }%
+}
+
+\def\pgfpie@pie@cloud#1{%
+ % drawing loop
+ \foreach \pgfpie@p/\pgfpie@t [count=\pgfpie@i from 0] in {#1}
+ {
+ % find explode
+ \pgfpie@findExplode{\pgfpie@i}
+ \def\pgfpie@cloudGap{(\pgfpie@theexplode) + 0.1}
+ \pgfmathparse{sqrt((\pgfpie@p) / (\pgfpie@sum)) * (\pgfpie@radius)}
+ \let\pgfpie@cloudR\pgfmathresult
+ \pgfpie@ifnum{\pgfpie@i}{=}{0}{%
+ % first cloud
+ \coordinate (pgfpie@O) at (\pgfpie@pos);
+ \xdef\pgfpie@cloudRone{\pgfpie@cloudR}
+ \xdef\pgfpie@cloudExtendDir{180+(\pgfpie@rotate)}
+ }{\pgfpie@ifnum{\pgfpie@i}{=}{1}{%
+ % second cloud
+ \xdef\pgfpie@cloudRtwo{\pgfpie@cloudR}
+ \xdef\pgfpie@cloudExtendDir{45+(\pgfpie@rotate)}
+ \path (pgfpie@O) -- ++({\pgfpie@cloudExtendDir}:{(\pgfpie@cloudRone)+(\pgfpie@cloudGap)+(\pgfpie@cloudRtwo)}) coordinate (pgfpie@O);
+ }{%
+ % next cloud
+ \pgfmathparse{(\pgfpie@cloudRone)+(\pgfpie@cloudGap)+(\pgfpie@cloudRtwo)}
+ \let\pgfpie@la\pgfmathresult
+ \pgfmathparse{(\pgfpie@cloudRone)+(\pgfpie@cloudGap)+(\pgfpie@cloudR)}
+ \let\pgfpie@lb\pgfmathresult
+ \pgfmathparse{(\pgfpie@cloudRtwo)+(\pgfpie@cloudGap)+(\pgfpie@cloudR)}
+ \let\pgfpie@lc\pgfmathresult
+ \pgfmathparse{(\pgfpie@la)^2+(\pgfpie@lc)^2-(\pgfpie@lb)^2}
+ \let\pgfpie@tmp\pgfmathresult
+ \pgfmathparse{180 - acos((\pgfpie@tmp) / 2 / (\pgfpie@la) / (\pgfpie@lc))}
+ \let\pgfpie@cloudRot\pgfmathresult
+ \pgfpie@ifodd{\pgfpie@i}{%
+ \pgfmathparse{-(\pgfpie@cloudRot)}
+ \let\pgfpie@cloudRot\pgfmathresult
+ }{}%
+ \pgfmathparse{(\pgfpie@cloudExtendDir) - (\pgfpie@cloudRot)}
+ \xdef\pgfpie@cloudExtendDir{\pgfmathresult}
+ \path (pgfpie@O) -- ++({\pgfpie@cloudExtendDir}:{\pgfpie@lc}) coordinate (pgfpie@O);
+ \xdef\pgfpie@cloudRone{\pgfpie@cloudRtwo}
+ \xdef\pgfpie@cloudRtwo{\pgfpie@cloudR}
+ }}%
+
+ % find color
+ \pgfpie@findColor{\pgfpie@i}
+
+ \pgfpie@cloud{pgfpie@O}{\pgfpie@cloudR}{\pgfpie@p}
+ {\pgfpie@thecolor}{\pgfpie@style}{\pgfpie@t}
+
+ % label
+ \pgfpie@iflegend{}{%
+ \pgfpie@ifx\pgfpie@text\pgfpie@text@inside{}{%
+ \pgfpie@ifhidelabel{}{%
+ \path (pgfpie@O) -- ++({\pgfpie@cloudExtendDir}:{\pgfpie@cloudR})
+ node[inner sep=0, \pgfpie@text={\pgfpie@cloudExtendDir:{\pgfpie@t}}] {};
+ }%
+ }%
+ }%
+ }%
+}
+
+\def\pgfpie@pie@circle#1{%
+ \pgfpie@ifpolar{%
+ \xdef\pgfpie@maxValue{0}
+ \foreach \pgfpie@p/\pgfpie@e in {#1} {
+ \pgfmathparse{\pgfpie@p}%
+ \pgfpie@ifdim{\pgfpie@maxValue pt}{<}{\pgfmathresult pt}{%
+ \xdef\pgfpie@maxValue{\pgfpie@p}
+ }{}%
+ }
+ \pgfmathparse{(\pgfpie@sum) / \the\pgfpie@sliceLength}
+ \xdef\pgfpie@polarangle{\pgfmathresult}
+ \pgfmathparse{(\pgfpie@radius) / sqrt(\pgfpie@maxValue)}
+ \xdef\pgfpie@polarRadiusUnit{\pgfmathresult}
+ }{%
+ \xdef\pgfpie@theradius{\pgfpie@radius}%
+ }
+
+ \xdef\pgfpie@angleBegin{\the\pgfpie@angleEnd}
+ % drawing loop
+ \foreach \pgfpie@p/\pgfpie@t [count=\pgfpie@i from 0] in {#1}
+ {
+ \pgfmathsetlength{\pgfpie@angleEnd}{\pgfpie@angleBegin}
+ \pgfpie@ifpolar{%
+ % Polar area diagram
+ \pgfmathaddtolength{\pgfpie@angleEnd}{\pgfpie@polarangle}
+ \pgfmathparse{sqrt(\pgfpie@p) * (\pgfpie@polarRadiusUnit)}
+ \xdef\pgfpie@theradius{\pgfmathresult}
+ }{%
+ % normal pie
+ \pgfmathaddtolength{\pgfpie@angleEnd}{\pgfpie@p}
+ }
+
+ % find explode
+ \pgfpie@findExplode{\pgfpie@i}
+
+ % find color
+ \pgfpie@findColor{\pgfpie@i}
+ \pgfpie@slice{(\pgfpie@angleBegin)/(\pgfpie@sum)*360+(\pgfpie@rotate)}
+ {\the\pgfpie@angleEnd/(\pgfpie@sum)*360+(\pgfpie@rotate)}
+ {\pgfpie@p}
+ {\pgfpie@t}
+ {\pgfpie@theexplode}
+ {\pgfpie@thecolor}
+ {\pgfpie@theradius}
+ {\pgfpie@pos}
+ \xdef\pgfpie@angleBegin{\the\pgfpie@angleEnd}
+ }
+}
+
+\def\pgfpie@legend#1{%
+ \coordinate[xshift=0.8cm,
+ yshift={(\the\pgfpie@sliceLength*0.5+1)*0.5cm}] (pgfpie@legendpos) at
+ (current bounding box.east);
+
+ \scope[node distance=0.5cm]
+ \foreach \pgfpie@p/\pgfpie@t [count=\pgfpie@i from 0] in {#1}
+ {
+ \pgfpie@findColor{\pgfpie@i}
+ \node[draw, fill={\pgfpie@thecolor}, \pgfpie@style, below of={pgfpie@legendpos}, label={0:{\pgfpie@t}}] (pgfpie@legendpos) {};
+ }
+ \endscope
+}