b74d6df1cd6f54a70409d392b8a6655c5673d0aa
[librarian.git] / librarian / font-optimizer / ext / Font-TTF / lib / Font / TTF / Vmtx.pm
1 package Font::TTF::Vmtx;
2
3 =head1 NAME
4
5 Font::TTF::Vmtx - Vertical Metrics
6
7 =head1 DESCRIPTION
8
9 Contains the advance height and top side bearing for each glyph. Given the
10 compressability of the data onto disk, this table uses information from
11 other tables, and thus must do part of its output during the output of
12 other tables
13
14 =head1 INSTANCE VARIABLES
15
16 The vertical metrics are kept in two arrays by glyph id. The variable names
17 do not start with a space
18
19 =over 4
20
21 =item advance
22
23 An array containing the advance height for each glyph
24
25 =item top
26
27 An array containing the top side bearing for each glyph
28
29 =back
30
31 =head1 METHODS
32
33 =cut
34
35 use strict;
36 use vars qw(@ISA);
37 require Font::TTF::Hmtx;
38
39 @ISA = qw(Font::TTF::Hmtx);
40
41
42 =head2 $t->read
43
44 Reads the vertical metrics from the TTF file into memory
45
46 =cut
47
48 sub read
49 {
50     my ($self) = @_;
51     my ($numh, $numg);
52
53     $numh = $self->{' PARENT'}{'vhea'}->read->{'numberOfVMetrics'};
54     $numg = $self->{' PARENT'}{'maxp'}{'numGlyphs'};
55     $self->_read($numg, $numh, "advance", "top");
56 }
57
58
59 =head2 $t->out($fh)
60
61 Writes the metrics to a TTF file. Assumes that the C<vhea> has updated the
62 numVMetrics from here
63
64 =cut
65
66 sub out
67 {
68     my ($self, $fh) = @_;
69     my ($numg) = $self->{' PARENT'}{'maxp'}{'numGlyphs'};
70     my ($numh) = $self->{' PARENT'}{'vhea'}{'numberOfVMetrics'};
71     $self->_out($fh, $numg, $numh, "advance", "top");
72 }
73
74 1;
75
76 =head1 BUGS
77
78 None known
79
80 =head1 AUTHOR
81
82 Martin Hosken Martin_Hosken@sil.org. See L<Font::TTF::Font> for copyright and
83 licensing.
84
85 =cut
86