[Tex/LaTex] Helping cardinals elect the new Pope

datatoolfuntikz-pgf

^{Yes, we are talking about TeX and friends!}

^{Edit: I decided to move the background motivation to the end of the question, since it seems to be kind of off-topic in the TeX context.}

The following code is just a preliminary idea. My plan is to hide a notebook inside the Sistine Chapel, open a spreadsheet application and start to count votes for the new pope election.

The following list contains the name of the 115 candidates to become the new pope. In the whole process, data is manually tabulated according to the voting ballots, and every cardinal annotates in his own vota scrutinii the number of votes for each candidate. It's still ruled by ink and paper.

spreadsheet

Now, it's just a matter of exporting data to .csv and use Nicola Talbot's awesome datatool package in order to generate a beautiful report for the cardinals! But wait a minute, we still need to keep up the tradition, ink and pen.

Thanks to my buddy percusse, it's TikZ time! Let's fake some handwriting annotation for the votes! The idea here is very simple: get the number of votes, generate a TikZ picture with a visual representation of the current number and present it.

First things first. Here it is cardinals.csv:

Surname,Name,Votes
Kasper,Walter,0
Poletto,Severino,0
Sandoval Íñiguez,Juan,0
Danneels,Godfried,0
Errázuriz ossa,Francisco Javier,0
Farina,Raffaele,0
Agnelo,Geraldo Majella,7
Meisner,Joachim,0
Vela Chiriboga,Raúl Eduardo,0
Re,Giovanni Battista,0
Tettamanzi,Dionigi,0
Monterisi,Francesco,0
Hummes,Cláudio,15
Amigo Vallejo,Carlos,0
Sardi,Paolo,0
Cordes,Paul Josef,0
Rodé,Franc,0
Bertone,Tarcisio,11
Pham Minh Mân,Jean-Baptiste,0
Lajolo,Giovanni,0
Naguib,Antonios,0
Rigali,Justin Francis,0
De Paolis,Velasio,0
Abril y Castelló,Santos,0
da Cruz Policarpo,José ,0
Mahony,Roger Michael,0
Terrazas Sandoval,Julio,0
Dias,Ivan,0
Lehmann,Karl,0
Levada,William Joseph,0
Okogie,Anthony Olubunmi,0
Turcotte,Jean-Claude,0
Rouco Varela,Antonio María,0
Ortega y Alamino,Jaime Lucas,0
López Rodrígues,Nicolás de Jesús,0
Antonelli,Ennio,0
Sarr,Théodore-Adrien,0
Bergoglio,Jorge Mario,0
George,Francis Eugene,0
Bačkis,Audrys Juozas,0
Damasceno Assis,Raymundo,7
Nicora,Attilio,0
Martínez Sistach,Lluís,0
Vegliò,Antonio Maria,0
Romeo,Paolo,0
Coccopalmerio,Francesco,0
Monteiro de Castro,Manuel,0
Caffarra,Carlo,0
Amato,Angelo,0
O'Brien,Edwin Frederik,0
Dziwisz,Stanisław,29
Tong Hon,John,0
Brady,Seán Baptist,0
Monsengwo,Pasinya Laurent,0
Grocholewsky,Zenon,0
Toppo,Telesphore Placidus,0
Raï,Béchara Boutros,0
Vallini,Agostino,0
Wuerl,Donald William,0
Zubeir Wako,Gabriel,0
Napier,Wilfrid Fox,0
Pell,George,0
Scola,Angelo,0
Rivera Carrera,Norberto,0
Urosa Savino,Jorge Liberato,0
Salazar Gómez,Rubén,0
Bertello,Giuseppe,0
Ravasi,Gianfranco,0
Vingt-Trois,André,0
Rodríguez Maradiaga,Óscar Andrés,0
Bagnasco,Angelo,0
Calcagno,Domenico,0
Duka,Dominik,0
Sepe,Crescenzio,0
Tauran,Jean-Louis,0
Versaldi,Giuseppe,0
Comastri,Angelo,0
Sandri,Leonardo,0
Cipriani Thorne,Juan Luis,0
Onaiyekan,John Olorunfemi,0
Ouellet,Marc,0
O’Malley,Sean Patrick,0
Pengo,Polycarp,0
Piacenza,Mauro,0
Ricard,Jean-Pierre,0
Gracias,Oswald,0
Njue,John,0
Schönborn,Christoph,0
Alencherry,George,0
Sarah,Robert,0
Ryłko,Stanisław,0
Puljić,Vinko,0
Cañizares Llovera,Antonio,0
Filoni,Fernando,0
Collins,Thomas Christopher,0
Betori,Giuseppe,0
Braz de Avis,João,21
Patabendige Don,Albert Malcolm Ranjith,0
Burke,Raymond Leo,0
Turkson,Peter Kodwo Appiah,0
Robles Ortega,Francisco,0
Bozanić,Josip,0
DiNardo,Daniel Nicholas,0
Scherer,Odilo Pedro,37
Harvey,James Michael,0
Nycz,Kazimierz,0
Dolan,Timothy Michael,2
Koch,Kurt,0
Barbarin,Philippe,0
Erdő,Péter,0
Eijk,Willem Jacobus,0
Marx,Reinhard,0
Woelki,Rainer Maria,0
Tagle,Luis Antonio,0
Thottunkal,Baselios Cleemis,0

And now, our beloved vota.tex:

\documentclass{article}

\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}

\usepackage[top=1.5cm, bottom=1.5cm, left=1.5cm, right=1.5cm, landscape]{geometry}

\usepackage{lmodern}
\usepackage{datatool}
\usepackage{multicol}
\usepackage{xspace}

