doc/psfonts.ph

   1 #!/usr/bin/perl
   2 #
   3 # Font metrics for the PS code generator
   4 #
   5
   6 # Font substitution lists, in order of preference
   7 my @TText = ('SourceSansPro-Bold', 'ClearSans-Bold', 'LiberationSans-Bold',
   8              'Arial-Bold', 'Helvetica-Bold');
   9 my @TItal = ('SourceSansPro-BoldIt', 'ClearSans-BoldItalic', 'LiberationSans-BoldItalic',
  10              'Arial-BoldItalic', 'Helvetica-BoldItalic');
  11 my @TCode = ('SourceCodePro-Bold', 'LiberationMono-Bold', 'Courier-Bold');
  12 my @HText = ('SourceSansPro-Semibold', 'ClearSans-Bold', 'Arial-Bold', 'Helvetica-Bold');
  13 my @HItal = ('SourceSansPro-SemiboldIt', 'ClearSans-BoldItalic',
  14              'Arial-BoldItalic', 'Helvetica-BoldItalic');
  15 my @HCode = ('SourceCodePro-Semibold', 'LiberationMono-Bold', 'Courier-Bold');
  16 my @BText = ('SourceSansPro-Regular', 'ClearSans', 'LiberationSans', 'Arial', 'Helvetica');
  17 my @BItal = ('SourceSansPro-It', 'ClearSans-Italic', 'LiberationSans-Italic',
  18              'Arial-Italic', 'Helvetica-BoldItalic');
  19 my @BCode = ('SourceCodePro-Regular', 'LiberationMono', 'Courier-Bold');
  20
  21 # The fonts we want to use for various things
  22 # The order is: <normal> <emphatic> <code>
  23
  24 %TitlFont = (name => 'tfont',
  25              leading => 24,
  26              fonts => [[20, \@TText], [20, \@TItal], [20, \@TCode]]);
  27 %ChapFont = (name => 'cfont',
  28              leading => 21.6,
  29              fonts => [[18, \@HText], [18, \@HItal], [18, \@HCode]]);
  30 %HeadFont = (name => 'hfont',
  31                 leading => 16.8,
  32                 fonts => [[14, \@HText], [14, \@HItal], [14, \@HCode]]);
  33 %SubhFont = (name => 'sfont',
  34              leading => 14.4,
  35              fonts => [[12, \@HText], [12, \@HItal], [12, \@HCode]]);
  36 %BodyFont = (name => 'bfont',
  37              leading => 12,
  38              fonts => [[10, \@BText], [10, \@BItal], [10, \@BCode]]);
  39 #
  40 # List of all fontsets; used to compute the list of fonts needed
  41 #
  42 @AllFonts = ( \%TitlFont, \%ChapFont, \%HeadFont, \%SubhFont, \%BodyFont );
  43
  44 # OK
  45 1;