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-Italic');
  19 my @BCode = ('SourceCodePro-Regular', 'LiberationMono', 'Courier');
  20 my @QText = ('SourceSansPro-It', 'ClearSans-Italic', 'LiberationSans-Italic',
  21              'Arial-Italic', 'Helvetica-Italic');
  22 my @QBold = ('SourceSansPro-BoldIt', 'ClearSans-BoldItalic', 'LiberationSans-BoldItalic', 'Arial-Bold', 'Helvetica-BoldItalic');
  23 my @QCode = ('SourceCodePro-Regular', 'LiberationMono', 'Courier');
  24
  25 # The fonts we want to use for various things
  26 # The order is: <normal> <emphatic> <code>
  27
  28 %TitlFont = (name => 'tfont',
  29              leading => 24,
  30              fonts => [[20, \@TText], [20, \@TItal], [20, \@TCode]]);
  31 %ChapFont = (name => 'cfont',
  32              leading => 21.6,
  33              fonts => [[18, \@HText], [18, \@HItal], [18, \@HCode]]);
  34 %HeadFont = (name => 'hfont',
  35                 leading => 16.8,
  36                 fonts => [[14, \@HText], [14, \@HItal], [14, \@HCode]]);
  37 %SubhFont = (name => 'sfont',
  38              leading => 14.4,
  39              fonts => [[12, \@HText], [12, \@HItal], [12, \@HCode]]);
  40 %BodyFont = (name => 'bfont',
  41              leading => 12,
  42              fonts => [[10, \@BText], [10, \@BItal], [10, \@BCode]]);
  43 %BquoFont = (name => 'qfont',
  44              leading => 10.8,
  45              fonts => [[9, \@QText], [9, \@QBold], [9, \@QCode]]);
  46 #
  47 # List of all fontsets; used to compute the list of fonts needed
  48 #
  49 @AllFonts = ( \%TitlFont, \%ChapFont, \%HeadFont, \%SubhFont, \%BodyFont,
  50     \%BquoFont);
  51
  52 # OK
  53 1;