Fix %? in multi-line macros with a label
[nasm/autotest.git] / doc / psfonts.ph
blob2621b8184b242fccabba757b2f4353127c8b3bb7
1 #!/usr/bin/perl
3 # Font metrics for the PS code generator
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/phvb8a.ph'; # Helvetica-Bold
14 require 'metrics/phvbo8a.ph'; # Helvetica-BoldOblique
16 # The fonts we want to use for various things
17 # The order is: <normal> <emphatic> <code>
19 %TitlFont = (name => 'tfont',
20 leading => 20,
21 fonts => [[20,\%PS_Times_Bold],
22 [20,\%PS_Times_BoldItalic],
23 [20,\%PS_Courier_Bold]]);
24 %ChapFont = (name => 'cfont',
25 leading => 18,
26 fonts => [[18,\%PS_Times_Bold],
27 [18,\%PS_Times_BoldItalic],
28 [18,\%PS_Courier_Bold]]);
29 %HeadFont = (name => 'hfont',
30 leading => 14,
31 fonts => [[14,\%PS_Times_Bold],
32 [14,\%PS_Times_BoldItalic],
33 [14,\%PS_Courier_Bold]]);
34 %SubhFont = (name => 'sfont',
35 leading => 12,
36 fonts => [[12,\%PS_Times_Bold],
37 [12,\%PS_Times_BoldItalic],
38 [12,\%PS_Courier_Bold]]);
39 %BodyFont = (name => 'bfont',
40 leading => 11,
41 fonts => [[11,\%PS_Times_Roman],
42 [11,\%PS_Times_Italic],
43 [11,\%PS_Courier]]);
46 # List of all fontsets; used to compute the list of fonts needed
48 @AllFonts = ( \%TitlFont, \%ChapFont, \%HeadFont, \%SubhFont, \%BodyFont );
50 # OK