local changes from ve
[librarian.git] / librarian / font-optimizer / ext / Font-TTF / lib / Font / TTF / Glyf.pm
1 package Font::TTF::Glyf;
2
3 =head1 NAME
4
5 Font::TTF::Glyf - The Glyf data table
6
7 =head1 DESCRIPTION
8
9 This is a stub table. The real data is held in the loca table. If you want to get a glyf
10 look it up in the loca table as C<$f->{'loca'}{'glyphs'}[$num]>. It won't be here!
11
12 The difference between reading this table as opposed to the loca table is that
13 reading this table will cause updated glyphs to be written out rather than just
14 copying the glyph information from the input file. This causes font writing to be
15 slower. So read the glyf as opposed to the loca table if you want to change glyf
16 data. Read the loca table only if you are just wanting to read the glyf information.
17
18 This class is used when writing the glyphs though.
19
20 =head1 METHODS
21
22 =cut
23
24
25 use strict;
26 use vars qw(@ISA);
27 @ISA = qw(Font::TTF::Table);
28
29 =head2 $t->read
30
31 Reads the C<loca> table instead!
32
33 =cut
34
35 sub read
36 {
37     my ($self) = @_;
38     
39     $self->{' PARENT'}{'loca'}->read;
40     $self->{' read'} = 1;
41     $self;
42 }
43
44
45 =head2 $t->out($fh)
46
47 Writes out all the glyphs in the parent's location table, calculating a new
48 output location for each one.
49
50 =cut
51
52 sub out
53 {
54     my ($self, $fh) = @_;
55     my ($i, $loca, $offset, $numGlyphs);
56
57     return $self->SUPER::out($fh) unless $self->{' read'};
58
59     $loca = $self->{' PARENT'}{'loca'}{'glyphs'};
60     $numGlyphs = $self->{' PARENT'}{'maxp'}{'numGlyphs'};
61
62     $offset = 0;
63     for ($i = 0; $i < $numGlyphs; $i++)
64     {
65         next unless defined $loca->[$i];
66         $loca->[$i]->update;
67         $loca->[$i]{' OUTLOC'} = $offset;
68         $loca->[$i]->out($fh);
69         $offset += $loca->[$i]{' OUTLEN'};
70     }
71     $self->{' PARENT'}{'head'}{'indexToLocFormat'} = ($offset >= 0x20000);
72     $self;
73 }
74
75
76 =head2 $t->out_xml($context, $depth)
77
78 Outputs all the glyphs in the glyph table just where they are supposed to be output!
79
80 =cut
81
82 sub out_xml
83 {
84     my ($self, $context, $depth) = @_;
85     my ($fh) = $context->{'fh'};
86     my ($loca, $i, $numGlyphs);
87
88     $loca = $self->{' PARENT'}{'loca'}{'glyphs'};
89     $numGlyphs = $self->{' PARENT'}{'maxp'}{'numGlyphs'};
90     
91     for ($i = 0; $i < $numGlyphs; $i++)
92     {
93         $context->{'gid'} = $i;
94         $loca->[$i]->out_xml($context, $depth) if (defined $loca->[$i]);
95     }
96
97     $self;
98 }
99
100
101 =head2 $t->XML_start($context, $tag, %attrs)
102
103 Pass control to glyphs as they occur
104
105 =cut
106
107 sub XML_start
108 {
109     my ($self) = shift;
110     my ($context, $tag, %attrs) = @_;
111
112     if ($tag eq 'glyph')
113     {
114         $context->{'tree'}[-1] = Font::TTF::Glyph->new(read => 2, PARENT => $self->{' PARENT'});
115         $context->{'receiver'} = $context->{'tree'}[-1];
116     }
117 }
118
119
120 =head2 $t->XML_end($context, $tag, %attrs)
121
122 Collect up glyphs and put them into the loca table
123
124 =cut
125
126 sub XML_end
127 {
128     my ($self) = shift;
129     my ($context, $tag, %attrs) = @_;
130
131     if ($tag eq 'glyph')
132     {
133         unless (defined $context->{'glyphs'})
134         {
135             if (defined $self->{' PARENT'}{'loca'})
136             { $context->{'glyphs'} = $self->{' PARENT'}{'loca'}{'glyphs'}; }
137             else
138             { $context->{'glyphs'} = []; }
139         }
140         $context->{'glyphs'}[$attrs{'gid'}] = $context->{'tree'}[-1];
141         return $context;
142     } else
143     { return $self->SUPER::XML_end(@_); }
144 }
145
146 1;
147
148 =head1 BUGS
149
150 None known
151
152 =head1 AUTHOR
153
154 Martin Hosken Martin_Hosken@sil.org. See L<Font::TTF::Font> for copyright and
155 licensing.
156
157 =cut
158