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

%\recordtransforms{map.tex}
\transformfont{hlcrt8r}{\reencodefont{8r}{\fromafm{lbtr}}}
\transformfont{hlcrot8r}{\reencodefont{8r}{\fromafm{lbto}}}
\transformfont{hlcbt8r}{\reencodefont{8r}{\fromafm{lbtb}}}
\transformfont{hlcbot8r}{\reencodefont{8r}{\fromafm{lbtbo}}}

\installfonts

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

\installrawfont{hlcrt8r}{hlcrt8r,8r}{8r}{8r}{hlct}{m}{n}{}
\installfont{hlcrt8t}{hlcrt8r,patch-hlctr,latin}{T1}
  {T1}{hlct}{m}{n}{}
\installfont{hlcrt8c}{hlcrt8r,textcomp}{TS1}
  {TS1}{hlct}{m}{n}{}

\installrawfont{hlcrot8r}{hlcrot8r,8r}{8r}{8r}{hlct}{m}{it}{}
\installfont{hlcrot8t}{hlcrot8r,patch-hlctro,latin}{T1}
  {T1}{hlct}{m}{sl}{}
\installfont{hlcrot8c}{hlcrot8r,textcomp}{TS1}
  {TS1}{hlct}{m}{sl}{}


\installrawfont{hlcbt8r}{hlcbt8r,8r}{8r}{8r}{hlct}{b}{n}{}
\installfont{hlcbt8t}{hlcbt8r,patch-hlctb,latin}{T1}
  {T1}{hlct}{b}{n}{}
\installfont{hlcbt8c}{hlcbt8r,textcomp}{TS1}
  {TS1}{hlct}{b}{n}{}

\installrawfont{hlcbot8r}{hlcbot8r,8r}{8r}{8r}{hlct}{b}{sl}{}
\installfont{hlcbot8t}{hlcbot8r,patch-hlctbo,latin}{T1}
  {T1}{hlct}{b}{sl}{}
\installfont{hlcbot8c}{hlcbot8r,textcomp}{TS1}
  {TS1}{hlct}{b}{sl}{}

\endinstallfonts

\bye

\endrecordtransforms

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

\bye

\DeclareFontFamily{LY1}{hlct}{\hyphenchar \font\m@ne}%
\DeclareLucidaFontShape{LY1}{hlct}{m}{n}{lbtr}{}
\DeclareFontShape{LY1}{hlct}{m}{sc}{<->ssub * hlct/m/n}{}
\DeclareLucidaFontShape{LY1}{hlct}{m}{it}{lbto}{}
\DeclareFontShape{LY1}{hlct}{m}{sl}{<->ssub * hlct/m/it}{}
\DeclareLucidaFontShape{LY1}{hlct}{b}{n}{lbtb}{}
\DeclareLucidaFontShape{LY1}{hlct}{b}{it}{lbtbo}{}
\DeclareFontShape{LY1}{hlct}{b}{sc}{<->ssub * hlct/m/sc}{}
\DeclareFontShape{LY1}{hlct}{b}{sl}{<->ssub * hlct/b/it}{}
\DeclareFontShape{LY1}{hlct}{m}{sl}{<->ssub * hlct/m/it}{}
\DeclareFontShape{LY1}{hlct}{bx}{n}{<->ssub * hlct/b/n}{}
\DeclareFontShape{LY1}{hlct}{bx}{it}{<->ssub * hlct/b/it}{}
\DeclareFontShape{LY1}{hlct}{bx}{sc}{<->ssub * hlct/b/sc}{}
\DeclareFontShape{LY1}{hlct}{bx}{sl}{<->ssub * hlct/m/sl}{}


