summaryrefslogtreecommitdiffstats
path: root/doc/pgf-pie.sty
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--doc/pgf-pie.sty439
1 files changed, 439 insertions, 0 deletions
diff --git a/doc/pgf-pie.sty b/doc/pgf-pie.sty
new file mode 100644
index 0000000..6a669e3
--- /dev/null
+++ b/doc/pgf-pie.sty
@@ -0,0 +1,439 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% 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>
+%
+
+\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+\ProvidesPackage{pgf-pie}[2011/10/02 v0.2 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\radius\pgfmathresult
+
+ % slice
+ \draw[line join=round, fill=#6, \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\\\beforenumber#3\afternumber}};
+ }
+ {
+ % label
+ \iflegend
+ \else
+ \path (O) -- ++ (\midangle:\radius)
+ node[inner sep=0, \pgfpie@text=\midangle:#4]{};
+ \fi
+
+ % number
+ \path (O) -- ++(\midangle:\innerpos) node
+ {\scalefont{#3}\beforenumber#3\afternumber};
+ }
+}
+
+\newcommand{\pgfpie@findColor}[1]
+{
+ \pgfmathparse{int(mod(#1,\value{pgfpie@colorLength}))}
+ \let\ci\pgfmathresult
+ \foreach \c [count=\j from 0] in \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 \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, \style] (#1) rectangle node
+ {\scalefont{#3}\shortstack{#5\\\beforenumber#3\afternumber}} ++(#2);
+ }
+ {
+ \draw[fill=#4, \style] (#1) rectangle node
+ {\scalefont{#3}\beforenumber#3\afternumber} ++(#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\\\beforenumber#3\afternumber}};
+ }
+ {
+ \node at (#1) {\scalefont{#3}\beforenumber#3\afternumber};
+ }
+}
+
+\newlength{\pgfpie@angleEnd}
+\newcounter{pgfpie@explodeLength}
+\newcounter{pgfpie@colorLength}
+\newcounter{pgfpie@sliceLength}
+
+\def\setexplode#1\pgfeov{\def\explode{#1}}
+\pgfkeyslet{/explode/.@cmd}{\setexplode}
+
+\def\setcolor#1\pgfeov{\def\color{#1}}
+\pgfkeyslet{/color/.@cmd}{\setcolor}
+
+\def\setradius#1\pgfeov{\def\radius{#1}}
+\pgfkeyslet{/radius/.@cmd}{\setradius}
+
+\def\setpos#1\pgfeov{\def\pos{#1}}
+\pgfkeyslet{/pos/.@cmd}{\setpos}
+
+\def\setstyle#1\pgfeov{\def\style{#1}}
+\pgfkeyslet{/style/.@cmd}{\setstyle}
+
+\def\setbeforenumber#1\pgfeov{\def\beforenumber{#1}}
+\pgfkeyslet{/before number/.@cmd}{\setbeforenumber}
+
+\def\setafternumber#1\pgfeov{\def\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\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
+}
+
+\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,
+ }
+ % 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 \explode { \addtocounter{pgfpie@explodeLength}{1} }
+
+ \setcounter{pgfpie@colorLength}{0}
+ \foreach \c in \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{\radius*2}
+ \xdef\verticalLength{\pgfmathresult}
+ \xdef\horizontalLength{\pgfmathresult}
+ \path (\pos) -- ++(-\radius, -\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) * \radius}
+ \let\cloudR\pgfmathresult
+ \ifnum \i = 0
+ % first cloud
+ \coordinate (O) at (\pos);
+ \xdef\cloudRone{\cloudR}
+ \xdef\cloudExtendDir{180+\rotate}
+ \else
+ \ifnum \i = 1
+ % second cloud
+ \xdef\cloudRtwo{\cloudR}
+ \xdef\cloudExtendDir{45+\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}{\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{\radius / sqrt(\maxValue)}
+ \xdef\polarRadiusUnit{\pgfmathresult}
+ \else
+ \xdef\theradius{\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+\rotate}
+ {\the\pgfpie@angleEnd/\pgfpie@sum*360+\rotate}
+ {\p}
+ {\t}
+ {\theexplode}
+ {\thecolor}
+ {\theradius}
+ {\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, \style, below of=legendpos, label=0:\t] (legendpos) {};
+ }
+ \end{scope}
+ \fi
+}
+
+%%% End of pgf-pie.sty
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+