\def\fileversion{v2}
\def\filedate{91/12/10}
\immediate\write\sixt@@n{File: `lucmaths.sty' 
\fileversion\space <\filedate> (SPQR)}
% Sebastian Rahtz
% 5 Granary Court
% St Andrewgate
% York Y01 2JR
%
%spqr@uk.ac.soton.ecs
% This style file sets up a new `mathversion' which uses the Lucida fonts
% in place of any CMR, effectively making you free of bitmaps when needed
%
% It does assume that you have the Lucida metric files (available from me
% if necessary) and have purchased the fonts.
%
% scale the maths down a bit? up to you.
%
\declare@font[.9]{vlmi}{m}{it}{vlmi}
\extra@def{vlmi}{\skewchar#1'177}{}
\declare@font[.9]{vlms}{m}{n}{vlms}
\extra@def{vlms}{\skewchar#1'060}{}
\declare@font[.9]{vlme}{m}{n}{vlme}
\extra@def{vlms}{}{}

%--------------------------------------------------------------------------------
% alternative declaration of extension font
%\expandafter\font\csname vlms/m/n/10\endcsname=vlms at 10pt
%\expandafter\fontdimen20\csname vlms/m/n/10\endcsname23.9pt
%\expandafter\font\csname vlme/m/n/10\endcsname=vlms at 10pt
%\textfont3\csname vlme/m/n/10\endcsname
%\scriptfont3\csname vlme/m/n/10\endcsname
%\scriptscriptfont3\csname vlme/m/n/10\endcsname
%--------------------------------------------------------------------------------

\new@mathversion\mv@lucida

% Fonts we're going to use...

\define@mathgroup\mv@lucida{0}
                 {\rmdefault}{m}{n}
\define@mathgroup\mv@lucida{1}
                 {vlmi}{m}{it}
\define@mathgroup\mv@lucida{2}
                 {vlms}{m}{n}
\define@mathgroup\mv@lucida{3}
                 {vlme}{m}{n}
%
\mathversion{lucida}

\endinput