doc: add a couple of stylistic alternatives

Add a few alternate font sets for the documentation.  I would be
interested to see if anyone thinks they are better.

diff --git a/doc/psfonts.ph b/doc/psfonts.ph
index 1e6aac1..8d2f4e6 100644 (file)
--- 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