%----------------------------------------------------------------------------%
% Cassette-cover macros for TeX: CASCOVER.TEX (main macrofile)               %
% Files supplied: CASCOVER.TEX, CASCFONT.TEX, NORMAL.CAS, SMALL.CAS,         %
%                 CCMANMAC.TEX, MANUAL.TEX, MANUAL.DVI, MANUAL.DOC,          %
%                 EXAMPLES.TEX, EXAMPLES.DVI                                 %
% Author: Stijn Raaijmakers                                                  %
% Date: 10/2/94                                                              %
% Package is freeware.                                                       %
%----------------------------------------------------------------------------%

\catcode`\@=11

\newdimen\rulethickness \rulethickness=0.4pt
\newdimen\frontwidth \frontwidth=\coverwidth \advance\frontwidth by
  -2\covermargin \advance\frontwidth by -\rulethickness
\newdimen\sidewidth \sidewidth=\frontwidth \advance\sidewidth by -.5\coverwidth

\def\vmargin{\vskip\covermargin \relax}
\def\hmargin{\hskip\covermargin \relax}

\input cascfont

\def\parbox#1#2#3{\vtop to #2{\hsize=#1 #3}}
\def\lead{\thinspace\xleaders\hbox to.5em{\hss$\scriptscriptstyle\cdot$\hss}%
  \hfill\thinspace}
\def\ifempty#1#2#3\fi{{\def\a{#1}\def\b{}\ifx\a\b #2\else#3\fi}}

\newcount\@entrycount \def\@clearentry{\global\@entrycount=0 \relax}
\def\@nextentry{\global\advance\@entrycount by 1 \number\@entrycount}

\def\@beginside{\leavevmode\vrule\hmargin\parbox\sidewidth\coverheight
  \bgroup\vmargin\@clearentry}
\def\@title#1#2#3#4{{\it\@entry{#1}{#2}{#3}{#4}}\smallskip}
\def\@entry#1#2#3#4{\hbox to\sidewidth{\phantom{\resetfont00 }\llap{#1 }%
  #2\lead#3\ifempty{#4}{}\phantom{\resetfont\ 00:00}\llap{#4}\fi}}

\def\begintape{\bigbreak \hrule width \coverwidth\nobreak \begingroup
  \parskip=0pt \parindent=0pt \small \relax}
\def\endtape{\endgroup \goodbreak \vfil}

\def\beginside#1: #2 - #3 (#4) {\@beginside\@title{#1:}{#2}{#3}{#4}}
\def\endside{\vskip\covermargin plus1fil \egroup\hmargin}
\def\title#1 - #2 {\smallskip\@title{}{#1}{#2}{}}
\def\\#1 - #2, #3 {\@entry\@nextentry{{#1}}{{#2}}{#3}} % extra groups are
  % needed to prevent user from having to use double groups with \cond.
\let\begincontents=\relax
\def\endcontents{\vrule\nobreak\par\hrule width\coverwidth\nobreak}
\let\empty=\leavevmode

\def\fronttitle#1 - #2 {{\large\hbox to \frontwidth{{\it #1}\hfil#2}}\vfil}
\def\beginfront{\vrule\hmargin\parbox\frontwidth\frontheight\bgroup\vfil}
\def\endfront{\egroup\hmargin\vrule\nobreak\par\hrule width\coverwidth\nobreak}

\def\beginflap{\vrule\hmargin\parbox\frontwidth\flapheight\bgroup\vmargin}
\def\endflap{\vskip\covermargin plus1fil \egroup\hmargin\vrule\nobreak\par
  \hrule width\coverwidth\nobreak}

\catcode`\@=12