% This AmSTeX file defines the macro "\bolditalic" for use in math mode
% (this is not a text font).  This file assumes that "\tenpoint"
% and "\eightpoint" macros are defined in roughly the same way as in
% amsppt.sty (so it will work with most AmSTeX style files). It uses
% the computer modern font cmmib10, and so these characters cannot be
% used as subscripts, superscripts, or in eighpoint type (typically the
% abstract and references).  This can be changed if you want to use
% the Euler fonts eurb*, but I didn't care for them very much.  This file
% is most useful if you need a set of bold greek lowercase characters;
% the bold italic versions of the greek characters are defined as
% \bialpha, etc. Say "\input usebolditalic" immediately after
% the "\documentstyle" command.

% Brad Lucier
\catcode`\@=11
\newfam\bifam  % bold italic
\def\bifam@{\hexnumber@\bifam}
\def\bolditalic{\relaxnext@\ifmmode\let\next\bolditalic@\else
 \def\next{\Err@{Use \string\bolditalic\space only in math mode}}\fi\next}
\def\bolditalic@#1{{\bolditalic@@{#1}}}
\def\bolditalic@@#1{\fam\bifam#1}
% For bold italic, we can choose either cmmib, which is the right choice, except
% that we only have it in 10 point, or we can choose the eurb fonts.
% If you want a full set of superscript, subscript, etc. fonts, remove the
% comments from all the following lines, and comment you the next line.
\font@\tenbi=cmmib10     % comment out this line if using eurb fonts.
%\font@\tenbi=eurb10     % bolditalic
%\font@\ninebi=eurb9
%\font@\eightbi=eurb8
%\font@\sevenbi=eurb7
%\font@\sixbi=eurb6
%\font@\fivebi=eurb5
\toks0=\expandafter{\tenpoint
\ifsyntax@\else
 \textfont\bifam=\tenbi
% \scriptfont\bifam=\sevenbi
% \scriptscriptfont\bifam=\fivebi
\fi}
\edef\tenpoint{\the\toks0}
%\toks0=\expandafter{\eightpoint
%\ifsyntax@\else
% \textfont\bifam=\eightbi
% \scriptfont\bifam=\sixbi
% \scriptscriptfont\bifam=\fivebi
%\fi}
%\edef\eightpoint{\the\toks0}
%% The following sequences define the bold italic versions of
%% the greek letters.  All are preceded by \bi
\mathchardef\biGamma="0\bifam@00
\mathchardef\biDelta="0\bifam@01
\mathchardef\biTheta="0\bifam@02
\mathchardef\biLambda="0\bifam@03
\mathchardef\biXi="0\bifam@04
\mathchardef\biPi="0\bifam@05
\mathchardef\biSigma="0\bifam@06
\mathchardef\biUpsilon="0\bifam@07
\mathchardef\biPhi="0\bifam@08
\mathchardef\biPsi="0\bifam@09
\mathchardef\biOmega="0\bifam@0A
\mathchardef\bialpha="0\bifam@0B
\mathchardef\bibeta="0\bifam@0C
\mathchardef\bigamma="0\bifam@0D
\mathchardef\bidelta="0\bifam@0E
\mathchardef\biepsilon="0\bifam@0F
\mathchardef\bizeta="0\bifam@10
\mathchardef\bieta="0\bifam@11
\mathchardef\bitheta="0\bifam@12
\mathchardef\biiota="0\bifam@13
\mathchardef\bikappa="0\bifam@14
\mathchardef\bilambda="0\bifam@15
\mathchardef\bimu="0\bifam@16
\mathchardef\binu="0\bifam@17
\mathchardef\bixi="0\bifam@18
\mathchardef\bipi="0\bifam@19
\mathchardef\birho="0\bifam@1A
\mathchardef\bisigma="0\bifam@1B
\mathchardef\bitau="0\bifam@1C
\mathchardef\biupsilon="0\bifam@1D
\mathchardef\biphi="0\bifam@1E
\mathchardef\bichi="0\bifam@1F
\mathchardef\bipsi="0\bifam@20
\mathchardef\biomega="0\bifam@21
\tenpoint
\catcode`\@=\active
