%%%%%%%%%%%%********     Direct selection of bera fonts  with \Clight, etc.     ********%%%%%%%%%%%%

% Bera family. scaled 0.9
%In Latex NFSS, these are (exmp., size  10)  T1/fvm/m/n/10, T1/fvm/b/n/10, T1/fvm/m/sl/10, T1/fvm/b/sl/10

\message{^^JHarcode the fast font switches (\string\Clight, etc.) to use the Bera family of fonts.}
\message{Can be downloaded from https://ctan.org/pkg/bera^^J^^J}

\catcode`@=11

\def\fC@light{fvmr8t }
\def\fC@bold{fvmb8t }
\def\fC@itlight{fvmro8t }
\def\fC@itbold{fvmbo8t }

\expandafter\font\csname fC@light/10\endcsname= \fC@light at 9pt
\expandafter\font\csname fC@bold/10\endcsname= \fC@bold at 9pt
\expandafter\font\csname fC@itlight/10\endcsname= \fC@itlight at 9pt
\expandafter\font\csname fC@itbold/10\endcsname= \fC@itbold at 9pt

\expandafter\font\csname fC@light/9\endcsname= \fC@light at 8.1pt
\expandafter\font\csname fC@bold/9\endcsname= \fC@bold at 8.1pt
\expandafter\font\csname fC@itlight/9\endcsname= \fC@itlight at 8.1pt
\expandafter\font\csname fC@itbold/9\endcsname= \fC@itbold at 8.1pt

\expandafter\font\csname fC@light/8\endcsname= \fC@light at 7.2pt
\expandafter\font\csname fC@bold/8\endcsname= \fC@bold at 7.2pt
\expandafter\font\csname fC@itlight/8\endcsname= \fC@itlight at 7.2pt
\expandafter\font\csname fC@itbold/8\endcsname= \fC@itbold at 7.2pt

\expandafter\font\csname fC@light/12\endcsname= \fC@light at 10.8pt
\expandafter\font\csname fC@bold/12\endcsname= \fC@bold at 10.8pt
\expandafter\font\csname fC@itlight/12\endcsname= \fC@itlight at 10.8pt
\expandafter\font\csname fC@itbold/12\endcsname= \fC@itbold at 10.8pt

\expandafter\font\csname fC@light/7\endcsname= \fC@light at 6.3pt

%Remove the stretch and shrink of spaces, and the extra space inserted after e.g. a full stop.
%We are fixing the font. A fixed-wdith font should no have those wider spaces.
\def\makedimenzero#1#2{
\fontdimen#1\csname fC@light/#2\endcsname= 0pt
\fontdimen#1\csname fC@bold/#2\endcsname= 0pt
\fontdimen#1\csname fC@itlight/#2\endcsname= 0pt
\fontdimen#1\csname fC@itbold/#2\endcsname= 0pt
}
\def\makespaceszero#1{\makedimenzero3{#1}\makedimenzero4{#1}\makedimenzero7{#1}}
\makespaceszero{10} \makespaceszero{9}
\makespaceszero{8}  \makespaceszero{12}

\ifdefined\ignoreligaturesinfont
    \def\removeligatures#1{
	\ignoreligaturesinfont\csname fC@light/#1\endcsname
	\ignoreligaturesinfont\csname fC@bold/#1\endcsname
	\ignoreligaturesinfont\csname fC@itlight/#1\endcsname
	\ignoreligaturesinfont\csname fC@itbold/#1\endcsname
    }
\else
    \def\removeligatures#1{
	\pdfnoligatures\csname fC@light/#1\endcsname
	\pdfnoligatures\csname fC@bold/#1\endcsname
	\pdfnoligatures\csname fC@itlight/#1\endcsname
	\pdfnoligatures\csname fC@itbold/#1\endcsname
    }
\fi
\removeligatures{10} \removeligatures{9}
\removeligatures{8}  \removeligatures{12}

\protected\def\Clight{\csname fC@light/\f@size\endcsname}
\protected\def\Cbold{\csname fC@bold/\f@size\endcsname}
\protected\def\itlight{\csname fC@itlight/\f@size\endcsname}
\protected\def\itbold{\csname fC@itbold/\f@size\endcsname}

.