#======================================================================= # ____ ____ _____ _ ____ ___ ____ # | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \ # | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) | # | __/| |_| | _| _ _ / ___ \| __/| | / __/ # |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____| # # A Perl Module Chain to faciliate the Creation and Modification # of High-Quality "Portable Document Format (PDF)" Files. # #======================================================================= # # THIS IS A REUSED PERL MODULE, FOR PROPER LICENCING TERMS SEE BELOW: # # # Copyright Martin Hosken <Martin_Hosken@sil.org> # # No warranty or expression of effectiveness, least of all regarding # anyone's safety, is implied in this software or documentation. # # This specific module is licensed under the Perl Artistic License. # # # $Id: Cvt_.pm,v 1.5 2004/06/15 09:13:37 fredo Exp $ # #======================================================================= package PDF::API2::Basic::TTF::Cvt_; =head1 NAME PDF::API2::Basic::TTF::Cvt_ - Control Value Table in a TrueType font =head1 DESCRIPTION This is a minimal class adding nothing beyond a table, but is a repository for cvt type information for those processes brave enough to address hinting. =head1 INSTANCE VARIABLES =over 4 =item val This is an array of CVT values. Thus access to the CVT is via: $f->{'cvt_'}{'val'}[$num]; =back =head1 METHODS =cut use strict; use vars qw(@ISA $VERSION); use PDF::API2::Basic::TTF::Utils; @ISA = qw(PDF::API2::Basic::TTF::Table); $VERSION = 0.0001; =head2 $t->read Reads the CVT table into both the tables C<' dat'> variable and the C<val> array. =cut sub read { my ($self) = @_; $self->read_dat || return undef; $self->{' read'} = 1; $self->{'val'} = [TTF_Unpack("s*", $self->{' dat'})]; $self; } =head2 $t->update Updates the RAM file copy C<' dat'> to be the same as the array. =cut sub update { my ($self) = @_; return undef unless ($self->{' read'} && $#{$self->{'val'}} >= 0); $self->{' dat'} = TTF_Pack("s*", @{$self->{'val'}}); $self; } 1; =head1 BUGS None known =head1 AUTHOR Martin Hosken Martin_Hosken@sil.org. See L<PDF::API2::Basic::TTF::Font> for copyright and licensing. =cut