\input fontinst.sty

% \recordtransforms{map.tex}
\transformfont{hlhr8r}{\reencodefont{8r}{\fromafm{lbr}}}
\transformfont{hlhri8r}{\reencodefont{8r}{\fromafm{lbi}}}
\transformfont{hlhro8r}{\reencodefont{8r}{\fromafm{lbsl}}}
\transformfont{hlhrc8r}{\reencodefont{8r}{\fromafm{lbrsc}}}
\transformfont{hlhb8r}{\reencodefont{8r}{\fromafm{lbd}}}
\transformfont{hlhbi8r}{\reencodefont{8r}{\fromafm{lbdi}}}
\transformfont{hlhbc8r}{\reencodefont{8r}{\fromafm{lbdsc}}}
\transformfont{hlcrie8r}{\reencodefont{8r}{\fromafm{lbc}}}

\reglyphfonts
  \input csc2x
  \reglyphfont{hlhrcx8r}{hlhrc8r}
  \reglyphfont{hlhbcx8r}{hlhbc8r}
\endreglyphfonts
\installfonts

% transform the calligraphic-italic font
% into a pseudo-expert font with correct glyph names
\reglyphfonts
  \renameglyph{zerooldstyle}{zero}
  \renameglyph{oneoldstyle}{one}
  \renameglyph{twooldstyle}{two}
  \renameglyph{threeoldstyle}{three}
  \renameglyph{fouroldstyle}{four}
  \renameglyph{fiveoldstyle}{five}
  \renameglyph{sixoldstyle}{six}
  \renameglyph{sevenoldstyle}{seven}
  \renameglyph{eightoldstyle}{eight}
  \renameglyph{nineoldstyle}{nine}
  \reglyphfont{hlcriex8r}{hlcrie8r}
\endreglyphfonts

\installfamily{T1}{hlh}{}
\installfamily{TS1}{hlh}{}

\installrawfont{hlhr8r}{hlhr8r,8r}{8r}{8r}{hlh}{m}{n}{}
\installfont{hlhr8t}{hlhr8r,patch-hlhr,latin}{t1}
  {T1}{hlh}{m}{n}{}
\installfont{hlhr8c}{hlhr8r,kernoff,hlhrcx8r,kernon,textcomp}{ts1}
  {TS1}{hlh}{m}{n}{}

\installrawfont{hlhri8r}{hlhri8r,8r}{8r}{8r}{hlh}{m}{it}{}
\installfont{hlhri8t}{hlhri8r,patch-hlhri,latin}{t1}
  {T1}{hlh}{m}{it}{}
\installfont{hlhri8c}{hlhri8r,kernoff,hlcriex8r,kernon,textcomp}{ts1}
  {TS1}{hlh}{m}{it}{}


\installrawfont{hlhro8r}{hlhro8r,8r}{8r}{8r}{hlh}{m}{sl}{}
\installfont{hlhro8t}{hlhro8r,patch-hlhr,latin}{t1}
  {T1}{hlh}{m}{sl}{}
\installfont{hlhro8c}{hlhro8r,textcomp}{ts1}
  {TS1}{hlh}{m}{sl}{}

\installrawfont{hlhrc8r}{hlhrc8r,8r}{8r}{8r}{hlh}{m}{sc}{}
\installfont{hlhrc8t}{hlhrc8r,hlhrcx8r,unsetnum,kernoff,hlhr8r,kernon,patch-hlhrc,latinsc,unsetlsc}{t1c}
  {T1}{hlh}{m}{sc}{}


\installrawfont{hlhb8r}{hlhb8r,8r}{8r}{8r}{hlh}{b}{n}{}
\installfont{hlhb8t}{hlhb8r,patch-hlhb,latin}{t1}
  {T1}{hlh}{b}{n}{}
\installfont{hlhb8c}{hlhb8r,kernoff,hlhbcx8r,kernon,textcomp}{ts1}
  {TS1}{hlh}{b}{n}{}

\installrawfont{hlhbi8r}{hlhbi8r,8r}{8r}{8r}{hlh}{b}{it}{}
\installfont{hlhbi8t}{hlhbi8r,patch-hlhbi,latin}{t1}
  {T1}{hlh}{b}{it}{}
\installfont{hlhbi8c}{hlhbi8r,textcomp}{ts1}
  {TS1}{hlh}{b}{it}{}

\installrawfont{hlhbc8r}{hlhbc8r,8r}{8r}{8r}{hlh}{b}{sc}{}
\installfont{hlhbc8t}{hlhbc8r,hlhbcx8r,unsetnum,kernoff,hlhb8r,kernon,patch-hlhbc,latinsc,unsetlsc}{t1c}
  {T1}{hlh}{b}{sc}{}

\endinstallfonts
% \endrecordtransforms

\bye 

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

\bye

%%  These are the font shapes supported with LY1 encoding:

\DeclareLucidaFontShape{LY1}{hlh}{m}{n}{lbr}{}
\DeclareLucidaFontShape{LY1}{hlh}{m}{it}{lbi}{}
\DeclareLucidaFontShape{LY1}{hlh}{m}{sl}{lbsl}{}
\DeclareLucidaFontShape{LY1}{hlh}{m}{sc}{lbrsc}{}
\DeclareLucidaFontShape{LY1}{hlh}{b}{n}{lbd}{}
\DeclareLucidaFontShape{LY1}{hlh}{b}{it}{lbdi}{}
\DeclareLucidaFontShape{LY1}{hlh}{b}{sc}{lbdsc}{}

