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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
#!/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/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>
if ( 1 ) {
# Times family fonts
%TitlFont = (name => 'tfont',
leading => 24,
fonts => [[20,\%PS_Times_Bold],
[20,\%PS_Times_BoldItalic],
[20,\%PS_Courier_Bold]]);
%ChapFont = (name => 'cfont',
leading => 21.6,
fonts => [[18,\%PS_Times_Bold],
[18,\%PS_Times_BoldItalic],
[18,\%PS_Courier_Bold]]);
%HeadFont = (name => 'hfont',
leading => 16.8,
fonts => [[14,\%PS_Times_Bold],
[14,\%PS_Times_BoldItalic],
[14,\%PS_Courier_Bold]]);
%SubhFont = (name => 'sfont',
leading => 14.4,
fonts => [[12,\%PS_Times_Bold],
[12,\%PS_Times_BoldItalic],
[12,\%PS_Courier_Bold]]);
%BodyFont = (name => 'bfont',
leading => 12,
fonts => [[10,\%PS_Times_Roman],
[10,\%PS_Times_Italic],
[10,\%PS_Courier]]);
} elsif ( 0 ) {
# Helvetica family fonts
%TitlFont = (name => 'tfont',
leading => 24,
fonts => [[20,\%PS_Helvetica_Bold],
[20,\%PS_Helvetica_BoldOblique],
[20,\%PS_Courier_Bold]]);
%ChapFont = (name => 'cfont',
leading => 21.6,
fonts => [[18,\%PS_Helvetica_Bold],
[18,\%PS_Helvetica_BoldOblique],
[18,\%PS_Courier_Bold]]);
%HeadFont = (name => 'hfont',
leading => 16.8,
fonts => [[14,\%PS_Helvetica_Bold],
[14,\%PS_Helvetica_BoldOblique],
[14,\%PS_Courier_Bold]]);
%SubhFont = (name => 'sfont',
leading => 14.4,
fonts => [[12,\%PS_Helvetica_Bold],
[12,\%PS_Helvetica_BoldOblique],
[12,\%PS_Courier_Bold]]);
%BodyFont = (name => 'bfont',
leading => 12,
fonts => [[10,\%PS_Helvetica],
[10,\%PS_Helvetica_Oblique],
[10,\%PS_Courier]]);
} else {
# Body text Times; headings Helvetica
%TitlFont = (name => 'tfont',
leading => 24,
fonts => [[20,\%PS_Helvetica_Bold],
[20,\%PS_Helvetica_BoldOblique],
[20,\%PS_Courier_Bold]]);
%ChapFont = (name => 'cfont',
leading => 21.6,
fonts => [[18,\%PS_Helvetica_Bold],
[18,\%PS_Helvetica_BoldOblique],
[18,\%PS_Courier_Bold]]);
%HeadFont = (name => 'hfont',
leading => 16.8,
fonts => [[14,\%PS_Helvetica_Bold],
[14,\%PS_Helvetica_BoldOblique],
[14,\%PS_Courier_Bold]]);
%SubhFont = (name => 'sfont',
leading => 14.4,
fonts => [[12,\%PS_Helvetica_Bold],
[12,\%PS_Helvetica_BoldOblique],
[12,\%PS_Courier_Bold]]);
%BodyFont = (name => 'bfont',
leading => 12,
fonts => [[10,\%PS_Times_Roman],
[10,\%PS_Times_Italic],
[10,\%PS_Courier]]);
}
#
# List of all fontsets; used to compute the list of fonts needed
#
@AllFonts = ( \%TitlFont, \%ChapFont, \%HeadFont, \%SubhFont, \%BodyFont );
# OK
1;
|
