%
% $Id: hw.sty,v 1.1 1993/12/24 03:48:23 qjb Exp $
% $Source: /home/qjb/tex/macros/RCS/hw.sty,v $
% $Author: qjb $
%
% sty file for LaTeX to cause the StarTrek film font to be used
% as the default roman and slant fonts.  Standard cmr roman and
% slant area available as \cmrrm and \cmrsl.  The default
% emphasized font is the slanted film font.  Use \it for regular
% italcs. 
%

\font\stfi@fontv=rpstfi20 at 5pt
\font\stfi@fontvi=rpstfi36 at 6pt
\font\stfi@fontvii=rpstfi14 at 7pt
\font\stfi@fontviii=rpstfi16 at 8pt
\font\stfi@fontix=rpstfi36 at 9pt
\font\stfi@fontx=rpstfi20 at 10pt
\font\stfi@fontxi=rpstfi11 at 11pt
\font\stfi@fontxii=rpstfi36 at 12pt
\font\stfi@fontxiv=rpstfi14 at 14pt
\font\stfi@fontxvi=rpstfi16 at 16pt
\font\stfi@fontxx=rpstfi20 at 20pt
\font\stfi@fontxxv=rpstfi20 at 25pt

\font\stfi@fontov=rpstfio20 at 5pt
\font\stfi@fontovi=rpstfio36 at 6pt
\font\stfi@fontovii=rpstfio14 at 7pt
\font\stfi@fontoviii=rpstfio16 at 8pt
\font\stfi@fontoix=rpstfio36 at 9pt
\font\stfi@fontox=rpstfio20 at 10pt
\font\stfi@fontoxi=rpstfio11 at 11pt
\font\stfi@fontoxii=rpstfio36 at 12pt
\font\stfi@fontoxiv=rpstfio14 at 14pt
\font\stfi@fontoxvi=rpstfio16 at 16pt
\font\stfi@fontoxx=rpstfio20 at 20pt
\font\stfi@fontoxxv=rpstfio20 at 25pt

\def\stfi{%
\def\cmrrm{\protect\prm}
\def\cmrsl{\protect\psl}
\def\rm{\stfi}
\def\sl{\stfii}
\def\em{\sl}
}

\let\stfi@oldvpt=\vpt
\def\vpt{%
  \stfi@oldvpt\def\stfi{\stfi@fontv}\def\stfii{\stfi@fontov}\stfi}
\let\stfi@oldvipt=\vipt
\def\vipt{%
  \stfi@oldvipt\def\stfi{\stfi@fontvi}\def\stfii{\stfi@fontovi}\stfi}
\let\stfi@oldviipt=\viipt
\def\viipt{%
  \stfi@oldviipt\def\stfi{\stfi@fontvii}\def\stfii{\stfi@fontovii}\stfi}
\let\stfi@oldviiipt=\viiipt
\def\viiipt{%
  \stfi@oldviiipt\def\stfi{\stfi@fontviii}\def\stfii{\stfi@fontoviii}\stfi}
\let\stfi@oldixpt=\ixpt
\def\ixpt{%
  \stfi@oldixpt\def\stfi{\stfi@fontix}\def\stfii{\stfi@fontoix}\stfi}
\let\stfi@oldxpt=\xpt
\def\xpt{%
  \stfi@oldxpt\def\stfi{\stfi@fontx}\def\stfii{\stfi@fontox}\stfi}
\let\stfi@oldxipt=\xipt
\def\xipt{%
  \stfi@oldxipt\def\stfi{\stfi@fontxi}\def\stfii{\stfi@fontoxi}\stfi}
\let\stfi@oldxiipt=\xiipt
\def\xiipt{%
  \stfi@oldxiipt\def\stfi{\stfi@fontxii}\def\stfii{\stfi@fontoxii}\stfi}
\let\stfi@oldxivpt=\xivpt
\def\xivpt{%
  \stfi@oldxivpt\def\stfi{\stfi@fontxiv}\def\stfii{\stfi@fontoxiv}\stfi}
\let\stfi@oldxvipt=\xvipt
\def\xvipt{%
  \stfi@oldxvipt\def\stfi{\stfi@fontxvi}\def\stfii{\stfi@fontoxvi}\stfi}
\let\stfi@oldxxpt=\xxpt
\def\xxpt{%
  \stfi@oldxxpt\def\stfi{\stfi@fontxx}\def\stfii{\stfi@fontoxx}\stfi}
\let\stfi@oldxxvpt=\xxvpt
\def\xxvpt{%
  \stfi@oldxxvpt\def\stfi{\stfi@fontxxv}\def\stfii{\stfi@fontoxxv}\stfi}

\stfi