\usepackage{tikz}
\usetikzlibrary{calc,decorations}
\makeatletter
\pgfdeclaredecoration{penciline}{initial}{
\state{initial}[width=+\pgfdecoratedinputsegmentremainingdistance,auto corner on length=1mm,]{\pgfpathcurveto{%
\pgfqpoint{\pgfdecoratedinputsegmentremainingdistance}{\pgfdecorationsegmentamplitude}}{\pgfmathrand\pgfpointadd{%
\pgfqpoint{\pgfdecoratedinputsegmentremainingdistance}{0pt}}{\pgfqpoint{-\pgfdecorationsegmentaspect\pgfdecoratedinputsegmentremainingdistance}
{\pgfmathresult\pgfdecorationsegmentamplitude}}}{\pgfpointadd{\pgfpointdecoratedinputsegmentlast}{\pgfpoint{1pt}{1pt}}}}\state{final}{}}

\tikzset{
    prison/.style={
    append after command={
        \pgfextra{\ifnum#1=0\else
        \foreach \x in {0,...,\number\numexpr#1-1\relax}{
        \coordinate (mytemp) at ($(\tikzlastnode.north west)!0.3333*\x!(\tikzlastnode.north east)$);
        \draw[decorate] (mytemp) -- (mytemp|-\tikzlastnode.south);}\fi
            }
        }
    },
    fived/.style={append after command={
        \pgfextra{
        \draw[decorate] ([shift={(-2mm,1mm)}]\tikzlastnode.south west)--([shift={(2mm,-1mm)}]\tikzlastnode.north east);}
        }
    }
}
\makeatother

\newcommand{\drawvotes}[1]{%
\begin{tikzpicture}[decoration=penciline]
\def\numofscr{#1}
\pgfmathtruncatemacro\residue{Mod(\numofscr,5)}
\pgfmathtruncatemacro\numoflots{\numofscr/5}
\ifnum\numofscr<5\else 
\foreach \x in {1,...,\numoflots}{
\node[prison=4,fived] (a) at (\x,0) {};
}
\fi
\node[prison=\residue] at (\numoflots+1,0) {};
\end{tikzpicture}
}

\DTLloaddb{cardinals}{cardinals.csv}

\begin{document}

\pagestyle{empty}

\begin{center}
{\Huge\textsc{Vota Scrutinii}}
\end{center}

\vspace{1em}

\begin{multicols}{2}
\begin{enumerate}
\DTLforeach{cardinals}{\surname=Surname,\name=Name,\votes=Votes}{%
\item \textsc{\surname\xspace\drawvotes{\votes}}}
\end{enumerate}
\end{multicols}

\end{document}

A taste of the output:

output

Let's highlight the voting part:

voting scheme

Yay, we just brought TeX and friends to the election of the pope! Now, I'd love to improve the code and add, if possible, the following features:

A cardinal is elected pope if he obtains 2/3 of all votes. If one the candidates reach this number, we could add a nice blue circle around his name in the list, and probably a note with Habemus Papam! near it. That way, the lazy cardinals will easily spot the elected one. :)
If no one reaches 2/3 of the votes, at least we now have a perspective of the voting scheme, like the top voted cardinals, which will influence the next voting sessions. My idea is, if no cardinal reaches 2/3 of all votes, let's add a nice red circle around the names of the 5 top voted cardinals, so we can easily spot the trend going on. :)

^{Feel free to add more features if you like. :)}

Well, that's it. Hope you guys like the initial code and idea. :) Now, we need to kindly ask egreg or Claudio Fiandrino to go to Rome and convince the cardinals to use our proposal. It will be way funnier. :)

Any help is appreciated. :)

^Background

^{Being catholic, the election of a new pope is a milestone for me. Actually, with Pope Benedict XVI resigning, this will be the second election I watch – Pope John Paul II was elected in 1978, a few years before I was born, but of course I watched Cardinal Ratzinger being elected. :) I even saw the white smoke on television!}

^{My dad used to tell me a lot of stories from past elections. I think the whole process is quite amusing, specially the way cardinals vote for their candidates.}

