2856c16941cc13e0c9d5902cf6f860f346c2a8df
[librarian.git] / src / librarian / font-optimizer / ext / Font-TTF / lib / Font / TTF / PCLT.pm
1 package Font::TTF::PCLT;
2
3 =head1 NAME
4
5 Font::TTF::PCLT - PCLT TrueType font table
6
7 =head1 DESCRIPTION
8
9 The PCLT table holds various pieces HP-PCL specific information. Information
10 here is generally not used by other software, except for the xHeight and
11 CapHeight which are stored here (if the table exists in a font).
12
13 =head1 INSTANCE VARIABLES
14
15 Only from table and the standard:
16
17     version
18     FontNumber
19     Pitch
20     xHeight
21     Style
22     TypeFamily
23     CapHeight
24     SymbolSet
25     Typeface
26     CharacterComplement
27     FileName
28     StrokeWeight
29     WidthType
30     SerifStyle
31
32 Notice that C<Typeface>, C<CharacterComplement> and C<FileName> return arrays
33 of unsigned characters of the appropriate length
34
35 =head1 METHODS
36
37 =cut
38
39 use strict;
40 use vars qw(@ISA %fields @field_info);
41
42 require Font::TTF::Table;
43 use Font::TTF::Utils;
44
45 @ISA = qw(Font::TTF::Table);
46 @field_info = (
47     'version' => 'v',
48     'FontNumber' => 'L',
49     'Pitch' => 'S',
50     'xHeight' => 'S',
51     'Style' => 'S',
52     'TypeFamily' => 'S',
53     'CapHeight' => 'S',
54     'SymbolSet' => 'S',
55     'Typeface' => 'C16',
56     'CharacterComplement' => 'C8',
57     'FileName' => 'C6',
58     'StrokeWeight' => 'C',
59     'WidthType' => 'C',
60     'SerifStyle' => 'c');
61
62 sub init
63 {
64     my ($k, $v, $c, $i);
65     for ($i = 0; $i < $#field_info; $i += 2)
66     {
67         ($k, $v, $c) = TTF_Init_Fields($field_info[$i], $c, $field_info[$i + 1]);
68         next unless defined $k && $k ne "";
69         $fields{$k} = $v;
70     }
71 }
72
73
74 =head2 $t->read
75
76 Reads the table into memory thanks to some utility functions
77
78 =cut
79
80 sub read
81 {
82     my ($self) = @_;
83     my ($dat);
84
85     $self->SUPER::read || return $self;
86
87     init unless defined $fields{'xHeight'};
88     $self->{' INFILE'}->read($dat, 54);
89
90     TTF_Read_Fields($self, $dat, \%fields);
91     $self;
92 }
93
94
95 =head2 $t->out($fh)
96
97 Writes the table to a file either from memory or by copying.
98
99 =cut
100
101 sub out
102 {
103     my ($self, $fh) = @_;
104
105     return $self->SUPER::out($fh) unless $self->{' read'};
106     $fh->print(TTF_Out_Fields($self, \%fields, 54));
107 }
108
109 1;
110
111 =head1 BUGS
112
113 None known
114
115 =head1 AUTHOR
116
117 Martin Hosken Martin_Hosken@sil.org. See L<Font::TTF::Font> for copyright and
118 licensing.
119
120 =cut
121