Initial Commit
This commit is contained in:
Riley Schneider
307
database/perl/vendor/lib/Imager/Font/FT2.pm
vendored
Normal file
307
database/perl/vendor/lib/Imager/Font/FT2.pm
vendored
Normal file
@@ -0,0 +1,307 @@
|
||||
package Imager::Font::FT2;
|
||||
use 5.006;
|
||||
use strict;
|
||||
use Imager;
|
||||
use Scalar::Util ();
|
||||
our @ISA = qw(Imager::Font);
|
||||
|
||||
our $VERSION;
|
||||
|
||||
BEGIN {
|
||||
$VERSION = "0.98";
|
||||
|
||||
require XSLoader;
|
||||
XSLoader::load('Imager::Font::FT2', $VERSION);
|
||||
}
|
||||
|
||||
*_first = \&Imager::Font::_first;
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my %hsh=(color=>Imager::Color->new(255,0,0,255),
|
||||
size=>15,
|
||||
@_);
|
||||
|
||||
unless ($hsh{file}) {
|
||||
$Imager::ERRSTR = "No font file specified";
|
||||
return;
|
||||
}
|
||||
unless (-e $hsh{file}) {
|
||||
$Imager::ERRSTR = "Font file $hsh{file} not found";
|
||||
return;
|
||||
}
|
||||
unless ($Imager::formats{ft2}) {
|
||||
$Imager::ERRSTR = "Freetype2 not supported in this build";
|
||||
return;
|
||||
}
|
||||
my $id = i_ft2_new($hsh{file}, $hsh{'index'} || 0);
|
||||
unless ($id) { # the low-level code may miss some error handling
|
||||
$Imager::ERRSTR = Imager::_error_as_msg();
|
||||
return;
|
||||
}
|
||||
return bless {
|
||||
id => $id,
|
||||
aa => $hsh{aa} || 0,
|
||||
file => $hsh{file},
|
||||
type => 't1',
|
||||
size => $hsh{size},
|
||||
color => $hsh{color},
|
||||
utf8 => $hsh{utf8},
|
||||
vlayout => $hsh{vlayout},
|
||||
}, $class;
|
||||
}
|
||||
|
||||
sub _draw {
|
||||
my $self = shift;
|
||||
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
my %input = @_;
|
||||
if (exists $input{channel}) {
|
||||
i_ft2_cp($self->{id}, $input{image}{IMG}, $input{'x'}, $input{'y'},
|
||||
$input{channel}, $input{size}, $input{sizew} || 0,
|
||||
$input{string}, , $input{align}, $input{aa}, $input{vlayout},
|
||||
$input{utf8});
|
||||
} else {
|
||||
i_ft2_text($self->{id}, $input{image}{IMG},
|
||||
$input{'x'}, $input{'y'},
|
||||
$input{color}, $input{size}, $input{sizew} || 0,
|
||||
$input{string}, $input{align}, $input{aa}, $input{vlayout},
|
||||
$input{utf8});
|
||||
}
|
||||
}
|
||||
|
||||
sub _bounding_box {
|
||||
my $self = shift;
|
||||
my %input = @_;
|
||||
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
my @result = i_ft2_bbox($self->{id}, $input{size}, $input{sizew},
|
||||
$input{string}, $input{utf8});
|
||||
unless (@result) {
|
||||
Imager->_set_error(Imager->_error_as_msg);
|
||||
return;
|
||||
}
|
||||
|
||||
return @result;
|
||||
}
|
||||
|
||||
sub dpi {
|
||||
my $self = shift;
|
||||
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
my @old = i_ft2_getdpi($self->{id});
|
||||
if (@_) {
|
||||
my %hsh = @_;
|
||||
my $result;
|
||||
unless ($hsh{xdpi} && $hsh{ydpi}) {
|
||||
if ($hsh{dpi}) {
|
||||
$hsh{xdpi} = $hsh{ydpi} = $hsh{dpi};
|
||||
}
|
||||
else {
|
||||
$Imager::ERRSTR = "dpi method requires xdpi and ydpi or just dpi";
|
||||
return;
|
||||
}
|
||||
i_ft2_setdpi($self->{id}, $hsh{xdpi}, $hsh{ydpi}) or return;
|
||||
}
|
||||
}
|
||||
|
||||
return @old;
|
||||
}
|
||||
|
||||
sub hinting {
|
||||
my ($self, %opts) = @_;
|
||||
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
i_ft2_sethinting($self->{id}, $opts{hinting} || 0);
|
||||
}
|
||||
|
||||
sub _transform {
|
||||
my $self = shift;
|
||||
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
my %hsh = @_;
|
||||
my $matrix = $hsh{matrix} or return undef;
|
||||
|
||||
return i_ft2_settransform($self->{id}, $matrix)
|
||||
}
|
||||
|
||||
sub utf8 {
|
||||
return 1;
|
||||
}
|
||||
|
||||
# check if the font has the characters in the given string
|
||||
sub has_chars {
|
||||
my ($self, %hsh) = @_;
|
||||
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
unless (defined $hsh{string} && length $hsh{string}) {
|
||||
$Imager::ERRSTR = "No string supplied to \$font->has_chars()";
|
||||
return;
|
||||
}
|
||||
if (wantarray) {
|
||||
my @result = i_ft2_has_chars($self->{id}, $hsh{string},
|
||||
_first($hsh{'utf8'}, $self->{utf8}, 0));
|
||||
unless (@result) {
|
||||
Imager->_set_error(Imager->_error_as_msg);
|
||||
return;
|
||||
}
|
||||
|
||||
return @result;
|
||||
}
|
||||
else {
|
||||
my $result = i_ft2_has_chars($self->{id}, $hsh{string},
|
||||
_first($hsh{'utf8'}, $self->{utf8}, 0));
|
||||
unless (defined $result) {
|
||||
Imager->_set_error(Imager->_error_as_msg);
|
||||
return;
|
||||
}
|
||||
return $result;
|
||||
}
|
||||
}
|
||||
|
||||
sub face_name {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
i_ft2_face_name($self->{id});
|
||||
}
|
||||
|
||||
sub can_glyph_names {
|
||||
my ($self) = @_;
|
||||
|
||||
i_ft2_can_do_glyph_names()
|
||||
or return;
|
||||
|
||||
if (ref $self) {
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
i_ft2_face_has_glyph_names($self->{id})
|
||||
or return;
|
||||
}
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
sub glyph_names {
|
||||
my ($self, %input) = @_;
|
||||
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
my $string = $input{string};
|
||||
defined $string
|
||||
or return Imager->_set_error("no string parameter passed to glyph_names");
|
||||
my $utf8 = _first($input{utf8}, 0);
|
||||
my $reliable_only = _first($input{reliable_only}, 1);
|
||||
|
||||
my @names = i_ft2_glyph_name($self->{id}, $string, $utf8, $reliable_only);
|
||||
@names or return Imager->_set_error(Imager->_error_as_msg);
|
||||
|
||||
return @names if wantarray;
|
||||
return pop @names;
|
||||
}
|
||||
|
||||
sub is_mm {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
i_ft2_is_multiple_master($self->{id});
|
||||
}
|
||||
|
||||
sub mm_axes {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
my ($num_axis, $num_design, @axes) =
|
||||
i_ft2_get_multiple_masters($self->{id})
|
||||
or return Imager->_set_error(Imager->_error_as_msg);
|
||||
|
||||
return @axes;
|
||||
}
|
||||
|
||||
sub set_mm_coords {
|
||||
my ($self, %opts) = @_;
|
||||
|
||||
$self->_valid
|
||||
or return;
|
||||
|
||||
$opts{coords}
|
||||
or return Imager->_set_error("Missing coords parameter");
|
||||
ref($opts{coords}) && $opts{coords} =~ /ARRAY\(0x[\da-f]+\)$/
|
||||
or return Imager->_set_error("coords parameter must be an ARRAY ref");
|
||||
|
||||
i_ft2_set_mm_coords($self->{id}, @{$opts{coords}})
|
||||
or return Imager->_set_error(Imager->_error_as_msg);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
# objects may be invalidated on thread creation (or Win32 fork emulation)
|
||||
sub _valid {
|
||||
my $self = shift;
|
||||
|
||||
unless ($self->{id} && Scalar::Util::blessed($self->{id})) {
|
||||
Imager->_set_error("font object was created in another thread");
|
||||
return;
|
||||
}
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Imager::Font::FT2 - font support using FreeType 2
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
use Imager;
|
||||
|
||||
my $img = Imager->new;
|
||||
my $font = Imager::Font->new(file => "foo.ttf", type => "ft2");
|
||||
|
||||
$img->string(... font => $font);
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
This provides font support on FreeType 2.
|
||||
|
||||
=head1 CAVEATS
|
||||
|
||||
Unfortunately, older versions of Imager would install
|
||||
C<Imager::Font::FreeType2> even if FreeType 2 wasn't available, and if
|
||||
no font was created would succeed in loading the module. This means
|
||||
that an existing C<FreeType2.pm> could cause a probe success for
|
||||
supported font files, so I've renamed it.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Tony Cook <tonyc@cpan.org>
|
||||
|
||||
=head1 SEE ALSO
|
||||
|
||||
Imager, Imager::Font.
|
||||
|
||||
=cut
|
||||
Reference in New Issue
Block a user