%%% ====================================================================
%%%  @TeX-file{
%%%     author          = "Alan Jeffrey",
%%%     version         = "1.311",
%%%     date            = "23 January 1994,
%%%     time            = "17:29:16 GMT,
%%%     filename        = "fontstnd.tex",
%%%     address         = "School of Cognitive and Computing Sciences
%%%                        University of Sussex
%%%                        Brighton BN1 9QH
%%%                        UK",
%%%     telephone       = "+44 273 606755 x 3238",
%%%     FAX             = "+44 273 678188",
%%%     checksum        = "???",
%%%     email           = "alanje@cogs.sussex.ac.uk",
%%%     codetable       = "ISO/ASCII",
%%%     keywords        = "font installation example",
%%%     supported       = "yes",
%%%     abstract        = "This is an example program which installs
%%%                        the Adobe Times, Helvetica and Courier font 
%%%                        families, using the fontinst package.",
%%%     docstring       = "The checksum field above contains a CRC-16
%%%                        checksum as the first value, followed by the
%%%                        equivalent of the standard UNIX wc (word
%%%                        count) utility output of lines, words, and
%%%                        characters.  This is produced by Robert
%%%                        Solovay's checksum utility.",
%%%     package         = "fontinst",
%%%     dependencies    = "fontinst.sty, ptmr0.afm, ptmri0.afm, 
%%%                           ptmb0.afm, ptmbi0.afm, phvr0.afm, 
%%%                           phvro0.afm, phvb0.afm, phvbo0.afm, 
%%%                           pcrr0.afm, pcrro0.afm, pcrb0.afm, 
%%%                           pcrbo0.afm, psyr, latin.mtx",
%%%  }
%%% ====================================================================

\input fontinst.sty

\needsfontinstversion{1.311}

% First of all, we define a generic command that takes 7 parameters:
%
% #1 The family name, eg ptm.
% #2 The LaTeX2e name for the italic shape, eg it.
% #3 The Berry name for the italic shape, eg i.
% #4 The LaTeX2e name for the bold shape, eg b.
% #5 The Berry name for the bold shape, eg b.
% #6 Either empty or tt, depending on whether it's a monoweight font.
% #7 The FD commands to be executed every time the font is loaded.
%
% This then reads in the AFM files, which should have the names:
%
%    #1r0.afm, #1r#30.afm, #1#50.afm and #1#5#30.afm 
%
% For example, the Times AFM files should be called:
%
%    ptmr0.afm, ptmri0.afm, ptmb0.afm and ptmbi0.afm
%
% In addition, it reads the Symbol AFM file psyr.afm.

\setcommand\install#1#2#3#4#5#6#7{
   \installfonts
      \installfamily{T1}{#1}{#7}
      \installfamily{OT1}{#1}{#7}
      \installfont{#1rq}{#1r0,psyr,latin}{T1}{T1}{#1}{m}{n}{}
      \installfont{#1rcq}{#1r0,psyr,latin}{T1c}{T1}{#1}{m}{sc}{}
      \installfont{#1r}{#1r0,psyr,latin}{OT1#6}{OT1}{#1}{m}{n}{}
      \installfont{#1rc}{#1r0,psyr,latin}{OT1c#6}{OT1}{#1}{m}{sc}{}
      \installfont{#1ru}{#1r0,psyr,latin}{OT1i#6}{OT1}{#1}{m}{u}{}
      \installfont{#1r#3q}{#1r#30,psyr,latin}{T1}{T1}{#1}{m}{#2}{}
      \installfont{#1r#3}{#1r#30,psyr,latin}{OT1i#6}{OT1}{#1}{m}{#2}{}
      \installfont{#1#5q}{#1#50,psyr,latin}{T1}{T1}{#1}{#4}{n}{}
      \installfont{#1#5cq}{#1#50,psyr,latin}{T1c}{T1}{#1}{#4}{sc}{}
      \installfont{#1#5}{#1#50,psyr,latin}{OT1#6}{OT1}{#1}{#4}{n}{}
      \installfont{#1#5c}{#1#50,psyr,latin}{OT1c#6}{OT1}{#1}{#4}{sc}{}
      \installfont{#1#5u}{#1#50,psyr,latin}{OT1i#6}{OT1}{#1}{#4}{u}{}
      \installfont{#1#5#3q}{#1#5#30,psyr,latin}{T1}{T1}{#1}{#4}{#2}{}
      \installfont{#1#5#3}{#1#5#30,psyr,latin}{OT1i#6}{OT1}{#1}{#4}{#2}{}
   \endinstallfonts
}

% We then install the Times family:

\install{ptm}{it}{i}{bx}{b}{}{}

% The Helvetica family:

\install{phv}{sl}{o}{bx}{b}{}{}

% The Courier family:

\install{pcr}{sl}{o}{bx}{b}{tt}{\hyphenchar\font=-1}

\bye