%%%%%%%%%%%%%%%%%%%%%%%% monster.sty %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%	Extend LaTeX font sizes up to "monster" sized fonts, in
%	PostScript.  This style is intended to be used with the
%	PostScript styles that come with Rokicki's dvips, as in
%
%		\documentstyle[times,monster,11pt]{article}
%
%	The new font sizes are:
%
%	\HUGE		30pt characters		36pt \baselineskip
%	\monster	43pt characters		52pt \baselineskip
%	\Monster	62pt characters		75pt \baselineskip
%	\MONSTER	89pt characters		107pt \baselineskip
%	\screamer	128pt characters	154pt \baselineskip
%	\Screamer	185pt characters	222pt \baselineskip
%	\SCREAMER	266pt characters	319pt \baselineskip
%
% Harry Payne                       Internet: payne@stsci.edu
% Space Telescope Science Institute     SPAN: SCIVAX::PAYNE (6549::PAYNE)
% 3700 San Martin Drive                Phone: (410) 338-4539
% Baltimore, MD 21218                   ICBM: 76 37' 30"W  39 20' 00"N
%
% Copyright (C) 1991 Harry Payne
%
% Permission is granted for use and non-profit distribution of this
% software, provided that this notice is clearly maintained.  
%

\font\twfvmi  = cmmi10   \@magscale5 % math italic
\font\twfvsy  = cmsy10   \@magscale5 % math symbols
\font\twfvsyb = cmbsy10  \@magscale5 % bold symbols
\font\twfvsc  = cmcsc10  \@magscale5 % small caps
\font\twfvly  = lasy10   \@magscale5 % LaTeX symbols
\font\twfvlyb = lasyb10  \@magscale5 % bold LaTeX symbols

\font\thrtrm = cmr10  scaled 2987
\font\thrtmi = cmmi10 scaled 2987 % math italic  2987 <==> magscale 6
\font\thrtsy = cmsy10 scaled 2987 % math symbols
\font\thrtly = lasy10 scaled 2987 % LaTeX symbols

\font\ftthrrm = cmr10  scaled 4300
\font\ftthrmi = cmmi10 scaled 4300 % math italic  4300 <==> magscale 8
\font\ftthrsy = cmsy10 scaled 4300
\font\ftthrly = lasy10 scaled 4300

\font\sxtwrm = cmr10  scaled 6192
\font\sxtwmi = cmmi10 scaled 6192
\font\sxtwsy = cmsy10 scaled 6192
\font\sxtwly = lasy10 scaled 6192

\font\nityrm = cmr10  scaled 8916 
\font\nitymi = cmmi10 scaled 8916
\font\nitysy = cmsy10 scaled 8916
\font\nityly = lasy10 scaled 8916

\font\onetwegtrm = cmr10  scaled 12839
\font\onetwegtmi = cmmi10 scaled 12839
\font\onetwegtsy = cmsy10 scaled 12839
\font\onetwegtly = lasy10 scaled 12839

\font\oneegtfvrm = cmr10  scaled 18488
\font\oneegtfvmi = cmmi10 scaled 18488
\font\oneegtfvsy = cmsy10 scaled 18488
\font\oneegtfvly = lasy10 scaled 18488

\font\twsxsxrm = cmr12 scaled 18488
\font\twsxsxmi = cmmi10 scaled 26623
\font\twsxsxsy = cmsy10 scaled 26623
\font\twsxsxly = lasy10 scaled 26623

% A thirty point font, magscale 6

\def\xxxpt{\textfont\z@\thrtrm 
  \scriptfont\z@\twfvrm \scriptscriptfont\z@\twtyrm
\textfont\@ne\thrtmi \scriptfont\@ne\twfvmi \scriptscriptfont\@ne\twtymi
\textfont\tw@\thrtsy \scriptfont\tw@\twfvsy \scriptscriptfont\tw@\twtysy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
        \textfont\@ne\thrtmi \textfont\tw@\thrtsy \textfont\lyfam\thrtly
        \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\@psfonts\@xxxpt{30}{25}{20}%
\@cmrset\thrtrm\twfvrm\twtyrm%
\def\ly{\fam\lyfam\thrtly}\textfont\lyfam\thrtly 
   \scriptfont\lyfam\twfvly \scriptscriptfont\lyfam\twtyly 
\@setstrut \rm}
\def\@xxxpt{}

% A forty-three point font, magscale 8

\def\xxxxiiipt{\textfont\z@\ftthrrm 
  \scriptfont\z@\ftthrrm \scriptscriptfont\z@\thrtrm
\textfont\@ne\ftthrmi \scriptfont\@ne\thrtmi \scriptscriptfont\@ne\twfvmi
\textfont\tw@\ftthrsy \scriptfont\tw@\twfvsy \scriptscriptfont\tw@\twfvsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
        \textfont\@ne\ftthrmi \textfont\tw@\ftthrsy \textfont\lyfam\ftthrly
        \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\@psfonts\@xxxxiiipt{43}{30}{25}%
\@cmrset\ftthrrm\thrtrm\twfvrm%
\def\ly{\fam\lyfam\ftthrly}\textfont\lyfam\ftthrly 
   \scriptfont\lyfam\thrtly \scriptscriptfont\lyfam\twfvly 
\@setstrut \rm}
\def\@xxxxiiipt{}

% A sixty-two point font, magscale 10

