% dvidoc.tex  Extension to docmac.tex. B. Langdon, Oct. 88.
% To use, do \input dvidoc, then \dvidoc before anything gets formatted.
% Don't change magnification.
% You may want different content for the ASCII file. Here's what I do:
% \ifdvidoc
%    stuff for ASCII file
% \else
%    stuff for normal laser printer output, e.g. math
% \fi
\newif\ifdvidoc  \dvidocfalse
\def\dvidoc{
  \font\docfont=doc     % a font in which all characters are same width
% the following are from docmac.tex.
  \textfont0=\docfont \scriptfont0=\docfont \scriptscriptfont0=\docfont
  \def\rm{\fam0\docfont}
  \textfont1=\docfont \scriptfont1=\docfont \scriptscriptfont1=\docfont
  \def\mit{\fam1} \def\oldstyle{\fam1\docfont}
  \def\it{\fam\itfam\docfont} % \it is family 4
  \textfont\itfam=\docfont
  \def\sl{\fam\slfam\docfont} % \sl is family 5
  \textfont\slfam=\docfont
  \def\bf{\fam\bffam\docfont} % \bf is family 6
  \textfont\bffam=\docfont \scriptfont\bffam=\docfont
  \scriptscriptfont\bffam=\docfont
  \def\tt{\fam\ttfam\docfont} % \tt is family 7
  \textfont\ttfam=\docfont
  \rm
% Would it work to have just redefined
% \tenrm, \sevenrm,...\teni,...\tenit,...etc as \docfont?
% Should that be done anyway, as in
  \let\tenrm=\docfont
  \let\sevenrm=\docfont         % smaller sizes don't exist.
  \let\fiverm=\docfont
%
% docmac makes these work:
  \def\TeX{TeX}
  \def\LaTeX{LaTeX}
  \def\SliTeX{SliTeX}
  \def\BibTeX{BibTeX}
%
% horizontal dimensions had best be multiples of \em
  \hsize 78 em                  % 78 characters per line so fit any screen
  \rightskip=0pt plus 4em       % ragged right
  \spaceskip=1em                % forces ONE space between words
% \frenchspacing        suppresses extra blanks after punctuation -don't
  \parindent=5em
  \def\enspace{\kern 1em} \def\enskip{\hskip 1em\relax}
%
% vertical skips may best be multiples of \baselineskip
  \baselineskip=12pt            % 6 lines per inch
% \vsize                        % default give 58 lines -OK
  \voffset=\baselineskip        % so don't lose \headline
  \parskip=0pt
  \smallskipamount=0pt
  \medskipamount= \baselineskip
  \bigskipamount=2\baselineskip
  \raggedbottom
  \dvidoctrue
}
\endinput
