diff options
| -rw-r--r-- | doc/psfonts.ph | 105 |
1 files changed, 83 insertions, 22 deletions
diff --git a/doc/psfonts.ph b/doc/psfonts.ph index 1e6aac1..8d2f4e6 100644 --- a/doc/psfonts.ph +++ b/doc/psfonts.ph @@ -10,37 +10,98 @@ require 'metrics/ptmri8a.ph'; # Times-Italic require 'metrics/ptmbi8a.ph'; # Times-BoldItalic require 'metrics/pcrr8a.ph'; # Courier require 'metrics/pcrb8a.ph'; # Courier-Bold +require 'metrics/phvr8a.ph'; # Helvetica +require 'metrics/phvro8a.ph'; # Helvetica-Oblique require 'metrics/phvb8a.ph'; # Helvetica-Bold require 'metrics/phvbo8a.ph'; # Helvetica-BoldOblique # The fonts we want to use for various things # The order is: <normal> <emphatic> <code> -%TitlFont = (name => 'tfont', - leading => 22, +if ( 1 ) { + # Times family fonts + + %TitlFont = (name => 'tfont', + leading => 22, fonts => [[20,\%PS_Times_Bold], [20,\%PS_Times_BoldItalic], [20,\%PS_Courier_Bold]]); -%ChapFont = (name => 'cfont', - leading => 19.2, - fonts => [[18,\%PS_Times_Bold], - [18,\%PS_Times_BoldItalic], - [18,\%PS_Courier_Bold]]); -%HeadFont = (name => 'hfont', - leading => 15.4, - fonts => [[14,\%PS_Times_Bold], - [14,\%PS_Times_BoldItalic], - [14,\%PS_Courier_Bold]]); -%SubhFont = (name => 'sfont', - leading => 13.2, - fonts => [[12,\%PS_Times_Bold], - [12,\%PS_Times_BoldItalic], - [12,\%PS_Courier_Bold]]); -%BodyFont = (name => 'bfont', - leading => 11, - fonts => [[10,\%PS_Times_Roman], - [10,\%PS_Times_Italic], - [10,\%PS_Courier]]); + %ChapFont = (name => 'cfont', + leading => 19.2, + fonts => [[18,\%PS_Times_Bold], + [18,\%PS_Times_BoldItalic], + [18,\%PS_Courier_Bold]]); + %HeadFont = (name => 'hfont', + leading => 15.4, + fonts => [[14,\%PS_Times_Bold], + [14,\%PS_Times_BoldItalic], + [14,\%PS_Courier_Bold]]); + %SubhFont = (name => 'sfont', + leading => 13.2, + fonts => [[12,\%PS_Times_Bold], + [12,\%PS_Times_BoldItalic], + [12,\%PS_Courier_Bold]]); + %BodyFont = (name => 'bfont', + leading => 11, + fonts => [[10,\%PS_Times_Roman], + [10,\%PS_Times_Italic], + [10,\%PS_Courier]]); +} elsif ( 0 ) { + # Helvetica family fonts + + %TitlFont = (name => 'tfont', + leading => 22, + fonts => [[20,\%PS_Helvetica_Bold], + [20,\%PS_Helvetica_BoldOblique], + [20,\%PS_Courier_Bold]]); + %ChapFont = (name => 'cfont', + leading => 19.2, + fonts => [[18,\%PS_Helvetica_Bold], + [18,\%PS_Helvetica_BoldOblique], + [18,\%PS_Courier_Bold]]); + %HeadFont = (name => 'hfont', + leading => 15.4, + fonts => [[14,\%PS_Helvetica_Bold], + [14,\%PS_Helvetica_BoldOblique], + [14,\%PS_Courier_Bold]]); + %SubhFont = (name => 'sfont', + leading => 13.2, + fonts => [[12,\%PS_Helvetica_Bold], + [12,\%PS_Helvetica_BoldOblique], + [12,\%PS_Courier_Bold]]); + %BodyFont = (name => 'bfont', + leading => 11, + fonts => [[10,\%PS_Helvetica], + [10,\%PS_Helvetica_Oblique], + [10,\%PS_Courier]]); +} else { + # Body text Times; headings Helvetica + %TitlFont = (name => 'tfont', + leading => 22, + fonts => [[20,\%PS_Helvetica_Bold], + [20,\%PS_Helvetica_BoldOblique], + [20,\%PS_Courier_Bold]]); + %ChapFont = (name => 'cfont', + leading => 19.2, + fonts => [[18,\%PS_Helvetica_Bold], + [18,\%PS_Helvetica_BoldOblique], + [18,\%PS_Courier_Bold]]); + %HeadFont = (name => 'hfont', + leading => 15.4, + fonts => [[14,\%PS_Helvetica_Bold], + [14,\%PS_Helvetica_BoldOblique], + [14,\%PS_Courier_Bold]]); + %SubhFont = (name => 'sfont', + leading => 13.2, + fonts => [[12,\%PS_Helvetica_Bold], + [12,\%PS_Helvetica_BoldOblique], + [12,\%PS_Courier_Bold]]); + %BodyFont = (name => 'bfont', + leading => 11, + fonts => [[10,\%PS_Times_Roman], + [10,\%PS_Times_Italic], + [10,\%PS_Courier]]); +} # # List of all fontsets; used to compute the list of fonts needed |