summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/cascover/cascover.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/plain/contrib/cascover/cascover.tex
Initial commit
Diffstat (limited to 'macros/plain/contrib/cascover/cascover.tex')
-rw-r--r--macros/plain/contrib/cascover/cascover.tex59
1 files changed, 59 insertions, 0 deletions
diff --git a/macros/plain/contrib/cascover/cascover.tex b/macros/plain/contrib/cascover/cascover.tex
new file mode 100644
index 0000000000..f158bb650e
--- /dev/null
+++ b/macros/plain/contrib/cascover/cascover.tex
@@ -0,0 +1,59 @@
+%----------------------------------------------------------------------------%
+% Cassette-cover macros for TeX: CASCOVER.TEX (main macrofile) %
+% Files supplied: CASCOVER.TEX, CASCFONT.TEX, NORMAL.CAS, SMALL.CAS, %
+% CCMANMAC.TEX, MANUAL.TEX, MANUAL.DVI, MANUAL.DOC, %
+% EXAMPLES.TEX, EXAMPLES.DVI %
+% Author: Stijn Raaijmakers %
+% Date: 10/2/94 %
+% Package is freeware. %
+%----------------------------------------------------------------------------%
+
+\catcode`\@=11
+
+\newdimen\rulethickness \rulethickness=0.4pt
+\newdimen\frontwidth \frontwidth=\coverwidth \advance\frontwidth by
+ -2\covermargin \advance\frontwidth by -\rulethickness
+\newdimen\sidewidth \sidewidth=\frontwidth \advance\sidewidth by -.5\coverwidth
+
+\def\vmargin{\vskip\covermargin \relax}
+\def\hmargin{\hskip\covermargin \relax}
+
+\input cascfont
+
+\def\parbox#1#2#3{\vtop to #2{\hsize=#1 #3}}
+\def\lead{\thinspace\xleaders\hbox to.5em{\hss$\scriptscriptstyle\cdot$\hss}%
+ \hfill\thinspace}
+\def\ifempty#1#2#3\fi{{\def\a{#1}\def\b{}\ifx\a\b #2\else#3\fi}}
+
+\newcount\@entrycount \def\@clearentry{\global\@entrycount=0 \relax}
+\def\@nextentry{\global\advance\@entrycount by 1 \number\@entrycount}
+
+\def\@beginside{\leavevmode\vrule\hmargin\parbox\sidewidth\coverheight
+ \bgroup\vmargin\@clearentry}
+\def\@title#1#2#3#4{{\it\@entry{#1}{#2}{#3}{#4}}\smallskip}
+\def\@entry#1#2#3#4{\hbox to\sidewidth{\phantom{\resetfont00 }\llap{#1 }%
+ #2\lead#3\ifempty{#4}{}\phantom{\resetfont\ 00:00}\llap{#4}\fi}}
+
+\def\begintape{\bigbreak \hrule width \coverwidth\nobreak \begingroup
+ \parskip=0pt \parindent=0pt \small \relax}
+\def\endtape{\endgroup \goodbreak \vfil}
+
+\def\beginside#1: #2 - #3 (#4) {\@beginside\@title{#1:}{#2}{#3}{#4}}
+\def\endside{\vskip\covermargin plus1fil \egroup\hmargin}
+\def\title#1 - #2 {\smallskip\@title{}{#1}{#2}{}}
+\def\\#1 - #2, #3 {\@entry\@nextentry{{#1}}{{#2}}{#3}} % extra groups are
+ % needed to prevent user from having to use double groups with \cond.
+\let\begincontents=\relax
+\def\endcontents{\vrule\nobreak\par\hrule width\coverwidth\nobreak}
+\let\empty=\leavevmode
+
+\def\fronttitle#1 - #2 {{\large\hbox to \frontwidth{{\it #1}\hfil#2}}\vfil}
+\def\beginfront{\vrule\hmargin\parbox\frontwidth\frontheight\bgroup\vfil}
+\def\endfront{\egroup\hmargin\vrule\nobreak\par\hrule width\coverwidth\nobreak}
+
+\def\beginflap{\vrule\hmargin\parbox\frontwidth\flapheight\bgroup\vmargin}
+\def\endflap{\vskip\covermargin plus1fil \egroup\hmargin\vrule\nobreak\par
+ \hrule width\coverwidth\nobreak}
+
+\catcode`\@=12
+ \ No newline at end of file