% LetterMacros.tex of May 29, 1984 2:31:18 pm PDT --- Stolfi

% TEX macros for letters (minus dimensions and fonts).

% General comments

%   To be used in conjunction with KernelMacros and a Font package.
%   User also has to define a bunch of
%   dimensional parameters (\textwidth, \itemindent, etc) required by
%   those macros, as exemplified in TR10LetterFormat, etc.

% Things to fix

% LETTER TITLES

\message{letter titles ...}

% Date, signature, etc.

%  Usage:
%    \whitehousehead
%    \date{Washington, DC, February 30, 1984}
%    \sendto{\t IU. Andropov
%       Big Boss at the Kremlin
%       Moscow, URSS.}
%    \oh{Dear \t IUri:}
%       Thanks for the invitation. Let's meet tomorrow at 11:30
%    pm at the Moulin Rouge.
%       See you,
%    \signed{R. Reagan}
%    \fillit\bye

\def\date#1{\null\vskip 1cm plus 15cm\hbox to \textwidth{\hfil#1}}

\def\sendto{\begingroup\obeylines\s@ndto}

\def\s@ndto#1{\vskip 0.5cm plus 20cm
  {\advance \leftglue by 20pt\parindent 0pt\parsep 0pt \rm #1\par}
  \endgroup
  \vskip 0.5cm plus5cm}

\def\oh#1{\vskip 0.7cm plus5cm\noindent #1\par
  \vskip 1cm plus10cm}

\def\signed#1{\vskip 2cm plus30cm minus 1cm
  \hbox to \textwidth{\hfil
    \vbox{\hrule\vskip5pt\hbox{\hskip 30pt #1\hskip30 pt}}
    \hskip4cm}}

\def\fillit{\par\vskip0cm plus 45cm}

% Letterheads

\def\xeroxhead#1{
  {\baselinesep -1pt \linesep 0pt\parsep 0pt
   \null\vskip-1.5cm
   {\advance\leftglue by 3cm\parindent 0pt\linesep 2pt
    \letterheadfont #1\par
      Computer Science Laboratory\par
      Xerox Palo Alto Research Center\par
      3333 Coyote Hill Road\par
      Palo Alto, California 94304\par
      Tel. (415) 494-4427\par}}
  \vskip 0.5cm
  \def\date##1{\hbox to \textwidth
      {\hbox to 0pt{\null\hskip-2cm{\logofont XEROX}\hss}
       \hfil ##1}}
 }

\def\stanfordhead{
  \vbox{\centered STANFORD UNIVERSITY\par
    COMPUTER SCIENCE DEPARTMENT}
  \vskip5pt
  \vbox{\centered\smallsize\rm Stanford, CA 94305}}

\def\emptyhead{\vskip 1cm plus 10cm}

% OUTPUT ROUTINE

\message{output ...}

% Uses same routine as PaperMacros, except for header.

% Page header format

\def\makeheadline{\vbox{
  \vbox to 0pt{
    \vskip0pt minus1000pt
    \hbox to \pagewidth
     {\headerfont \iffirstpage \else \hfil\number\pageno \fi}
    }
  \vskip 20pt}}