summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/cascover/ccmanmac.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/plain/contrib/cascover/ccmanmac.tex')
-rw-r--r--macros/plain/contrib/cascover/ccmanmac.tex60
1 files changed, 60 insertions, 0 deletions
diff --git a/macros/plain/contrib/cascover/ccmanmac.tex b/macros/plain/contrib/cascover/ccmanmac.tex
new file mode 100644
index 0000000000..2583dd936a
--- /dev/null
+++ b/macros/plain/contrib/cascover/ccmanmac.tex
@@ -0,0 +1,60 @@
+%----------------------------------------------------------------------------%
+% Cassette-cover macros for TeX: CCMANMAC.TEX (manual 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. %
+%----------------------------------------------------------------------------%
+
+\input normal.cas
+\input cascover
+
+\normalsize\rm
+%---------------------- Small pictures of covers ---------------------
+\newdimen\wtest
+
+\def\testbtape#1{\vbox\bgroup\parindent=0pt \parskip=0pt \wtest=#1
+ \sevenrm \hrule}
+\let\testetape=\egroup
+\def\testsides#1#2#3{\hbox{%
+ \vrule \parbox{.5\wtest}{#1}{\vfil\hfil#2\hfil\vfil}%
+ \vrule \parbox{.5\wtest}{#1}{\vfil\hfil#3\hfil\vfil}%
+ \vrule}\hrule}
+\def\testfront#1#2{\hbox{%
+ \vrule \parbox{\wtest}{#1}{\vfil\hfil#2\hfil\vfil}%
+ \phantom\vrule\vrule}\hrule}
+\def\tapepicture#1#2#3#4{\testbtape{#1}\testsides{#2}{}{}\testfront{#3}{}%
+ \testfront{#4}{}\testetape}
+\def\intextbox#1{\hbox{\vbox to7.5pt{\hbox{#1}\vss}}}
+
+%---------------------------- Verbatim -------------------------------
+% As in the TeXbook, page 421 (manmac)
+\newskip\ttglue
+\tt \ttglue=.5em plus.25em minus.15em \rm
+\chardef\other=12
+\def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other
+ \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other
+ \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other
+ \catcode`\_=\other \catcode`\^=\other
+ \obeyspaces \obeylines \tt}
+{\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space
+\outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt
+ \catcode`\|=0 \rightskip=-5pc \ttfinish}
+{\catcode`\|=0 |catcode`|\=\other % | is temporary escape character
+ |obeylines % end of line is active
+ |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}}
+\catcode`\|=\active
+{\obeylines\gdef|{\ttverbatim\spaceskip=\ttglue\let^^M=\ \let|=\endgroup}}
+
+%------------------------- Other textstyles --------------------------
+\font\tensc=cmcsc10 \let\sc=\tensc \let\book=\it
+\def\<#1>{$\langle$#1$\rangle$}
+\def\LaTeX{L\kern-.36em\raise.3ex\hbox{\sc a}\kern-.15emT\kern-.1667em%
+ \lower.7ex\hbox{E}\kern-.125emX}
+
+%-------------------------- Section titles ---------------------------
+\def\section#1\par{\bigbreak\centerline{\twelverm#1}\nobreak\bigskip\noindent}
+\def\subsection#1\par{\smallbreak\centerline{#1}\nobreak\smallskip\noindent}
+ \ No newline at end of file