/usr/share/perl5/Font/TTF/Vmtx.pm is in libfont-ttf-perl 1.06-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | package Font::TTF::Vmtx;
=head1 NAME
Font::TTF::Vmtx - Vertical Metrics
=head1 DESCRIPTION
Contains the advance height and top side bearing for each glyph. Given the
compressability of the data onto disk, this table uses information from
other tables, and thus must do part of its output during the output of
other tables
=head1 INSTANCE VARIABLES
The vertical metrics are kept in two arrays by glyph id. The variable names
do not start with a space
=over 4
=item advance
An array containing the advance height for each glyph
=item top
An array containing the top side bearing for each glyph
=back
=head1 METHODS
=cut
use strict;
use vars qw(@ISA);
require Font::TTF::Hmtx;
@ISA = qw(Font::TTF::Hmtx);
=head2 $t->read
Reads the vertical metrics from the TTF file into memory
=cut
sub read
{
my ($self) = @_;
my ($numh, $numg);
$numh = $self->{' PARENT'}{'vhea'}->read->{'numberOfVMetrics'};
$numg = $self->{' PARENT'}{'maxp'}{'numGlyphs'};
$self->_read($numg, $numh, "advance", "top");
}
=head2 $t->out($fh)
Writes the metrics to a TTF file. Assumes that the C<vhea> has updated the
numVMetrics from here
=cut
sub out
{
my ($self, $fh) = @_;
my ($numg) = $self->{' PARENT'}{'maxp'}{'numGlyphs'};
my ($numh) = $self->{' PARENT'}{'vhea'}{'numberOfVMetrics'};
$self->_out($fh, $numg, $numh, "advance", "top");
}
1;
=head1 BUGS
None known
=head1 AUTHOR
Martin Hosken L<http://scripts.sil.org/FontUtils>.
=head1 LICENSING
Copyright (c) 1998-2016, SIL International (http://www.sil.org)
This module is released under the terms of the Artistic License 2.0.
For details, see the full text of the license in the file LICENSE.
=cut
|