expoweb/documents/bierbook/bierbook.tex
2024-07-04 09:12:33 +01:00

433 lines
11 KiB
TeX

\documentclass[a4paper,12pt,twoside]{book}
\usepackage{bierbook-style}
% All required packages should be included in bierbook-style
\newcommand{\expotitle}{
% makes the title page
\thispagestyle{empty}
\begin{center}
{\Large Loser Plateau}
\vskip80pt
{\Huge \bf Expo \the\year}
\vskip40pt
{\fontsize{100}{120}\selectfont\sc Bier}
\vskip24pt
{\fontsize{100}{120}\selectfont\sc Book}
\vskip190pt
{[}Stick obligatory G{\"o}sser label here{]}
\end{center}
\vfill
\clearpage
}
\newcommand{\expoheading}[1]{
% provides the formatting for a title of a section
\vspace{10pt}
{\LARGE\bf #1}
\vspace{20pt}
}
\newcommand{\tallyeveryone}[3]{
% argument is the title, second is the subtitle, third is starting number for the tally
% longtable, generated from the list of names
% uses tallyline for each line
\addcontentsline{toc}{section}{#1}
\openin\namesread=names.txt
\setcounter{linecount}{0}
\begin{longtable}{rc}
\multicolumn{2}{l}{\expoheading{#1}} \\
\multicolumn{2}{p{\textwidth}}{#2} \\
&
\tallynumbers{#3}
\\
\endfirsthead
\multicolumn{2}{p{\textwidth}}{#2} \\
&
\tallynumbers{#3}
\\
\endhead
&
\tallynumbers{#3}
\\
\endfoot
\whiledo{\value{linecount}<\value{maxlines}}{
\stepcounter{linecount}
\read\namesread to \currentname
\tallyline{\currentname}
}
\end{longtable}
\clearpage
}
\newcounter{maxspares}
\newcommand{\tallyspares}[4]{
% argument is the title, second is the subtitle, third is starting number for the tally, fourth is the number of lines
% longtable, generated from the list of names
% uses tallyline for each line
\addcontentsline{toc}{section}{#1}
\openin\namesread=names.txt
\setcounter{linecount}{0}
\setcounter{maxspares}{#4}
\begin{longtable}{rc}
\multicolumn{2}{l}{\expoheading{#1}} \\
\multicolumn{2}{p{\textwidth}}{#2} \\
&
\tallynumbers{#3}
\\
\endfirsthead
\multicolumn{2}{p{\textwidth}}{#2} \\
&
\tallynumbers{#3}
\\
\endhead
&
\tallynumbers{#3}
\\
\endfoot
\whiledo{\value{linecount}<\value{maxspares}}{
\tallyline{\ldots\ldots\ldots}
\stepcounter{linecount}
}
\end{longtable}
\clearpage
}
\newcommand{\tallyline}[1]{
% argument is the name on the line
% boxes are a tikz grid
\begin{tikzpicture}
\pgfmathsetmacro{\wvar}{0.4}
\node at (0,0.6*\wvar) [anchor=east] {\textbf{#1}};
\node at (0,0) {};
\node at (0,2*\wvar) {};
\end{tikzpicture}
\and
\begin{tikzpicture}
\pgfmathsetmacro{\wvar}{0.4}
\foreach \xvar in {0,1,2,3,4}
{
\foreach \yvar in {0,1}
{
\foreach \zvar in {0,5.5,11,16.5,22}
{
\draw (\xvar*\wvar+\zvar*\wvar,\yvar*\wvar) -- ++ (0,\wvar) -- ++ (\wvar,0) -- ++ (0,-\wvar) -- cycle;
}
}
}
\end{tikzpicture}
\\
}
\newcounter{tallynumber}
\newcommand{\tallynumbers}[1]{
% argument is the starting number
\setcounter{tallynumber}{#1}
\begin{tikzpicture}
\pgfmathsetmacro{\wvar}{0.4}
\foreach \xvar in {0,5.5,11,16.5,22,27.5}
{
\node at (\xvar*\wvar,0) [anchor=center] {\arabic{tallynumber}};
\node at (\xvar*\wvar,0.4) {};
\addtocounter{tallynumber}{10}
}
\end{tikzpicture}
}
\newcommand{\drinksssubtitle}{
/ = G{\"o}sser, X = Limo, R = Radler, W = Weissbier, D = Dunkelbier, L = Loserbier
}
\newcommand{\nightstallyoneweek}[2]{
\addcontentsline{toc}{section}{#1}
\openin\namesread=names.txt
\setcounter{linecount}{0}
\begin{minipage}[l]{\textwidth}
{\LARGE\bf #1}\\
\vskip12pt
\textbf{This is for people arriving prior to the 1st Monday of Expo proper.}
\vskip12pt
\textbf{Where you spent the night:}
/ = basecamp, - = away from Expo.
\vskip12pt
\end{minipage}
\begin{longtable}{rc}
\tikz{\node at (0,0.5) {}; \node at (0,0) {};} & #2 \\
\tikz{\node at (0,0.5) {}; \node at (0,0) {};} & \weekdays \\
\endfirsthead
\tikz{\node at (0,0.5) {}; \node at (0,0) {};} & #2 \\
\tikz{\node at (0,0.5) {}; \node at (0,0) {};} & \weekdays \\
\endhead
\tikz{\node at (0,0.5) {}; \node at (0,0) {};} & \weekdays \\
\endfoot
\whiledo{\value{linecount}<\value{maxlines}}{
\stepcounter{linecount}
\read\namesread to \currentname
\nightstallyoneweekline{\currentname}
}
\end{longtable}
\clearpage
}
\newcommand{\nightstally}[4]{
% arguments are the title, subheading information, and dates for the three weeks
% longtable, generated from the list of names
% uses nightstallyline for each line
% footer of day of the week, possibly also as a second header under the dates
\addcontentsline{toc}{section}{#1}
\openin\namesread=names.txt
\setcounter{linecount}{0}
{\LARGE\bf #1}\\
\vskip12pt
\textbf{Top line} for where you spent the night:
/ = basecamp, S = stonebridge bivvy, B = bivvying elsewhere, - = away from Expo.
\vskip12pt
\textbf{Bottom line} for time spent underground.\\\vspace*{12pt}
\begin{longtable}{rccc}
\tikz{\node at (0,0.5) {}; \node at (0,0) {};} & #2 & #3 & #4 \\
\tikz{\node at (0,0.5) {}; \node at (0,0) {};} & \weekdays & \weekdays & \weekdays \\
\endfirsthead
\tikz{\node at (0,0.5) {}; \node at (0,0) {};} & #2 & #3 & #4 \\
\tikz{\node at (0,0.5) {}; \node at (0,0) {};} & \weekdays & \weekdays & \weekdays \\
\endhead
\tikz{\node at (0,0.5) {}; \node at (0,0) {};} & \weekdays & \weekdays & \weekdays \\
\endfoot
\whiledo{\value{linecount}<\value{maxlines}}{
\stepcounter{linecount}
\read\namesread to \currentname
\nightstallyline{\currentname}
}
\end{longtable}
\clearpage
}
\newcommand{\nightstallyoneweekline}[1]{
% argument is the name on the line
% boxes are a tikz grid
\begin{tikzpicture}
\pgfmathsetmacro{\wvar}{0.4}
\node at (0,0.6*\wvar) [anchor=east] {\textbf{#1}};
\node at (0,0) {};
\node at (0,\wvar) {};
\end{tikzpicture}
\and
\begin{tikzpicture}
\pgfmathsetmacro{\wvar}{0.4}
\foreach \xvar in {0,1}
{
\foreach \yvar in {0,1,2,3,4,5,6}
{
\draw (\yvar*\wvar,\xvar*\wvar) -- ++ (0,\wvar) -- ++ (\wvar,0) -- ++ (0,-\wvar) -- cycle;
}
}
\end{tikzpicture}
\\
}
\newcommand{\nightstallyline}[1]{
% argument is the name on the line
% boxes are a tikz grid
\begin{tikzpicture}
\pgfmathsetmacro{\wvar}{0.4}
\node at (0,0.6*\wvar) [anchor=east] {\textbf{#1}};
\node at (0,0) {};
\node at (0,\wvar) {};
\end{tikzpicture}
\and
\begin{tikzpicture}
\pgfmathsetmacro{\wvar}{0.4}
\foreach \xvar in {0,1}
{
\foreach \yvar in {0,1,2,3,4,5,6}
{
\draw (\yvar*\wvar,\xvar*\wvar) -- ++ (0,\wvar) -- ++ (\wvar,0) -- ++ (0,-\wvar) -- cycle;
}
}
\end{tikzpicture}
\and
\begin{tikzpicture}
\pgfmathsetmacro{\wvar}{0.4}
\foreach \xvar in {0,1}
{
\foreach \yvar in {0,1,2,3,4,5,6}
{
\draw (\yvar*\wvar,\xvar*\wvar) -- ++ (0,\wvar) -- ++ (\wvar,0) -- ++ (0,-\wvar) -- cycle;
}
}
\end{tikzpicture}
\and
\begin{tikzpicture}
\pgfmathsetmacro{\wvar}{0.4}
\foreach \xvar in {0,1}
{
\foreach \yvar in {0,1,2,3,4,5,6}
{
\draw (\yvar*\wvar,\xvar*\wvar) -- ++ (0,\wvar) -- ++ (\wvar,0) -- ++ (0,-\wvar) -- cycle;
}
}
\end{tikzpicture}
\\
}
\newcommand{\weekdays}{
\begin{tikzpicture}
\pgfmathsetmacro{\wvar}{0.4}
\foreach \yvar/\zvar in {0/M,1/T,2/W,3/T,4/F,5/S,6/S{\tiny u}}
{
\node at (\yvar*\wvar,0) [anchor=center] {\zvar};
}
\end{tikzpicture}
}
\newcommand{\expotransport}{
% longtable to spread over multiple pages
% method / departed / arrived / notes
\addcontentsline{toc}{chapter}{Expo Transport}
\begin{longtable}{p{2cm}|p{2cm}|p{2cm}|p{8cm}}
\multicolumn{4}{l}{\expoheading{Expo Transport}} \\
Method & Departed & Arrived & Notes \\
\midrule
\endfirsthead
Method & Departed & Arrived & Notes \\
\midrule
\endhead
\vspace{20.3cm} & & & \\
\vspace{22cm} & & & \\
\end{longtable}
}
\newcommand{\moneyowed}{
% creates a series of pages for the money owed to individuals
% each person gets a page as made by moneyowedperson
% generated from the names list
\addcontentsline{toc}{chapter}{Money owed to ...}
\openin\namesread=names.txt
\setcounter{linecount}{0}
\whiledo{\value{linecount}<\value{maxlines}}{
\stepcounter{linecount}
\read\namesread to \currentname
\moneyowedperson{\currentname}
}
}
\newcommand{\moneyowedperson}[1]{
% argument is who the money is owed to
% longtable to spread over multiple pages
% date / owed by / description
\addcontentsline{toc}{section}{#1}
{\LARGE \textbf{Money owed to #1}}\vspace*{12pt}
\begin{longtable}{p{2cm}|p{4cm}|p{3cm}|p{6cm}}
\multicolumn{4}{p{\textwidth}}{Write a \textbf{positive} sign if #1~\hspace*{-3pt}\textbf{spent money}} \\
\multicolumn{4}{p{\textwidth}}{Write a \textbf{negative} sign if #1~\hspace*{-3pt}\textbf{owes money}} \\
\multicolumn{4}{p{\textwidth}}{Only write on \textbf{one person's page} for a transaction. \textbf{Give currency if not Euros.}} \\
\multicolumn{4}{p{\textwidth}}{}\\
\textbf{Date} & \textbf{Who} & \textbf{Amount} & \textbf{Item} \\
\midrule
\endfirsthead
\textbf{Date} & \textbf{Who} & \textbf{Amount} & \textbf{Item} \\
\midrule
\endhead
\vspace{18.4cm} & & & \\
\vspace{22cm} & & & \\
\end{longtable}
\clearpage
}
\newcommand{\moneyowedgasthof}{
% longtable to spread over multiple pages
% date / owed by / description
\addcontentsline{toc}{chapter}{Money owed to Gasthof Staud'nwirt}
\begin{longtable}{p{2cm}|p{4cm}|p{3cm}|p{6cm}}
\multicolumn{4}{l}{\expoheading{Money owed to Gasthof Staud'nwirt}} \\
\textbf{Date} & \textbf{Who} & \textbf{Amount} & \textbf{Item} \\
\midrule
\endfirsthead
\textbf{Date} & \textbf{Who} & \textbf{Amount} & \textbf{Item} \\
\midrule
\endhead
\vspace{20.3cm} & & & \\
\vspace{22cm} & & & \\
\end{longtable}
\clearpage
}
\newcommand{\blankpage}[1]{
% for creating a double page with nothing but a title
% longtable to consistent formatting
\addcontentsline{toc}{chapter}{#1}
\begin{longtable}{p{\textwidth}}
\expoheading{#1} \\
\vspace{\textheight} \\
\end{longtable}
}
\begin{document}
\newread\namesread
\newcounter{maxlines}
\newcounter{linecount}
\def\and{&}
\openin\namesread=names.txt
\loop\unless\ifeof\namesread
\read\namesread to \currentname
\stepcounter{maxlines}
\repeat
\addtocounter{maxlines}{-1}
\newread\datesread
\openin\datesread=dates.txt
\read\datesread to \zeroweek
\read\datesread to \firstweek
\read\datesread to \secondweek
\read\datesread to \thirdweek
\read\datesread to \fourthweek
\read\datesread to \fifthweek
\read\datesread to \sixthweek
\expotitle
\printtoc
\addcontentsline{toc}{chapter}{Drinks}
\tallyeveryone{Drinks 1--50}{\drinksssubtitle}{0}
\tallyspares{More drinks 51--100}{\drinksssubtitle}{50}{12}
\addcontentsline{toc}{chapter}{Nights}
\nightstallyoneweek{Nights, week zero}{\zeroweek}
\nightstally{Nights and time underground, weeks 1-3}{\firstweek}{\secondweek}{\thirdweek}
\nightstally{Nights and time underground, weeks 4-6}{\fourthweek}{\fifthweek}{\sixthweek}
%increase page counter and insert blank page, for ease of use
\shipout\null
\stepcounter{page}
\moneyowed
\moneyowedgasthof
\expotransport
\blankpage{Toll road info}
\blankpage{Gear left up the hill}
\blankpage{Gear taken back to UK}
\blankpage{Top camp food bought}
\blankpage{First Aid}
\blankpage{In-Austria jollies}
\blankpage{Suggestions for next year}
\blankpage{Quotes}
\end{document}