\input fontinst.sty

% \recordtransforms{map.tex}
\transformfont{hlsr8r}{\reencodefont{8r}{\fromafm{lsr}}}
\transformfont{hlsri8r}{\reencodefont{8r}{\fromafm{lsi}}}
\transformfont{hlsb8r}{\reencodefont{8r}{\fromafm{lsd}}}
\transformfont{hlsbi8r}{\reencodefont{8r}{\fromafm{lsdi}}}
\transformfont{hlsu8r}{\reencodefont{8r}{\fromafm{lsb}}}
\transformfont{hlsui8r}{\reencodefont{8r}{\fromafm{lsbi}}}

\installfonts

\installfamily{T1}{hls}{}
\installfamily{TS1}{hls}{}

\installrawfont{hlsr8r}{hlsr8r,8r}{8r}{8r}{hls}{m}{n}{}
\installfont{hlsr8t}{hlsr8r,patch-hlsr,latin}{T1}
  {T1}{hls}{m}{n}{}
\installfont{hlsr8c}{hlsr8r,textcomp}{TS1}
  {TS1}{hls}{m}{n}{}

\installrawfont{hlsri8r}{hlsri8r,8r}{8r}{8r}{hls}{m}{it}{}
\installfont{hlsri8t}{hlsri8r,patch-hlsri,latin}{T1}
  {T1}{hls}{m}{it}{}
\installfont{hlsri8c}{hlsri8r,textcomp}{TS1}
  {TS1}{hls}{m}{it}{}


\installrawfont{hlsb8r}{hlsb8r,8r}{8r}{8r}{hls}{b}{n}{}
\installfont{hlsb8t}{hlsb8r,patch-hlsb,latin}{T1}
  {T1}{hls}{b}{n}{}
\installfont{hlsb8c}{hlsb8r,textcomp}{TS1}
  {TS1}{hls}{b}{n}{}

\installrawfont{hlsbi8r}{hlsbi8r,8r}{8r}{8r}{hls}{b}{it}{}
\installfont{hlsbi8t}{hlsbi8r,patch-hlsbi,latin}{T1}
  {T1}{hls}{b}{it}{}
\installfont{hlsbi8c}{hlsbi8r,textcomp}{TS1}
  {TS1}{hls}{b}{it}{}


\installrawfont{hlsu8r}{hlsu8r,8r}{8r}{8r}{hls}{ub}{n}{}
\installfont{hlsu8t}{hlsu8r,patch-hlsu,latin}{T1}
  {T1}{hls}{ub}{n}{}
\installfont{hlsu8c}{hlsu8r,textcomp}{TS1}
  {TS1}{hls}{ub}{n}{}

\installrawfont{hlsui8r}{hlsui8r,8r}{8r}{8r}{hls}{ub}{it}{}
\installfont{hlsui8t}{hlsui8r,patch-hlsui,latin}{T1}
  {T1}{hls}{ub}{it}{}
\installfont{hlsui8c}{hlsui8r,textcomp}{TS1}
  {TS1}{hls}{ub}{it}{}


\endinstallfonts

\bye

\endrecordtransforms

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

\bye

\DeclareLucidaFontShape{LY1}{hls}{m}{n}{lsr}{}
\DeclareLucidaFontShape{LY1}{hls}{m}{it}{lsi}{}
\DeclareLucidaFontShape{LY1}{hls}{b}{n}{lsd}{}
\DeclareLucidaFontShape{LY1}{hls}{b}{it}{lsdi}{}
\DeclareLucidaFontShape{LY1}{hls}{ub}{n}{lsb}{}
\DeclareLucidaFontShape{LY1}{hls}{ub}{it}{lsbi}{}

