% 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}}