diff options
author | Karl Berry <karl@freefriends.org> | 2021-05-04 22:26:13 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-05-04 22:26:13 +0000 |
commit | 91807c5514100ebba5c8825abdc9d92bcf13d2ee (patch) | |
tree | 8e05a272b3fbe882cc5df673d6b03ee3b38e272b /Master/texmf-dist/tex | |
parent | 150981845a50d39a6af3c306ba61c88201c68460 (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')
-rw-r--r-- | Master/texmf-dist/tex/latex/pgf-pie/pgf-pie.sty | 450 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/pgf-pie/tikzlibrarypie.code.tex | 465 |
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 +} |