doc/psfonts.ph

   1 #!/usr/bin/perl
   2 #
   3 # Font metrics for the PS code generator
   4 #
   5
   6 # These files are generated from AFM files
   7 require 'metrics/ptmr8a.ph';    # Times-Roman
   8 require 'metrics/ptmri8a.ph';   # Times-Italic
   9 require 'metrics/pcrr8a.ph';    # Courier
  10 require 'metrics/pcrb8a.ph';    # Courier-Bold
  11 require 'metrics/phvb8a.ph';    # Helvetica-Bold
  12 require 'metrics/phvbo8a.ph';   # Helvetica-BoldOblique
  13
  14 # The fonts we want to use for various things
  15 # The order is: <normal> <emphatic> <code>
  16
  17 %ChapFont = (name => 'cfont',
  18              leading => 18,
  19              fonts => [[18,\%PS_Helvetica_Bold],
  20                        [18,\%PS_Helvetica_BoldOblique],
  21                        [18,\%PS_Courier_Bold]]);
  22 %HeadFont = (name => 'hfont',
  23              leading => 14,
  24              fonts => [[14,\%PS_Helvetica_Bold],
  25                        [14,\%PS_Helvetica_BoldOblique],
  26                        [14,\%PS_Courier_Bold]]);
  27 %SubhFont = (name => 'sfont',
  28              leading => 12,
  29              fonts => [[12,\%PS_Helvetica_Bold],
  30                        [12,\%PS_Helvetica_BoldOblique],
  31                        [12,\%PS_Courier_Bold]]);
  32 %TextFont = (name => 'tfont',
  33              leading => 11,
  34              fonts => [[11,\%PS_Times_Roman],
  35                        [11,\%PS_Times_Italic],
  36                        [11,\%PS_Courier]]);
  37
  38 #
  39 # List of all fontsets; used to compute the list of fonts needed
  40 #
  41 @AllFonts = ( \%ChapFont, \%HeadFont, \%SubhFont, \%TextFont );
  42
  43 # OK
  44 1;