Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
.mad-root	0 B	-rw-rw-rw-
BBox.pm	5.1 KB	-rw-rw-rw-
FT2.pm	6.05 KB	-rw-rw-rw-
FreeType2.pm	1.06 KB	-rw-rw-rw-
Image.pm	3.75 KB	-rw-rw-rw-
T1.pm	6.26 KB	-rw-rw-rw-
Test.pm	1.76 KB	-rw-rw-rw-
Truetype.pm	3.22 KB	-rw-rw-rw-
Type1.pm	374 B	-rw-rw-rw-
W32.pm	1.86 KB	-rw-rw-rw-
Win32.pm	408 B	-rw-rw-rw-
Wrap.pm	10.11 KB	-rw-rw-rw-

Code Editor : Truetype.pm

package Imager::Font::Truetype;
use 5.006;
use strict;

our @ISA = qw(Imager::Font);

our $VERSION = "1.013";

*_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{tt}) {
    $Imager::ERRSTR = "Type 1 fonts not supported in this build";
    return;
  }
  my $id = Imager::i_tt_new($hsh{file});
  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  => 'tt',
		size  => $hsh{size},
		color => $hsh{color},
	       }, $class;
}

sub _draw {
  my $self = shift;
  my %input = @_;

if ( exists $input{channel} ) {
    Imager::i_tt_cp($self->{id},$input{image}{IMG},
		    $input{'x'}, $input{'y'}, $input{channel}, $input{size},
		    $input{string}, $input{aa},
                    $input{utf8}, $input{align}); 
  } else {
    Imager::i_tt_text($self->{id}, $input{image}{IMG}, 
		      $input{'x'}, $input{'y'}, $input{color},
		      $input{size}, $input{string}, 
		      $input{aa}, $input{utf8},
                      $input{align}); 
  }
}

sub _bounding_box {
  my $self = shift;
  my %input = @_;
  my @result =
    Imager::i_tt_bbox($self->{id}, $input{size}, $input{string}, $input{utf8});
  unless (@result) {
    Imager->_set_error(Imager->_error_as_msg);
    return;
  }

return @result;
}

sub utf8 { 1 }

# check if the font has the characters in the given string
sub has_chars {
  my ($self, %hsh) = @_;

unless (defined $hsh{string}) {
    $Imager::ERRSTR = "No string supplied to \$font->has_chars()";
    return;
  }
  if (wantarray) {
    my @result = Imager::i_tt_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 = Imager::i_tt_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) = @_;

Imager::i_tt_face_name($self->{id});
}

sub can_glyph_names {
  1;
}

sub glyph_names {
  my ($self, %input) = @_;

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 @names = Imager::i_tt_glyph_name($self->{id}, $string, $utf8);
  unless (@names) {
    Imager->_set_error(Imager->_error_as_msg);
    return;
  }

return @names;
}

__END__

=head1 NAME

Imager::Font::Truetype - low-level functions for Truetype fonts

=head1 DESCRIPTION

Imager::Font creates a Imager::Font::Truetype object when asked to
create a font object based on a F<.ttf> file.

See Imager::Font to see how to use this type.

This class provides low-level functions that require the caller to
perform data validation.

=head1 AUTHOR

Addi, Tony

=cut

${this.title}

Code Editor : Truetype.pm