^{Cardinal José Freire Falcão, former archbishop of Brasília, gave a very nice interview to a Brazilian website in which he showed documents from the last conclave. This is the voting ballot, where the cardinal writes down the name of his choice. After every cardinal casts his vote, it's time to tabulate data! This is done in this other document, called vota scrutinii.}

^{I'm almost sure the process is the very same done since the beginning of time, with ink and paper. But of course, how about giving them a little help with LaTeX and friends? :)}

Best Answer

My datatool skills are limited, so the following solution uses TeX primitives and PGFs mathematical engine and also its \pgfutil@in@ macro/conditional.

Interaction

Line 99: Minimum ratio a Cardinal needs to get elected as Pope.
```
\pgfmathparse{2/3*\the\value{sumVotes}}
```
Line 70: Number of Cardinals that will be marked if no one has reached the limit. As this will be used inside a \foreachloop it should be at least 3 (→ Top 3).
```
\setcounter{numberOfTopCardinals}{5}
```
There are some explanations needed: If two or more Cardinals got the same number of votes they will both be added to the Top list. This means that, although the numberOfTopCardinals is set to, say 5, we could have six or more Cardinals in the Top 5 list. Aka “Tie”.
The \ifHabemusPapam conditional can be used to check whether the limit of minimum votes has been reached by one of the Cardinals.
The styles papa, not papa and top as well as every name can be used to change the appearance of the list.

How does it work?

Fairly simply:

First loop:
- Prepare the macros for the top list (\votesForPlace<place>)
Second loop:
- Sum over all votes
- If one’s Cardinal vote is greater than one of the number of votes in the list include it and push the last one out. (I’m sure this sorting “alogrithm” has a name …)
Third loop:
- The \votesOfTopCardinals macro will contain all number of votes that appear in the top list.
Check if the top number of votes (\votesForPlace1) is greater or equal than the amount needed. This will set \ifHabemusPapam.
Main loop (via \setStyleForVotes):
- If someone has more than two thirds of the votes, he will be assigned style papa.
- If no one has more than two thirds of the votes, it will be checked if the amount of votes exist in the top list. If yes, he will be assigned top, otherwise not papa.
- The resulting TikZ node uses the selected style and the every name style.

Code

\documentclass{article}
\usepackage[T1]{fontenc}\usepackage[utf8]{inputenc}

\usepackage[top=1.5cm, bottom=1.5cm, left=1.5cm, right=1.5cm, landscape]{geometry}

\def\theenumi{\Roman{enumi}}

\usepackage{lmodern,datatool,multicol,xspace}
\usepackage{tikz}
\usetikzlibrary{calc,decorations}

\makeatletter
\pgfdeclaredecoration{penciline}{initial}{
  \state{initial}[width=+\pgfdecoratedinputsegmentremainingdistance,
                  auto corner on length=1mm] {
    \pgfpathcurveto{
      \pgfqpoint{\pgfdecoratedinputsegmentremainingdistance}
                {\pgfdecorationsegmentamplitude}
    }{\pgfmathrand\pgfpointadd{\pgfqpoint{\pgfdecoratedinputsegmentremainingdistance}
                                         {0pt}}
      {\pgfqpoint{-\pgfdecorationsegmentaspect\pgfdecoratedinputsegmentremainingdistance}
        {\pgfmathresult\pgfdecorationsegmentamplitude}
      }
    }{\pgfpointadd{\pgfpointdecoratedinputsegmentlast}{\pgfpoint{1pt}{1pt}}}
  }
  \state{final}{}
}
\makeatother

\tikzset{
  prison/.style={
    append after command={
      \pgfextra
        \ifnum#1=0\else
          \foreach \x in {0,...,\number\numexpr#1-1\relax} {%
            \coordinate (mytemp)
              at ($(\tikzlastnode.north west)!0.3333*\x!(\tikzlastnode.north east)$);
            \draw[decorate] (mytemp) -- (mytemp |- \tikzlastnode.south);}%
        \fi
      \endpgfextra
    }
  },
  fived/.style={
    append after command={
      \pgfextra
        \draw[decorate] ([shift={(-2mm,1mm)}]\tikzlastnode.south west) --
                        ([shift={(2mm,-1mm)}]\tikzlastnode.north east);
      \endpgfextra
    }
  },
}

\newcommand{\drawvotes}[1]{%
  \begin{tikzpicture}[decoration=penciline]
    \def\numofscr{#1}
    \pgfmathtruncatemacro\residue{Mod(\numofscr,5)}
    \pgfmathtruncatemacro\numoflots{\numofscr/5}
    \ifnum\numofscr<5\else 
      \foreach \x in {1,...,\numoflots} \node[prison=4,fived] (a) at (\x,0) {};
    \fi
    \node[prison=\residue] at (\numoflots+1,0) {};
  \end{tikzpicture}%
}

\DTLloaddb{cardinals}{cardinals.csv}

\newif\ifHabemusPapam
\newcounter{sumVotes}
\newcounter{numberOfTopCardinals}

%%%%% Number of Cardinals that will be marked if no one reached two thirds %%%
\setcounter{numberOfTopCardinals}{5}% > 2                                  %%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\foreach \i in {1,...,\value{numberOfTopCardinals}}{%
  \expandafter\gdef\csname votesForPlace\i\endcsname{0}%
}

\DTLforeach{cardinals}{\votes=Votes}{%
  \addtocounter{sumVotes}{\votes}%
  \foreach \i in {1,...,\value{numberOfTopCardinals}} {
    \ifnum\csname votesForPlace\i\endcsname=\votes\breakforeach\fi
    \ifnum\csname votesForPlace\i\endcsname<\votes
      \foreach \j in {\the\numexpr\value{numberOfTopCardinals}-1\relax,...,\i} {%
        \global\expandafter\let
        \csname votesForPlace\the\numexpr\j+1\relax\expandafter\endcsname
        \csname votesForPlace\j\endcsname
      }%
      \expandafter\xdef\csname votesForPlace\i\endcsname{\votes}%
      \breakforeach
    \fi
  }%
}
%\errmessage{\csname votesForPlace1\endcsname}% (debug)
\def\votesOfTopCardinals{}%
\def\votesOfPapa{10000}% = infinity
\foreach \i in {1,...,\value{numberOfTopCardinals}} {%
    \xdef\votesOfTopCardinals{\votesOfTopCardinals,\csname votesForPlace\i\endcsname,}%
}
%\errmessage{\votesOfTopCardinals}% (debug)
\pgfmathparse{2/3*\the\value{sumVotes}}
%\errmessage{\pgfmathresult}% (debug)
\ifdim\pgfmathresult pt>\csname votesForPlace1\endcsname pt
  \else\HabemusPapamtrue\fi

\makeatletter
\def\qrr@pgfutil@in@#1#2{% to save \expandafters
  \edef\pgf@tempa{{#1}{#2}}%
  \expandafter\pgfutil@in@\pgf@tempa}

\newcommand*{\setStyleForVotes}[2]{% #1 = votes
                                   % #2 = macro to save style
  \def\myStyle{not papa}%
  \ifHabemusPapam
    \ifnum\csname votesForPlace1\endcsname=#1\relax
      \def#2{papa}%
    \fi
  \else
    \qrr@pgfutil@in@{,#1,}\votesOfTopCardinals
    \ifpgfutil@in@
      \def#2{top}%
    \fi
  \fi
}
\makeatother

\tikzset{
  not papa/.style={draw=none, fill=none},
  papa/.style={draw=blue},
  top/.style={draw=red},
  expand me/.style={#1},
  every name/.style={
    font=\scshape,
    anchor=base,
    rounded corners,
  }
}
\begin{document}
\pagestyle{empty}
\begin{center}
{\Huge\textsc{Vota Scrutinii}}
\end{center}

\vspace{1em}
\begin{multicols}{2}
\begin{enumerate}
\DTLforeach{cardinals}{\surname=Surname,\name=Name,\votes=Votes}{%
  \setStyleForVotes\votes\myStyle
  \item \tikz[baseline]\node[expand me/.expand once=\myStyle,every name]{\surname};%
        \xspace\drawvotes{\votes}%
}%
\end{enumerate}
\end{multicols}
\end{document}

Output

enter image description here

Related Solutions

[Tex/LaTex] Join the dots – Hannukah

Ok, with a modicum of color, here is a join the dots decoration:

\documentclass[border=0.125cm]{standalone}
\usepackage{tikz}
\usetikzlibrary{decorations.pathreplacing}
\makeatletter
\newcount\tikzjointhedotsnumber


\pgfdeclaredecoration{join the dots}{initial}{%
  \state{initial}[width=0pt, next state=do dots, persistent precomputation={\global\tikzjointhedotsnumber=1}]{}
  %
  \state{do dots}[width=\pgfdecoratedinputsegmentlength, persistent postcomputation={\global\advance\tikzjointhedotsnumber by1}]{%
    \pgfcoordinate{@dot-\the\tikzjointhedotsnumber}{\pgfpointorigin}%
  }
  %
  \state{final}{%
    % Is the last point the same as the first?
      \pgfpointdiff{\pgfpointdecoratedpathlast}{\pgfpointdecoratedpathfirst}%
      \pgfmathveclen{\the\pgf@x}{\the\pgf@y}%
      \ifdim\pgfmathresult pt=0pt\relax%
        \global\advance\tikzjointhedotsnumber by-1\relax
      \else
        \pgftransformshift{\pgfpointdecoratedpathlast}%
        \pgfcoordinate{@dot-\the\tikzjointhedotsnumber}{\pgfpointorigin}%
      \fi
      % Ok, now we do everything. Draw the dots and place the numbers.
      %
      \c@pgf@counta=\tikzjointhedotsnumber%
      \c@pgf@countb=2\relax%
      \edef\lastdot{\the\tikzjointhedotsnumber}%
      \def\nextdot{2}%
      \pgftransformreset%
      \pgfmathloop%
      \ifnum\pgfmathcounter>\tikzjointhedotsnumber
      \else%
        % Draw the dot.
        \edef\tmp{\the\tikzjointhedotsnumber}%
                \tikzjointhedotsnumber=\pgfmathcounter\relax%
        \path [shift={(@dot-\pgfmathcounter)}, every dot/.try, dot \pgfmathcounter/.try]; 
         \tikzjointhedotsnumber=\tmp% 
        %
        % Calculate the dot number node anchor
        \pgfmathanglebetweenpoints{\pgfpointanchor{@dot-\pgfmathcounter}{center}}{\pgfpointanchor{@dot-\the\c@pgf@counta}{center}}%
        \pgf@xc=\pgfmathresult pt\relax%
        \ifdim0pt>\pgf@xc%
          \advance\pgf@xc by360pt\relax%
        \fi%
        \pgfmathanglebetweenpoints{\pgfpointanchor{@dot-\pgfmathcounter}{center}}{\pgfpointanchor{@dot-\the\c@pgf@countb}{center}}%
        \pgf@yc=\pgfmathresult pt\relax%
        \ifdim0pt>\pgf@yc%
          \advance\pgf@yc by360pt\relax%
        \fi%
        \ifdim\pgf@xc>\pgf@yc%
          \pgf@x=360pt\relax%
        \else%
          \pgf@x=0pt\relax%
        \fi%
        \advance\pgf@x by-\pgf@xc%
        \advance\pgf@x by\pgf@yc%
        \divide\pgf@x by2\relax%
        \advance\pgf@x by\pgf@xc%
        \advance\pgf@x by180pt\relax%
        \edef\dotnumberanchor{\the\pgf@x}%
        \node [anchor=\dotnumberanchor, every dot number/.try, dot number \pgfmathcounter/.try] 
          at (@dot-\pgfmathcounter)
          {\tikzjointhedotsnumber=\pgfmathcounter\relax\tikzjointhedotstypesetnumber{\tikzjointhedotsnumber}};
        \c@pgf@counta=\pgfmathcounter\relax%
            \advance\c@pgf@countb by1\relax%
            \ifnum\c@pgf@countb>\tikzjointhedotsnumber%
              \c@pgf@countb=1\relax%
            \fi%
        \repeatpgfmathloop%
  }
}

% Command for typesetting dot number
% #1 - a count register holding the current dot number
%
\def\tikzjointhedotstypesetnumber#1{\the#1}
\makeatletter
% Keys for setting dot number styles
\tikzset{%
  syle dot number range/.code args={#1 to #2 with #3}{%
    \c@pgf@counta=#1
    \pgfmathloop
    \ifnum\c@pgf@counta>#2\relax%
    \else%
      \tikzset{dot number \the\c@pgf@counta/.style={#3}}%
      \advance\c@pgf@counta by1
    \repeatpgfmathloop%
  },
    style dot number list/.code args={#1 with #2}{%
      \pgfutil@for\tmp:=#1\do{%
        \tikzset{dot number \tmp/.style={#2}}%
      }%
    }
}
\makeatother

\tikzset{%
  % Executed for every dot
  every dot/.style={fill=black,
    insert path={  circle [radius=.75mm] coordinate [alias=dot-last] (dot-\the\tikzjointhedotsnumber)  }
  },
  % Executed for every dot number
  every dot number/.style={
   shape=circle,
   font=\footnotesize\sf,
  },
  join the dots/.style={
    decoration=join the dots, decorate
  },
  lines/.style={
    ultra thick,
    line join=round,
    line cap=round
  },
  crayon/.style={
    draw=#1,
    line join=round,
    line cap=round,
    line width=1mm
  },
  sketch/.style={
    bend right, out=rand*10, in=180-rand*10
  }
}

\begin{document}
\begin{tikzpicture}
% Draw and number the dots
\path [postaction={join the dots}]
    (-1/2,11) 
    \foreach \a [count=\c from 1, evaluate={\d=\a+1;\s=90/\d;}] in {1,2,3,4}{
        -- ++(0,{\a==1?-2:-1})
        \foreach \i in {1,...,\d}{
            arc (270-\i*\s+\s:270-\i*\s:\a*2-1 and \a*3/2-1/2) 
        }
        -- ++(-1,0) coordinate [midway] (candle-\c)
        \foreach \i in {1,...,\d}{
            arc (180+\i*\s-\s:180+\i*\s:\a*2 and \a*3/2) 
        }
    }
    -- ++(0,-1) 
    -| ++(-1,-1/2) -| ++(-1,-1/2) -| ++(-1,-1/2)
    -- ++(7,0)
    |- ++(-1,1/2) |- ++(-1,1/2) |- ++(-1,1/2)
    \foreach \a [count=\c from 5, evaluate={\d=\a+1;\s=90/\d;}] in {4,3,2,1}{
        -- ++(0,1)
        \foreach \i in {1,...,\d}{
            arc (270+\i*\s-\s:270+\i*\s:\a*2 and \a*3/2) 
        }
        -- ++(-1,0) coordinate [midway] (candle-\c)
        \foreach \i in {1,...,\d}{
            arc (360-\i*\s+\s:360-\i*\s:\a*2-1 and \a*3/2-1/2) 
        }
    }
    -- ++(0,2);
% Draw the lines that are visible.
\draw [lines] 
  (dot-1)  -- (dot-last) coordinate [midway] (candle-9);

% Draw candles
\foreach \cn in {1,...,9}{% 
 \tikzset{shift=(candle-\cn), yshift=1pt}%
 % Candle
 \fill [lines, fill=purple!80, rounded corners=0.125cm]
  (-1/3,0) to [sketch] (-1/3,3) -- (1/3,3)  to [sketch] (1/3,0);
 % Wick
 \draw [lines] (0,3) -- ++(0,1/4);
 \tikzset{shift={(0,3+1/8)}, xscale=round(rnd)*2-1,yscale=1+rand/8}
 \foreach \s/\c in {1/yellow,.5/red}
 \path [lines, fill=\c!50!orange, opacity=3/4, scale=\s] 
   (0,0) 
   arc (270:180:3/8) 
   .. controls ++(0,1/4) and ++(0,-1/4) .. (0,3/2)
   arc (90:0:3/8 and 1) arc (360:270:3/8 and 1/2);
} 
\end{tikzpicture}%

\end{document}

enter image description here

And this will take a long time to compile.

\documentclass[border=0.125cm]{standalone}
\standaloneenv{minipage}
\usepackage{tikz}
\usetikzlibrary{decorations.pathreplacing}
\makeatletter
\newcount\tikzjointhedotsnumber


\pgfdeclaredecoration{join the dots}{initial}{%
  \state{initial}[width=0pt, next state=do dots, persistent precomputation={\global\tikzjointhedotsnumber=1}]{}
  %
  \state{do dots}[width=\pgfdecoratedinputsegmentlength, persistent postcomputation={\global\advance\tikzjointhedotsnumber by1}]{%
    \pgfcoordinate{@dot-\the\tikzjointhedotsnumber}{\pgfpointorigin}%
  }
  %
  \state{final}{%
    % Is the last point the same as the first?
      \pgfpointdiff{\pgfpointdecoratedpathlast}{\pgfpointdecoratedpathfirst}%
      \pgfmathveclen{\the\pgf@x}{\the\pgf@y}%
      \ifdim\pgfmathresult pt=0pt\relax%
        \global\advance\tikzjointhedotsnumber by-1\relax
      \else
        \pgftransformshift{\pgfpointdecoratedpathlast}%
        \pgfcoordinate{@dot-\the\tikzjointhedotsnumber}{\pgfpointorigin}%
      \fi
      % Ok, now we do everything. Draw the dots and place the numbers.
      %
      \c@pgf@counta=\tikzjointhedotsnumber%
      \c@pgf@countb=2\relax%
      \edef\lastdot{\the\tikzjointhedotsnumber}%
      \def\nextdot{2}%
      \pgftransformreset%
      \pgfmathloop%
      \ifnum\pgfmathcounter>\tikzjointhedotsnumber
      \else%
        % Draw the dot.
        \edef\tmp{\the\tikzjointhedotsnumber}%
                \tikzjointhedotsnumber=\pgfmathcounter\relax%
        \path [shift={(@dot-\pgfmathcounter)}, every dot/.try, dot \pgfmathcounter/.try]; 
         \tikzjointhedotsnumber=\tmp% 
        %
        % Calculate the dot number node anchor
        \pgfmathanglebetweenpoints{\pgfpointanchor{@dot-\pgfmathcounter}{center}}{\pgfpointanchor{@dot-\the\c@pgf@counta}{center}}%
        \pgf@xc=\pgfmathresult pt\relax%
        \ifdim0pt>\pgf@xc%
          \advance\pgf@xc by360pt\relax%
        \fi%
        \pgfmathanglebetweenpoints{\pgfpointanchor{@dot-\pgfmathcounter}{center}}{\pgfpointanchor{@dot-\the\c@pgf@countb}{center}}%
        \pgf@yc=\pgfmathresult pt\relax%
        \ifdim0pt>\pgf@yc%
          \advance\pgf@yc by360pt\relax%
        \fi%
        \ifdim\pgf@xc>\pgf@yc%
          \pgf@x=360pt\relax%
        \else%
          \pgf@x=0pt\relax%
        \fi%
        \advance\pgf@x by-\pgf@xc%
        \advance\pgf@x by\pgf@yc%
        \divide\pgf@x by2\relax%
        \advance\pgf@x by\pgf@xc%
        \advance\pgf@x by180pt\relax%
        \edef\dotnumberanchor{\the\pgf@x}%
        \node [anchor=\dotnumberanchor, every dot number/.try, dot number \pgfmathcounter/.try] 
          at (@dot-\pgfmathcounter)
          {\tikzjointhedotsnumber=\pgfmathcounter\relax\tikzjointhedotstypesetnumber{\tikzjointhedotsnumber}};
        \c@pgf@counta=\pgfmathcounter\relax%
            \advance\c@pgf@countb by1\relax%
            \ifnum\c@pgf@countb>\tikzjointhedotsnumber%
              \c@pgf@countb=1\relax%
            \fi%
        \repeatpgfmathloop%
  }
}

% Command for typesetting dot number
% #1 - a count register holding the current dot number
%
\def\tikzjointhedotstypesetnumber#1{\the#1}
\makeatletter
% Keys for setting dot number styles
\tikzset{%
  syle dot number range/.code args={#1 to #2 with #3}{%
    \c@pgf@counta=#1
    \pgfmathloop
    \ifnum\c@pgf@counta>#2\relax%
    \else%
      \tikzset{dot number \the\c@pgf@counta/.style={#3}}%
      \advance\c@pgf@counta by1
    \repeatpgfmathloop%
  },
  style dot number list/.code args={#1 with #2}{%
    \pgfutil@for\tmp:=#1\do{%
      \tikzset{dot number \tmp/.style={#2}}%
    }%
  }
}
\makeatother

\tikzset{%
  % Executed for every dot
  every dot/.style={fill=black,
    insert path={  circle [radius=.75mm] coordinate [alias=dot-last] (dot-\the\tikzjointhedotsnumber)  }
  },
  % Executed for every dot number
  every dot number/.style={
   shape=circle,
   font=\footnotesize\sf,
  },
  join the dots/.style={
    decoration=join the dots, decorate
  },
  lines/.style={
    ultra thick,
    line join=round,
    line cap=round
  },
  crayon/.style={
    draw=#1,
    line join=round,
    line cap=round,
    line width=1mm
  },
  sketch/.style={
    bend right, out=rand*10, in=180-rand*10
  }
}

\begin{document}
% Put (most of) the picture in a box, so it doesn't
% have to be redrawn every iteration.
\newbox\hanukkahbox
\setbox\hanukkahbox=\hbox{%
\begin{tikzpicture}[baseline={(0,0)}]
% Draw and number the dots
\path [postaction={join the dots}]
    (-1/2,11) 
    \foreach \a [count=\c from 1, evaluate={\d=\a+1;\s=90/\d;}] in {1,2,3,4}{
        -- ++(0,{\a==1?-2:-1})
        \foreach \i in {1,...,\d}{
            arc (270-\i*\s+\s:270-\i*\s:\a*2-1 and \a*3/2-1/2) 
        }
        -- ++(-1,0) coordinate [midway] (candle-\c)
        \foreach \i in {1,...,\d}{
            arc (180+\i*\s-\s:180+\i*\s:\a*2 and \a*3/2) 
        }
    }
    -- ++(0,-1) 
    -| ++(-1,-1/2) -| ++(-1,-1/2) -| ++(-1,-1/2)
    -- ++(7,0)
    |- ++(-1,1/2) |- ++(-1,1/2) |- ++(-1,1/2)
    \foreach \a [count=\c from 5, evaluate={\d=\a+1;\s=90/\d;}] in {4,3,2,1}{
        -- ++(0,1)
        \foreach \i in {1,...,\d}{
            arc (270+\i*\s-\s:270+\i*\s:\a*2 and \a*3/2) 
        }
        -- ++(-1,0) coordinate [midway] (candle-\c)
        \foreach \i in {1,...,\d}{
            arc (360-\i*\s+\s:360-\i*\s:\a*2-1 and \a*3/2-1/2) 
        }
    }
    -- ++(0,2);
% Draw the lines that are visible.
\draw [lines] 
  (dot-1)  -- (dot-last) coordinate [midway] (candle-9);
\end{tikzpicture}}%
%
\foreach \k in {1,...,88}{%
\begin{minipage}{\wd\hanukkahbox}%
\begin{tikzpicture}
% Place the picture box.
\pgftext[bottom]{\copy\hanukkahbox}%
% Draw candles
\foreach \cn in {1,...,9}{% 
 \tikzset{shift=(candle-\cn), yshift=1pt}
 % Set the random seed as fixed with the candle number as
 % a parameter so that candles are different from each
 % other, but drawn the same on each outer iteration.
 \pgfmathsetseed{99+\cn*50}%
 % Candle
 \fill [lines, fill=purple!80, rounded corners=0.125cm]
  (-1/3,0) to [sketch] (-1/3,3) -- (1/3,3)  to [sketch] (1/3,0);
 % Wick
 \draw [lines] (0,3) -- ++(0,1/4);
 % Ensure highest point for bounding box
 \path (candle-9) -- ++(0,5);
 \pgfmathsetseed{99+\k*50+\cn*25}%
 \tikzset{shift={(0,3+1/8)}, xscale=round(rnd)*2-1,yscale=1+rand/8}
 \foreach \s/\c in {1/yellow,.5/red}
 \path [lines, fill=\c!50!orange, opacity=3/4, scale=\s] 
   (0,0) 
   arc (270:180:3/8) 
   .. controls ++(0,1/4) and ++(0,-1/4) .. (0,3/2)
   arc (90:0:3/8 and 1) arc (360:270:3/8 and 1/2);
} 
\pgfmathsetseed{99}%
\draw [crayon=black!80] (dot-1) \foreach \l in {1,...,\k}{ to [sketch] (dot-\l) };
\end{tikzpicture}%
\end{minipage}}

\end{document}

By using the animation features of gimp the pdf can be converted to a gif:

enter image description here

Finally, here is a dreidel:

\documentclass[tikz,border=0.125cm]{standalone}
\newcount\TeXXeTstate% <- Why?
\usepackage{cjhebrew}
\usepackage{tikz}
\usetikzlibrary{decorations.pathreplacing}
\makeatletter
\newcount\tikzjointhedotsnumber


\pgfdeclaredecoration{join the dots}{initial}{%
  \state{initial}[width=0pt, next state=do dots, persistent precomputation={\global\tikzjointhedotsnumber=1}]{}
  %
  \state{do dots}[width=\pgfdecoratedinputsegmentlength, persistent postcomputation={\global\advance\tikzjointhedotsnumber by1}]{%
    \pgfcoordinate{@dot-\the\tikzjointhedotsnumber}{\pgfpointorigin}%
  }
  %
  \state{final}{%
    % Is the last point the same as the first?
      \pgfpointdiff{\pgfpointdecoratedpathlast}{\pgfpointdecoratedpathfirst}%
      \pgfmathveclen{\the\pgf@x}{\the\pgf@y}%
      \ifdim\pgfmathresult pt=0pt\relax%
        \global\advance\tikzjointhedotsnumber by-1\relax
      \else
        \pgftransformshift{\pgfpointdecoratedpathlast}%
        \pgfcoordinate{@dot-\the\tikzjointhedotsnumber}{\pgfpointorigin}%
      \fi
      % Ok, now we do everything. Draw the dots and place the numbers.
      %
      \c@pgf@counta=\tikzjointhedotsnumber%
      \c@pgf@countb=2\relax%
      \edef\lastdot{\the\tikzjointhedotsnumber}%
      \def\nextdot{2}%
      \pgftransformreset%
      \pgfmathloop%
      \ifnum\pgfmathcounter>\tikzjointhedotsnumber
      \else%
        % Draw the dot.
        \edef\tmp{\the\tikzjointhedotsnumber}%
                \tikzjointhedotsnumber=\pgfmathcounter\relax%
        \path [shift={(@dot-\pgfmathcounter)}, every dot/.try, dot \pgfmathcounter/.try]; 
         \tikzjointhedotsnumber=\tmp% 
        %
        % Calculate the dot number node anchor
        \pgfmathanglebetweenpoints{\pgfpointanchor{@dot-\pgfmathcounter}{center}}{\pgfpointanchor{@dot-\the\c@pgf@counta}{center}}%
        \pgf@xc=\pgfmathresult pt\relax%
        \ifdim0pt>\pgf@xc%
          \advance\pgf@xc by360pt\relax%
        \fi%
        \pgfmathanglebetweenpoints{\pgfpointanchor{@dot-\pgfmathcounter}{center}}{\pgfpointanchor{@dot-\the\c@pgf@countb}{center}}%
        \pgf@yc=\pgfmathresult pt\relax%
        \ifdim0pt>\pgf@yc%
          \advance\pgf@yc by360pt\relax%
        \fi%
        \ifdim\pgf@xc>\pgf@yc%
          \pgf@x=360pt\relax%
        \else%
          \pgf@x=0pt\relax%
        \fi%
        \advance\pgf@x by-\pgf@xc%
        \advance\pgf@x by\pgf@yc%
        \divide\pgf@x by2\relax%
        \advance\pgf@x by\pgf@xc%
        \advance\pgf@x by180pt\relax%
        \edef\dotnumberanchor{\the\pgf@x}%
        \node [anchor=\dotnumberanchor, every dot number/.try, dot number \pgfmathcounter/.try] 
          at (@dot-\pgfmathcounter)
          {\tikzjointhedotsnumber=\pgfmathcounter\relax\tikzjointhedotstypesetnumber{\tikzjointhedotsnumber}};
        \c@pgf@counta=\pgfmathcounter\relax%
            \advance\c@pgf@countb by1\relax%
            \ifnum\c@pgf@countb>\tikzjointhedotsnumber%
              \c@pgf@countb=1\relax%
            \fi%
        \repeatpgfmathloop%
  }
}

% Command for typesetting dot number
% #1 - a count register holding the current dot number
%
\def\tikzjointhedotstypesetnumber#1{\the#1}
\makeatletter
% Keys for setting dot number styles
\tikzset{%
  syle dot number range/.code args={#1 to #2 with #3}{%
    \c@pgf@counta=#1
    \pgfmathloop
    \ifnum\c@pgf@counta>#2\relax%
    \else%
      \tikzset{dot number \the\c@pgf@counta/.style={#3}}%
      \advance\c@pgf@counta by1
    \repeatpgfmathloop%
  },
    style dot number list/.code args={#1 with #2}{%
      \pgfutil@for\tmp:=#1\do{%
        \tikzset{dot number \tmp/.style={#2}}%
      }%
    }
}
\makeatother

\tikzset{%
  % Executed for every dot
  every dot/.style={fill=black,
    insert path={  circle [radius=.75mm] coordinate [alias=dot-last] (dot-\the\tikzjointhedotsnumber)  }
  },
  % Executed for every dot number
  every dot number/.style={
   font=\footnotesize\sf,
   anchor=\pgfdecoratedangle-90
  },
  join the dots/.style={
    decoration=join the dots, decorate
  },
  lines/.style={
    ultra thick,
    line join=round,
    line cap=round
  },
  style dot number list={15,16,17 with anchor=0},
}

\def\tikzjointhedotstypesetnumber#1{%
  \textcjheb{\ifcase#1\or'\or b\or g\or d\or h\or w\or z\or.h\or.t\or y\or k|%
    \or l\or m|\or n|\or s\or `\or p|\or.s|\or q\or r\or/s\or t\else?\fi}}
\begin{document}

\begin{tikzpicture}[x=(-40:0.5cm), y=(195:0.5cm), z=(75:0.5cm)]
\draw [lines] (1*cos 45,-1*sin 45,7) -- (1*cos 45,-1*sin 45,3) arc (-45:135:1) -- (-1*cos 45,1*sin 45,5.25);
\path[postaction=join the dots] 
  (1*cos 45,-1*sin 45,5.25) -- (3,-3, 3) -- (3,0,3) -- (3,3,3)
  -- (3,3,1) -- (3,3,-1) -- (3,3,-3) -- (3,0,-3) -- (3,-3,-3)
  -- (2,-2,-5) -- (1,-1,-7) -- (0,0,-9)
  -- (-1,1,-7) -- (-2,2,-5) -- (-3,3,-3)
  -- (-3,3,0) -- (-3,3,3)  -- (-1*cos 45,1*sin 45,5.25) -- (-1*cos 45,1*sin 45,7)
  -- (-1*cos 45,1*sin 45,9) -- (1*cos 45,-1*sin 45,9) -- (1*cos 45,-1*sin 45,7);

\node [yslant=-cos 40, scale=8, text=blue!50!purple] at (0,3,0) {\textcjheb{h}};
\node [yslant=cos 75, scale=8, text=red!50!orange] at (3,0,0) {\textcjheb{n|}};

\draw [lines]
  (dot-4) -- (dot-17)
  (dot-2) -- (dot-9)
  (dot-7) -- (dot-15);

\end{tikzpicture}
\end{document}

enter image description here

[Tex/LaTex] The datatool package is not reading the csv file

Some of the material in your example is not strictly relevant to the problem of getting a quotation printed every page, so I removed it. But you can use the package everypage with datatool to do what you want. Something like this will continuously cycle through the 11 quotations in the .csv and print one at the bottom:

\documentclass{book}
\usepackage{filecontents}
\begin{filecontents}{quotations.csv}
I\space think everybody in this country should learn how to program a computer because it teaches you how to think.; Steve Jobs
Computer Science is no more about computers than astronomy is about telescopes.; Edsger W. Dijkstra
The computer was born to solve problems that did not exist before.; Bill Gates
A\space computer would deserve to be called intelligent if it could deceive a human into believing that it was human.; Alan Turing
UNIX is basically a simple operating system but you have to be a genius to understand the simplicity.; Dennis Ritchie
Imagination is more important than knowledge.  For knowledge is limited, whereas imagination embraces the entire world, stimulating progress, giving birth to evolution.; Albert Einstein
The greatest enemy of knowledge is not ignorance, it is the illusion of knowledge.; Stephen Hawking
The more you know, the more you realize you know nothing.; Socrates
Tell me and I forget.  Teach me and I remember.  Involve me and I learn.; Benjamin Franklin
Real knowledge is to know the extent of one's ignorance.; Confucius
I~do not fear computers. I fear lack of them.; Isaac Asimov
\end{filecontents}

\usepackage[T1]{fontenc}
\usepackage[a4paper,
% NOTE: margins at foot of page need to be calibrated to suit the size
% of 'apple.jpg'
margin=1in, includefoot, footskip=1in,
bindingoffset=0.2in,centering, headheight=0.3in,heightrounded,
]{geometry}

\usepackage{lipsum}       % dummy text
\usepackage{everypage}    % \AddEverypageHook
\usepackage{fancyhdr}     % headers and footers
\usepackage{datatool}     % access .csv
\DTLsetseparator{;}       % use semi-colon as delimter (commas use in
                          % quotations)
\DTLloaddb[noheader,keys={quote,author}]{quotes}{quotations.csv}


\renewcommand{\headrulewidth}{0.4pt}
\renewcommand{\footrulewidth}{0.4pt}
\fancypagestyle{myfancy}{
\fancyhf{}
\fancyhead[LE,RO]{\leftmark}
% black box in place of image;
% replace with \includegraphics[<options>]{apple}
\fancyfoot[LE,RO]{\rule{2cm}{2cm}}
% print the value of \Value in footer
\fancyfoot[cf]{\Value}
}

% Create, initialize our counter;
\newcounter{thepagenum}
\setcounter{thepagenum}{0}

% Set highest row number to access
% '11' here because there are 11 rows in the .csv
\def\pagelimit{11}

% Set the size of the 'box' into which we shall put the quotation and
% author.  The width of the box should be at least 4.5cm smaller than
% the \textwidth *IF* the size of the 'apple.jpg' is 2 cm wide. We set
% the height of the \parbox to 2cm *IF* that is the height of
% 'apple.jpg'
\newcommand{\setquoteandauthor}{%
  \parbox[b][2cm][c]{\dimexpr\textwidth-4.5cm\relax}{\centering
    \emph{\QValue} --- \AValue}}%


% At every new page:
% (1) Test value of 'thepagenum'; reset counter when the
% \pagelimit is reached.
% (2) Access the .csv and store the respective quotation in
% \QValue.
% (3) Print \QValue in footer.
\AddEverypageHook{%
  \ifnum\pdfstrcmp{\arabic{thepagenum}}{\pagelimit}=0
  \setcounter{thepagenum}{0}%
  \else
  \fi
  \stepcounter{thepagenum}
  \DTLgetvalue{\QValue}{quotes}{\arabic{thepagenum}}{1}%
  % Author info too?
  \DTLgetvalue{\AValue}{quotes}{\arabic{thepagenum}}{2}%
%  \fancyfoot[cf]{``\QValue'' --- \AValue}%
  \fancyfoot[cf]{\setquoteandauthor}}

\pagestyle{myfancy}


\begin{document}

\chapter{Install Backtrack on an Android Device}
\section{What is Backtrack?}

BackTrack is \lipsum[1-5]

\section{Security Tools in Backtrack}

\lipsum[1-5]

\section{Installing Backtrack on Android Device}
\subsection{Tools Required}

\lipsum[6-8]

\subsection{Installation}

\lipsum[1-60]

\lipsum[1-60]

\end{document}

Some things to note:

Currently, no quotation is printed on pages where \chapter is used. I'm not sure what the desired behaviour is. (Also, those pages still 'step' the counter, so you end up skipping quotations on those pages.) Should there also be a quotation on pages where a new chapter starts..?
I changed the delimiter to a ; (see \DTLsetseparator{;}) because some of the quotations themselves have commas.
For some reason, which I haven't explored, when a quotation begins with a one-letter word (such as 'I' or 'A'), the space between it and the following word is lost. (Cf. lines 1, 4, and 11 in the .csv.)

Changes:

Quotation and author are now used at the bottom of each page.
Space is made so that a small image can be set in the footer. (Currently, I have it set to draw a black box 2 cm by 2 cm.) This requires setting proper settings for the bottom of the page in geometry and setting the quotation in a box that leaves space for the image (see \setquoteandauthor).

Best Answer

Interaction

How does it work?

Code

Output

Related Solutions

[Tex/LaTex] Join the dots – Hannukah

[Tex/LaTex] The datatool package is not reading the csv file

Related Question