\input fontinst.sty
 \setint{monowidth}{1}

% \recordtransforms{map.tex}
\transformfont{hlsrt8r}{\reencodefont{8r}{\fromafm{lstr}}}
\transformfont{hlsrot8r}{\reencodefont{8r}{\fromafm{lsto}}}
\transformfont{hlsbt8r}{\reencodefont{8r}{\fromafm{lstb}}}
\transformfont{hlsbot8r}{\reencodefont{8r}{\fromafm{lstbo}}}


\installfonts

\installfamily{T1}{hlst}{\hyphenchar \font -1}
\installfamily{TS1}{hlst}{\hyphenchar \font -1}

\installrawfont{hlsrt8r}{hlsrt8r,8r}{8r}{8r}{hlst}{m}{n}{}
\installfont{hlsrt8t}{hlsrt8r,patch-hlstr,latin}{T1}
  {T1}{hlst}{m}{n}{}
\installfont{hlsrt8c}{hlsrt8r,textcomp}{TS1}
  {TS1}{hlst}{m}{n}{}

\installrawfont{hlsrot8r}{hlsrot8r,8r}{8r}{8r}{hlst}{m}{it}{}
\installfont{hlsrot8t}{hlsrot8r,patch-hlstro,latin}{T1}
  {T1}{hlst}{m}{sl}{}
\installfont{hlsrot8c}{hlsrot8r,textcomp}{TS1}
  {TS1}{hlst}{m}{sl}{}


\installrawfont{hlsbt8r}{hlsbt8r,8r}{8r}{8r}{hlst}{b}{n}{}
\installfont{hlsbt8t}{hlsbt8r,patch-hlstb,latin}{T1}
  {T1}{hlst}{b}{n}{}
\installfont{hlsbt8c}{hlsbt8r,textcomp}{TS1}
  {TS1}{hlst}{b}{n}{}

\installrawfont{hlsbot8r}{hlsbot8r,8r}{8r}{8r}{hlst}{b}{sl}{}
\installfont{hlsbot8t}{hlsbot8r,patch-hlstbo,latin}{T1}
  {T1}{hlst}{b}{sl}{}
\installfont{hlsbot8c}{hlsbot8r,textcomp}{TS1}
  {TS1}{hlst}{b}{sl}{}

\endinstallfonts

\bye

\endrecordtransforms

\input finstmsc.sty
% \AssumeMetafont % Ignore entries for CM
\resetstr{PSfontsuffix}{.pfb}
\adddriver{dvips}{hlst.map}
\input map.tex
\donedrivers

\bye

\DeclareFontFamily{LY1}{hlst}{\hyphenchar \font\m@ne}%
\DeclareLucidaFontShape{LY1}{hlst}{m}{n}{lstr}{}
\DeclareFontShape{LY1}{hlst}{m}{sc}{<->ssub * hlst/m/n}{}
\DeclareLucidaFontShape{LY1}{hlst}{m}{it}{lsto}{}
\DeclareFontShape{LY1}{hlst}{m}{sl}{<->ssub * hlst/m/it}{}
\DeclareLucidaFontShape{LY1}{hlst}{b}{n}{lstb}{}
\DeclareLucidaFontShape{LY1}{hlst}{b}{it}{lstbo}{}
\DeclareFontShape{LY1}{hlst}{b}{sc} {<->ssub * hlst/m/sc}{}
\DeclareFontShape{LY1}{hlst}{b}{sl} {<->ssub * hlst/b/it}{}
\DeclareFontShape{LY1}{hlst}{m}{sl} {<->ssub * hlst/m/it}{}
\DeclareFontShape{LY1}{hlst}{bx}{n} {<->ssub * hlst/b/n}{}
\DeclareFontShape{LY1}{hlst}{bx}{it}{<->ssub * hlst/b/it}{}
\DeclareFontShape{LY1}{hlst}{bx}{sc}{<->ssub * hlst/b/sc}{}
\DeclareFontShape{LY1}{hlst}{bx}{sl}{<->ssub * hlst/m/sl}{}

