% Set up to use the Lucida fonts in math mode.

\catcode`\@ = 11

% Use Lucida Bright for the text.
\font\tenrm = plcr at 10pt
\font\sevenrm = plcr at 7pt
\font\fiverm = plcr at 5pt

\font\tentt = plcrst at 10pt
\font\seventt = plcrst at 7pt
\font\fivett = plcrst at 5pt

\font\teni = plcrm at 10pt   \skewchar\teni = '177
\font\seveni = plcrm at 7pt  \skewchar\seveni = '177
\font\fivei = plcrm at 5pt   \skewchar\fivei = '177

\font\tensy = plcry at 10pt  \skewchar\tensy = '60
\font\sevensy = plcry at 7pt \skewchar\sevensy = '60
\font\fivesy = plcry at 5pt  \skewchar\fivesy = '60

\font\tenex = plcrv at 10pt

\textfont0 = \tenrm  \scriptfont0 = \sevenrm  \scriptscriptfont0 = \fiverm
\textfont1 = \teni   \scriptfont1 = \seveni   \scriptscriptfont1 = \fivei
\textfont2 = \tensy  \scriptfont2 = \sevensy  \scriptscriptfont2 = \fivesy
\textfont3 = \tenex  \scriptfont3 = \tenex    \scriptscriptfont3 = \tenex

% We need more leading, and hence a slightly different strut.
\baselineskip = 13pt
\setbox\strutbox = \hbox{\vrule height9.1pt depth3.9pt width0pt}

% Increase the standard spacings.
\thinmuskip = 4mu
\medmuskip = 6mu plus3mu minus6mu
\thickmuskip = 8mu plus8mu

% Leave a little more space in general before {super,sub}scripts.
\scriptspace = .65pt

% With the change in \medmuskip, \bmod has to change.
\def\bmod{\mskip-\medmuskip\mkern7.5mu
  \mathbin{\rm mod}\penalty900\mkern7.5mu\mskip-\medmuskip}

% Plain's value of 3mu for \joinrel makes the hooks in
% \hook{left,right}arrow merge with the arrows too far in.  However, we
% need the 3mu for the \bowtie and \mapsto, at least.  
\def\hookrightarrow{\lhook\mathrel{\mkern-1.5mu}\rightarrow}
\def\hookleftarrow{\leftarrow\mathrel{\mkern-1.5mu}\rhook}

% When we're doing Nth roots, the N comes out far too close to the
% radical.
\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-8mu \box\z@}

% Lucida text fonts typically don't have Greek letters, so we have to
% redefine uppercase Greek to use the math italic font.
\mathchardef\Gamma="100 \mathchardef\Delta="101
\mathchardef\Theta="102 \mathchardef\Lambda="103 \mathchardef\Xi="104
\mathchardef\Pi="105 \mathchardef\Sigma="106 \mathchardef\Upsilon="107
\mathchardef\Phi="108 \mathchardef\Psi="109 \mathchardef\Omega="10A

\catcode`@ = 12
