\def\fileversion{3.1}
\def\filedate{1994/11/06}
\def\docdate {1994/11/06}
% \iffalse
% File: lucida.dtx Copyright (C) 1994 Sebastian Rahtz
%<*driver>
\documentclass{ltxdoc}
\begin{document}
 \title{The \textsf{lucida} package\thanks{This file
        has version number \fileversion, last
        revised \filedate.}}
 \author{Sebastian Rahtz\\s.rahtz@elsevier.co.uk}
 \date{\filedate}
 \maketitle
 \DocInput{lucida.dtx}
\end{document}
%</driver>
% \fi
% \CheckSum{1570}
% \maketitle
% \section{Introduction}
% This file contains \LaTeXe\ package files needed to use
% Lucida Bright fonts, and {\tt .fd} files for the fonts as
% named by Y\&Y. {\tt .fd} and metric files for the Berry-naming
% scheme are available in \texttt{fonts/metrics/bigholm} on CTAN.
%
% The Lucida Bright font families:
% \begin{center}
% \begin{tabular}{ll}
% hlcb& B\&H\space Lucida Bright\\
% hlcs& B\&H\space Lucida Sans\\
% hlcst& B\&H\space Lucida Sans Typewriter\\
% hlct& B\&H\space Lucida Typewriter\\
% hlc4& B\&H\space Lucida Fax\\
% hlcf& B\&H\space Lucida Blackletter\\
% hlcn& B\&H\space Lucida Casual\\
% hlcw& B\&H\space Lucida Handwriting\\
% hlce& B\&H\space Lucida Calligraphic\\
% lb& (Y\&Y names)\space Lucida Bright\\
% lbs& (Y\&Y names)\space Lucida Sans\\
% lbt& (Y\&Y names)\space Lucida Sans Typewriter\\
% lbt& (Y\&Y names)\space Lucida Typewriter\\
% lbf& (Y\&Y names)\space Lucida Fax\\
% \end{tabular}
% \end{center}
% \begin{center}
% \begin{tabular}{lll}
% \hline
% Berry name & Y\&Y name & Full font name\\
% \hline
% hlcd40	&lfd	&LucidaFax-Demi\\
% hlcdi40	&lfdi	&LucidaFax-DemiItalic\\
% hlcr40	&lfr	&LucidaFax\\
% hlcri40	&lfi	&LucidaFax-Italic\\
% \\
% hlcdb0	&lbd	&LucidaBright-Demi\\
% hlcdib0	&lbdi	&LucidaBright-DemiItalic\\
% hlcrb0	&lbr	&LucidaBright\\
% hlcrib0	&lbi	&LucidaBright-Italic\\
% hlcrob0	&lbsl	&LucidaBrightSlanted\\
% hlcrbc0	&lbrsc	&LucidaBrightSmallcaps\\
% \\
% hlcdis0	&lsdi	&LucidaSans-DemiItalic\\
% hlcds0	&lsd	&LucidaSans-Demi\\
% hlcris0	&lsi	&LucidaSans-Italic\\
% hlcrs0	&lsr	&LucidaSans\\
% hlcbs0	&lsb	&LucidaSans-Bold\\
% hlcbis0	&lsbi	&LucidaSans-BoldItalic\\
% \\
% hlcrf0	&lbl	&LucidaBlackletter\\
% hlcriw0	&lbh	&LucidaHandwriting-Italic\\
% hlcrie0	&lbc	&LucidaCalligraphy-Italic\\
% hlcrn0	&lbkr	&LucidaCasual\\
% hlcrin0	&lbki	&LucidaCasual-Italic\\
% \\
% hlcrst0	&lstr	&LucidaSans-Typewriter\\
% hlcrost0	&lsto	&LucidaSans-TypewriterOblique\\
% hlcbost0	&lstbo	&LucidaSans-TypewriterBoldOblique\\
% hlcbst0	&lstb	&LucidaSans-TypewriterBold\\
% \\
% hlcrt0	&lbtr	&LucidaTypewriter\\
% hlcbt0	&lbtb	&LucidaTypewriterBold\\
% hlcbot0	&lbto	&LucidaTypewriterOblique\\
% hlcrot0	&lbtbo	&LucidaTypewriterBoldOblique\\
% \\
% hlcrba	&lbma	&LucidaNewMath-Arrows\\
% hlcrbv	&lbme	&LucidaNewMath-Extension\\
% hlcrby	&lbms	&LucidaNewMath-Symbol\\
% hlcdby	&lbmsd	&LucidaNewMath-Symbol-Demi\\
% \\
% hlcrbm	&lbmi	&LucidaNewMath-Italic\\
% hlcrbma	&lbmo	&LucidaNewMath-AltItalic\\
% hlcdbm	&lbmdi	&LucidaNewMath-DemiItalic\\
% hlcdbma	&lbmdo	&LucidaNewMath-AltDemiItalic\\
% hlcrbmu	&lbmr	&LucidaNewMath-Roman\\
% \hline
% \end{tabular}
% \end{center}
% \StopEventually{}
% \section{Font description files}
% \subsection{Maths fonts font description files}
%    \begin{macrocode}
%<*lucidascale>
\@ifundefined{LucidaScale}{\def\LucidaScale{1}}{}
%</lucidascale>
%<*OMLhlcm>
% Math Italics
\DeclareFontFamily{OML}{hlcm}{\skewchar\font=127}
\DeclareFontShape{OML}{hlcm}{m}{it}{<->s * [\LucidaScale]hlcrbma}{}
\DeclareFontShape{OML}{hlcm}{b}{it}{<->s * [\LucidaScale]hlcdbma}{}
%</OMLhlcm>
%<*OMShlcy>
% LucidaNewMath-Symbols
\DeclareFontFamily{OMS}{hlcy}{\skewchar\font=48}
\DeclareFontShape{OMS}{hlcy}{m}{n}{<->s * [\LucidaScale]hlcrby}{}
\DeclareFontShape{OMS}{hlcy}{b}{n}{<->s * [\LucidaScale]hlcdby}{}
%</OMShlcy>
%<*OMXhlcv>
% LucidaNewMath-Extension
\DeclareFontFamily{OMX}{hlcv}{}
\DeclareFontShape{OMX}{hlcv}{m}{n}{<->s * [\LucidaScale]hlcrbv}{}
%</OMXhlcv>
%<*LMRhlcm>
% LucidaNewMath-Arrows
\DeclareFontFamily{LMR}{hlcm}{}
\DeclareFontShape{LMR}{hlcm}{m}{n}{<->s * [\LucidaScale]hlcrba}{}
%</LMRhlcm>
%<*OMLplcm>
% Math Italics
\DeclareFontFamily{OML}{plcm}{\skewchar\font=127}
\DeclareFontShape{OML}{plcm}{m}{it}{<->plcm}{}
%</OMLplcm>
%<*OMSplcy>
% Math-Symbols
\DeclareFontFamily{OMS}{plcy}{\skewchar\font=48}
\DeclareFontShape{OMS}{plcy}{m}{n}{<->plcy}{}
%</OMSplcy>
%<*OMXplcv>
% Math-Extension
\DeclareFontFamily{OMX}{plcv}{}
\DeclareFontShape{OMX}{plcv}{m}{n}{<->plcv}{}
%</OMXplcv>
%    \end{macrocode}
% \subsection{(Y\&Y names) Lucida Bright font description files}
%    \begin{macrocode}
%<*OT1lb>
\typeout{File\space OT1lb.fd\space loading \space (Y\&Y names)\space Lucida Bright}%
\DeclareFontFamily{OT1}{lb}{}%
\DeclareFontShape{OT1}{lb}{m}{n}{<->s * [\LucidaScale]lbr}{}%
\DeclareFontShape{OT1}{lb}{m}{it}{<->s * [\LucidaScale]lbi}{}%
\DeclareFontShape{OT1}{lb}{m}{sl}{<->s * [\LucidaScale]lbsl}{}%
\DeclareFontShape{OT1}{lb}{b}{n}{<->s * [\LucidaScale]lbd}{}%
\DeclareFontShape{OT1}{lb}{b}{it}{<->s * [\LucidaScale]lbdi}{}%
\DeclareFontShape{OT1}{lb}{b}{sl}{<->ssub * lb/b/it}{}%
\DeclareFontShape{OT1}{lb}{bx}{n}{<->ssub * lb/b/n}{}%
\DeclareFontShape{OT1}{lb}{bx}{it}{<->ssub * lb/b/it}{}%
\DeclareFontShape{OT1}{lb}{bx}{sl}{<->ssub * lb/m/sl}{}%
\DeclareFontShape{OT1}{lb}{m}{sc}{<->ssub * lb/m/n}{}%
\DeclareFontShape{OT1}{lb}{b}{sc}{<->ssub * lb/m/sc}{}%
\DeclareFontShape{OT1}{lb}{bx}{sc}{<->ssub * lb/b/sc}{}%
%</OT1lb>
%    \end{macrocode}
% \subsection{(Y\&Y names) Lucida Sans font description files}
%    \begin{macrocode}
%<*OT1lbs>
\typeout{File\space OT1lbs.fd\space loading \space (Y\&Y names)\space Lucida Sans}%
\DeclareFontFamily{OT1}{lbs}{}%
\DeclareFontShape{OT1}{lbs}{m}{n}{<->s * [\LucidaScale]lsr}{}%
\DeclareFontShape{OT1}{lbs}{m}{it}{<->s * [\LucidaScale]lsi}{}%
\DeclareFontShape{OT1}{lbs}{b}{n}{<->s * [\LucidaScale]lsd}{}%
\DeclareFontShape{OT1}{lbs}{b}{it}{<->s * [\LucidaScale]lsdi}{}%
\DeclareFontShape{OT1}{lbs}{m}{sl}{<->ssub * lbs/m/it}{}%
\DeclareFontShape{OT1}{lbs}{m}{sc}{<->ssub * lbs/m/n}{}%
\DeclareFontShape{OT1}{lbs}{b}{sc}{<->ssub * lbs/m/sc}{}%
\DeclareFontShape{OT1}{lbs}{bx}{sc}{<->ssub * lbs/b/sc}{}%
\DeclareFontShape{OT1}{lbs}{b}{sl}{<->ssub * lbs/b/it}{}%
\DeclareFontShape{OT1}{lbs}{bx}{n}{<->ssub * lbs/b/n}{}%
\DeclareFontShape{OT1}{lbs}{bx}{it}{<->ssub * lbs/b/it}{}%
\DeclareFontShape{OT1}{lbs}{bx}{sl}{<->ssub * lbs/m/sl}{}%
%</OT1lbs>
%    \end{macrocode}
% \subsection{(Y\&Y names) Lucida Bright Typewriter  font description files}
%    \begin{macrocode}
%<*OT1lbt>
\typeout{File\space OT1lbt.fd\space loading \space (Y\&Y names)\space Lucida Bright Typewriter}%
\DeclareFontFamily{OT1}{lbt}{}%
\DeclareFontShape{OT1}{lbt}{m}{n}{<->s * [\LucidaScale]lstr}{}%
\DeclareFontShape{OT1}{lbt}{m}{sc}{<->ssub * lbt/m/n}{}%
\DeclareFontShape{OT1}{lbt}{m}{it}{<->s * [\LucidaScale]lsto}{}%
\DeclareFontShape{OT1}{lbt}{m}{sl}{<->ssub * lbt/m/it}{}%
\DeclareFontShape{OT1}{lbt}{b}{n}{<->s * [\LucidaScale]lstb}{}%
\DeclareFontShape{OT1}{lbt}{b}{it}{<->s * [\LucidaScale]lstbo}{}%
\DeclareFontShape{OT1}{lbt}{b}{sc}{<->ssub * lbt/m/sc}{}%
\DeclareFontShape{OT1}{lbt}{b}{sl}{<->ssub * lbt/b/it}{}%
\DeclareFontShape{OT1}{lbt}{m}{sl}{<->ssub * lbt/m/it}{}%
\DeclareFontShape{OT1}{lbt}{bx}{n}{<->ssub * lbt/b/n}{}%
\DeclareFontShape{OT1}{lbt}{bx}{it}{<->ssub * lbt/b/it}{}%
\DeclareFontShape{OT1}{lbt}{bx}{sc}{<->ssub * lbt/b/sc}{}%
\DeclareFontShape{OT1}{lbt}{bx}{sl}{<->ssub * lbt/m/sl}{}%
%</OT1lbt>
%    \end{macrocode}
% \subsection{(Y\&Y names) Lucida Fax  font description files}
%    \begin{macrocode}
%<*OT1lbf>
\typeout{File\space OT1lbf.fd\space loading \space (Y\&Y names)\space Lucida Fax}%
\DeclareFontFamily{OT1}{lbf}{}%
\DeclareFontShape{OT1}{lbf}{m}{n}{<->s * [\LucidaScale]lfr}{}%
\DeclareFontShape{OT1}{lbf}{b}{n}{<->s * [\LucidaScale]lfd}{}%
\DeclareFontShape{OT1}{lbf}{m}{it}{<->s * [\LucidaScale]lfi}{}%
\DeclareFontShape{OT1}{lbf}{b}{it}{<->s * [\LucidaScale]lfdi}{}%
%</OT1lbf>
%<*OMLlbm>
% \subsection{Lucida Math Italics  font description files}
\DeclareFontFamily{OML}{lbm}{\skewchar\font=127}
\DeclareFontShape{OML}{lbm}{m}{it}{<->s * [\LucidaScale]lbmo}{}
\DeclareFontShape{OML}{lbm}{b}{it}{<->s * [\LucidaScale]lbmdo}{}
%</OMLlbm>
%<*OMSlby>
% \subsection{LucidaNewMath-Symbols  font description files}
\DeclareFontFamily{OMS}{lby}{\skewchar\font=48}
\DeclareFontShape{OMS}{lby}{m}{n}{<->s * [\LucidaScale]lbms}{}
\DeclareFontShape{OMS}{lby}{b}{n}{<->s * [\LucidaScale]lbmsd}{}
%</OMSlby>
%<*OMXlbv>
% \subsection{LucidaNewMath-Extension  font description files}
\DeclareFontFamily{OMX}{lbv}{}
\DeclareFontShape{OMX}{lbv}{m}{n}{<->s * [\LucidaScale]lbme}{}
%</OMXlbv>
%<*LMRlbm>
% \subsection{LucidaNewMath-Arrows  font description files}
\DeclareFontFamily{LMR}{lbm}{}
\DeclareFontShape{LMR}{lbm}{m}{n}{<->s * [\LucidaScale]lbma}{}
%</LMRlbm>
%    \end{macrocode}
% \section{Packages}
%    \begin{macrocode}
%<*lucid>
\ProvidesPackage{lucid}[\filedate\space\fileversion\space
 Lucida PSNFSS2e package]
