我正在运行一个非常简单的脚本,我写这个脚本来获得" advance " True Type字体。具体的字体是New Times Roman。这是我回来的那种价值观,
{
"A" : 1479
"a" : 909,
"B" : 1366,
"b" : 1024
"C" : 1366,
"c" : 909,
"N" : 1479,
"n" : 1024,
"M" : 1821,
"m" : 1593,
"." : 512,
}
我使用Perl库Font :: TTF,你可以find the manual here。而且,这是我的剧本,
use strict;
use warnings;
use autodie;
use Font::TTF::Font;
my $f = Font::TTF::Font->open('/usr/share/fonts/truetype/msttcorefonts/Times_New_Roman.ttf')
|| die $!;
my $json = JSON::XS->new->ascii->pretty->allow_nonref;
my @chars = ( '.', '-', 'a'...'z', 'A'...'Z', 0..9 );
my %db;
foreach my $char ( @chars ) {
my $ord = ord($char);
my $snum = $f->{'cmap'}->ms_lookup($ord);
$f->{'hmtx'}->read;
my $sadv = $f->{'hmtx'}{'advance'}[$snum];
$db{$char} = $sadv;
}
use JSON::XS qw(encode_json);
print $json->encode( \%db );
答案 0 :(得分:1)
它是"每个单位" [1]。它是一个字形设计空间的网格,其边长是在" unitsPerEm"下的HEAD标签中定义的。 TrueType通常有2048,.otf和Postscript勾勒1000.所以如果你想获得任何有用的东西,请取字体的大小,乘以advance并除以unitsPerEm。