From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- macros/plain/contrib/cascover/cascover.tex | 59 ++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100644 macros/plain/contrib/cascover/cascover.tex (limited to 'macros/plain/contrib/cascover/cascover.tex') 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 -- cgit v1.2.3