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/ptmb8a.ph';    # Times-Bold
   9 require 'metrics/ptmri8a.ph';   # Times-Italic
  10 require 'metrics/ptmbi8a.ph';   # Times-BoldItalic
  11 require 'metrics/pcrr8a.ph';    # Courier
  12 require 'metrics/pcrb8a.ph';    # Courier-Bold
  13 require 'metrics/phvb8a.ph';    # Helvetica-Bold
  14 require 'metrics/phvbo8a.ph';   # Helvetica-BoldOblique
  15
  16 # The fonts we want to use for various things
  17 # The order is: <normal> <emphatic> <code>
  18
  19 %TitlFont = (name => 'tfont',
  20              leading => 20,
  21              fonts => [[20,\%PS_Times_Bold],
  22                        [20,\%PS_Times_BoldItalic],
  23                        [20,\%PS_Courier_Bold]]);
  24 %ChapFont = (name => 'cfont',
  25              leading => 18,
  26              fonts => [[18,\%PS_Times_Bold],
  27                        [18,\%PS_Times_BoldItalic],
  28                        [18,\%PS_Courier_Bold]]);
  29 %HeadFont = (name => 'hfont',
  30              leading => 14,
  31              fonts => [[14,\%PS_Times_Bold],
  32                        [14,\%PS_Times_BoldItalic],
  33                        [14,\%PS_Courier_Bold]]);
  34 %SubhFont = (name => 'sfont',
  35              leading => 12,
  36              fonts => [[12,\%PS_Times_Bold],
  37                        [12,\%PS_Times_BoldItalic],
  38                        [12,\%PS_Courier_Bold]]);
  39 %BodyFont = (name => 'bfont',
  40              leading => 11,
  41              fonts => [[11,\%PS_Times_Roman],
  42                        [11,\%PS_Times_Italic],
  43                        [11,\%PS_Courier]]);
  44
  45 #
  46 # List of all fontsets; used to compute the list of fonts needed
  47 #
  48 @AllFonts = ( \%TitlFont, \%ChapFont, \%HeadFont, \%SubhFont, \%BodyFont );
  49
  50 # OK
  51 1;