\renewcommand{\sfdefault}{plcs}
\renewcommand{\rmdefault}{plc}
\renewcommand{\ttdefault}{pcr}
%</lucid>
%<*lucmath>
\ProvidesPackage{lucmath}[\filedate\space\fileversion\space
 Lucida Math LaTeX2e package]
\DeclareSymbolFont{operators}{\encodingdefault}{\rmdefault}{m}{n}
\DeclareSymbolFont{letters}{OML}{plcm}{m}{it}
\DeclareSymbolFont{symbols}{OMS}{plcy}{m}{n}
\DeclareSymbolFont{largesymbols}{OMX}{plcv}{m}{n}
\DeclareSymbolFont{italics}{\encodingdefault}{\rmdefault}{m}{it}
\SetSymbolFont{letters}{bold}{OML}{plcm}{m}{it}%
\SetSymbolFont{operators}{bold}{\encodingdefault}{\rmdefault}{b}{n}%
\SetSymbolFont{operators}{normal}{\encodingdefault}{\rmdefault}{m}{n}%
% reset the text in math macros
% 
\DeclareMathAlphabet      {\mathbf}{\encodingdefault}{\rmdefault}{b}{n}%
\DeclareMathAlphabet      {\mathrm}{\encodingdefault}{\rmdefault}{m}{n}%
\DeclareMathAlphabet      {\mathsf}{\encodingdefault}{\sfdefault}{m}{n}%
\DeclareMathAlphabet      {\mathit}{\encodingdefault}{\rmdefault}{m}{it}%
\DeclareMathAlphabet      {\mathtt}{\encodingdefault}{\ttdefault}{m}{n}%
\SetMathAlphabet{\mathbf}{bold}{\encodingdefault}{\rmdefault}{b}{n}%
\SetMathAlphabet{\mathsf}{bold}{\encodingdefault}{\sfdefault}{b}{n}%
\SetMathAlphabet{\mathrm}{bold}{\encodingdefault}{\rmdefault}{b}{n}%
\SetMathAlphabet{\mathit}{bold}{\encodingdefault}{\rmdefault}{b}{it}%
\SetMathAlphabet{\mathtt}{bold}{\encodingdefault}{\ttdefault}{b}{n}%
%</lucmath>
%<*luctimes>
\ProvidesPackage{luctimes}[\filedate\space\fileversion\space
Times fonts with Lucida Bright maths]
\def\rmdefault{ptm}
\def\sfdefault{phv}
\def\ttdefault{pcr}
\def\LucidaScale{0.90}
\DeclareSymbolFont{letters}{OML}{ptmluc}{m}{it}
\DeclareSymbolFont{operators}{OT1}{ptm}{m}{n}
\SetSymbolFont{letters}{normal}{OML}{ptmluc}{m}{it}
\SetSymbolFont{letters}{bold}{OML}{ptmluc}{b}{it}
\SetSymbolFont{operators}{bold}{OT1}{ptm}{b}{n}%
\SetSymbolFont{operators}{normal}{OT1}{ptm}{m}{n}%
%</luctimes>
%<*lucidabright>
\ProvidesPackage{lucbr}[\filedate\space\fileversion\space
 Lucida Bright PSNFSS2e package]
