summaryrefslogtreecommitdiff
path: root/dviware/crudetype/version3/small.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 /dviware/crudetype/version3/small.tex
Initial commit
Diffstat (limited to 'dviware/crudetype/version3/small.tex')
-rw-r--r--dviware/crudetype/version3/small.tex65
1 files changed, 65 insertions, 0 deletions
diff --git a/dviware/crudetype/version3/small.tex b/dviware/crudetype/version3/small.tex
new file mode 100644
index 0000000000..41badd1a16
--- /dev/null
+++ b/dviware/crudetype/version3/small.tex
@@ -0,0 +1,65 @@
+\input webmac
+% ADAPTED from DVITYPE, version 2.6.
+
+% Here is TeX material that gets inserted after \input webmac
+\def\hang{\hangindent 3em\indent\ignorespaces}
+\font\ninerm=cmr9
+\let\mc=\ninerm % medium caps for names like PASCAL
+\def\PASCAL{{\mc PASCAL}}
+
+\def\(#1){} % this is used to make section names sort themselves better
+\def\9#1{} % this is used for sort keys in the index
+
+\def\title{Crudetype}
+\def\contentspagenumber{1}
+\def\topofcontents{\null
+ \def\titlepage{F} % include headline on the contents page
+ \def\rheader{\mainfont\hfil \contentspagenumber}
+ \vfill
+ \centerline{\titlefont Crudetype}
+ \vskip 15pt
+ \centerline{An adaptable device driver (Version 0, 1986)}
+ \vfill}
+\pageno=\contentspagenumber \advance\pageno by 1
+
+
+% These macros for verbatim scanning are Copied from MANMAC.TEX. But we cant
+% use the vertical bar for a temporary escape character as WEAVE catches it.
+% So we will use ! instead and hope for the best
+\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}
+
+\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$$}}
+
+
+
+\M133. Clearly, \\{alphabet} will only cover a very
+small part of the problem.
+The
+next procedure enters data into a subset of the \\{codes} array corresponding
+to
+a single row of a \TeX\ font. In the standard font tables, row number \|m is
+the subrange $8\ast\|m\to8\ast\|m+7$ of a font. It is hoped that when the calls
+of
+procedure \\{row} are written out in a program, the result will be (just about)
+legible, whereas a string of statements like \par\qquad
+$\\{codes}[\|i,\|j].\\{font}\K\\{something}$\par
+is certainly not legible.
+
+The parameters are: \item
+\\{row\_spec} specifies what characters are to go into the row.
+\\{scheme}= number assigned to the \TeX\ coding scheme within the program,\item
+\\{row\_num}= number of the row in that scheme. (starting from 0),\item
+\\{font} = initial printer font, \par
+
+\Y\P$\4\X50:Medium level procedures\X\mathrel{+}\S$\6