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
|
#!/usr/bin/perl
use Font::TTF::Font;
use Font::TTF::Head;
use Font::TTF::Hmtx;
use Font::TTF::Cmap;
use Font::TTF::Maxp;
use Font::TTF::PSNames;
use Font::TTF::Post;
use strict;
sub parse_ttf_file($) {
my($filename) = @_;
my $fontdata = {
widths => {},
kern => {}
};
my $f = Font::TTF::Font->open($filename);
return undef if (!defined($f));
$fontdata->{file} = $filename;
$fontdata->{type} = defined($f->{' CFF'}) ? 'otf' : 'ttf';
$f->{head}->read();
$fontdata->{scale} = $f->{head}{unitsPerEm};
$f->{maxp}->read();
my $glyphs = $f->{maxp}{numGlyphs};
$f->{cmap}->read();
$f->{hmtx}->read();
$f->{name}->read();
$fontdata->{name} = $f->{name}->find_name(6); # PostScript name
$f->{post}->read();
my $psglyphs = 0;
my $psmap = $f->{post}->{VAL};
$psmap = [] if (!defined($psmap));
#printf "Glyphs with PostScript names: %d\n", scalar(@$psmap);
# Can be done as an array of arrays in case of multiple unicodes to
# one glyph...
my @unimap = $f->{cmap}->reverse();
for (my $i = 0; $i < $glyphs; $i++) {
my $width = $f->{hmtx}->{advance}[$i];
my $psname = $psmap->[$i];
if (!defined($psname)) {
$psname = Font::TTF::PSNames::lookup($unimap[$i]);
}
next if (!defined($psname) || ($psname eq '.notdef'));
$fontdata->{widths}{$psname} = $f->{hmtx}->{advance}[$i];
}
$f->release;
return $fontdata;
}
1;
|
