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/phvr8a.ph';    # Helvetica
  14 require 'metrics/phvro8a.ph';   # Helvetica-Oblique
  15 require 'metrics/phvb8a.ph';    # Helvetica-Bold
  16 require 'metrics/phvbo8a.ph';   # Helvetica-BoldOblique
  17
  18 # The fonts we want to use for various things
  19 # The order is: <normal> <emphatic> <code>
  20
  21 if ( 1 ) {
  22     # Times family fonts
  23
  24     %TitlFont = (name => 'tfont',
  25                  leading => 22,
  26              fonts => [[20,\%PS_Times_Bold],
  27                        [20,\%PS_Times_BoldItalic],
  28                        [20,\%PS_Courier_Bold]]);
  29     %ChapFont = (name => 'cfont',
  30                  leading => 19.2,
  31                  fonts => [[18,\%PS_Times_Bold],
  32                            [18,\%PS_Times_BoldItalic],
  33                            [18,\%PS_Courier_Bold]]);
  34     %HeadFont = (name => 'hfont',
  35                  leading => 15.4,
  36                  fonts => [[14,\%PS_Times_Bold],
  37                            [14,\%PS_Times_BoldItalic],
  38                            [14,\%PS_Courier_Bold]]);
  39     %SubhFont = (name => 'sfont',
  40                  leading => 13.2,
  41                  fonts => [[12,\%PS_Times_Bold],
  42                            [12,\%PS_Times_BoldItalic],
  43                            [12,\%PS_Courier_Bold]]);
  44     %BodyFont = (name => 'bfont',
  45                  leading => 11,
  46                  fonts => [[10,\%PS_Times_Roman],
  47                            [10,\%PS_Times_Italic],
  48                            [10,\%PS_Courier]]);
  49 } elsif ( 0 ) {
  50     # Helvetica family fonts
  51
  52     %TitlFont = (name => 'tfont',
  53                  leading => 22,
  54                  fonts => [[20,\%PS_Helvetica_Bold],
  55                            [20,\%PS_Helvetica_BoldOblique],
  56                            [20,\%PS_Courier_Bold]]);
  57     %ChapFont = (name => 'cfont',
  58                  leading => 19.2,
  59                  fonts => [[18,\%PS_Helvetica_Bold],
  60                            [18,\%PS_Helvetica_BoldOblique],
  61                            [18,\%PS_Courier_Bold]]);
  62     %HeadFont = (name => 'hfont',
  63                  leading => 15.4,
  64                  fonts => [[14,\%PS_Helvetica_Bold],
  65                            [14,\%PS_Helvetica_BoldOblique],
  66                            [14,\%PS_Courier_Bold]]);
  67     %SubhFont = (name => 'sfont',
  68                  leading => 13.2,
  69                  fonts => [[12,\%PS_Helvetica_Bold],
  70                            [12,\%PS_Helvetica_BoldOblique],
  71                            [12,\%PS_Courier_Bold]]);
  72     %BodyFont = (name => 'bfont',
  73                  leading => 11,
  74                  fonts => [[10,\%PS_Helvetica],
  75                            [10,\%PS_Helvetica_Oblique],
  76                            [10,\%PS_Courier]]);
  77 } else {
  78     # Body text Times; headings Helvetica
  79     %TitlFont = (name => 'tfont',
  80                  leading => 22,
  81                  fonts => [[20,\%PS_Helvetica_Bold],
  82                            [20,\%PS_Helvetica_BoldOblique],
  83                            [20,\%PS_Courier_Bold]]);
  84     %ChapFont = (name => 'cfont',
  85                  leading => 19.2,
  86                  fonts => [[18,\%PS_Helvetica_Bold],
  87                            [18,\%PS_Helvetica_BoldOblique],
  88                            [18,\%PS_Courier_Bold]]);
  89     %HeadFont = (name => 'hfont',
  90                  leading => 15.4,
  91                  fonts => [[14,\%PS_Helvetica_Bold],
  92                            [14,\%PS_Helvetica_BoldOblique],
  93                            [14,\%PS_Courier_Bold]]);
  94     %SubhFont = (name => 'sfont',
  95                  leading => 13.2,
  96                  fonts => [[12,\%PS_Helvetica_Bold],
  97                            [12,\%PS_Helvetica_BoldOblique],
  98                            [12,\%PS_Courier_Bold]]);
  99     %BodyFont = (name => 'bfont',
 100                  leading => 11,
 101                  fonts => [[10,\%PS_Times_Roman],
 102                            [10,\%PS_Times_Italic],
 103                            [10,\%PS_Courier]]);
 104 }
 105
 106 #
 107 # List of all fontsets; used to compute the list of fonts needed
 108 #
 109 @AllFonts = ( \%TitlFont, \%ChapFont, \%HeadFont, \%SubhFont, \%BodyFont );
 110
 111 # OK
 112 1;