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
|
#!/usr/bin/perl
#
# Font metrics for the PS code generator
#
# Font substitution lists, in order of preference
my @TText = ('SourceSansPro-Bold', 'ClearSans-Bold', 'LiberationSans-Bold',
'Arial-Bold', 'Helvetica-Bold');
my @TItal = ('SourceSansPro-BoldIt', 'ClearSans-BoldItalic',
'LiberationSans-BoldItalic', 'Arial-BoldItalic',
'Helvetica-BoldItalic');
my @TCode = ('SourceCodePro-Bold', 'LiberationMono-Bold', 'Courier-Bold');
my @HText = ('SourceSansPro-Semibold', 'LiberationMono-Bold', 'ClearSans-Bold',
'Arial-Bold', 'Helvetica-Bold');
my @HItal = ('SourceSansPro-SemiboldIt', 'LiberationMono-BoldItalic',
'ClearSans-BoldItalic', 'Arial-BoldItalic',
'Helvetica-BoldItalic');
my @HCode = ('SourceCodePro-Semibold', 'LiberationMono-Bold', 'Courier-Bold');
my @BText = ('SourceSansPro-Regular', 'ClearSans', 'LiberationSans', 'Arial',
'Helvetica');
my @BItal = ('SourceSansPro-It', 'ClearSans-Italic', 'LiberationSans-Italic',
'Arial-Italic', 'Helvetica-Italic');
my @BCode = ('SourceCodePro-Regular', 'LiberationMono', 'Courier');
my @QText = ('SourceSansPro-It', 'ClearSans-Italic', 'LiberationSans-Italic',
'Arial-Italic', 'Helvetica-Italic');
my @QBold = ('SourceSansPro-BoldIt', 'ClearSans-BoldItalic',
'LiberationSans-BoldItalic', 'Arial-Bold',
'Helvetica-BoldItalic');
my @QCode = ('SourceCodePro-Regular', 'LiberationMono', 'Courier');
# The fonts we want to use for various things
# The order is: <normal> <emphatic> <code>
%TitlFont = (name => 'tfont',
leading => 24,
fonts => [[20, \@TText], [20, \@TItal], [20, \@TCode]]);
%ChapFont = (name => 'cfont',
leading => 21.6,
fonts => [[18, \@HText], [18, \@HItal], [18, \@HCode]]);
%HeadFont = (name => 'hfont',
leading => 16.8,
fonts => [[14, \@HText], [14, \@HItal], [14, \@HCode]]);
%SubhFont = (name => 'sfont',
leading => 14.4,
fonts => [[12, \@HText], [12, \@HItal], [12, \@HCode]]);
%BodyFont = (name => 'bfont',
leading => 12,
fonts => [[10, \@BText], [10, \@BItal], [10, \@BCode]]);
%BquoFont = (name => 'qfont',
leading => 10.8,
fonts => [[9, \@QText], [9, \@QBold], [9, \@QCode]]);
#
# List of all fontsets; used to compute the list of fonts needed
#
@AllFonts = ( \%TitlFont, \%ChapFont, \%HeadFont, \%SubhFont, \%BodyFont,
\%BquoFont);
# OK
1;
|
