1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#!/usr/bin/perl
#
# Font metrics for the PS code generator
#
# These files are generated from AFM files
require 'metrics/ptmr8a.ph'; # Times-Roman
require 'metrics/ptmb8a.ph'; # Times-Bold
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/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 => 20,
fonts => [[20,\%PS_Times_Bold],
[20,\%PS_Times_BoldItalic],
[20,\%PS_Courier_Bold]]);
%ChapFont = (name => 'cfont',
leading => 18,
fonts => [[18,\%PS_Times_Bold],
[18,\%PS_Times_BoldItalic],
[18,\%PS_Courier_Bold]]);
%HeadFont = (name => 'hfont',
leading => 14,
fonts => [[14,\%PS_Times_Bold],
[14,\%PS_Times_BoldItalic],
[14,\%PS_Courier_Bold]]);
%SubhFont = (name => 'sfont',
leading => 12,
fonts => [[12,\%PS_Times_Bold],
[12,\%PS_Times_BoldItalic],
[12,\%PS_Courier_Bold]]);
%BodyFont = (name => 'bfont',
leading => 11,
fonts => [[11,\%PS_Times_Roman],
[11,\%PS_Times_Italic],
[11,\%PS_Courier]]);
#
# List of all fontsets; used to compute the list of fonts needed
#
@AllFonts = ( \%TitlFont, \%ChapFont, \%HeadFont, \%SubhFont, \%BodyFont );
# OK
1;
|
