\input fontinst.sty

\installfonts

\installfamily{T1}{bch}{}
\installfamily{TS1}{bch}{}
\installfamily{OT1}{bch}{}

\transformfont{bchr8r}{\reencodefont{8r}{\fromafm{bchr8a}}}
\transformfont{bchb8r}{\reencodefont{8r}{\fromafm{bchb8a}}}
\transformfont{bchri8r}{\reencodefont{8r}{\fromafm{bchri8a}}}
\transformfont{bchbi8r}{\reencodefont{8r}{\fromafm{bchbi8a}}}
\transformfont{bchro8r}{\reencodefont{8r}{\slantfont{167}{\fromafm{bchr8a}}}}
\transformfont{bchbo8r}{\reencodefont{8r}{\slantfont{167}{\fromafm{bchb8a}}}}

% the following design parameters for the faked Euro symbol
% will be evalated in patch-euro.mtx:
\resetint{barthickness}{61}
\resetint{bardistance}{120}

%% upright & slanted

\resetint{baroffset}{50} % will be evaluated in patch-euro.mtx

\installrawfont{bchr8r}{bchr8r,8r}{8r}{8r}{bch}{m}{n}{}
\installfont{bchr8t}{bchr8r,patch-bchr,latin}{t1}
  {T1}{bch}{m}{n}{}
\installfont{bchr8c}{bchr8r,textcomp,patch-euro}{ts1}
  {TS1}{bch}{m}{n}{}
\installfont{bchr7t}{bchr8r,patch-bchr,latin}{ot1}
  {OT1}{bch}{m}{n}{}
  
\installrawfont{bchb8r}{bchb8r,8r}{8r}{8r}{bch}{m}{n}{}
\installfont{bchb8t}{bchb8r,patch-bchb,latin}{t1}
  {T1}{bch}{b}{n}{}
\installfont{bchb8c}{bchb8r,textcomp,patch-euro}{ts1}
  {TS1}{bch}{b}{n}{}
\installfont{bchb7t}{bchb8r,patch-bchb,latin}{ot1}
  {OT1}{bch}{b}{n}{}

\installrawfont{bchro8r}{bchro8r,8r}{8r}{8r}{bch}{m}{n}{}
\installfont{bchro8t}{bchro8r,patch-bchr,latin}{t1}
  {T1}{bch}{m}{sl}{}
\installfont{bchro8c}{bchro8r,textcomp,patch-euro}{ts1}
  {TS1}{bch}{m}{sl}{}
\installfont{bchro7t}{bchro8r,patch-bchr,latin}{ot1}
  {OT1}{bch}{m}{sl}{}

\installrawfont{bchbo8r}{bchbo8r,8r}{8r}{8r}{bch}{m}{n}{}
\installfont{bchbo8t}{bchbo8r,patch-bchb,latin}{t1}
  {T1}{bch}{b}{sl}{}
\installfont{bchbo8c}{bchbo8r,textcomp,patch-euro}{ts1}
  {TS1}{bch}{b}{sl}{}
\installfont{bchbo7t}{bchbo8r,patch-bchb,latin}{ot1}
  {OT1}{bch}{b}{sl}{}

\installfont{bchrc8t}{bchr8r,patch-bchr,latin}{t1c}
  {T1}{bch}{m}{sc}{}
\installfont{bchrc7t}{bchr8r,patch-bchr,latin}{ot1c}
  {OT1}{bch}{m}{sc}{}

\installfont{bchbc8t}{bchb8r,patch-bchb,latin}{t1c}
  {T1}{bch}{b}{sc}{}
\installfont{bchbc7t}{bchb8r,patch-bchb,latin}{ot1c}
  {OT1}{bch}{b}{sc}{}

%% italic

%\resetint{baroffset}{5} % will be evaluated in patch-euro.mtx

\installrawfont{bchri8r}{bchri8r,8r}{8r}{8r}{bch}{m}{n}{}
\installfont{bchri8t}{bchri8r,patch-bchri,latin}{t1}
  {T1}{bch}{m}{it}{}
\installfont{bchri8c}{bchri8r,textcomp,patch-euro}{ts1}
  {TS1}{bch}{m}{it}{}
\installfont{bchri7t}{bchri8r,patch-bchri,latin}{ot1i}
  {OT1}{bch}{m}{it}{}

\installrawfont{bchbi8r}{bchbi8r,8r}{8r}{8r}{bch}{m}{n}{}
\installfont{bchbi8t}{bchbi8r,patch-bchbi,latin}{t1}
  {T1}{bch}{b}{it}{}
\installfont{bchbi8c}{bchbi8r,textcomp,patch-euro}{ts1}
  {TS1}{bch}{b}{it}{}
\installfont{bchbi7t}{bchbi8r,patch-bchbi,latin}{ot1i}
  {OT1}{bch}{b}{it}{}


\endinstallfonts
\bye