summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/misc/cassette.tex
blob: 56ae7007812b21505746cb2e9def77295f58a782 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  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
   }
}}