\def\lxiipt{\textfont\z@\sxtwrm 
  \scriptfont\z@\sxtwrm \scriptscriptfont\z@\ftthrrm
\textfont\@ne\sxtwmi \scriptfont\@ne\ftthrmi \scriptscriptfont\@ne\thrtmi
\textfont\tw@\sxtwsy \scriptfont\tw@\thrtsy \scriptscriptfont\tw@\thrtsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
        \textfont\@ne\sxtwmi \textfont\tw@\sxtwsy \textfont\lyfam\sxtwly
        \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\@psfonts\@lxiipt{62}{43}{30}%
\@cmrset\sxtwrm\ftthrrm\thrtrm%
\def\ly{\fam\lyfam\sxtwly}\textfont\lyfam\sxtwly 
   \scriptfont\lyfam\ftthrly \scriptscriptfont\lyfam\thrtly 
\@setstrut \rm}
\def\@lxiipt{}

% An eighty-nine point font, magscale 12

\def\ixcpt{\textfont\z@\nityrm 
  \scriptfont\z@\sxtwrm \scriptscriptfont\z@\ftthrrm
\textfont\@ne\nitymi \scriptfont\@ne\sxtwmi \scriptscriptfont\@ne\ftthrmi
\textfont\tw@\nitysy \scriptfont\tw@\sxtwsy \scriptscriptfont\tw@\ftthrsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
        \textfont\@ne\nitymi \textfont\tw@\nitysy \textfont\lyfam\nityly
        \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\@psfonts\@ixcpt{89}{62}{43}%
\@cmrset\nityrm\sxtwrm\ftthrrm%
\def\ly{\fam\lyfam\nityly}\textfont\lyfam\nityly 
   \scriptfont\lyfam\nityly \scriptscriptfont\lyfam\nityly 
\@setstrut \rm}
\def\@ixcpt{}

% A 128pt font, magscale 14

\def\cxxviiipt{\textfont\z@\onetwegtrm 
  \scriptfont\z@\nityrm \scriptscriptfont\z@\sxtwrm
\textfont\@ne\onetwegtmi \scriptfont\@ne\nitymi \scriptscriptfont\@ne\sxtwmi
\textfont\tw@\onetwegtsy \scriptfont\tw@\nitysy \scriptscriptfont\tw@\sxtwsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
        \textfont\@ne\onetwegtmi \textfont\tw@\onetwegtsy 
	\textfont\lyfam\onetwegtly
        \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\@psfonts\@cxxviiipt{128}{90}{62}%
\@cmrset\onetwegtrm\nityrm\sxtwrm%
\def\ly{\fam\lyfam\onetwegtly}\textfont\lyfam\onetwegtly 
   \scriptfont\lyfam\onetwegtly \scriptscriptfont\lyfam\onetwegtly 
\@setstrut \rm}
\def\@cxxviiipt{}

% A 185pt font, magscale 16

\def\clxxxvpt{\textfont\z@\oneegtfvrm 
  \scriptfont\z@\onetwegtrm \scriptscriptfont\z@\nityrm
\textfont\@ne\oneegtfvmi \scriptfont\@ne\onetwegtmi \scriptscriptfont\@ne\nitymi
\textfont\tw@\oneegtfvsy \scriptfont\tw@\onetwegtsy \scriptscriptfont\tw@\nitysy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
        \textfont\@ne\oneegtfvmi \textfont\tw@\oneegtfvsy 
	\textfont\lyfam\oneegtfvly
        \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\@psfonts\@clxxxvpt{185}{128}{90}%
\@cmrset\oneegtfvrm\onetwegtrm\nityrm%
\def\ly{\fam\lyfam\oneegtfvly}\textfont\lyfam\oneegtfvly 
   \scriptfont\lyfam\oneegtfvly \scriptscriptfont\lyfam\oneegtfvly 
\@setstrut \rm}
\def\@clxxxvpt{}

% A 266pt font, magscale 14

\def\cclxvipt{\textfont\z@\twsxsxrm 
  \scriptfont\z@\oneegtfvrm \scriptscriptfont\z@\onetwegtrm
\textfont\@ne\twsxsxmi \scriptfont\@ne\oneegtfvmi 
 \scriptscriptfont\@ne\onetwegtmi
\textfont\tw@\twsxsxsy \scriptfont\tw@\oneegtfvsy 
 \scriptscriptfont\tw@\onetwegtsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
        \textfont\@ne\twsxsxmi \textfont\tw@\twsxsxsy 
	\textfont\lyfam\twsxsxly
        \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\@psfonts\@cclxvipt{266}{185}{128}%
\@cmrset\twsxsxrm\oneegtfvrm\onetwegtrm%
\def\ly{\fam\lyfam\twsxsxly}\textfont\lyfam\twsxsxly 
   \scriptfont\lyfam\twsxsxly \scriptscriptfont\lyfam\twsxsxly 
\@setstrut \rm}
\def\@cclxvipt{}

\def\HUGE{\@setsize\HUGE{36pt}\xxxpt\@xxxpt}
\def\monster{\@setsize\monster{52pt}\xxxxiiipt\@xxxxiiipt}
\def\Monster{\@setsize\Monster{75pt}\lxiipt\@lxiipt}
\def\MONSTER{\@setsize\MONSTER{107pt}\ixcpt\@ixcpt}
\def\screamer{\@setsize\screamer{154pt}\cxxviiipt\@cxxviiipt}
\def\Screamer{\@setsize\Screamer{222pt}\clxxxvpt\@clxxxvpt}
\def\SCREAMER{\@setsize\SCREAMER{319pt}\cclxvipt\@cclxvipt}