%</lucidabright>
%<lucidabright|lucbmath>\DeclareOption{kb}{% this is for Berry-type font names
%<lucidabright|lucbmath>\def\Lucida@names{0}}
%<lucidabright|lucbmath>\DeclareOption{yy}{% this is for Y\&Y font names
%<lucidabright|lucbmath>\def\Lucida@names{1}}
%<lucidabright|lucbmath>\ExecuteOptions{kb} 
%<lucidabright|lucbmath>\ProcessOptions
%    \end{macrocode}
% Allow for scaling of Lucida Bright. Tug93 used .94 to match space
% taken up by CMR. Say something like |\def\LucidaScale{.94}|.
%    \begin{macrocode}
%<lucidabright>\def\LucidaScale{1}
%<lucidabright|lucbmath>\ifnum\Lucida@names=0
%<*lucidabright>
 \renewcommand{\sfdefault}{hlcs}
 \renewcommand{\rmdefault}{hlcb}
 \renewcommand{\ttdefault}{hlcst}
%</lucidabright>
%<*lucbmath>
%    \end{macrocode}
% New encoding scheme for Math Arrows font
%    \begin{macrocode}
 \DeclareFontEncoding{LMR}{}{}
 \DeclareFontSubstitution{LMR}{hlcm}{m}{n}
%<!luctimes> \DeclareSymbolFont{letters}{OML}{hlcm}{m}{it}
 \DeclareSymbolFont{symbols}{OMS}{hlcy}{m}{n}
 \DeclareSymbolFont{largesymbols}{OMX}{hlcv}{m}{n}
%    \end{macrocode}
% The new Expert set for bold math
%    \begin{macrocode}
%<!luctimes> \SetSymbolFont{letters}{bold}{OML}{hlcm}{b}{it}
 \SetSymbolFont{symbols}{bold}{OMS}{hlcy}{b}{n}
%    \end{macrocode}
% Better get the order of this right, or maths come out as all arrows\ldots
%    \begin{macrocode}
 \DeclareSymbolFont{italics}{\encodingdefault}{\rmdefault}{m}{it}
 \DeclareSymbolFont{arrows}{LMR}{hlcm}{m}{n}
%</lucbmath>
%<lucidabright|lucbmath>\else
%<*lucidabright>
%    \end{macrocode}
% This is for Y\&Y font names; the supplied tfms are in OT1 encoding
%    \begin{macrocode}
 \renewcommand{\sfdefault}{lbs}
 \renewcommand{\rmdefault}{lb}
 \renewcommand{\ttdefault}{lbt}
 \def\encodingdefault{OT1}\fontencoding{OT1}\selectfont
%</lucidabright>
%<*lucbmath>
%    \end{macrocode}
% New encoding scheme for Math Arrows font
%    \begin{macrocode}
 \DeclareFontEncoding{LMR}{}{}
 \DeclareFontSubstitution{LMR}{lbm}{m}{n}
%<!luctimes> \DeclareSymbolFont{letters}{OML}{lbm}{m}{it}
 \DeclareSymbolFont{symbols}{OMS}{lby}{m}{n}
 \DeclareSymbolFont{largesymbols}{OMX}{lbv}{m}{n}
%<!luctimes> \SetSymbolFont{letters}{bold}{OML}{lbm}{b}{it}
 \SetSymbolFont{symbols}{bold}{OMS}{lby}{b}{n}
 \DeclareSymbolFont{italics}{\encodingdefault}{\rmdefault}{m}{it}
 \DeclareSymbolFont{arrows}{LMR}{lbm}{m}{n}
