A Tex-File to produce signs for the Rock-Ola 1472

jukebox-signs.tex

\documentclass[11pt,div=11]{scrartcl}
\usepackage[utf8]{inputenc}
\usepackage[OT1]{fontenc}
\usepackage{fontspec}
\usepackage{calc}
\usepackage[german]{babel}
\usepackage{tikz,pgfplots}
\usetikzlibrary{backgrounds}
\pagestyle{empty}
\setlength{\parindent}{0pt}
\setlength{\parskip}{0pt}
\setromanfont[Ligatures={Common}]{Paddington}
\tikzstyle{markersouter}=[very thin,white,dashed] %cutting lines
\tikzstyle{markersinner}=[very thin,white!25!black] %innerl lines, shoudl vanish, but don't cut
%\tikzset{every picture/.style={inner sep=0pt,outer sep=0pt,show background rectangle ,tight background,
%  background rectangle/.style={fill=black, inner sep=0pt,outer sep=0pt},
%  color=white,help lines/.style={color=lightgray,line width=0.2pt}]}}
	\colorlet{myBlue}{blue!50!green!75!white}
	\colorlet{myRed}{red!87.5!blue!75!white}
	\colorlet{myYellow}{yellow!87.5!red!75!white}
	\colorlet{myBG}{black}
	\colorlet{myFG}{white}
