summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/casslbl/cass.tex
blob: 4e07207f9dd7ce6cf266ed36e8039d2872792de5 (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
% 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