blob: 2583dd936ab94b4971eb496393ac0f9081084efb (
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
54
55
56
57
58
59
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}
|