\ProvidesFile{ly1mingelasio.fd}
    [2024/04/11 (msharpe)  Font definitions for LY1/mingelasio.]

\ifcsname s@fct@alias\endcsname\else
\gdef\s@fct@alias{\sub@sfcnt\@font@aliasinfo}
\gdef\@font@aliasinfo#1{%
    \@font@info{Font\space shape\space `\curr@fontshape'\space will
        \space be\space aliased\MessageBreak to\space `\mandatory@arg'}%
}
\fi
\def\@textscalefactor{.92} 
%xgelasio must be reduced by factor .92 to match xheight of newtxmath


\@ifundefined{ntxmath@scale}{\let\ntxmath@scaled\@empty}
{\@tempdima\@textscalefactor\p@
\@tempdima\ntxmath@scale\@tempdima
\edef\ntxmath@scaled{s*[\strip@pt\@tempdima]}}% locally, not globally

\DeclareFontFamily{LY1}{mingelasio}{}


%   ----  m = regular  ----

\DeclareFontShape{LY1}{mingelasio}{m}{it}{
      <-> \ntxmath@scaled Gelasio-Italic-tlf-ly1
}{}

\DeclareFontShape{LY1}{mingelasio}{regular}{it}{
      <-> alias * mingelasio/m/it
}{}

\DeclareFontShape{LY1}{mingelasio}{m}{n}{
      <-> \ntxmath@scaled Gelasio-Regular-tlf-ly1
}{}

\DeclareFontShape{LY1}{mingelasio}{regular}{n}{
      <-> alias * mingelasio/m/n
}{}

\DeclareFontShape{LY1}{mingelasio}{m}{sl}{
    <-> ssub * mingelasio/m/it
}{}

\DeclareFontShape{LY1}{mingelasio}{regular}{sl}{
    <-> ssub * mingelasio/regular/it
}{}


%   ----  b = bold  ----

\DeclareFontShape{LY1}{mingelasio}{b}{n}{
      <-> \ntxmath@scaled Gelasio-Bold-tlf-ly1
}{}

\DeclareFontShape{LY1}{mingelasio}{bold}{n}{
      <-> alias * mingelasio/b/n
}{}

\DeclareFontShape{LY1}{mingelasio}{b}{it}{
      <-> \ntxmath@scaled Gelasio-BoldItalic-tlf-ly1
}{}

\DeclareFontShape{LY1}{mingelasio}{bold}{it}{
      <-> alias * mingelasio/b/it
}{}

\DeclareFontShape{LY1}{mingelasio}{b}{sl}{
    <-> ssub * mingelasio/b/it
}{}

\DeclareFontShape{LY1}{mingelasio}{bold}{sl}{
    <-> ssub * mingelasio/bold/it
}{}


%   ----  Extra 'ssub' rules to map 'bx' to 'b'  ----

\DeclareFontShape{LY1}{mingelasio}{bx}{n}{
      <-> ssub * mingelasio/b/n
}{}

\DeclareFontShape{LY1}{mingelasio}{bx}{sl}{
      <-> ssub * mingelasio/b/sl
}{}

\DeclareFontShape{LY1}{mingelasio}{bx}{it}{
      <-> ssub * mingelasio/b/it
}{}

\endinput