summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/misc/cassette.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/plain/contrib/misc/cassette.tex')
-rw-r--r--macros/plain/contrib/misc/cassette.tex200
1 files changed, 200 insertions, 0 deletions
diff --git a/macros/plain/contrib/misc/cassette.tex b/macros/plain/contrib/misc/cassette.tex
new file mode 100644
index 0000000000..56ae700781
--- /dev/null
+++ b/macros/plain/contrib/misc/cassette.tex
@@ -0,0 +1,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
+ }
+}}
+