\documentclass[english,a4paper]{article}
\usepackage[latin1]{inputenc}
\usepackage{babel}
\usepackage[margin=1cm,nohead,nofoot]{geometry}
%\usepackage{xspace}
%\usepackage{array}
\usepackage{color}
\usepackage{graphicx}
%\usepackage{tabularx}
%\usepackage{colortbl}
\usepackage{multicol}
\usepackage{times}

% Experiment with simplified playlist...

% The title that will be printed on the sides of the case
\def\cdtitle{The Alan Parsons Project} 

% the name of the playlist to include - this is the file
% that was produced with the python program
\def\playlist{plx}

% The number of columns that the listing should have
\def\numcols{3}

% \dot is the separator between the track name and the artist;
% we don't actually use a dot but switch to slanted type
\def\dot{\unskip\space\itshape}

% \grayrule is like \rule, only in a light gray shade. It is used
% to indicate the folding lines for the CD-case inlay.
\def\grayrule#1#2{\begingroup\color[gray]{.7}\rule{#1}{#2}\endgroup}

% \rotatedtitle will print the CD title sideways on the sides of the
% case
\def\rotatedtitle#1{%
  \makebox[.6cm]{% width of the folded side
    \raisebox{\height}[0pt][0pt]{% 'smash' a box
      \rotatebox[origin=Bc]{#1}{%
        \makebox[11.7cm][l]{\space\cdtitle}%
      }%
    }%
  }%
}

% The title is set in bold and preceded and followed by a dash,
% except at the beginnen and ending of a line, respectively.
\def\title#1.{\leaddash{\fontseries{bc}\selectfont#1\leaddash}}

% The subtitle is set in italics
\def\subtitle#1.{{\fontseries{mc}\itshape\selectfont#1:\/}}

% This m-dash is defined as glue, and will disappear at line breaks
\def\leaddash{\cleaders\hbox to 1em{\hss---\hss}\hskip 1em}

\def\tracknr#1{{\fontseries{bc}\selectfont #1}}
\def\track#1{\nobreak\space{\fontseries{mc}\selectfont #1}}
\def\tracktime(#1){\nobreak\space(#1)}

% each line is preceded by \entry; trackleaders form the dotted line
\def\entry{\space\futurelet\next\bentry}
\def\bentry{\ifcat\noexpand\next0\tentry\fi}
\def\tentry#1 #2...(#3).{\tracknr{#1}\track{#2}\tracktime(#3)}%

% a simple dotted line, at least half an em
\def\trackleaders{\leaders\hbox to .5em{\hss.\hss}\hskip .5em plus 1fil}


% all typesetting in helvetica
\renewcommand{\familydefault}{\sfdefault}

% no page numbers
\pagestyle{empty}

% tight fbox around the whole thing for cut-out marking
\fboxsep=0pt


\begin{document}

% the sans font from 'SliTeX'
\fontsize{7}{7}\fontfamily{lcmss}\selectfont


\fbox{% a box around it
  \makebox[15cm][s]{% width of the paper
    \rotatedtitle{90}% title on the side
    \grayrule{.4pt}{11.7cm}% fold line
    \hfill% horizontal centering
    \parbox[b][11.7cm][s]{12.1cm}{% defined width and height of main area
      \sffamily\fontsize{6}{10}\fontseries{mc}\selectfont% large interline!
      \hyphenpenalty=500% rather no hyphens
      \parfillskip=0pt% end text dead flush on the right margin
      \parindent=0pt% and start straight on the left
      \baselineskip 10pt plus 10pt%
      \vskip 7.5mm%
      \vskip -6pt%
      \mbox{}\\% stupid trick to start with a linebreak--
               % and make the first dash disappear
      \noindent%
      \begingroup
      \let\realpar\par
      \let\par\entry\obeylines%
%      \tracingmacros=1\tracingcommands=2%
      \input{\playlist}\unskip% read the playlist and cancel last space
      \endgroup
      \vskip 7.5mm}% 
    \hfill% horizontal centering
    \grayrule{.4pt}{11.7cm}% fold line
    \rotatedtitle{-90}% title on the left side
  }%
}

\end{document}