\begin{document}
% Höhe 25 mm (Sichtbar 21mm)
% Breite 78 mm 6 mm border left
%
% TODO: Export data to a databse
\foreach \bcolor/\fcolor/\artist/\songone/\songTwo in {%
% Artists Database - background color/text color/Artists/Title1/Title2
	myBlue/black/{John Lennon \& Yoko Ono}/{Woman}/{Beautiful Boys},%
	myBlue/black/{Kim Wilde}/{Kids in America}/{Turning in Turning on},%
	myBlue/black/{Kraftwerk}/{Das Model}/{The Model},%
	myBlue/black/{Kraftwerk}/{Der Roboter}/{Spacelab},%
	myBlue/black/{ZZ Top}/{Gimme All Your Lovin'}/{If I Could Only Flag Her Down},%
	% 5
	myBlue/black/{J.\,J.\,Lionel}/{Le Dances Des Canards}/{L'Amour Comme \c{C}a},%
	myBlue/black/{Communards}/{Don't Leave Me This Way}/{Sanctified},%
	myBlue/black/{Peter Gabriel}/{Sledgehammer}/{Don't Break This Rythm},%
	myBlue/black/{Bellamy Brothers}/{Bound To Explode}/{Can Somebody Hear Me Now},%
	myBlue/black/{Eric Clapton and His Band}/{Promises}/{Watch Out For Lucy},
	% 10
	myBlue/black/{Exile}/{You Thrill Me}/{Don't Do It},
	myBlue/black/{\footnotesize{Bob Seger\,\&\,the Silver Bullet Band}}/{Stilll the Same}/{Feel Like a Number},
	myBlue/black/{Mick Jackson}/{Blame It on the Boogie}/{All Night Boopin'},
	%this one is very much hacked, if 2 Artists occure more often one might think to turn that into a command
	myBlue/black/{\ \\[-\baselineskip]\footnotesize{%
		{John Lennon~\&~Paul McCartney}\\[-.4\baselineskip]%keep them closer
		{Raymond Moore \& George Jackson}}}/{Hey Jude}/{Search Your Heart},
	% Rutherford/Collins/Banks->Genesis
	myBlue/black/{Genesis}/{Follow You Follow Me}/{Ballad of Big},
	% 15
	myBlue/black/{\ \\[-\baselineskip]\footnotesize{Dave Alvin\\[-.4\baselineskip]S. Stevens}}/{Marie,Marie}/{Baby If We Touch},
	myBlue/black/{\ \\[-\baselineskip]\footnotesize{Roy Orbinson/Bill Dees\\[-.4\baselineskip]Dale Evans}}/{(Oh) Pretty Woman}/{Happy Trails},
	myBlue/black/{Joan Jett \& The Blackhearts}/{I Love Rock'n'Roll}/{Love Is Pain},
	myBlue/black/{Toto}/{Rosanna}/{It's a Feeling},
	myBlue/black/{Kool \& The Gang}/{Ladies' Night}/{Too Hot}
}%
{%
	\begin{tikzpicture}[scale=0.1] % everything in milimeters
		\draw[fill=myBG,draw=none] (-40,-12.5) rectangle (36,12.5);%
		\draw[markersinner] (-36,-10) -- (36,-10); % lower inner line
		\draw[markersinner] (-36,10) -- (36,10); % upper inner line
		\draw[markersinner] (-36,-12.5) -- (-36,12.5); % vertical line
		% content
		\draw[thick, draw=\bcolor] (-40,0) -- (36,0);%
		\draw[rounded corners=6.333,fill=\bcolor,draw=\bcolor!50!white,thick]%
			(-28,-3.1666) rectangle (28,3.1666);%
		\node[text=\fcolor, text width=168,align=center]%
			(artist) at (0,0) {\strut\artist};%
		\node[text width=240,align=center, text=myFG] (Songone) at (0,7) {\strut\songone};%
		\node[text width=240,align=center, text=myFG] (SongTwo) at (0,-7) {\strut\songTwo};%
		\draw[markersouter,use as bounding box] (-40,-12.5) rectangle (36,12.5);%
		\clip (-40,-12.5) rectangle (36,12.5);%
	\end{tikzpicture}\vspace{-.04375\baselineskip}\ \hspace{-.08025\textwidth}%
}
\newpage % For too long, splitting by colors
\foreach \bcolor/\fcolor/\artist/\songone/\songTwo in {%
% Artists Database - background color/text color/Artists/Title1/Title2
	%
	% YELLOW
	% --------------------------------------------------------------------------
	myYellow/black/{Trio}/{\footnotesize Da Da Da ich lieb dich nicht du liebst mich nicht}/{Sabine Sabine Sabine},%Der erste Song heißt eigentlich „Da Da Da ich lieb dich nicht du liebst mich nicht aha aha aha“, das aber selbst in kleiner zu lang
	myYellow/black/{Bryan Ferry}/{Avalon}/{Always Unknowing},%
	myYellow/black/{Dr.\ Feelgood}/{As Long As The Price Is Right}/{Down At The (Other) Doctors},%
	myYellow/black/{{\small Erste Allgemeine Verunsicherung}}/{Ba-Ba Banküberfall}/{Es g'winnt a jeder},%
	myYellow/black/{Dire Straits}/{Sultans Of Swing}/{Eastbound Trains},%
	% 6
	myYellow/black/{BAP}/{Verdamp Lang Her}/{Waschsalon},%
	myYellow/black/{The Four Lads}/{The Mocking Bird}/{Won'cha},%
	myYellow/black/{The Rubettes}/{I Can Do It}/{If You've Got The Time},%
	myYellow/black/{Freddie Mercury}/{The Great Pretender}/{Exercise In Free Love},%
	myYellow/black/{The Police}/{Every Little Thing She Does Is Magic}/{Shambelle},%
	% 11
	myYellow/black/{John Stewart}/{Lost Her In The Sun}/{Heart Of The Dream},%
	myYellow/black/{The Rolling Stones}/{I Wanna Be Your Man}/{Come On},%
	myYellow/black/{Electric Light Orchestra}/{Shine A Little Love}/{Jungle},%
	myYellow/black/{Survivor}/{Eye Of The Tiger}/{Take You On A Saturday},%
	myYellow/black/{\ \\[-\baselineskip]\footnotesize{Helen Schneider\\[-.4\baselineskip] Helen Schneider \& Panik Orchester}}/{Angry Times}/{Jimmy (Cindy I Don't)},%
	% 16
	myYellow/black/{Eddy Grant}/{Do You Feel My Love?}/{Symphony For Michael Opus},%
	myYellow/black/{Kim Wilde}/{You Keep Me Hangin' On}/{Loving You},%
	myYellow/black/{Quarterflash}/{Harden My Heart}/{Don't Be Lonely},%
	myYellow/black/{Falco}/{Jeanny}/{Männer des Westens - any kind of land},%
%	myYellow/black/{Berühmte Opernchöre}/{\ \\[-\baselineskip]\footnotesize{Flieg' Gedanke, getragen von Sehnsucht /\\[-.4\baselineskip]O welche Lust, in freier Luft}}/{\ \\[-\baselineskip]\footnotesize{Marsch \& Chor a.\ d.\ 4. Akt d.\ Oper „Carmen“ /\\[-.4\baselineskip] Jägerchor a.\ d.\ der Oper „Der Freischütz“}},%
	myYellow/black/{The Beatles}/{All You Need Is Love}/{Baby, You're A Rich Man}%
}%
{%
	\begin{tikzpicture}[scale=0.1] % everything in milimeters
		\draw[fill=myBG,draw=none] (-40,-12.5) rectangle (36,12.5);%
		\draw[markersinner] (-36,-10) -- (36,-10); % lower inner line
		\draw[markersinner] (-36,10) -- (36,10); % upper inner line
		\draw[markersinner] (-36,-12.5) -- (-36,12.5); % vertical line
		% content
		\draw[thick, draw=\bcolor] (-40,0) -- (36,0);%
		\draw[rounded corners=6.333,fill=\bcolor,draw=\bcolor!50!white,thick]%
			(-28,-3.1666) rectangle (28,3.1666);%
		\node[text=\fcolor, text width=168,align=center]%
			(artist) at (0,0) {\strut\artist};%
		\node[text width=240,align=center, text=myFG] (Songone) at (0,7) {\strut\songone};%
		\node[text width=240,align=center, text=myFG] (SongTwo) at (0,-7) {\strut\songTwo};%
		\draw[markersouter,use as bounding box] (-40,-12.5) rectangle (36,12.5);%
		\clip (-40,-12.5) rectangle (36,12.5);%
	\end{tikzpicture}\vspace{-.04375\baselineskip}\ \hspace{-.08025\textwidth}%
}
\newpage % For too long, splitting by colors
\foreach \bcolor/\fcolor/\artist/\songone/\songTwo in {%
% Artists Database - background color/text color/Artists/Title1/Title2
	%
	% RED	
	% --------------------------------------------------------------------------
	myRed/black/{Taco}/{Puttin' On The Ritz}/{Livin' In My Dream},%
	myRed/black/{Derek And The Dominos}/{Layla}/{Bell Bottom Blues},%
	myRed/black/{The Shadows}/{Quatermaster's Stores}/{Apache},%
	myRed/black/{The Platters}/{The Great Pretenders}/{Only You},%
	myRed/black/{Little Richard}/{Rip It Up}/{Ready Teddy},%
	% 6
	myRed/black/{Gene Pitney}/{No Matter What You Do}/{Just On Smile},%
	myRed/black/{DION}/{Ruby Baby}/{He'll Only Hurt You},%
	myRed/black/{\footnotesize{Herman Brood \& His Wild Romance}}/{Hot Shot}/{\ \\[-\baselineskip]\footnotesize{Old Memories\\[-.4\baselineskip] (Don't Pay My Liquor Bills)}},%
	myRed/black/{Gilian}/{New Orleans}/{Take A Hold Of Yourself},%
	myRed/black/{Tommy Roe}/{Susie Darlin'}/{Piddle de Pat},%
	% 11
	myRed/black/{Rick Astley}/{Always Going To Take Me Down}/{\ \\[-\baselineskip]\footnotesize{Always Going To Take Me Down\\[-.4\baselineskip](Instrumental)}},%
	myRed/black/{Johnny And The Hurricanes}/{Crossfire}/{Beatnik Fly},%
	myRed/black/{Nini Rosso}/{In Silenzio}/{Der Clowwn},%
	myRed/black/{J.\ J.\ Cale}/{Cocaine}/{Hey Baby},%
	myRed/black/{The Beatles}/{I Feel Fine}/{She's A Woman},%
	% 16
	myRed/black/{Sniff 'n' The Tears}/{Driver's Seat}/{Slide Away},%
	myRed/black/{Bryan Adams}/{Hidin' From Love}/{Wait And See},%
	myRed/black/{Iron Maiden}/{Can I Play With Madness}/{Black Bart Blues},%
	myRed/black/{Freddy Quinn}/{St.~Helena}/{Fahrt ins Abenteuer},%
	myRed/black/{Freddy Quinn}/{Die Gitarre und das Meer}/{Ich denk' an dich}%
}%
{%
	\begin{tikzpicture}[scale=0.1] % everything in milimeters
		\draw[fill=myBG,draw=none] (-40,-12.5) rectangle (36,12.5);%
		\draw[markersinner] (-36,-10) -- (36,-10); % lower inner line
		\draw[markersinner] (-36,10) -- (36,10); % upper inner line
		\draw[markersinner] (-36,-12.5) -- (-36,12.5); % vertical line
		% content
		\draw[thick, draw=\bcolor] (-40,0) -- (36,0);%
		\draw[rounded corners=6.333,fill=\bcolor,draw=\bcolor!50!white,thick]%
			(-28,-3.1666) rectangle (28,3.1666);%
		\node[text=\fcolor, text width=168,align=center]%
			(artist) at (0,0) {\strut\artist};%
		\node[text width=240,align=center, text=myFG] (Songone) at (0,7) {\strut\songone};%
		\node[text width=240,align=center, text=myFG] (SongTwo) at (0,-7) {\strut\songTwo};%
		\draw[markersouter,use as bounding box] (-40,-12.5) rectangle (36,12.5);%
		\clip (-40,-12.5) rectangle (36,12.5);%
	\end{tikzpicture}\vspace{-.04375\baselineskip}\ \hspace{-.08025\textwidth}%
}
\end{document}