%----------------------------------------------------------------------------%
% 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}
