summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/casslbl/cass.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/plain/contrib/casslbl/cass.tex')
-rw-r--r--macros/plain/contrib/casslbl/cass.tex53
1 files changed, 53 insertions, 0 deletions
diff --git a/macros/plain/contrib/casslbl/cass.tex b/macros/plain/contrib/casslbl/cass.tex
new file mode 100644
index 0000000000..4e07207f9d
--- /dev/null
+++ b/macros/plain/contrib/casslbl/cass.tex
@@ -0,0 +1,53 @@
+% Macros to make cassette box labels
+% - Morgan Besson 7/92 (besson@ucis.vill.edu)
+
+\hsize=286pt
+\font\rm=cmr9
+\font\bf=cmbx9
+\font\it=cmti9
+\font\sl=cmsl9
+
+\nopagenumbers
+\parskip=0pt
+\parindent=0pt
+\baselineskip=9.5pt
+\let\fullhsize=\hsize
+
+\catcode`|=\active
+\def|{\par\indent\kern12pt}
+\catcode`>=\active
+\def>{\hfill}
+
+\newbox\titlebox
+\newbox\leftbox
+\newbox\rightbox
+
+\def\title{\begingroup\obeylines
+ \global\setbox\titlebox=\vbox\bgroup
+ \hsize=.97\fullhsize \bf}
+
+\def\sideA{\egroup\endgroup
+ \begingroup\obeylines
+ \global\setbox\leftbox=\vtop\bgroup
+ \hsize=.47\fullhsize
+ \centerline{\bf Side A}\smallskip}
+
+\def\sideB{\egroup\endgroup\begingroup\obeylines
+ \global\setbox\rightbox=\vtop\bgroup
+ \hsize=.47\fullhsize
+ \centerline{\bf Side B}\smallskip}
+
+\def\finish{\egroup\endgroup
+\line{\vrule\strut\hfill\vrule}
+\bigskip
+\hrule\vbox to48pt{\vfill\line{\hfil\copy\titlebox\hfil}\vfill}
+\hrule\vbox to36pt{\vfill\line{\hfil\box\titlebox\hfil}\vfill}\hrule
+\smallskip
+\vbox to184truept{
+ \line{\hfil\box\leftbox\hfil\vrule\hfil\box\rightbox\hfil}
+ \vfill\hrule}
+\bigskip
+\line{\vrule\strut\hfill\vrule}
+\vfill\eject}
+
+\rm