diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /dviware/crudetype/version3/small.tex |
Initial commit
Diffstat (limited to 'dviware/crudetype/version3/small.tex')
-rw-r--r-- | dviware/crudetype/version3/small.tex | 65 |
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 |