% Additional user typescripts.
%
% copyright=pragma-ade readme=readme.pdf licence=cc-by-nc-sa

% First, we need to define the symbolic names for the new
% fonts. Because no script specification is given, it is only
% expanded once. This prevents unwanted overloading when the
% file is loaded more than once.

\starttypescript
  \definefontsynonym [MathRomanBold]     [MathRoman]
  \definefontsynonym [MathExtensionBold] [MathExtension]
  \definefontsynonym [MathItalicBold]    [MathItalic]
  \definefontsynonym [MathSymbolBold]    [MathSymbol]
  \definefontsynonym [MathAlphaBold]     [MathAlpha]
  \definefontsynonym [MathBetaBold]      [MathBeta]
  \definefontsynonym [MathGammaBold]     [MathGamma]
  \definefontsynonym [MathDeltaBold]     [MathDelta]
\stoptypescript

% We define a new class `boldface' and populate it with the
% Lucida fonts. The mapping onto real file names is handled
% in the encoding scripts.

\starttypescript [boldmath] [lucida] [name]
  \definefontsynonym [MathRomanBold]     [LucidaBright-Demi]
  \definefontsynonym [MathExtensionBold] [LucidaNewMath-Extension]
  \definefontsynonym [MathItalicBold]    [LucidaNewMath-AltDemiItalic]
  \definefontsynonym [MathSymbolBold]    [LucidaNewMath-Symbol-Demi]
  \definefontsynonym [MathAlphaBold]     [LucidaNewMath-Arrows-Demi]
\stoptypescript

% We have to tell ConTeXt how the bold math fonts are scaled.

\starttypescript
  \definebodyfont
    [boldmath] [mm]
    [mrbf=MathRomanBold     mo 1,
     exbf=MathExtensionBold mo 1,
     mibf=MathItalicBold    mo 1,
     sybf=MathSymbolBold    mo 1,
     mabf=MathAlphaBold     mo 1,
     mbbf=MathBetaBold      mo 1]
\stoptypescript

% This script is responsible for the real definition of the
% bold math fonts. It will use the previously defined default
% values.

\starttypescript [boldmath] [default] [size]
  \definebodyfont
    [17.3pt,14.4pt,12pt,11pt,10pt,9pt,8pt,7pt,6pt,5pt,4pt]
    [mm] [boldmath]
\stoptypescript
