% package for making NCSU letterhead.
% following is hacked from letter.cls, to get letterhead on opening
% page, block left style.
% \def\opening#1{\letterhead%\rule{0in}{0.5in}
%  \thispagestyle{empty}
%  \ifx\@empty\fromaddress
%  {\raggedright\@date\par}
%  \else
%  {\raggedright\begin{tabular}{l}\ignorespaces\fromaddress \\*[2\parskip]
%  \@date \end{tabular}\par}
%  \fi
%  \vspace{2\parskip}
%  {\raggedright \toname \\ \toaddress \par}\vspace{2\parskip}
%  #1\par\nobreak}
\renewcommand{\opening}[1]{\letterhead\ifx\@empty\fromaddress
% \renewcommand*{\opening}[1]{\letterhead\ifx\@empty\fromaddress
  \thispagestyle{firstpage}%
    {\raggedright\@date\par}%
  \else  % home address
    \thispagestyle{empty}%
    {\raggedright\begin{tabular}{l}\ignorespaces
      \fromaddress \\*[2\parskip]%
      \@date \end{tabular}\par}%
  \fi
  \vspace{2\parskip}%
  {\raggedright \toname \\ \toaddress \par}%
  \vspace{2\parskip}%
  #1\par\nobreak}
\def\ps@firstpage{%
     \let\@oddhead\@empty
     \let\@oddfoot\@empty}
% extra lines of personal information:
\def\email#1{\def\em@il{#1}}
\def\em@il{}
\def\fax#1{\def\f@xnum{#1}}
\def\f@xnum{919.515.7591}
\def\telephonenum{919.512.1234}
\def\webpage#1{\def\webp@ge{#1}}
\def\webp@ge{http://www4.stat.ncsu.edu/}
\def\login#1{\def\l@gin{#1/}}
\def\l@gin{}
% improve right margin:
\setlength{\textwidth}{5.75in} \raggedright \special{! /NCSUdict 6
dict def NCSUdict begin /basefont /Times-Roman findfont def
/boldfont /Times-Bold findfont def /italfont /Times-Italic
findfont def /L1 288 def /L2 454 def /TI 1 string def TI 0 126 put
end }
\def\letterhead{\special{"
NCSUdict begin initmatrix basefont 8 scalefont setfont
% sic--line break in letterhead?!!
L1 755 moveto (North Carolina State University is a land-) show L1
745 moveto (grant university and a constituent institution) show
% sic--no period?!!
L1 735 moveto (of The University of North Carolina) show boldfont 8
scalefont setfont L2 770 moveto (Jane Q. Student) show basefont 8
scalefont setfont L2 760 moveto (Ph.D. Candidate) show basefont 8
scalefont setfont L2 750 moveto (Department of Statistics) show
basefont 8 scalefont setfont L2 740 moveto (Campus Box 8203) show L2
730 moveto (Raleigh, NC 27695-8203) show basefont [7 0 0 8 0 0]
makefont setfont L2 705 moveto (College of Physical and Mathematical
Sciences) show basefont 8 scalefont setfont L2 665 moveto
    (\em@il) stringwidth pop 0 gt {
        (\em@il) show
    } {
        italfont 8 scalefont setfont
        (lastname) show
        basefont 8 scalefont setfont
        (@stat.ncsu.edu) show
    } ifelse
L2 655 moveto (\webp@ge) show
    (\l@gin) stringwidth pop 0 gt {
        TI show (\l@gin) show
    } if
L2 685 moveto (\telephonenum) show ( (phone)) show L2 675 moveto
(\f@xnum) show ( (fax)) show end
}% end of \special
\special{psfile=ncsu-black.ps}
}% end of \def\letterhead{