%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  cassette.tex (C) Copyright 1991 by David Strip.
%  Permission is granted for non-commercial use.
%  Please send corrections, refinements, etc to drstrip@cs.sandia.gov
%  Flames to \dev\null
%
%  These macros are designed to lay out a label for a standard
%  phillips audio cassette box. See the pictorial layout below.
%
%  In general you will begin with a \artist command. This command
%  takes a single argument and prints it in large boldface on the
%  spine of the cassette. Within this argument the \\ command will
%  create spacing between words. The total blank space on the line
%  is divided equally between the left margin, the right margin, and 
%  each occurance of \\. The most typical use of \\ is to separate the
%  names of different artists appearing on the tape. The \artist command
%  does not need to be repeated if several labels are being made with
%  the same artist.
%
%  The next command is the \title command. This is very similar to the
%  \artist command. It takes a single argument, which is printed on the
%  cassette spine. The \\ command and spacing are the same as in the
%  title command.
%
%  Commands \sideA and \sideB are nearly indentical. They layout the
%  left and right columns, repectively of the face of the cassette. 
%  (These columns are twice the length of the cassette box face, and are
%  intended to be folded in half. These commands also take a single arguement
%  which is then formatted as a paragraph  in the appropriate column. The
%  paragraph formatting has reverse indenting - the first line starts at the
%  margin, subsequent lines are indented. In these commands you can use \\ to
%  end lines (e.g., song titles).
%  For the daring, the arguments to the commands can contain any TeX code
%  (within reason). A few useful tricks for the uninitiated: You can call
%  \centerline{...} to center some text. You can use {\bf ...} to put text in 
%  bold face. \blankline (defined in this file, will leave a blank line.
%  (See the example.)
%
%  The \NR and \noNR switches turn on or off the dolby logo on the spine.
%
%  The \CD command within a \sideA or \sideB command will center the 
%  compact audio disk logo at the point that the command occurs.
%
%  After you have filled in these fields, you actually cause the casette
%  label to be processed with the \cassette-label command, which takes 
%  no arguements.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%      _______________________________________________
%     |                                               |
%     |                                               |
%     |_______________________________________________|
%     |                 \artist                       |
%     |                 \title                        |
%     |_______________________________________________|
%     |                      |                        |
%     |    \sideA            |       \sideB           |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |                      |                        |
%     |______________________|________________________|
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Example
%
%   \artist{Dylan\\Kooper, Bloomfield, Stills}
%   \title{Highway 61 Revisited\\Super Session}
%   \sideA{
%   Like A Rolling Stone\\
%   Tombstone Blues\\
%   It Takes a Lot to Laugh, It Takes a Train to Cry\\
%   From a Buick 6\\
%   Queen Jane Approximately\\
%   Highway 61 Revisited\\
%   Just Like Tom Thumb's Blues\\
%   Desolation Row\\
%   \CD}                                      %original was on CD
%   \sideB{
%   Ballad of a Thin Man\\
%   \blankline                                %leave a blank line
%   \centerline{\bf Bloomfield and Kooper}    %center and bold for subhead
%   Albert's Shuffle\\
%   Stop\\
%   Man's Temptation\\
%   His Holy Modal Majesty\\
%   \blankline
%   \centerline{\bf Stills and Kooper}
%   It Takes a Lot to Laugh, It Takes a Train to Cry\\
%   Season of the Witch\\
%   \CD}
%   \cassette-label                           %Print the label
%
%\end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%FONTS  Substitute freely to get what you want. These are Nini Billawala's 
%       pandora family, which lends a slightly informal touch.

\font\ftnbf=pnb10 scaled \magstep2
\font\rm=pnr10
\font\bf=pnb10

%These are two specialty fonts. I hope that you can find them. 
\font\dolby=dolby
\font\cdlogo=cdlogo

\tolerance=10000    %Allow very sloppy line breaking.
\nopagenumbers

%setup the indentation the way I want it.
\parindent=0.pt
\def\\{\par\hangindent 2em \hangafter 1}

%Now grab a few boxes to build the stuff in
\newbox\ART \newbox\TITLE \newbox\ASIDE \newbox\BSIDE \newbox\NRmark

\def\sideA#1{\setbox\ASIDE=\vbox to 4.98in{\hsize 1.875in \raggedright 
\vskip \baselineskip \\ \rm #1\vfil}}

\def\sideB#1{\setbox\BSIDE=\vbox to 4.98in{\hsize 1.875in \raggedright 
\vskip \baselineskip \\ \rm #1\vfil}}

\def\artist#1{
\setbox\ART=\vbox {\def\\{\hfil}\hsize 4.0in \ftnbf \hfil #1\hfil}}

\def\title#1{\setbox\TITLE=\vbox {
   \def\\{\hfil}
   \hsize 4.0in \hfil \rm #1 \hfil}}


%These next two may very likely need some munging with, since there obviously 
%no such thing as a standard font for the logos. In each case there is a
%single letter right after the font change command that specifies the mapping
%of the character in the font. Change that if you need.


\def\NR{\setbox\NRmark=\vbox {\hbox to 4in {\hfil \dolby E\hskip 2pt} \vskip 2pt}}
\def\noNR{\setbox\NRmark=\vbox to 10pt{}}

\def\CD{\vfill\centerline{{\cdlogo C}}\vskip 1pc}

\def\blankline{\vskip\baselineskip}

%Noise reduction logo is enabled by default.
\NR

\def\cassette-label{%

%My driver does not do landscape, so I can only do one label per page.
%If you can do landscape, you might want to remove this centerline, and
%adjust the page size parameters to do two-up. I just cut a sheet of
%paper in half and print one at a time.

\centerline{
\hbox{
   \vrule height6.0in width.01in
   \vbox to 6.0in{\vfil                  %this seems to be necessary to pick
      \hrule width4in height.01in        %   for round-off in the decimals.
      \vskip .49in
      \hrule width4.0in height.01in
      \vbox to .49in {\vfil
          \copy\ART   %artist name
          \vfil
          \box\TITLE   %album titles
          \vfil
          \vskip -\ht\NRmark
          \box\NRmark
          }
       \hrule width4.0in height.01in
       \hbox to 4.0in{
          \hskip .06in
          \box\ASIDE        %side A
          \hfil
          \vrule height4.98in width.01in
          \hfil
          \box\BSIDE        %side B
          \hskip .06in
          }
       \hrule width4.0in height.01in
       }\vrule height 6.0in width.01in
   }
}}