\NeedsTeXFormat{LaTeX2e}
\ProvidesClass{neiuletter}
\RequirePackage{pstricks}
\RequirePackage{ifthen}
\RequirePackage[usenames]{pstcol}
\definecolor{NEIUBlue}{cmyk}{0.62,0.57,0.23,0.06}
\DeclareOption*{\PassOptionsToClass{\CurrentOption}{letter}}
\ProcessOptions
\LoadClass{letter}
%
% Commands for adding extra information into header
% Internal storage commands
%\newcommand{\com_name}[narg]{definition}
\newcommand{\@web}{}
\newcommand{\@email}{}
\newcommand{\@phone}{}
\newcommand{\@location}{}
\newcommand{\@unitname}{}
\newcommand{\web}[1]{\renewcommand{\@web}{#1}}
\newcommand{\email}[1]{\renewcommand{\@email}{#1}}
\newcommand{\phone}[1]{\renewcommand{\@phone}{#1}}
\newcommand{\unitname}[1]{\renewcommand{\@unitname}{#1}}
\renewcommand{\location}[1]{\renewcommand{\@location}{#1}}
%
%
\newlength{\leftfield}
\newlength{\rightfield}
\setlength{\leftfield}{0.6\textwidth}
\setlength{\rightfield}{0.4\textwidth}
%\setlength{\topmargin}{40pt}
%\setlength{\textwidth}{120mm}
%\setlength{\oddsidemargin}{20pt}
%
\def\Logo{ %NEIU_logo
\psset{unit=1.8}
\begin{pspicture}(0,0)(1,1)
\rput(-1.88,0.30){%
\psline[linecolor=Dandelion,linewidth=1.5pt](0.14,0.84)(0.2,0.84)(0.4,0.84)(0.44,0.84)% top lh
\psline[linecolor=Dandelion,linewidth=1.5pt](0.43,0.83)(0.44,0.8)(0.48,0.68)% upper left center
\psline[linecolor=Dandelion,linewidth=1.5pt](-.075,0.04)(0.145,.84)%  left
\pspolygon[fillstyle=solid,fillcolor=CadetBlue,linestyle=none](-0.02,0.08)(.18,0.8)(.4,.8)(.2,0.08)% Left
%\pspolygon[fillstyle=solid,fillcolor=white,linestyle=none](-0.1,0)(.01,.04)(.4,.04)(.2,0)%
\pspolygon[fillstyle=solid,fillcolor=CadetBlue,linestyle=none](.2,.8)(.40,.8)(.60,.2)(.4,.2)% Center
\pspolygon[fillstyle=solid,fillcolor=CadetBlue,linestyle=none](.4,.2)(.615,1.04)(.835,1.04)(.62,.2)% Right
\pspolygon[fillstyle=solid,fillcolor=CadetBlue,linestyle=none](.4,.21)(.41,0.16)(.61,0.16)(.62,.21)% RightCap
\psline[linecolor=Dandelion,linewidth=1.5pt](.885,1.08)(.645,.12)% right
\psline[linecolor=Dandelion,linewidth=1.5pt](.57,1.08)(.895,1.08)% top rh
\psline[linecolor=Dandelion,linewidth=1.5pt](.48,.68)(.58,1.08)% upper center right
\psline[linecolor=Dandelion,linewidth=1.5pt](.38,.12)(.65,.12)% bottom right
\psline[linecolor=Dandelion,linewidth=1.5pt](.38,.12)(.315,.34)% lower center right
\psline[linecolor=Dandelion,linewidth=1.5pt](.23,0.04)(.315,.34)% lower center left
\psline[linecolor=Dandelion,linewidth=1.5pt](-.09,0.04)(.24,0.04)% bottom left
}%
\rput(-1.905,0.32){%
\rput[l](1.0,0.85){\textcolor{NEIUBlue}{\fontfamily{ptm}\fontsize{19}{20}\selectfont Northeastern}}
\rput[l](1.0,0.53){\textcolor{NEIUBlue}{\fontfamily{ptm}\fontsize{19}{20}\selectfont Illinois}}
\rput[l](1.0,0.20){\textcolor{NEIUBlue}{\fontfamily{ptm}\fontsize{19}{20}\selectfont University}}
\psline[linecolor=NEIUBlue,linewidth=0.5pt](1.0,0.05)(2.35,0.05)%
\psline[linecolor=NEIUBlue,linewidth=0.5pt](2.49,0.05)(10.8,0.05)%
\rput[l](1,-0.10){\textcolor{NEIUBlue}{\fontfamily{ptm}\fontsize{7}{7}\selectfont 5500 NORTH ST. LOUIS AVENUE}}%
\rput[l](1,-0.26){\textcolor{NEIUBlue}{\fontfamily{ptm}\fontsize{7}{7}\selectfont CHICAGO, ILLINOIS 60625-4699}}%
\rput[l](1,-0.59){\textcolor{NEIUBlue}{\fontfamily{ptm}\fontsize{7}{7}\selectfont PHYSICS}}}%
\end{pspicture}%
}

\newsavebox{\neiuhead}
\sbox{\neiuhead}{\parbox{\textwidth}{\Logo}\\%
}


\renewcommand{\ps@firstpage}
  {\setlength{\headheight}{30pt}\setlength{\headsep}{20pt}%
   \renewcommand{\@oddhead}{\usebox{\neiuhead}}%
   \renewcommand{\@oddfoot}{}%
   \renewcommand{\@evenhead}{}%
   \renewcommand{\@evenfoot}{}%
}%


\renewcommand{\ps@headings}
  {\setlength{\headheight}{20pt}%
   \renewcommand{\@oddhead}
   {\parbox{\textwidth}{\usebox{\neiuhead}\\[0pt]
   \slshape\headtoname{} \toname \hfill\@date\hfill 
                            \pagename{}\thepage\\
   \rule[3pt]{\textwidth}{1pt}}}
   \renewcommand{\@oddfoot}{}%
   \renewcommand{\@oddfoot}{}%
   \renewcommand{\@evenhead}{}%
   \renewcommand{\@evenfoot}{}%
}
   
\providecommand{\@oddhead}{}\providecommand{\@oddfoot}{}
\providecommand{\@evenhead}{}\providecommand{\@evenfoot}{}
%\pagestyle{headings}
%\thispagestyle{firstpage}
%\pagestyle{firstpage}


\renewcommand{\opening}[1]{\thispagestyle{firstpage}%
  \parbox[t]{\leftfield}% \parbox[position][height][inner-pos]{width}{text}
   {\parbox[b][2cm][c]{\leftfield}{\toname\\\toaddress}}%
\parbox[t]{\rightfield}
   {\fromname 
%   \ifthenelse{test}{then_text}{else_text}
%   \equal{string1}{string2)
    \ifthenelse{\equal{\@location}{}} 
    {}{\\ Science Building: \@location}
    \ifthenelse{\equal{\@phone}{}} 
    {}{\\ Tel.: \@phone}
    \ifthenelse{\equal{\@email}{}}
    {}{\\{E-mail: \@email}}
    \ifthenelse{\equal{\@web}{}}
    {}{\\{Web: \@web}}
    \\[1cm]\@date}
\vspace{2\parskip} #1 \par\nobreak}