Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

103 lines (74 sloc) 1.915 kB
package Imager::Font::W32;
use strict;
use Imager;
use vars qw($VERSION @ISA);
@ISA = qw(Imager::Font);
BEGIN {
$VERSION = "0.81";
eval {
require XSLoader;
XSLoader::load('Imager::Font::W32', $VERSION);
1;
} or do {
require DynaLoader;
push @ISA, 'DynaLoader';
bootstrap Imager::Font::W32 $VERSION;
};
}
# called by Imager::Font::new()
# since Win32's HFONTs include the size information this
# is just a stub
sub new {
my $class = shift;
my %opts =
(
color => Imager::Color->new(255, 0, 0),
size => 15,
@_,
);
return bless \%opts, $class;
}
sub _bounding_box {
my ($self, %opts) = @_;
my @bbox = i_wf_bbox($self->{face}, $opts{size}, $opts{string}, $opts{utf8});
}
sub _draw {
my $self = shift;
my %input = @_;
if (exists $input{channel}) {
i_wf_cp($self->{face}, $input{image}{IMG}, $input{x}, $input{'y'},
$input{channel}, $input{size},
$input{string}, $input{align}, $input{aa}, $input{utf8});
}
else {
i_wf_text($self->{face}, $input{image}{IMG}, $input{x},
$input{'y'}, $input{color}, $input{size},
$input{string}, $input{align}, $input{aa}, $input{utf8});
}
return 1;
}
sub utf8 {
return 1;
}
1;
__END__
=head1 NAME
Imager::Font::W32 - font support using C<GDI> on Win32
=head1 SYNOPSIS
use Imager;
my $img = Imager->new;
my $font = Imager::Font->new(face => "Arial", type => "w32");
$img->string(... font => $font);
=head1 DESCRIPTION
This provides font support on Win32.
=head1 CAVEATS
Unfortunately, older versions of Imager would install
Imager::Font::Win32 even if Win32 wasn't available, and if no font was
created would succeed in loading the module. This means that an
existing Win32.pm could cause a probe success for Win32 fonts, so I've
renamed it.
=head1 AUTHOR
Tony Cook <tonyc@cpan.org>
=head1 SEE ALSO
Imager, Imager::Font.
=cut
Jump to Line
Something went wrong with that request. Please try again.