%</lucbmath>
%<lucidabright|lucbmath>\fi
%<*lucbmath>
%    \end{macrocode}
% Adjusted for LucidaNewMath-Extension at 9.5pt and math axis at 313
% Note: delimiter increments are 5.5pt (as opposed to 6pt in CM)
%    \begin{macrocode}
\def\Lucidasizes{%
  \def\@vpt{5.2}%
  \def\@vipt{6.1}%
  \def\@viipt{6.9}%
  \def\@viiipt{7.8}%
  \def\@ixpt{8.6}%
  \def\@xpt{9.5}%
  \def\@xipt{10.4}%
  \def\@xiipt{11.2}%
  \def\@xivpt{12.9}%
  \def\@xviipt{15.5}%
  \def\@xxpt{18.1}%
  \def\@xxvpt{22.4}%
 \DeclareMathSizes{5.2}{5.2}{5.2}{5.2}
 \DeclareMathSizes{6.1}{6.1}{5.2}{5.2}
 \DeclareMathSizes{6.9}{6.9}{5.2}{5.2}
 \DeclareMathSizes{7.8}{7.8}{6.1}{5.2}
 \DeclareMathSizes{8.6}{8.6}{6.1}{5.2}
 \DeclareMathSizes{9.5}{9.5}{6.9}{5.2}
 \DeclareMathSizes{10.95}{10.95}{6.9}{5.2}
 \DeclareMathSizes{11.2}{11.2}{7.8}{6.1}
 \DeclareMathSizes{12.9}{12.9}{9.5}{6.9}
 \DeclareMathSizes{15.5}{15.5}{11.2}{9.5}
 \DeclareMathSizes{18.1}{18.1}{12.9}{11.2}
 \DeclareMathSizes{22.4}{22.4}{18.1}{15.5}
}%
\def\CMRsizes{%
 \def\@vpt{5}%
 \def\@vipt{6}%
 \def\@viipt{7}%
 \def\@viiipt{8}%
 \def\@ixpt{9}%
 \def\@xpt{10}%
 \def\@xipt{11}%
 \def\@xiipt{12}%
 \def\@xivpt{14}%
 \def\@xviipt{17}%
 \def\@xxpt{20}%
 \def\@xxvpt{25}%
}%
\AtEndOfPackage{\Lucidasizes}
%<!luctimes>\DeclareSymbolFont{operators}{OT1}{\rmdefault}{m}{n}
%<!luctimes>\SetSymbolFont{operators}{bold}{OT1}{\rmdefault}{b}{n}%
%<!luctimes>\SetSymbolFont{operators}{normal}{OT1}{\rmdefault}{m}{n}%
%    \end{macrocode}
% 
% Explicitly redeclare all the alphabets just in case
% 
%    \begin{macrocode}
\DeclareMathAlphabet      {\mathbf}{\encodingdefault}{\rmdefault}{b}{n}%
\DeclareMathAlphabet      {\mathrm}{\encodingdefault}{\rmdefault}{m}{n}%
\DeclareMathAlphabet      {\mathsf}{\encodingdefault}{\sfdefault}{m}{n}%
\DeclareMathAlphabet      {\mathit}{\encodingdefault}{\rmdefault}{m}{it}%
\DeclareMathAlphabet      {\mathtt}{\encodingdefault}{\ttdefault}{m}{n}%
\SetMathAlphabet{\mathbf}{bold}{\encodingdefault}{\rmdefault}{b}{n}%
\SetMathAlphabet{\mathsf}{bold}{\encodingdefault}{\sfdefault}{b}{n}%
\SetMathAlphabet{\mathrm}{bold}{\encodingdefault}{\rmdefault}{b}{n}%
\SetMathAlphabet{\mathit}{bold}{\encodingdefault}{\rmdefault}{b}{it}%
\SetMathAlphabet{\mathtt}{bold}{\encodingdefault}{\ttdefault}{b}{n}%
\DeclareSymbolFontAlphabet{\bbold}{arrows}
\ifnum\Lucida@names=0
 \DeclareMathAccent\vec  {\mathord}{letters}{"7E}
\else
 \DeclareMathAccent\vec  {\mathord}{letters}{"7E}
 \DeclareMathAccent\dot  {\mathalpha}{operators}{"C7}
\fi
%    \end{macrocode}
% This section derives mostly from  Berthold Horn's
% |lcdmacro.tex| and |amssymblb.tex|
% \copyright 1991, 1992 Y\&Y. All Rights Reserved
% Original from Version 1.2, 1992 June 14; updated \emph{ad hoc}.
%    \begin{macrocode}
\@ifpackageloaded{amsfonts}{%
%    \end{macrocode}
% (From M J Downes): it's possible the factors 1.5, 2, 2.5, 3, 3.5 
% should be adjusted
% for Lucida fonts. But that has to be determined by looking at
% printed tests which I cannot do at the moment. [mjd,24-Jun-1993]
%    \begin{macrocode}
  \def\biggg{\bBigg@\thr@@} 
  \def\Biggg{\bBigg@{3.5}}
}{% 
  \def\big#1{{\hbox{$\left#1\vbox to8.20\p@{}\right.\n@space$}}}
  \def\Big#1{{\hbox{$\left#1\vbox to10.80\p@{}\right.\n@space$}}}
  \def\bigg#1{{\hbox{$\left#1\vbox to13.42\p@{}\right.\n@space$}}}
  \def\Bigg#1{{\hbox{$\left#1\vbox to16.03\p@{}\right.\n@space$}}}
  \def\biggg#1{{\hbox{$\left#1\vbox to17.72\p@{}\right.\n@space$}}}
  \def\Biggg#1{{\hbox{$\left#1\vbox to21.25\p@{}\right.\n@space$}}}
  \def\n@space{\nulldelimiterspace\z@ \m@th}
}
%    \end{macrocode}
% Define some extra large sizes --- always done using extensible parts
%    \begin{macrocode}
\def\bigggl{\mathopen\biggg}
\def\bigggr{\mathclose\biggg}
\def\Bigggl{\mathopen\Biggg}
\def\Bigggr{\mathclose\Biggg}
%    \end{macrocode}
%  Following is only really needed if the roman text font is NOT LucidaBright
%  Draw the small sizes of `[' and `]' from math italic instead of roman font
%    \begin{macrocode}
\mathcode`\[="4186 \delcode`\[="186302 
\mathcode`\]="5187 \delcode`\]="187303
%    \end{macrocode}
%  Draw the small sizes of `(' and `)' from math italic instead of roman font
%    \begin{macrocode}
\mathcode`\(="4184 \delcode`\(="184300
\mathcode`\)="5185 \delcode`\)="185301
%    \end{macrocode}
%  Draw  `=' and `+' from symbol font instead of roman
%    \begin{macrocode}
\mathcode`\=="3283 
\mathcode`\+="2282
%    \end{macrocode}
% Draw small `/' from math italic instead of roman font
%    \begin{macrocode}
\mathcode`\/="013D \delcode`\/="13D30E
%    \end{macrocode}
% Make open face brackets accessible, i.e. [[ and ]]
%    \begin{macrocode}
\def\ldbrack{\delimiter"4182382 }
\def\rdbrack{\delimiter"5183383 }
%    \end{macrocode}
% Provide access to surface integral signs (linked from text to display size)
%    \begin{macrocode}
\DeclareMathSymbol{\surfintop}{1}{largesymbols}{"90}
\def\surfint{\surfintop\nolimits}
%    \end{macrocode}
% Make medium size integrals available (NOT linked to display size)
%    \begin{macrocode}
\DeclareMathSymbol{\midintop}{1}{largesymbols}{"92} 
\def\midint{\midintop\nolimits}
\DeclareMathSymbol{\midointop}{1}{largesymbols}{"93}
\def\midoint{\midointop\nolimits}
\DeclareMathSymbol{\midsurfintop}{1}{largesymbols}{"94}
\def\midsurfint{\midsurfintop\nolimits}
%    \end{macrocode}
% Extensible integral (use with |\bigg|, |\Bigg|, |\biggg|, |\Biggg| etc)
%    \begin{macrocode}
\def\largeint{\delimiter"135A395 }
%    \end{macrocode}
% To close up gaps in special math characters constructed from pieces
%    \begin{macrocode}
\def\joinrel{\mathrel{\mkern-4mu}} % \def\joinrel{\mathrel{\mkern-3mu}}
%    \end{macrocode}
% The |\mkern-2.5mu| undoes the bogus `italic correction' after joiners in LBMA
%    \begin{macrocode}
\def\relbar{\mathrel{\smash{\mathchar"3\hexnumber@\symarrows 2D}}\mathrel{\mkern-2.5mu}}
\def\Relbar{\mathrel{\mathchar"3\hexnumber@\symarrows 3D}\mathrel{\mkern-2.5mu}}
%    \end{macrocode}
% The |\mkern4mu| undoes the overhang at the ends of the joiners (and more)
%    \begin{macrocode}
\def\longleftarrow{\leftarrow\relbar\mathrel{\mkern4mu}}
\def\longrightarrow{\mathrel{\mkern4mu}\relbar\rightarrow}
\def\Longleftarrow{\Leftarrow\Relbar\mathrel{\mkern4mu}}
\def\Longrightarrow{\mathrel{\mkern4mu}\Relbar\Rightarrow}
%    \end{macrocode}
% Some characters that need construction in CM exist complete in math
% italic or math symbol font.
%    \begin{macrocode}
\let\bowtie\undefined
\let\models\undefined
\let\doteq\undefined
\let\cong\undefined
\let\angle\undefined
\DeclareMathSymbol{\bowtie}{3}{letters}{"F6}
\DeclareMathSymbol{\models}{3}{symbols}{"EE}
\DeclareMathSymbol{\doteq}{3}{symbols}{"C9}
\DeclareMathSymbol{\cong}{3}{symbols}{"9B}
\DeclareMathSymbol{\angle}{0}{symbols}{"8B}
%    \end{macrocode}
% These need undefining so that we can redeclare them.
%    \begin{macrocode}
\let\Box\undefined
\let\Diamond\undefined
\let\leadsto\undefined
\let\neq\undefined
\let\hookleftarrow\undefined
\let\hookrightarrow\undefined
\let\mapsto\undefined
\let\notin\undefined
\let\circle\undefined
\let\iff\undefined
\let\rightleftharpoons\undefined
%    \end{macrocode}
% Other characters may be found in LucidaNewMath-Arrows (more negated later).
%    \begin{macrocode}
\DeclareMathSymbol{\neq}{3}{arrows}{"94}
\DeclareMathSymbol{\rightleftharpoons}{3}{arrows}{"7A}
\DeclareMathSymbol{\leftrightharpoons}{3}{arrows}{"79}
\DeclareMathSymbol{\hookleftarrow}{3}{arrows}{"3C}
\DeclareMathSymbol{\hookrightarrow}{3}{arrows}{"3E}
\DeclareMathSymbol{\mapsto}{3}{arrows}{"2C}
\def\longmapsto{\mapstochar\longrightarrow}
%    \end{macrocode}
% Special \LaTeX\ character definitions (originally from \LaTeX\ symbol font)
%    \begin{macrocode}
\let\Join\undefined
\let\rhd\undefined
\let\lhd\undefined
\let\unrhd\undefined
\let\unlhd\undefined
\DeclareMathSymbol{\Join}{3}{letters}{"F6}
\DeclareMathSymbol{\rhd}{3}{letters}{"2E}
\DeclareMathSymbol{\lhd}{3}{letters}{"2F}
\DeclareMathSymbol{\unlhd}{3}{symbols}{"F4}
\DeclareMathSymbol{\unrhd}{3}{symbols}{"F5}
\DeclareMathSymbol{\Box}{0}{arrows}{"02} 
\DeclareMathSymbol{\Diamond}{0}{arrows}{"08}
\DeclareMathSymbol{\leadsto}{3}{arrows}{"8E} 
\DeclareMathSymbol{\leadsfrom}{3}{arrows}{"8D}
\def\mathstrut{\vphantom{f}}
\@ifpackageloaded{amstex}{}{%
%    \end{macrocode}
% amstex.sty not in use: modify |\matrix| it to adjust the
% first and last line vertical spacing slightly; otherwise leave
% it alone.
% following changed because fonts (i.e. math italic) not `at full scale'
%    \begin{macrocode}
  \def\matrix#1{\null\,\vcenter{\normalbaselines\m@th
    \ialign{\hfil$##$\hfil&&\quad\hfil$##$\hfil\crcr
      \mathstrut\crcr\noalign{\kern-0.9\baselineskip}
     #1\crcr\mathstrut\crcr\noalign{\kern-0.9\baselineskip}}}\,}
}
%    \end{macrocode}
% In n-th root, don't want the `n' to come too close to the radical
%    \begin{macrocode}
\def\r@@t#1#2{\setbox\z@\hbox{$\m@th#1\sqrt{#2}$}
  \dimen@\ht\z@ \advance\dimen@-\dp\z@
  \mkern5mu\raise.6\dimen@\copy\rootbox \mkern-7.5mu \box\z@}
%    \end{macrocode}
% Here are some extra definitions of mathematical symbols and operators:
%    \begin{macrocode}
\DeclareMathSymbol{\defineequal}{3}{symbols}{"D6}
\DeclareMathSymbol{\notleq}{3}{arrows}{"9C}
\DeclareMathSymbol{\notgeq}{3}{arrows}{"9D}
\DeclareMathSymbol{\notequiv}{3}{arrows}{"95}
\DeclareMathSymbol{\notprec}{3}{arrows}{"E5}
\DeclareMathSymbol{\notsucc}{3}{arrows}{"E6}
\DeclareMathSymbol{\notapprox}{3}{arrows}{"98}
\DeclareMathSymbol{\notpreceq}{3}{arrows}{"E7}
\DeclareMathSymbol{\notsucceq}{3}{arrows}{"E8}
\DeclareMathSymbol{\notasymp}{3}{arrows}{"F3}
\DeclareMathSymbol{\notsubset}{3}{arrows}{"C6}
\DeclareMathSymbol{\notsupset}{3}{arrows}{"C7}
\DeclareMathSymbol{\notsim}{3}{arrows}{"96}
\DeclareMathSymbol{\notsubseteq}{3}{arrows}{"C8}
\DeclareMathSymbol{\notsupseteq}{3}{arrows}{"C9}
\DeclareMathSymbol{\notsimeq}{3}{arrows}{"97}
\DeclareMathSymbol{\notsqsubseteq}{3}{arrows}{"D4}
\DeclareMathSymbol{\notsqsupseteq}{3}{arrows}{"D5}
\DeclareMathSymbol{\notcong}{3}{arrows}{"99}
\DeclareMathSymbol{\notin}{3}{arrows}{"1D}
\DeclareMathSymbol{\notni}{3}{arrows}{"1F}
\DeclareMathSymbol{\notvdash}{3}{arrows}{"F8}
\DeclareMathSymbol{\notmodels}{3}{arrows}{"F9}
\DeclareMathSymbol{\notparallel}{3}{arrows}{"F7}
\DeclareMathSymbol{\noteq}{3}{arrows}{"94}
\DeclareMathSymbol{\notless}{3}{arrows}{"9A}
\DeclareMathSymbol{\notgreater}{3}{arrows}{"9B}
\DeclareMathSymbol{\notmid}{3}{arrows}{"F6}
%    \end{macrocode}
% Now for some AMS TeX items
% Start with black-board bold (open face) characters:
%    \begin{macrocode}
\@ifpackageloaded{amsfonts}{}{% from MJD
  \def\nonmatherr@#1{\errmessage{\string#1\space allowed only in math mode}}
  \def\Bbb{\relax\ifmmode\expandafter\Bbb@\else
   \expandafter\nonmatherr@\expandafter\Bbb\fi}
}
\let\Bbb@\bbold
%    \end{macrocode}
% Normal \LaTeX\ draws upper case (upright) greek from cmr10 ---
% when using the Cork encoding, that isn't there, so its been put
% in the extension font (largesymbols).
%    \begin{macrocode}
\DeclareMathSymbol{\Gamma}{0}{largesymbols}{'320}
\DeclareMathSymbol{\Delta}{0}{largesymbols}{'321}
\DeclareMathSymbol{\Theta}{0}{largesymbols}{'322}
\DeclareMathSymbol{\Lambda}{0}{largesymbols}{'323}
\DeclareMathSymbol{\Xi}{0}{largesymbols}{'324}
\DeclareMathSymbol{\Pi}{0}{largesymbols}{'325}
\DeclareMathSymbol{\Sigma}{0}{largesymbols}{'326}
\DeclareMathSymbol{\Upsilon}{0}{largesymbols}{'327}
\DeclareMathSymbol{\Phi}{0}{largesymbols}{'330}
\DeclareMathSymbol{\Psi}{0}{largesymbols}{'331}
\DeclareMathSymbol{\Omega}{0}{largesymbols}{'332}
\DeclareMathSymbol{\varGamma}{0}{letters}{"00}
\DeclareMathSymbol{\varDelta}{0}{letters}{"01}
\DeclareMathSymbol{\varTheta}{0}{letters}{"02}
\DeclareMathSymbol{\varLambda}{0}{letters}{"03}
\DeclareMathSymbol{\varXi}{0}{letters}{"04}
\DeclareMathSymbol{\varPi}{0}{letters}{"05}
\DeclareMathSymbol{\varSigma}{0}{letters}{"06}
\DeclareMathSymbol{\varUpsilon}{0}{letters}{"07}
\DeclareMathSymbol{\varPhi}{0}{letters}{"08}
\DeclareMathSymbol{\varPsi}{0}{letters}{"09}
\DeclareMathSymbol{\varOmega}{0}{letters}{"0A}
%    \end{macrocode}
% Definitions for math symbols and operators 
% (normally found in the AMS symbol fonts)
% using LucidaNewMath fonts 
% Definitions followed by question marks represent less than ideal matches.
% MSAM* equivalents:
%    \begin{macrocode}
\DeclareMathSymbol{\boxdot}{2}{symbols}{"ED}
\DeclareMathSymbol{\boxplus}{2}{symbols}{"EA}
\DeclareMathSymbol{\boxtimes}{2}{symbols}{"EC}
\DeclareMathSymbol{\square}{0}{arrows}{"02}
\DeclareMathSymbol{\blacksquare}{0}{arrows}{"03}
\DeclareMathSymbol{\centerdot}{2}{arrows}{"E1}
\DeclareMathSymbol{\lozenge}{0}{arrows}{"08}
\DeclareMathSymbol{\blacklozenge}{0}{arrows}{"09}
\DeclareMathSymbol{\circlearrowright}{3}{arrows}{"8C}
\DeclareMathSymbol{\circlearrowleft}{3}{arrows}{"8B}
\DeclareMathSymbol{\rightleftharpoons}{3}{arrows}{"7A}
\DeclareMathSymbol{\leftrightharpoons}{3}{arrows}{"79}
\DeclareMathSymbol{\boxminus}{2}{symbols}{"EB}
\DeclareMathSymbol{\Vdash}{3}{symbols}{"F0}
\DeclareMathSymbol{\Vvdash}{3}{letters}{"D3}
\DeclareMathSymbol{\vDash}{3}{symbols}{"EE}
\DeclareMathSymbol{\twoheadrightarrow}{3}{arrows}{"25}
\DeclareMathSymbol{\twoheadleftarrow}{3}{arrows}{"23}
\DeclareMathSymbol{\leftleftarrows}{3}{arrows}{"71}
\DeclareMathSymbol{\rightrightarrows}{3}{arrows}{"73}
\DeclareMathSymbol{\upuparrows}{3}{arrows}{"72}
\DeclareMathSymbol{\downdownarrows}{3}{arrows}{"74}
\DeclareMathSymbol{\upharpoonright}{3}{arrows}{"75}
\DeclareMathSymbol{\downharpoonright}{3}{arrows}{"77}
\DeclareMathSymbol{\upharpoonleft}{3}{arrows}{"76}
\DeclareMathSymbol{\downharpoonleft}{3}{arrows}{"78}
\DeclareMathSymbol{\rightarrowtail}{3}{arrows}{"29}
\DeclareMathSymbol{\leftarrowtail}{3}{arrows}{"28}
\DeclareMathSymbol{\leftrightarrows}{3}{arrows}{"6E}
\DeclareMathSymbol{\rightleftarrows}{3}{arrows}{"6D}
\DeclareMathSymbol{\Lsh}{3}{arrows}{"7B}
\DeclareMathSymbol{\Rsh}{3}{arrows}{"7D}
\DeclareMathSymbol{\rightsquigarrow}{3}{arrows}{"8E}
\DeclareMathSymbol{\leftsquigarrow}{3}{arrows}{"8D}
\DeclareMathSymbol{\leftrightsquigarrow}{3}{arrows}{"91}
\DeclareMathSymbol{\looparrowleft}{3}{arrows}{"3F}
\DeclareMathSymbol{\looparrowright}{3}{arrows}{"40}
\DeclareMathSymbol{\circeq}{3}{symbols}{"D0}
\DeclareMathSymbol{\succsim}{3}{symbols}{"E1}
\DeclareMathSymbol{\gtrsim}{3}{symbols}{"DD}
\DeclareMathSymbol{\gtrapprox}{3}{letters}{"DB}
\DeclareMathSymbol{\multimap}{3}{letters}{"C7}
\DeclareMathSymbol{\image}{3}{letters}{"C6}
\DeclareMathSymbol{\original}{3}{letters}{"C5}
\DeclareMathSymbol{\therefore}{3}{symbols}{"90}
\DeclareMathSymbol{\because}{3}{symbols}{"91}
\DeclareMathSymbol{\doteqdot}{3}{symbols}{"CA}
\DeclareMathSymbol{\triangleq}{3}{symbols}{"D5}
\DeclareMathSymbol{\precsim}{3}{symbols}{"E0}
\DeclareMathSymbol{\lesssim}{3}{symbols}{"DC}
\DeclareMathSymbol{\lessapprox}{3}{letters}{"DA}
\DeclareMathSymbol{\eqslantless}{3}{letters}{"E2}
\DeclareMathSymbol{\eqslantgtr}{3}{letters}{"E3}
\DeclareMathSymbol{\curlyeqprec}{3}{letters}{"E6}
\DeclareMathSymbol{\curlyeqsucc}{3}{letters}{"E7}
\DeclareMathSymbol{\preccurlyeq}{3}{letters}{"E4}
\DeclareMathSymbol{\leqq}{3}{symbols}{"DA}
\DeclareMathSymbol{\leqslant}{3}{letters}{"E0}
\DeclareMathSymbol{\lessgtr}{3}{symbols}{"DE}
\DeclareMathSymbol{\backprime}{0}{letters}{"C8}
\DeclareMathSymbol{\axisshort}{0}{arrows}{"39}
\DeclareMathSymbol{\risingdotseq}{3}{symbols}{"CC}
\DeclareMathSymbol{\fallingdotseq}{3}{symbols}{"CB}
\DeclareMathSymbol{\succcurlyeq}{3}{letters}{"E5}
\DeclareMathSymbol{\geqq}{3}{symbols}{"DB}
\DeclareMathSymbol{\geqslant}{3}{letters}{"E1}
\DeclareMathSymbol{\gtrless}{3}{symbols}{"DF}
\let\sqsubset\undefined
\let\sqsupset\undefined
\DeclareMathSymbol{\sqsubset}{3}{symbols}{"E4}
\DeclareMathSymbol{\sqsupset}{3}{symbols}{"E5}
\DeclareMathSymbol{\vartriangleright}{3}{letters}{"2E}
\DeclareMathSymbol{\vartriangleleft}{3}{letters}{"2F}
\DeclareMathSymbol{\trianglerighteq}{3}{symbols}{"F5}
\DeclareMathSymbol{\trianglelefteq}{3}{symbols}{"F4}
\DeclareMathSymbol{\bigstar}{0}{arrows}{"AB}
\DeclareMathSymbol{\between}{3}{letters}{"F2}
\DeclareMathSymbol{\blacktriangledown}{0}{arrows}{"07}
\DeclareMathSymbol{\blacktriangleright}{3}{letters}{"F1}
\DeclareMathSymbol{\blacktriangleleft}{3}{letters}{"F0}
\DeclareMathSymbol{\arrowaxisright}{0}{arrows}{"37}
\DeclareMathSymbol{\arrowaxisleft}{0}{arrows}{"36}
\DeclareMathSymbol{\vartriangle}{3}{arrows}{"04}
\DeclareMathSymbol{\blacktriangle}{0}{arrows}{"05}
\DeclareMathSymbol{\triangledown}{0}{arrows}{"06}
\DeclareMathSymbol{\eqcirc}{3}{symbols}{"CF}
\DeclareMathSymbol{\lesseqgtr}{3}{letters}{"E8}
\DeclareMathSymbol{\gtreqless}{3}{letters}{"E9}
\DeclareMathSymbol{\lesseqqgtr}{3}{letters}{"EA}
\DeclareMathSymbol{\gtreqqless}{3}{letters}{"EB}
\DeclareMathSymbol{\Rrightarrow}{3}{arrows}{"6C}
\DeclareMathSymbol{\Lleftarrow}{3}{arrows}{"6A}
\DeclareMathSymbol{\veebar}{2}{letters}{"D2}
\DeclareMathSymbol{\barwedge}{2}{symbols}{"F6}
\DeclareMathSymbol{\angle}{0}{symbols}{"8B}
\DeclareMathSymbol{\measuredangle}{0}{symbols}{"8C}
\DeclareMathSymbol{\sphericalangle}{0}{symbols}{"8D}
\DeclareMathSymbol{\varpropto}{3}{symbols}{"2F} % ?
\DeclareMathSymbol{\smallsmile}{3}{letters}{"5E} % ? 
\DeclareMathSymbol{\smallfrown}{3}{letters}{"5F} % ?       
\DeclareMathSymbol{\Subset}{3}{symbols}{"F8}
\DeclareMathSymbol{\Supset}{3}{symbols}{"F9}
\DeclareMathSymbol{\Cup}{2}{symbols}{"FA}
\DeclareMathSymbol{\Cap}{2}{symbols}{"FB}
\DeclareMathSymbol{\curlywedge}{2}{symbols}{"84}
\DeclareMathSymbol{\curlyvee}{2}{symbols}{"85}
\DeclareMathSymbol{\leftthreetimes}{2}{letters}{"D0}
\DeclareMathSymbol{\rightthreetimes}{2}{letters}{"D1}
\DeclareMathSymbol{\subseteqq}{3}{letters}{"EE}
\DeclareMathSymbol{\supseteqq}{3}{letters}{"EF}
\DeclareMathSymbol{\bumpeq}{3}{symbols}{"C8}
\DeclareMathSymbol{\Bumpeq}{3}{symbols}{"C7}
\DeclareMathSymbol{\lll}{3}{letters}{"DE}
\DeclareMathSymbol{\ggg}{3}{letters}{"DF}
\DeclareMathSymbol{\circledS}{0}{letters}{"CA}
\DeclareMathSymbol{\pitchfork}{3}{letters}{"F3}
\DeclareMathSymbol{\dotplus}{2}{symbols}{"89}
\DeclareMathSymbol{\backsim}{3}{letters}{"F8}
\DeclareMathSymbol{\backsimeq}{3}{letters}{"F9}
\DeclareMathSymbol{\complement}{0}{letters}{"94}
\DeclareMathSymbol{\intercal}{2}{letters}{"D9}
\DeclareMathSymbol{\circledcirc}{2}{symbols}{"E6}
\DeclareMathSymbol{\circledast}{2}{symbols}{"E7}
\DeclareMathSymbol{\circleddash}{2}{letters}{"CC}
%    \end{macrocode}
% MSBM* equivalents
%    \begin{macrocode}
\DeclareMathSymbol{\lvertneqq}{3}{arrows}{"DE}
\DeclareMathSymbol{\gvertneqq}{3}{arrows}{"DF}
\DeclareMathSymbol{\nleq}{3}{arrows}{"9C}
\DeclareMathSymbol{\ngeq}{3}{arrows}{"9D}
\DeclareMathSymbol{\nless}{3}{arrows}{"9A}
\DeclareMathSymbol{\ngtr}{3}{arrows}{"9B}
\DeclareMathSymbol{\nprec}{3}{arrows}{"E5}
\DeclareMathSymbol{\nsucc}{3}{arrows}{"E6}
\DeclareMathSymbol{\lneqq}{3}{arrows}{"DC}
\DeclareMathSymbol{\gneqq}{3}{arrows}{"DD}
\DeclareMathSymbol{\nleqslant}{3}{arrows}{"D6}
\DeclareMathSymbol{\ngeqslant}{3}{arrows}{"D7}
\DeclareMathSymbol{\lneq}{3}{arrows}{"DA}
\DeclareMathSymbol{\gneq}{3}{arrows}{"DB}
\DeclareMathSymbol{\npreceq}{3}{arrows}{"E7}
\DeclareMathSymbol{\nsucceq}{3}{arrows}{"E8}
\DeclareMathSymbol{\precnsim}{3}{arrows}{"EB}
\DeclareMathSymbol{\succnsim}{3}{arrows}{"EC}
\DeclareMathSymbol{\lnsim}{3}{arrows}{"E0}
\DeclareMathSymbol{\gnsim}{3}{arrows}{"E2}
\DeclareMathSymbol{\nleqq}{3}{arrows}{"D8}
\DeclareMathSymbol{\ngeqq}{3}{arrows}{"D9}
\DeclareMathSymbol{\precneqq}{3}{arrows}{"E9}
\DeclareMathSymbol{\succneqq}{3}{arrows}{"EA}
\DeclareMathSymbol{\precnapprox}{3}{arrows}{"ED}
\DeclareMathSymbol{\succnapprox}{3}{arrows}{"EE}
\DeclareMathSymbol{\lnapprox}{3}{arrows}{"E3}
\DeclareMathSymbol{\gnapprox}{3}{arrows}{"E4}
\DeclareMathSymbol{\nsim}{3}{arrows}{"96}
\DeclareMathSymbol{\ncong}{3}{arrows}{"99}
\DeclareMathSymbol{\diagup}{3}{arrows}{"0B}
\DeclareMathSymbol{\diagdown}{3}{arrows}{"0C}
\DeclareMathSymbol{\varsubsetneq}{3}{arrows}{"D0}
\DeclareMathSymbol{\varsupsetneq}{3}{arrows}{"D1}
\DeclareMathSymbol{\nsubseteqq}{3}{arrows}{"CA}
\DeclareMathSymbol{\nsupseteqq}{3}{arrows}{"CB}
\DeclareMathSymbol{\subsetneqq}{3}{arrows}{"CE}
\DeclareMathSymbol{\supsetneqq}{3}{arrows}{"CF}
\DeclareMathSymbol{\varsubsetneqq}{3}{arrows}{"D2}
\DeclareMathSymbol{\varsupsetneqq}{3}{arrows}{"D3}
\DeclareMathSymbol{\subsetneq}{3}{arrows}{"CC}
\DeclareMathSymbol{\supsetneq}{3}{arrows}{"CD}
\DeclareMathSymbol{\nsubseteq}{3}{arrows}{"C8}
\DeclareMathSymbol{\nsupseteq}{3}{arrows}{"C9}
\DeclareMathSymbol{\nparallel}{3}{arrows}{"F7}
\DeclareMathSymbol{\nmid}{3}{arrows}{"F6}
\DeclareMathSymbol{\nshortmid}{3}{arrows}{"F4}
\DeclareMathSymbol{\nshortparallel}{3}{arrows}{"F5}
\DeclareMathSymbol{\nvdash}{3}{arrows}{"F8}
\DeclareMathSymbol{\nVdash}{3}{arrows}{"FA}
\DeclareMathSymbol{\nvDash}{3}{arrows}{"F9}
\DeclareMathSymbol{\nVDash}{3}{arrows}{"FB}
\DeclareMathSymbol{\ntrianglerighteq}{3}{arrows}{"F2}
\DeclareMathSymbol{\ntrianglelefteq}{3}{arrows}{"F1}
\DeclareMathSymbol{\ntriangleleft}{3}{arrows}{"EF}
\DeclareMathSymbol{\ntriangleright}{3}{arrows}{"F0}
\DeclareMathSymbol{\nleftarrow}{3}{arrows}{"32}
\DeclareMathSymbol{\nrightarrow}{3}{arrows}{"33}
\DeclareMathSymbol{\nLeftarrow}{3}{arrows}{"66}
\DeclareMathSymbol{\nRightarrow}{3}{arrows}{"68}
\DeclareMathSymbol{\nLeftrightarrow}{3}{arrows}{"67}
\DeclareMathSymbol{\nleftrightarrow}{3}{arrows}{"34}
\DeclareMathSymbol{\divideontimes}{2}{letters}{"F7}
\DeclareMathSymbol{\varnothing}{0}{letters}{"9C}
\DeclareMathSymbol{\nexists}{0}{arrows}{"20}
\DeclareMathSymbol{\Finv}{0}{letters}{"90}
\DeclareMathSymbol{\Game}{0}{letters}{"91}
\let\mho\undefined
\DeclareMathSymbol{\mho}{0}{letters}{"92}
\DeclareMathSymbol{\simeq}{3}{symbols}{"27}
\DeclareMathSymbol{\eqsim}{3}{symbols}{"99}
\DeclareMathSymbol{\beth}{0}{letters}{"95}
\DeclareMathSymbol{\gimel}{0}{letters}{"96}
\DeclareMathSymbol{\daleth}{0}{letters}{"97}
\DeclareMathSymbol{\lessdot}{3}{letters}{"DC}
\DeclareMathSymbol{\gtrdot}{3}{letters}{"DD}
\DeclareMathSymbol{\ltimes}{2}{letters}{"CE}
\DeclareMathSymbol{\rtimes}{2}{letters}{"CF}
\DeclareMathSymbol{\shortmid}{3}{letters}{"F4}
\DeclareMathSymbol{\shortparallel}{3}{letters}{"F5}
\DeclareMathSymbol{\smallsetminus}{2}{letters}{"D8} %?
\DeclareMathSymbol{\thicksim}{3}{symbols}{"18} %?
\DeclareMathSymbol{\thickapprox}{3}{symbols}{"19} %?      
\DeclareMathSymbol{\approxeq}{3}{symbols}{"9D}
\DeclareMathSymbol{\succapprox}{3}{letters}{"ED}
\DeclareMathSymbol{\precapprox}{3}{letters}{"EC}
\DeclareMathSymbol{\curvearrowleft}{3}{arrows}{"87}
\DeclareMathSymbol{\curvearrowright}{3}{arrows}{"88}
\DeclareMathSymbol{\digamma}{0}{letters}{"46} %?
\DeclareMathSymbol{\varkappa}{0}{letters}{"9B}
\DeclareMathSymbol{\Bbbk}{0}{arrows}{"6B}
\DeclareMathSymbol{\hslash}{0}{letters}{"9D}
\DeclareMathSymbol{\hbar}{0}{arrows}{"1B}
\DeclareMathSymbol{\backepsilon}{3}{letters}{"FB} %?
\DeclareMathSymbol{\dashrightarrow}{0}{arrows}{"3A}
\DeclareMathSymbol{\dashleftarrow}{0}{arrows}{"38}
\DeclareMathSymbol{\dashuparrow}{0}{arrows}{"39}
\DeclareMathSymbol{\dashdownarrow}{0}{arrows}{"3B}
\DeclareMathDelimiter\ulcorner{4}{arrows}{"70}{arrows}{"70}
\DeclareMathDelimiter\urcorner{5}{arrows}{"71}{arrows}{"71}
\DeclareMathDelimiter\llcorner{4}{arrows}{"78}{arrows}{"78}
\DeclareMathDelimiter\lrcorner{5}{arrows}{"79}{arrows}{"79}
%    \end{macrocode}
% It is necessary to declare this `if' outside the test to see if
% we are using the `amsfonts' package, because it blows up otherwise. Its
% a redeclaration if we \emph{are} using `amsfonts'.
%    \begin{macrocode}
\newif\iffirstchoice@\firstchoice@true
\@ifpackageloaded{amstext}{}{%
%    \end{macrocode}
% Following only to define |\mathhexbox| for |\checkmark|, |\circledR|, 
% |\maltese|
%    \begin{macrocode}
  \def\RIfM@{\relax\ifmmode}
  \def\DN@{\def\next@}
  \def\eat@#1{}
  \firstchoice@true
  \def\text@#1{\mathchoice
   {\hbox{\everymath{\displaystyle}\def\textfonti{\the\textfont\@ne}%
    \def\textfontii{\the\textfont\tw@}\textdef@@ T#1}}
   {\hbox{\firstchoice@false
    \everymath{\textstyle}\def\textfonti{\the\textfont\@ne}%
    \def\textfontii{\the\textfont\tw@}\textdef@@ T#1}}
   {\hbox{\firstchoice@false
    \everymath{\scriptstyle}\def\textfonti{\the\scriptfont\@ne}%
    \def\textfontii{\the\scriptfont\tw@}\textdef@@ S\rm#1}}
   {\hbox{\firstchoice@false
    \everymath{\scriptscriptstyle}\def\textfonti
    {\the\scriptscriptfont\@ne}%
    \def\textfontii{\the\scriptscriptfont\tw@}\textdef@@ s\rm#1}}}
  \def\textdef@@#1{\textdef@#1\rm\textdef@#1\bf\textdef@#1\sl\textdef@#1\it}
  \def\text@@#1{\leavevmode\hbox{#1}}
  \def\rmfam{0}
  \def\textdef@#1#2{%
   \DN@{\csname\expandafter\eat@\string#2fam\endcsname}%
   \if S#1\edef#2{\the\scriptfont\next@\relax}%
   \else\if s#1\edef#2{\the\scriptscriptfont\next@\relax}%
   \else\edef#2{\the\textfont\next@\relax}\fi\fi}
  \def\text{\RIfM@\expandafter\text@\else\expandafter\text@@\fi}
  \def\mathhexbox@#1#2#3{\text{$\m@th\mathchar"#1#2#3$}}
}
\xdef\checkmark{\noexpand\mathhexbox\hexnumber@\symarrows 58 }
\def\lmathhexbox#1#2#3{\leavevmode
  \hbox{$\m@th \mathchar"#1#2#3$}}
\def \circledR  {\lmathhexbox1C9 }
\def \maltese   {\lmathhexbox1CB }
%    \end{macrocode}
% Changes to default for |Leftrightarrow|. I (SPQR) don't like 22C, so:
%    \begin{macrocode}
\let\Leftrightarrow\undefined
\DeclareMathSymbol{\Leftrightarrow}{3}{arrows}{"61}
%    \end{macrocode}
% Override AMS logo, just to ensure we don't use any CM fonts!
%    \begin{macrocode}
\def\AmS{{\protect\usefont{OMS}{hlcy}{m}{n}%
  A\kern-.1667em\lower.5ex\hbox{M}\kern-.125emS}}
%</lucbmath>
%<*lucbrb>
\ProvidesPackage{lucidbrb}[\filedate\space\fileversion\space
 Lucida Bright (Berry names) PSNFSS2e package]
\RequirePackage{lucbr}
%</lucbrb>
%<*lucbry>
\ProvidesPackage{lucidbry}[\filedate\space\fileversion\space
 Lucida Bright (Y \& Y names) PSNFSS2e package]
\RequirePackage[yy]{lucbr}
%</lucbry>
%    \end{macrocode}
% A test file for the Lucida fonts.
%    \begin{macrocode}
%<*testlucfont>
%\documentclass{article}
%\usepackage{a4,t1enc}
%\begin{document}
%\title{All the Lucida text fonts}
%\author{prepared by Sebastian Rahtz}
%\date{November 6th 1994}
%\maketitle
%\def\test#1#2#3#4#5{%
% \item[#1/#2/#3]#4 (#5):
% {\fontfamily{#1}\fontseries{#2}\fontshape{#3}\selectfont
% Animadversion for a giraffe costs \pounds123. Wa\ss\ ist 
% das fu\"r ein Klopf?
% We are often na{\"\i}ve vis-\`{a}-vis
%the d{\ae}monic ph{\oe}nix's official r\^{o}le in fluffy souffl\'{e}s}
%}
%\begin{description}
%\test{hlc4}{db}{it}{hlcdi4q}{LucidaFax-DemiItalic}
%\test{hlc4}{db}{n}{hlcd4q}{LucidaFax-Demi}
%\test{hlc4}{m}{it}{hlcri4q}{LucidaFax-Italic}
%\test{hlc4}{m}{n}{hlcr4q}{LucidaFax}
%\test{hlcb}{db}{it}{hlcdibq}{LucidaBright-DemiItalic}
%\test{hlcb}{db}{n}{hlcdbq}{LucidaBright-Demi}
%\test{hlcb}{m}{it}{hlcribq}{LucidaBright-Italic}
%\test{hlcb}{m}{n}{hlcrbq}{LucidaBright}
%\test{hlce}{m}{it}{hlcrieq}{LucidaCalligraphy-Italic}
%\test{hlcf}{m}{n}{hlcrfq}{LucidaBlackletter}
%\test{hlcn}{m}{it}{hlcrinq}{LucidaCasual-Italic}
%\test{hlcn}{m}{n}{hlcrnq}{LucidaCasual}
%\test{hlcst}{b}{n}{hlcbstq}{LucidaSans-TypewriterBold}
%\test{hlcst}{b}{sl}{hlcbostq}{LucidaSans-TypewriterBoldOblique}
%\test{hlcs}{b}{it}{hlcbisq}{LucidaSans-BoldItalic}
%\test{hlcs}{b}{n}{hlcbsq}{LucidaSans-Bold}
%\test{hlcs}{db}{it}{hlcdisq}{LucidaSans-DemiItalic}
%\test{hlcs}{db}{n}{hlcdsq}{LucidaSans-Demi}
%\test{hlcs}{m}{it}{hlcrisq}{LucidaSans-Italic}
%\test{hlcs}{m}{n}{hlcrsq}{LucidaSans}
%\test{hlct}{b}{n}{hlcbtq}{LucidaTypewriterBold}
%\test{hlct}{b}{sl}{hlcbotq}{LucidaTypewriterOblique}
%\test{hlcw}{m}{it}{hlcriwq}{LucidaHandwriting-Italic}
%\end{description}
%\end{document}
%</testlucfont>
%    \end{macrocode}
% \Finale
\endinput
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
