"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "GENERATED/PDL/IO/GD.pm" between
PDL-2.074.tar.gz and PDL-2.075.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

GD.pm  (PDL-2.074):GD.pm  (PDL-2.075)
skipping to change at line 17 skipping to change at line 17
our %EXPORT_TAGS = (Func=>\@EXPORT_OK); our %EXPORT_TAGS = (Func=>\@EXPORT_OK);
use PDL::Core; use PDL::Core;
use PDL::Exporter; use PDL::Exporter;
use DynaLoader; use DynaLoader;
our @ISA = ( 'PDL::Exporter','DynaLoader' ); our @ISA = ( 'PDL::Exporter','DynaLoader' );
push @PDL::Core::PP, __PACKAGE__; push @PDL::Core::PP, __PACKAGE__;
bootstrap PDL::IO::GD ; bootstrap PDL::IO::GD ;
#line 23 "GD.pd" #line 22 "GD.pd"
use strict; use strict;
use warnings; use warnings;
=head1 NAME =head1 NAME
PDL::IO::GD - Interface to the GD image library. PDL::IO::GD - Interface to the GD image library.
=head1 SYNOPSIS =head1 SYNOPSIS
my $pdl = sequence(byte, 30, 30); my $pdl = sequence(byte, 30, 30);
skipping to change at line 61 skipping to change at line 62
=head1 DESCRIPTION =head1 DESCRIPTION
This is the "General Interface" for the PDL::IO::GD library, and is actually sev eral This is the "General Interface" for the PDL::IO::GD library, and is actually sev eral
years old at this point (read: stable). If you're feeling frisky, try the new OO years old at this point (read: stable). If you're feeling frisky, try the new OO
interface described below. interface described below.
The general version just provides several image IO utility functions you can use with The general version just provides several image IO utility functions you can use with
ndarray variables. It's deceptively useful, however. ndarray variables. It's deceptively useful, however.
=cut =cut
#line 69 "GD.pm" #line 70 "GD.pm"
=head1 FUNCTIONS =head1 FUNCTIONS
=cut =cut
#line 1059 "../../blib/lib/PDL/PP.pm" #line 1058 "../../blib/lib/PDL/PP.pm"
=head2 write_png =head2 write_png
=for sig =for sig
Signature: (byte img(x,y); byte lut(i,j); char* filename) Signature: (byte img(x,y); byte lut(i,j); char* filename)
Writes a 2-d PDL variable out to a PNG file, using the supplied color look-up-ta ble ndarray Writes a 2-d PDL variable out to a PNG file, using the supplied color look-up-ta ble ndarray
(hereafter referred to as a LUT). (hereafter referred to as a LUT).
The LUT contains a line for each value 0-255 with a corresponding R, G, and B va lue. The LUT contains a line for each value 0-255 with a corresponding R, G, and B va lue.
=for bad =for bad
write_png does not process bad values. write_png does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 105 "GD.pm" #line 107 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*write_png = \&PDL::write_png; *write_png = \&PDL::write_png;
#line 111 "GD.pm" #line 114 "GD.pm"
#line 1059 "../../blib/lib/PDL/PP.pm" #line 1058 "../../blib/lib/PDL/PP.pm"
=head2 write_png_ex =head2 write_png_ex
=for sig =for sig
Signature: (img(x,y); lut(i,j); char* filename; int level) Signature: (img(x,y); lut(i,j); char* filename; int level)
Same as write_png(), except you can specify the compression level (0-9) as the l ast argument. Same as write_png(), except you can specify the compression level (0-9) as the l ast argument.
=for bad =for bad
write_png_ex does not process bad values. write_png_ex does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 134 "GD.pm" #line 138 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*write_png_ex = \&PDL::write_png_ex; *write_png_ex = \&PDL::write_png_ex;
#line 140 "GD.pm" #line 145 "GD.pm"
#line 1059 "../../blib/lib/PDL/PP.pm" #line 1058 "../../blib/lib/PDL/PP.pm"
=head2 write_true_png =head2 write_true_png
=for sig =for sig
Signature: (img(x,y,z); char* filename) Signature: (img(x,y,z); char* filename)
Writes an (x, y, z(3)) PDL variable out to a PNG file, using a true color format . Writes an (x, y, z(3)) PDL variable out to a PNG file, using a true color format .
This means a larger file on disk, but can contain more than 256 colors. This means a larger file on disk, but can contain more than 256 colors.
=for bad =for bad
write_true_png does not process bad values. write_true_png does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 165 "GD.pm" #line 171 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*write_true_png = \&PDL::write_true_png; *write_true_png = \&PDL::write_true_png;
#line 171 "GD.pm" #line 178 "GD.pm"
#line 1059 "../../blib/lib/PDL/PP.pm" #line 1058 "../../blib/lib/PDL/PP.pm"
=head2 write_true_png_ex =head2 write_true_png_ex
=for sig =for sig
Signature: (img(x,y,z); char* filename; int level) Signature: (img(x,y,z); char* filename; int level)
Same as write_true_png(), except you can specify the compression level (0-9) as the last argument. Same as write_true_png(), except you can specify the compression level (0-9) as the last argument.
=for bad =for bad
write_true_png_ex does not process bad values. write_true_png_ex does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 194 "GD.pm" #line 202 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*write_true_png_ex = \&PDL::write_true_png_ex; *write_true_png_ex = \&PDL::write_true_png_ex;
#line 200 "GD.pm" #line 209 "GD.pm"
#line 316 "GD.pd" #line 315 "GD.pd"
=head2 write_png_best =head2 write_png_best
Like write_png(), but it assumes the best PNG compression (9). Like write_png(), but it assumes the best PNG compression (9).
=for example =for example
write_png_best( $img(ndarray), $lut(ndarray), $filename ) write_png_best( $img(ndarray), $lut(ndarray), $filename )
=cut =cut
skipping to change at line 196 skipping to change at line 201
write_true_png_best( $img(ndarray), $filename ) write_true_png_best( $img(ndarray), $filename )
=cut =cut
sub write_true_png_best sub write_true_png_best
{ {
my $img = shift; my $img = shift;
my $filename = shift; my $filename = shift;
return write_true_png_ex( $img, $filename, 9 ); return write_true_png_ex( $img, $filename, 9 );
} # End of write_true_png_best()... } # End of write_true_png_best()...
#line 242 "GD.pm" #line 252 "GD.pm"
#line 362 "GD.pd" #line 361 "GD.pd"
#line 247 "GD.pm" #line 257 "GD.pm"
#line 390 "GD.pd" #line 389 "GD.pd"
=head2 load_lut( $filename ) =head2 load_lut( $filename )
Loads a color look up table from an ASCII file. returns an ndarray Loads a color look up table from an ASCII file. returns an ndarray
=cut =cut
sub load_lut sub load_lut
{ {
return xchg(byte(cat(rcols(shift))), 0, 1); return xchg(byte(cat(rcols(shift))), 0, 1);
skipping to change at line 253 skipping to change at line 258
# Get the image dims... # Get the image dims...
my $x = _get_png_xs($filename); my $x = _get_png_xs($filename);
my $y = _get_png_ys($filename); my $y = _get_png_ys($filename);
#print "\$x=$x\t\$y=$y\n"; #print "\$x=$x\t\$y=$y\n";
my $temp = zeroes(long, $x, $y, 3); my $temp = zeroes(long, $x, $y, 3);
_read_true_png($temp, $filename); _read_true_png($temp, $filename);
return byte($temp); return byte($temp);
} # End of read_png()... } # End of read_png()...
#line 307 "GD.pm" #line 318 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_read_true_png = \&PDL::_read_true_png; *_read_true_png = \&PDL::_read_true_png;
#line 313 "GD.pm" #line 325 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_read_png = \&PDL::_read_png; *_read_png = \&PDL::_read_png;
#line 319 "GD.pm" #line 332 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gd_image_to_pdl_true = \&PDL::_gd_image_to_pdl_true; *_gd_image_to_pdl_true = \&PDL::_gd_image_to_pdl_true;
#line 325 "GD.pm" #line 339 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gd_image_to_pdl = \&PDL::_gd_image_to_pdl; *_gd_image_to_pdl = \&PDL::_gd_image_to_pdl;
#line 331 "GD.pm" #line 346 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_pdl_to_gd_image_true = \&PDL::_pdl_to_gd_image_true; *_pdl_to_gd_image_true = \&PDL::_pdl_to_gd_image_true;
#line 337 "GD.pm" #line 353 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_pdl_to_gd_image_lut = \&PDL::_pdl_to_gd_image_lut; *_pdl_to_gd_image_lut = \&PDL::_pdl_to_gd_image_lut;
#line 343 "GD.pm" #line 360 "GD.pm"
#line 718 "GD.pd" #line 717 "GD.pd"
=head2 read_png_lut( $filename ) =head2 read_png_lut( $filename )
Reads a color LUT from an already-existing palette PNG file. Reads a color LUT from an already-existing palette PNG file.
=cut =cut
sub read_png_lut sub read_png_lut
{ {
my $filename = shift; my $filename = shift;
my $lut = zeroes(byte, 3, 256); my $lut = zeroes(byte, 3, 256);
_read_png_lut($lut, $filename); _read_png_lut($lut, $filename);
return $lut; return $lut;
} # End of read_png_lut()... } # End of read_png_lut()...
#line 363 "GD.pm" #line 381 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_read_png_lut = \&PDL::_read_png_lut; *_read_png_lut = \&PDL::_read_png_lut;
#line 369 "GD.pm" #line 388 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gdImageColorAllocates = \&PDL::_gdImageColorAllocates; *_gdImageColorAllocates = \&PDL::_gdImageColorAllocates;
#line 375 "GD.pm" #line 395 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gdImageColorAllocateAlphas = \&PDL::_gdImageColorAllocateAlphas; *_gdImageColorAllocateAlphas = \&PDL::_gdImageColorAllocateAlphas;
#line 381 "GD.pm" #line 402 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gdImageSetPixels = \&PDL::_gdImageSetPixels; *_gdImageSetPixels = \&PDL::_gdImageSetPixels;
#line 387 "GD.pm" #line 409 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gdImageLines = \&PDL::_gdImageLines; *_gdImageLines = \&PDL::_gdImageLines;
#line 393 "GD.pm" #line 416 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gdImageDashedLines = \&PDL::_gdImageDashedLines; *_gdImageDashedLines = \&PDL::_gdImageDashedLines;
#line 399 "GD.pm" #line 423 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gdImageRectangles = \&PDL::_gdImageRectangles; *_gdImageRectangles = \&PDL::_gdImageRectangles;
#line 405 "GD.pm" #line 430 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gdImageFilledRectangles = \&PDL::_gdImageFilledRectangles; *_gdImageFilledRectangles = \&PDL::_gdImageFilledRectangles;
#line 411 "GD.pm" #line 437 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gdImageFilledArcs = \&PDL::_gdImageFilledArcs; *_gdImageFilledArcs = \&PDL::_gdImageFilledArcs;
#line 417 "GD.pm" #line 444 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gdImageArcs = \&PDL::_gdImageArcs; *_gdImageArcs = \&PDL::_gdImageArcs;
#line 423 "GD.pm" #line 451 "GD.pm"
#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*_gdImageFilledEllipses = \&PDL::_gdImageFilledEllipses; *_gdImageFilledEllipses = \&PDL::_gdImageFilledEllipses;
#line 429 "GD.pm" #line 458 "GD.pm"
#line 805 "GD.pd" #line 804 "GD.pd"
=head1 OO INTERFACE =head1 OO INTERFACE
Object Oriented interface to the GD image library. Object Oriented interface to the GD image library.
=head1 SYNOPSIS =head1 SYNOPSIS
# Open an existing file: # Open an existing file:
# #
my $gd = PDL::IO::GD->new( { filename => "test.png" } ); my $gd = PDL::IO::GD->new( { filename => "test.png" } );
skipping to change at line 780 skipping to change at line 802
The LUT ndarray format is the same as for the general interface above. The LUT ndarray format is the same as for the general interface above.
=cut =cut
sub apply_lut sub apply_lut
{ {
my $self = shift; my $self = shift;
my $lut = shift; my $lut = shift;
# Let the PDL threading engine sort this out: # Let the PDL broadcasting engine sort this out:
$self->ColorAllocates( $lut->slice("(0),:"), $lut->slice("(1),:"), $lut->sli ce("(2),:") ); $self->ColorAllocates( $lut->slice("(0),:"), $lut->slice("(1),:"), $lut->sli ce("(2),:") );
} # End of apply_lut()... } # End of apply_lut()...
sub DESTROY sub DESTROY
{ {
my $self = shift; my $self = shift;
my $sub = _pkg_name( "DESTROY" ); my $sub = _pkg_name( "DESTROY" );
#print STDERR sprintf("$sub: destroying gdImagePtr: 0x%p (%d) (%ld) (%lld)!\ n", $self->{IMG_PTR}, $self->{IMG_PTR},$self->{IMG_PTR},$self->{IMG_PTR}); #print STDERR sprintf("$sub: destroying gdImagePtr: 0x%p (%d) (%ld) (%lld)!\ n", $self->{IMG_PTR}, $self->{IMG_PTR},$self->{IMG_PTR},$self->{IMG_PTR});
skipping to change at line 805 skipping to change at line 827
} }
} # End of DESTROY()... } # End of DESTROY()...
=head2 WARNING: =head2 WARNING:
All of the docs below this point are auto-generated (not to mention the actual c ode), All of the docs below this point are auto-generated (not to mention the actual c ode),
so read with a grain of salt, and B<always> check the main GD documentation abou t how so read with a grain of salt, and B<always> check the main GD documentation abou t how
that function works and what it does. that function works and what it does.
=cut =cut
#line 906 "GD.pm" #line 936 "GD.pm"
#line 1747 "GD.pd"
#line 1748 "GD.pd"
=head2 write_Png =head2 write_Png
$image->write_Png( $filename ) $image->write_Png( $filename )
=cut =cut
sub write_Png sub write_Png
{ {
my $self = shift; my $self = shift;
return _gdImagePng ( $self->{IMG_PTR}, @_ ); return _gdImagePng ( $self->{IMG_PTR}, @_ );
} # End of write_Png()... } # End of write_Png()...
#line 923 "GD.pm" #line 954 "GD.pm"
#line 1747 "GD.pd"
#line 1748 "GD.pd"
=head2 write_PngEx =head2 write_PngEx
$image->write_PngEx( $filename, $level ) $image->write_PngEx( $filename, $level )
=cut =cut
sub write_PngEx sub write_PngEx
{ {
my $self = shift; my $self = shift;
return _gdImagePngEx ( $self->{IMG_PTR}, @_ ); return _gdImagePngEx ( $self->{IMG_PTR}, @_ );
} # End of write_PngEx()... } # End of write_PngEx()...
#line 940 "GD.pm" #line 972 "GD.pm"
#line 1747 "GD.pd"
#line 1748 "GD.pd"
=head2 write_WBMP =head2 write_WBMP
$image->write_WBMP( $fg, $filename ) $image->write_WBMP( $fg, $filename )
=cut =cut
sub write_WBMP sub write_WBMP
{ {
my $self = shift; my $self = shift;
return _gdImageWBMP ( $self->{IMG_PTR}, @_ ); return _gdImageWBMP ( $self->{IMG_PTR}, @_ );
} # End of write_WBMP()... } # End of write_WBMP()...
#line 957 "GD.pm" #line 990 "GD.pm"
#line 1747 "GD.pd"
#line 1748 "GD.pd"
=head2 write_Jpeg =head2 write_Jpeg
$image->write_Jpeg( $filename, $quality ) $image->write_Jpeg( $filename, $quality )
=cut =cut
sub write_Jpeg sub write_Jpeg
{ {
my $self = shift; my $self = shift;
return _gdImageJpeg ( $self->{IMG_PTR}, @_ ); return _gdImageJpeg ( $self->{IMG_PTR}, @_ );
} # End of write_Jpeg()... } # End of write_Jpeg()...
#line 974 "GD.pm" #line 1008 "GD.pm"
#line 1747 "GD.pd"
#line 1748 "GD.pd"
=head2 write_Gd =head2 write_Gd
$image->write_Gd( $filename ) $image->write_Gd( $filename )
=cut =cut
sub write_Gd sub write_Gd
{ {
my $self = shift; my $self = shift;
return _gdImageGd ( $self->{IMG_PTR}, @_ ); return _gdImageGd ( $self->{IMG_PTR}, @_ );
} # End of write_Gd()... } # End of write_Gd()...
#line 991 "GD.pm" #line 1026 "GD.pm"
#line 1747 "GD.pd"
#line 1748 "GD.pd"
=head2 write_Gd2 =head2 write_Gd2
$image->write_Gd2( $filename, $cs, $fmt ) $image->write_Gd2( $filename, $cs, $fmt )
=cut =cut
sub write_Gd2 sub write_Gd2
{ {
my $self = shift; my $self = shift;
return _gdImageGd2 ( $self->{IMG_PTR}, @_ ); return _gdImageGd2 ( $self->{IMG_PTR}, @_ );
} # End of write_Gd2()... } # End of write_Gd2()...
#line 1008 "GD.pm" #line 1044 "GD.pm"
#line 1747 "GD.pd"
#line 1748 "GD.pd"
=head2 write_Gif =head2 write_Gif
$image->write_Gif( $filename ) $image->write_Gif( $filename )
=cut =cut
sub write_Gif sub write_Gif
{ {
my $self = shift; my $self = shift;
return _gdImageGif ( $self->{IMG_PTR}, @_ ); return _gdImageGif ( $self->{IMG_PTR}, @_ );
} # End of write_Gif()... } # End of write_Gif()...
#line 1025 "GD.pm" #line 1062 "GD.pm"
#line 1859 "GD.pd"
#line 1860 "GD.pd"
=head2 get_Png_data =head2 get_Png_data
$image->get_Png_data( ) $image->get_Png_data( )
=cut =cut
sub get_Png_data sub get_Png_data
{ {
my $self = shift; my $self = shift;
return _gdImagePngPtr ( $self->{IMG_PTR}, @_ ); return _gdImagePngPtr ( $self->{IMG_PTR}, @_ );
} # End of get_Png_data()... } # End of get_Png_data()...
#line 1042 "GD.pm" #line 1080 "GD.pm"
#line 1859 "GD.pd"
#line 1860 "GD.pd"
=head2 get_PngEx_data =head2 get_PngEx_data
$image->get_PngEx_data( $level ) $image->get_PngEx_data( $level )
=cut =cut
sub get_PngEx_data sub get_PngEx_data
{ {
my $self = shift; my $self = shift;
return _gdImagePngPtrEx ( $self->{IMG_PTR}, @_ ); return _gdImagePngPtrEx ( $self->{IMG_PTR}, @_ );
} # End of get_PngEx_data()... } # End of get_PngEx_data()...
#line 1059 "GD.pm" #line 1098 "GD.pm"
#line 1859 "GD.pd"
#line 1860 "GD.pd"
=head2 get_WBMP_data =head2 get_WBMP_data
$image->get_WBMP_data( $fg ) $image->get_WBMP_data( $fg )
=cut =cut
sub get_WBMP_data sub get_WBMP_data
{ {
my $self = shift; my $self = shift;
return _gdImageWBMPPtr ( $self->{IMG_PTR}, @_ ); return _gdImageWBMPPtr ( $self->{IMG_PTR}, @_ );
} # End of get_WBMP_data()... } # End of get_WBMP_data()...
#line 1076 "GD.pm" #line 1116 "GD.pm"
#line 1859 "GD.pd"
#line 1860 "GD.pd"
=head2 get_Jpeg_data =head2 get_Jpeg_data
$image->get_Jpeg_data( $quality ) $image->get_Jpeg_data( $quality )
=cut =cut
sub get_Jpeg_data sub get_Jpeg_data
{ {
my $self = shift; my $self = shift;
return _gdImageJpegPtr ( $self->{IMG_PTR}, @_ ); return _gdImageJpegPtr ( $self->{IMG_PTR}, @_ );
} # End of get_Jpeg_data()... } # End of get_Jpeg_data()...
#line 1093 "GD.pm" #line 1134 "GD.pm"
#line 1859 "GD.pd"
#line 1860 "GD.pd"
=head2 get_Gd_data =head2 get_Gd_data
$image->get_Gd_data( ) $image->get_Gd_data( )
=cut =cut
sub get_Gd_data sub get_Gd_data
{ {
my $self = shift; my $self = shift;
return _gdImageGdPtr ( $self->{IMG_PTR}, @_ ); return _gdImageGdPtr ( $self->{IMG_PTR}, @_ );
} # End of get_Gd_data()... } # End of get_Gd_data()...
#line 1110 "GD.pm" #line 1152 "GD.pm"
#line 1859 "GD.pd"
#line 1860 "GD.pd"
=head2 get_Gd2_data =head2 get_Gd2_data
$image->get_Gd2_data( $cs, $fmt ) $image->get_Gd2_data( $cs, $fmt )
=cut =cut
sub get_Gd2_data sub get_Gd2_data
{ {
my $self = shift; my $self = shift;
return _gdImageGd2Ptr ( $self->{IMG_PTR}, @_ ); return _gdImageGd2Ptr ( $self->{IMG_PTR}, @_ );
} # End of get_Gd2_data()... } # End of get_Gd2_data()...
#line 1127 "GD.pm" #line 1170 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 SetPixel =head2 SetPixel
$image->SetPixel( $x, $y, $color ) $image->SetPixel( $x, $y, $color )
Alias for gdImageSetPixel. Alias for gdImageSetPixel.
=cut =cut
sub SetPixel sub SetPixel
{ {
skipping to change at line 1014 skipping to change at line 1050
$image->gdImageSetPixel( $x, $y, $color ) $image->gdImageSetPixel( $x, $y, $color )
=cut =cut
sub gdImageSetPixel sub gdImageSetPixel
{ {
my $self = shift; my $self = shift;
return _gdImageSetPixel ( $self->{IMG_PTR}, @_ ); return _gdImageSetPixel ( $self->{IMG_PTR}, @_ );
} # End of gdImageSetPixel()... } # End of gdImageSetPixel()...
#line 1159 "GD.pm" #line 1203 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 GetPixel =head2 GetPixel
$image->GetPixel( $x, $y ) $image->GetPixel( $x, $y )
Alias for gdImageGetPixel. Alias for gdImageGetPixel.
=cut =cut
sub GetPixel sub GetPixel
{ {
skipping to change at line 1041 skipping to change at line 1078
$image->gdImageGetPixel( $x, $y ) $image->gdImageGetPixel( $x, $y )
=cut =cut
sub gdImageGetPixel sub gdImageGetPixel
{ {
my $self = shift; my $self = shift;
return _gdImageGetPixel ( $self->{IMG_PTR}, @_ ); return _gdImageGetPixel ( $self->{IMG_PTR}, @_ );
} # End of gdImageGetPixel()... } # End of gdImageGetPixel()...
#line 1191 "GD.pm" #line 1236 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 AABlend =head2 AABlend
$image->AABlend( ) $image->AABlend( )
Alias for gdImageAABlend. Alias for gdImageAABlend.
=cut =cut
sub AABlend sub AABlend
{ {
skipping to change at line 1068 skipping to change at line 1106
$image->gdImageAABlend( ) $image->gdImageAABlend( )
=cut =cut
sub gdImageAABlend sub gdImageAABlend
{ {
my $self = shift; my $self = shift;
return _gdImageAABlend ( $self->{IMG_PTR}, @_ ); return _gdImageAABlend ( $self->{IMG_PTR}, @_ );
} # End of gdImageAABlend()... } # End of gdImageAABlend()...
#line 1223 "GD.pm" #line 1269 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 Line =head2 Line
$image->Line( $x1, $y1, $x2, $y2, $color ) $image->Line( $x1, $y1, $x2, $y2, $color )
Alias for gdImageLine. Alias for gdImageLine.
=cut =cut
sub Line sub Line
{ {
skipping to change at line 1095 skipping to change at line 1134
$image->gdImageLine( $x1, $y1, $x2, $y2, $color ) $image->gdImageLine( $x1, $y1, $x2, $y2, $color )
=cut =cut
sub gdImageLine sub gdImageLine
{ {
my $self = shift; my $self = shift;
return _gdImageLine ( $self->{IMG_PTR}, @_ ); return _gdImageLine ( $self->{IMG_PTR}, @_ );
} # End of gdImageLine()... } # End of gdImageLine()...
#line 1255 "GD.pm" #line 1302 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 DashedLine =head2 DashedLine
$image->DashedLine( $x1, $y1, $x2, $y2, $color ) $image->DashedLine( $x1, $y1, $x2, $y2, $color )
Alias for gdImageDashedLine. Alias for gdImageDashedLine.
=cut =cut
sub DashedLine sub DashedLine
{ {
skipping to change at line 1122 skipping to change at line 1162
$image->gdImageDashedLine( $x1, $y1, $x2, $y2, $color ) $image->gdImageDashedLine( $x1, $y1, $x2, $y2, $color )
=cut =cut
sub gdImageDashedLine sub gdImageDashedLine
{ {
my $self = shift; my $self = shift;
return _gdImageDashedLine ( $self->{IMG_PTR}, @_ ); return _gdImageDashedLine ( $self->{IMG_PTR}, @_ );
} # End of gdImageDashedLine()... } # End of gdImageDashedLine()...
#line 1287 "GD.pm" #line 1335 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 Rectangle =head2 Rectangle
$image->Rectangle( $x1, $y1, $x2, $y2, $color ) $image->Rectangle( $x1, $y1, $x2, $y2, $color )
Alias for gdImageRectangle. Alias for gdImageRectangle.
=cut =cut
sub Rectangle sub Rectangle
{ {
skipping to change at line 1149 skipping to change at line 1190
$image->gdImageRectangle( $x1, $y1, $x2, $y2, $color ) $image->gdImageRectangle( $x1, $y1, $x2, $y2, $color )
=cut =cut
sub gdImageRectangle sub gdImageRectangle
{ {
my $self = shift; my $self = shift;
return _gdImageRectangle ( $self->{IMG_PTR}, @_ ); return _gdImageRectangle ( $self->{IMG_PTR}, @_ );
} # End of gdImageRectangle()... } # End of gdImageRectangle()...
#line 1319 "GD.pm" #line 1368 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 FilledRectangle =head2 FilledRectangle
$image->FilledRectangle( $x1, $y1, $x2, $y2, $color ) $image->FilledRectangle( $x1, $y1, $x2, $y2, $color )
Alias for gdImageFilledRectangle. Alias for gdImageFilledRectangle.
=cut =cut
sub FilledRectangle sub FilledRectangle
{ {
skipping to change at line 1176 skipping to change at line 1218
$image->gdImageFilledRectangle( $x1, $y1, $x2, $y2, $color ) $image->gdImageFilledRectangle( $x1, $y1, $x2, $y2, $color )
=cut =cut
sub gdImageFilledRectangle sub gdImageFilledRectangle
{ {
my $self = shift; my $self = shift;
return _gdImageFilledRectangle ( $self->{IMG_PTR}, @_ ); return _gdImageFilledRectangle ( $self->{IMG_PTR}, @_ );
} # End of gdImageFilledRectangle()... } # End of gdImageFilledRectangle()...
#line 1351 "GD.pm" #line 1401 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 SetClip =head2 SetClip
$image->SetClip( $x1, $y1, $x2, $y2 ) $image->SetClip( $x1, $y1, $x2, $y2 )
Alias for gdImageSetClip. Alias for gdImageSetClip.
=cut =cut
sub SetClip sub SetClip
{ {
skipping to change at line 1203 skipping to change at line 1246
$image->gdImageSetClip( $x1, $y1, $x2, $y2 ) $image->gdImageSetClip( $x1, $y1, $x2, $y2 )
=cut =cut
sub gdImageSetClip sub gdImageSetClip
{ {
my $self = shift; my $self = shift;
return _gdImageSetClip ( $self->{IMG_PTR}, @_ ); return _gdImageSetClip ( $self->{IMG_PTR}, @_ );
} # End of gdImageSetClip()... } # End of gdImageSetClip()...
#line 1383 "GD.pm" #line 1434 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 GetClip =head2 GetClip
$image->GetClip( $x1P, $y1P, $x2P, $y2P ) $image->GetClip( $x1P, $y1P, $x2P, $y2P )
Alias for gdImageGetClip. Alias for gdImageGetClip.
=cut =cut
sub GetClip sub GetClip
{ {
skipping to change at line 1230 skipping to change at line 1274
$image->gdImageGetClip( $x1P, $y1P, $x2P, $y2P ) $image->gdImageGetClip( $x1P, $y1P, $x2P, $y2P )
=cut =cut
sub gdImageGetClip sub gdImageGetClip
{ {
my $self = shift; my $self = shift;
return _gdImageGetClip ( $self->{IMG_PTR}, @_ ); return _gdImageGetClip ( $self->{IMG_PTR}, @_ );
} # End of gdImageGetClip()... } # End of gdImageGetClip()...
#line 1415 "GD.pm" #line 1467 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 BoundsSafe =head2 BoundsSafe
$image->BoundsSafe( $x, $y ) $image->BoundsSafe( $x, $y )
Alias for gdImageBoundsSafe. Alias for gdImageBoundsSafe.
=cut =cut
sub BoundsSafe sub BoundsSafe
{ {
skipping to change at line 1257 skipping to change at line 1302
$image->gdImageBoundsSafe( $x, $y ) $image->gdImageBoundsSafe( $x, $y )
=cut =cut
sub gdImageBoundsSafe sub gdImageBoundsSafe
{ {
my $self = shift; my $self = shift;
return _gdImageBoundsSafe ( $self->{IMG_PTR}, @_ ); return _gdImageBoundsSafe ( $self->{IMG_PTR}, @_ );
} # End of gdImageBoundsSafe()... } # End of gdImageBoundsSafe()...
#line 1447 "GD.pm" #line 1500 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 Char =head2 Char
$image->Char( $f, $x, $y, $c, $color ) $image->Char( $f, $x, $y, $c, $color )
Alias for gdImageChar. Alias for gdImageChar.
=cut =cut
sub Char sub Char
{ {
skipping to change at line 1284 skipping to change at line 1330
$image->gdImageChar( $f, $x, $y, $c, $color ) $image->gdImageChar( $f, $x, $y, $c, $color )
=cut =cut
sub gdImageChar sub gdImageChar
{ {
my $self = shift; my $self = shift;
return _gdImageChar ( $self->{IMG_PTR}, @_ ); return _gdImageChar ( $self->{IMG_PTR}, @_ );
} # End of gdImageChar()... } # End of gdImageChar()...
#line 1479 "GD.pm" #line 1533 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 CharUp =head2 CharUp
$image->CharUp( $f, $x, $y, $c, $color ) $image->CharUp( $f, $x, $y, $c, $color )
Alias for gdImageCharUp. Alias for gdImageCharUp.
=cut =cut
sub CharUp sub CharUp
{ {
skipping to change at line 1311 skipping to change at line 1358
$image->gdImageCharUp( $f, $x, $y, $c, $color ) $image->gdImageCharUp( $f, $x, $y, $c, $color )
=cut =cut
sub gdImageCharUp sub gdImageCharUp
{ {
my $self = shift; my $self = shift;
return _gdImageCharUp ( $self->{IMG_PTR}, @_ ); return _gdImageCharUp ( $self->{IMG_PTR}, @_ );
} # End of gdImageCharUp()... } # End of gdImageCharUp()...
#line 1511 "GD.pm" #line 1566 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 String =head2 String
$image->String( $f, $x, $y, $s, $color ) $image->String( $f, $x, $y, $s, $color )
Alias for gdImageString. Alias for gdImageString.
=cut =cut
sub String sub String
{ {
skipping to change at line 1338 skipping to change at line 1386
$image->gdImageString( $f, $x, $y, $s, $color ) $image->gdImageString( $f, $x, $y, $s, $color )
=cut =cut
sub gdImageString sub gdImageString
{ {
my $self = shift; my $self = shift;
return _gdImageString ( $self->{IMG_PTR}, @_ ); return _gdImageString ( $self->{IMG_PTR}, @_ );
} # End of gdImageString()... } # End of gdImageString()...
#line 1543 "GD.pm" #line 1599 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 StringUp =head2 StringUp
$image->StringUp( $f, $x, $y, $s, $color ) $image->StringUp( $f, $x, $y, $s, $color )
Alias for gdImageStringUp. Alias for gdImageStringUp.
=cut =cut
sub StringUp sub StringUp
{ {
skipping to change at line 1365 skipping to change at line 1414
$image->gdImageStringUp( $f, $x, $y, $s, $color ) $image->gdImageStringUp( $f, $x, $y, $s, $color )
=cut =cut
sub gdImageStringUp sub gdImageStringUp
{ {
my $self = shift; my $self = shift;
return _gdImageStringUp ( $self->{IMG_PTR}, @_ ); return _gdImageStringUp ( $self->{IMG_PTR}, @_ );
} # End of gdImageStringUp()... } # End of gdImageStringUp()...
#line 1575 "GD.pm" #line 1632 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 String16 =head2 String16
$image->String16( $f, $x, $y, $s, $color ) $image->String16( $f, $x, $y, $s, $color )
Alias for gdImageString16. Alias for gdImageString16.
=cut =cut
sub String16 sub String16
{ {
skipping to change at line 1392 skipping to change at line 1442
$image->gdImageString16( $f, $x, $y, $s, $color ) $image->gdImageString16( $f, $x, $y, $s, $color )
=cut =cut
sub gdImageString16 sub gdImageString16
{ {
my $self = shift; my $self = shift;
return _gdImageString16 ( $self->{IMG_PTR}, @_ ); return _gdImageString16 ( $self->{IMG_PTR}, @_ );
} # End of gdImageString16()... } # End of gdImageString16()...
#line 1607 "GD.pm" #line 1665 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 StringUp16 =head2 StringUp16
$image->StringUp16( $f, $x, $y, $s, $color ) $image->StringUp16( $f, $x, $y, $s, $color )
Alias for gdImageStringUp16. Alias for gdImageStringUp16.
=cut =cut
sub StringUp16 sub StringUp16
{ {
skipping to change at line 1419 skipping to change at line 1470
$image->gdImageStringUp16( $f, $x, $y, $s, $color ) $image->gdImageStringUp16( $f, $x, $y, $s, $color )
=cut =cut
sub gdImageStringUp16 sub gdImageStringUp16
{ {
my $self = shift; my $self = shift;
return _gdImageStringUp16 ( $self->{IMG_PTR}, @_ ); return _gdImageStringUp16 ( $self->{IMG_PTR}, @_ );
} # End of gdImageStringUp16()... } # End of gdImageStringUp16()...
#line 1639 "GD.pm" #line 1698 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 Polygon =head2 Polygon
$image->Polygon( $p, $n, $c ) $image->Polygon( $p, $n, $c )
Alias for gdImagePolygon. Alias for gdImagePolygon.
=cut =cut
sub Polygon sub Polygon
{ {
skipping to change at line 1446 skipping to change at line 1498
$image->gdImagePolygon( $p, $n, $c ) $image->gdImagePolygon( $p, $n, $c )
=cut =cut
sub gdImagePolygon sub gdImagePolygon
{ {
my $self = shift; my $self = shift;
return _gdImagePolygon ( $self->{IMG_PTR}, @_ ); return _gdImagePolygon ( $self->{IMG_PTR}, @_ );
} # End of gdImagePolygon()... } # End of gdImagePolygon()...
#line 1671 "GD.pm" #line 1731 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 FilledPolygon =head2 FilledPolygon
$image->FilledPolygon( $p, $n, $c ) $image->FilledPolygon( $p, $n, $c )
Alias for gdImageFilledPolygon. Alias for gdImageFilledPolygon.
=cut =cut
sub FilledPolygon sub FilledPolygon
{ {
skipping to change at line 1473 skipping to change at line 1526
$image->gdImageFilledPolygon( $p, $n, $c ) $image->gdImageFilledPolygon( $p, $n, $c )
=cut =cut
sub gdImageFilledPolygon sub gdImageFilledPolygon
{ {
my $self = shift; my $self = shift;
return _gdImageFilledPolygon ( $self->{IMG_PTR}, @_ ); return _gdImageFilledPolygon ( $self->{IMG_PTR}, @_ );
} # End of gdImageFilledPolygon()... } # End of gdImageFilledPolygon()...
#line 1703 "GD.pm" #line 1764 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorAllocate =head2 ColorAllocate
$image->ColorAllocate( $r, $g, $b ) $image->ColorAllocate( $r, $g, $b )
Alias for gdImageColorAllocate. Alias for gdImageColorAllocate.
=cut =cut
sub ColorAllocate sub ColorAllocate
{ {
skipping to change at line 1500 skipping to change at line 1554
$image->gdImageColorAllocate( $r, $g, $b ) $image->gdImageColorAllocate( $r, $g, $b )
=cut =cut
sub gdImageColorAllocate sub gdImageColorAllocate
{ {
my $self = shift; my $self = shift;
return _gdImageColorAllocate ( $self->{IMG_PTR}, @_ ); return _gdImageColorAllocate ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorAllocate()... } # End of gdImageColorAllocate()...
#line 1735 "GD.pm" #line 1797 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorAllocateAlpha =head2 ColorAllocateAlpha
$image->ColorAllocateAlpha( $r, $g, $b, $a ) $image->ColorAllocateAlpha( $r, $g, $b, $a )
Alias for gdImageColorAllocateAlpha. Alias for gdImageColorAllocateAlpha.
=cut =cut
sub ColorAllocateAlpha sub ColorAllocateAlpha
{ {
skipping to change at line 1527 skipping to change at line 1582
$image->gdImageColorAllocateAlpha( $r, $g, $b, $a ) $image->gdImageColorAllocateAlpha( $r, $g, $b, $a )
=cut =cut
sub gdImageColorAllocateAlpha sub gdImageColorAllocateAlpha
{ {
my $self = shift; my $self = shift;
return _gdImageColorAllocateAlpha ( $self->{IMG_PTR}, @_ ); return _gdImageColorAllocateAlpha ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorAllocateAlpha()... } # End of gdImageColorAllocateAlpha()...
#line 1767 "GD.pm" #line 1830 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorClosest =head2 ColorClosest
$image->ColorClosest( $r, $g, $b ) $image->ColorClosest( $r, $g, $b )
Alias for gdImageColorClosest. Alias for gdImageColorClosest.
=cut =cut
sub ColorClosest sub ColorClosest
{ {
skipping to change at line 1554 skipping to change at line 1610
$image->gdImageColorClosest( $r, $g, $b ) $image->gdImageColorClosest( $r, $g, $b )
=cut =cut
sub gdImageColorClosest sub gdImageColorClosest
{ {
my $self = shift; my $self = shift;
return _gdImageColorClosest ( $self->{IMG_PTR}, @_ ); return _gdImageColorClosest ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorClosest()... } # End of gdImageColorClosest()...
#line 1799 "GD.pm" #line 1863 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorClosestAlpha =head2 ColorClosestAlpha
$image->ColorClosestAlpha( $r, $g, $b, $a ) $image->ColorClosestAlpha( $r, $g, $b, $a )
Alias for gdImageColorClosestAlpha. Alias for gdImageColorClosestAlpha.
=cut =cut
sub ColorClosestAlpha sub ColorClosestAlpha
{ {
skipping to change at line 1581 skipping to change at line 1638
$image->gdImageColorClosestAlpha( $r, $g, $b, $a ) $image->gdImageColorClosestAlpha( $r, $g, $b, $a )
=cut =cut
sub gdImageColorClosestAlpha sub gdImageColorClosestAlpha
{ {
my $self = shift; my $self = shift;
return _gdImageColorClosestAlpha ( $self->{IMG_PTR}, @_ ); return _gdImageColorClosestAlpha ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorClosestAlpha()... } # End of gdImageColorClosestAlpha()...
#line 1831 "GD.pm" #line 1896 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorClosestHWB =head2 ColorClosestHWB
$image->ColorClosestHWB( $r, $g, $b ) $image->ColorClosestHWB( $r, $g, $b )
Alias for gdImageColorClosestHWB. Alias for gdImageColorClosestHWB.
=cut =cut
sub ColorClosestHWB sub ColorClosestHWB
{ {
skipping to change at line 1608 skipping to change at line 1666
$image->gdImageColorClosestHWB( $r, $g, $b ) $image->gdImageColorClosestHWB( $r, $g, $b )
=cut =cut
sub gdImageColorClosestHWB sub gdImageColorClosestHWB
{ {
my $self = shift; my $self = shift;
return _gdImageColorClosestHWB ( $self->{IMG_PTR}, @_ ); return _gdImageColorClosestHWB ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorClosestHWB()... } # End of gdImageColorClosestHWB()...
#line 1863 "GD.pm" #line 1929 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorExact =head2 ColorExact
$image->ColorExact( $r, $g, $b ) $image->ColorExact( $r, $g, $b )
Alias for gdImageColorExact. Alias for gdImageColorExact.
=cut =cut
sub ColorExact sub ColorExact
{ {
skipping to change at line 1635 skipping to change at line 1694
$image->gdImageColorExact( $r, $g, $b ) $image->gdImageColorExact( $r, $g, $b )
=cut =cut
sub gdImageColorExact sub gdImageColorExact
{ {
my $self = shift; my $self = shift;
return _gdImageColorExact ( $self->{IMG_PTR}, @_ ); return _gdImageColorExact ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorExact()... } # End of gdImageColorExact()...
#line 1895 "GD.pm" #line 1962 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorExactAlpha =head2 ColorExactAlpha
$image->ColorExactAlpha( $r, $g, $b, $a ) $image->ColorExactAlpha( $r, $g, $b, $a )
Alias for gdImageColorExactAlpha. Alias for gdImageColorExactAlpha.
=cut =cut
sub ColorExactAlpha sub ColorExactAlpha
{ {
skipping to change at line 1662 skipping to change at line 1722
$image->gdImageColorExactAlpha( $r, $g, $b, $a ) $image->gdImageColorExactAlpha( $r, $g, $b, $a )
=cut =cut
sub gdImageColorExactAlpha sub gdImageColorExactAlpha
{ {
my $self = shift; my $self = shift;
return _gdImageColorExactAlpha ( $self->{IMG_PTR}, @_ ); return _gdImageColorExactAlpha ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorExactAlpha()... } # End of gdImageColorExactAlpha()...
#line 1927 "GD.pm" #line 1995 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorResolve =head2 ColorResolve
$image->ColorResolve( $r, $g, $b ) $image->ColorResolve( $r, $g, $b )
Alias for gdImageColorResolve. Alias for gdImageColorResolve.
=cut =cut
sub ColorResolve sub ColorResolve
{ {
skipping to change at line 1689 skipping to change at line 1750
$image->gdImageColorResolve( $r, $g, $b ) $image->gdImageColorResolve( $r, $g, $b )
=cut =cut
sub gdImageColorResolve sub gdImageColorResolve
{ {
my $self = shift; my $self = shift;
return _gdImageColorResolve ( $self->{IMG_PTR}, @_ ); return _gdImageColorResolve ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorResolve()... } # End of gdImageColorResolve()...
#line 1959 "GD.pm" #line 2028 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorResolveAlpha =head2 ColorResolveAlpha
$image->ColorResolveAlpha( $r, $g, $b, $a ) $image->ColorResolveAlpha( $r, $g, $b, $a )
Alias for gdImageColorResolveAlpha. Alias for gdImageColorResolveAlpha.
=cut =cut
sub ColorResolveAlpha sub ColorResolveAlpha
{ {
skipping to change at line 1716 skipping to change at line 1778
$image->gdImageColorResolveAlpha( $r, $g, $b, $a ) $image->gdImageColorResolveAlpha( $r, $g, $b, $a )
=cut =cut
sub gdImageColorResolveAlpha sub gdImageColorResolveAlpha
{ {
my $self = shift; my $self = shift;
return _gdImageColorResolveAlpha ( $self->{IMG_PTR}, @_ ); return _gdImageColorResolveAlpha ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorResolveAlpha()... } # End of gdImageColorResolveAlpha()...
#line 1991 "GD.pm" #line 2061 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorDeallocate =head2 ColorDeallocate
$image->ColorDeallocate( $color ) $image->ColorDeallocate( $color )
Alias for gdImageColorDeallocate. Alias for gdImageColorDeallocate.
=cut =cut
sub ColorDeallocate sub ColorDeallocate
{ {
skipping to change at line 1743 skipping to change at line 1806
$image->gdImageColorDeallocate( $color ) $image->gdImageColorDeallocate( $color )
=cut =cut
sub gdImageColorDeallocate sub gdImageColorDeallocate
{ {
my $self = shift; my $self = shift;
return _gdImageColorDeallocate ( $self->{IMG_PTR}, @_ ); return _gdImageColorDeallocate ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorDeallocate()... } # End of gdImageColorDeallocate()...
#line 2023 "GD.pm" #line 2094 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 TrueColorToPalette =head2 TrueColorToPalette
$image->TrueColorToPalette( $ditherFlag, $colorsWanted ) $image->TrueColorToPalette( $ditherFlag, $colorsWanted )
Alias for gdImageTrueColorToPalette. Alias for gdImageTrueColorToPalette.
=cut =cut
sub TrueColorToPalette sub TrueColorToPalette
{ {
skipping to change at line 1770 skipping to change at line 1834
$image->gdImageTrueColorToPalette( $ditherFlag, $colorsWanted ) $image->gdImageTrueColorToPalette( $ditherFlag, $colorsWanted )
=cut =cut
sub gdImageTrueColorToPalette sub gdImageTrueColorToPalette
{ {
my $self = shift; my $self = shift;
return _gdImageTrueColorToPalette ( $self->{IMG_PTR}, @_ ); return _gdImageTrueColorToPalette ( $self->{IMG_PTR}, @_ );
} # End of gdImageTrueColorToPalette()... } # End of gdImageTrueColorToPalette()...
#line 2055 "GD.pm" #line 2127 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorTransparent =head2 ColorTransparent
$image->ColorTransparent( $color ) $image->ColorTransparent( $color )
Alias for gdImageColorTransparent. Alias for gdImageColorTransparent.
=cut =cut
sub ColorTransparent sub ColorTransparent
{ {
skipping to change at line 1797 skipping to change at line 1862
$image->gdImageColorTransparent( $color ) $image->gdImageColorTransparent( $color )
=cut =cut
sub gdImageColorTransparent sub gdImageColorTransparent
{ {
my $self = shift; my $self = shift;
return _gdImageColorTransparent ( $self->{IMG_PTR}, @_ ); return _gdImageColorTransparent ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorTransparent()... } # End of gdImageColorTransparent()...
#line 2087 "GD.pm" #line 2160 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 FilledArc =head2 FilledArc
$image->FilledArc( $cx, $cy, $w, $h, $s, $e, $color, $style ) $image->FilledArc( $cx, $cy, $w, $h, $s, $e, $color, $style )
Alias for gdImageFilledArc. Alias for gdImageFilledArc.
=cut =cut
sub FilledArc sub FilledArc
{ {
skipping to change at line 1824 skipping to change at line 1890
$image->gdImageFilledArc( $cx, $cy, $w, $h, $s, $e, $color, $style ) $image->gdImageFilledArc( $cx, $cy, $w, $h, $s, $e, $color, $style )
=cut =cut
sub gdImageFilledArc sub gdImageFilledArc
{ {
my $self = shift; my $self = shift;
return _gdImageFilledArc ( $self->{IMG_PTR}, @_ ); return _gdImageFilledArc ( $self->{IMG_PTR}, @_ );
} # End of gdImageFilledArc()... } # End of gdImageFilledArc()...
#line 2119 "GD.pm" #line 2193 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 Arc =head2 Arc
$image->Arc( $cx, $cy, $w, $h, $s, $e, $color ) $image->Arc( $cx, $cy, $w, $h, $s, $e, $color )
Alias for gdImageArc. Alias for gdImageArc.
=cut =cut
sub Arc sub Arc
{ {
skipping to change at line 1851 skipping to change at line 1918
$image->gdImageArc( $cx, $cy, $w, $h, $s, $e, $color ) $image->gdImageArc( $cx, $cy, $w, $h, $s, $e, $color )
=cut =cut
sub gdImageArc sub gdImageArc
{ {
my $self = shift; my $self = shift;
return _gdImageArc ( $self->{IMG_PTR}, @_ ); return _gdImageArc ( $self->{IMG_PTR}, @_ );
} # End of gdImageArc()... } # End of gdImageArc()...
#line 2151 "GD.pm" #line 2226 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 FilledEllipse =head2 FilledEllipse
$image->FilledEllipse( $cx, $cy, $w, $h, $color ) $image->FilledEllipse( $cx, $cy, $w, $h, $color )
Alias for gdImageFilledEllipse. Alias for gdImageFilledEllipse.
=cut =cut
sub FilledEllipse sub FilledEllipse
{ {
skipping to change at line 1878 skipping to change at line 1946
$image->gdImageFilledEllipse( $cx, $cy, $w, $h, $color ) $image->gdImageFilledEllipse( $cx, $cy, $w, $h, $color )
=cut =cut
sub gdImageFilledEllipse sub gdImageFilledEllipse
{ {
my $self = shift; my $self = shift;
return _gdImageFilledEllipse ( $self->{IMG_PTR}, @_ ); return _gdImageFilledEllipse ( $self->{IMG_PTR}, @_ );
} # End of gdImageFilledEllipse()... } # End of gdImageFilledEllipse()...
#line 2183 "GD.pm" #line 2259 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 FillToBorder =head2 FillToBorder
$image->FillToBorder( $x, $y, $border, $color ) $image->FillToBorder( $x, $y, $border, $color )
Alias for gdImageFillToBorder. Alias for gdImageFillToBorder.
=cut =cut
sub FillToBorder sub FillToBorder
{ {
skipping to change at line 1905 skipping to change at line 1974
$image->gdImageFillToBorder( $x, $y, $border, $color ) $image->gdImageFillToBorder( $x, $y, $border, $color )
=cut =cut
sub gdImageFillToBorder sub gdImageFillToBorder
{ {
my $self = shift; my $self = shift;
return _gdImageFillToBorder ( $self->{IMG_PTR}, @_ ); return _gdImageFillToBorder ( $self->{IMG_PTR}, @_ );
} # End of gdImageFillToBorder()... } # End of gdImageFillToBorder()...
#line 2215 "GD.pm" #line 2292 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 Fill =head2 Fill
$image->Fill( $x, $y, $color ) $image->Fill( $x, $y, $color )
Alias for gdImageFill. Alias for gdImageFill.
=cut =cut
sub Fill sub Fill
{ {
skipping to change at line 1932 skipping to change at line 2002
$image->gdImageFill( $x, $y, $color ) $image->gdImageFill( $x, $y, $color )
=cut =cut
sub gdImageFill sub gdImageFill
{ {
my $self = shift; my $self = shift;
return _gdImageFill ( $self->{IMG_PTR}, @_ ); return _gdImageFill ( $self->{IMG_PTR}, @_ );
} # End of gdImageFill()... } # End of gdImageFill()...
#line 2247 "GD.pm" #line 2325 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 CopyRotated =head2 CopyRotated
$image->CopyRotated( $dstX, $dstY, $srcX, $srcY, $srcWidth, $srcHeight, $angle ) $image->CopyRotated( $dstX, $dstY, $srcX, $srcY, $srcWidth, $srcHeight, $angle )
Alias for gdImageCopyRotated. Alias for gdImageCopyRotated.
=cut =cut
sub CopyRotated sub CopyRotated
{ {
skipping to change at line 1959 skipping to change at line 2030
$image->gdImageCopyRotated( $dstX, $dstY, $srcX, $srcY, $srcWidth, $srcHeight, $ angle ) $image->gdImageCopyRotated( $dstX, $dstY, $srcX, $srcY, $srcWidth, $srcHeight, $ angle )
=cut =cut
sub gdImageCopyRotated sub gdImageCopyRotated
{ {
my $self = shift; my $self = shift;
return _gdImageCopyRotated ( $self->{IMG_PTR}, @_ ); return _gdImageCopyRotated ( $self->{IMG_PTR}, @_ );
} # End of gdImageCopyRotated()... } # End of gdImageCopyRotated()...
#line 2279 "GD.pm" #line 2358 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 SetBrush =head2 SetBrush
$image->SetBrush( ) $image->SetBrush( )
Alias for gdImageSetBrush. Alias for gdImageSetBrush.
=cut =cut
sub SetBrush sub SetBrush
{ {
skipping to change at line 1986 skipping to change at line 2058
$image->gdImageSetBrush( ) $image->gdImageSetBrush( )
=cut =cut
sub gdImageSetBrush sub gdImageSetBrush
{ {
my $self = shift; my $self = shift;
return _gdImageSetBrush ( $self->{IMG_PTR}, @_ ); return _gdImageSetBrush ( $self->{IMG_PTR}, @_ );
} # End of gdImageSetBrush()... } # End of gdImageSetBrush()...
#line 2311 "GD.pm" #line 2391 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 SetTile =head2 SetTile
$image->SetTile( ) $image->SetTile( )
Alias for gdImageSetTile. Alias for gdImageSetTile.
=cut =cut
sub SetTile sub SetTile
{ {
skipping to change at line 2013 skipping to change at line 2086
$image->gdImageSetTile( ) $image->gdImageSetTile( )
=cut =cut
sub gdImageSetTile sub gdImageSetTile
{ {
my $self = shift; my $self = shift;
return _gdImageSetTile ( $self->{IMG_PTR}, @_ ); return _gdImageSetTile ( $self->{IMG_PTR}, @_ );
} # End of gdImageSetTile()... } # End of gdImageSetTile()...
#line 2343 "GD.pm" #line 2424 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 SetAntiAliased =head2 SetAntiAliased
$image->SetAntiAliased( $c ) $image->SetAntiAliased( $c )
Alias for gdImageSetAntiAliased. Alias for gdImageSetAntiAliased.
=cut =cut
sub SetAntiAliased sub SetAntiAliased
{ {
skipping to change at line 2040 skipping to change at line 2114
$image->gdImageSetAntiAliased( $c ) $image->gdImageSetAntiAliased( $c )
=cut =cut
sub gdImageSetAntiAliased sub gdImageSetAntiAliased
{ {
my $self = shift; my $self = shift;
return _gdImageSetAntiAliased ( $self->{IMG_PTR}, @_ ); return _gdImageSetAntiAliased ( $self->{IMG_PTR}, @_ );
} # End of gdImageSetAntiAliased()... } # End of gdImageSetAntiAliased()...
#line 2375 "GD.pm" #line 2457 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 SetAntiAliasedDontBlend =head2 SetAntiAliasedDontBlend
$image->SetAntiAliasedDontBlend( $c, $dont_blend ) $image->SetAntiAliasedDontBlend( $c, $dont_blend )
Alias for gdImageSetAntiAliasedDontBlend. Alias for gdImageSetAntiAliasedDontBlend.
=cut =cut
sub SetAntiAliasedDontBlend sub SetAntiAliasedDontBlend
{ {
skipping to change at line 2067 skipping to change at line 2142
$image->gdImageSetAntiAliasedDontBlend( $c, $dont_blend ) $image->gdImageSetAntiAliasedDontBlend( $c, $dont_blend )
=cut =cut
sub gdImageSetAntiAliasedDontBlend sub gdImageSetAntiAliasedDontBlend
{ {
my $self = shift; my $self = shift;
return _gdImageSetAntiAliasedDontBlend ( $self->{IMG_PTR}, @_ ); return _gdImageSetAntiAliasedDontBlend ( $self->{IMG_PTR}, @_ );
} # End of gdImageSetAntiAliasedDontBlend()... } # End of gdImageSetAntiAliasedDontBlend()...
#line 2407 "GD.pm" #line 2490 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 SetStyle =head2 SetStyle
$image->SetStyle( $style, $noOfPixels ) $image->SetStyle( $style, $noOfPixels )
Alias for gdImageSetStyle. Alias for gdImageSetStyle.
=cut =cut
sub SetStyle sub SetStyle
{ {
skipping to change at line 2094 skipping to change at line 2170
$image->gdImageSetStyle( $style, $noOfPixels ) $image->gdImageSetStyle( $style, $noOfPixels )
=cut =cut
sub gdImageSetStyle sub gdImageSetStyle
{ {
my $self = shift; my $self = shift;
return _gdImageSetStyle ( $self->{IMG_PTR}, @_ ); return _gdImageSetStyle ( $self->{IMG_PTR}, @_ );
} # End of gdImageSetStyle()... } # End of gdImageSetStyle()...
#line 2439 "GD.pm" #line 2523 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 SetThickness =head2 SetThickness
$image->SetThickness( $thickness ) $image->SetThickness( $thickness )
Alias for gdImageSetThickness. Alias for gdImageSetThickness.
=cut =cut
sub SetThickness sub SetThickness
{ {
skipping to change at line 2121 skipping to change at line 2198
$image->gdImageSetThickness( $thickness ) $image->gdImageSetThickness( $thickness )
=cut =cut
sub gdImageSetThickness sub gdImageSetThickness
{ {
my $self = shift; my $self = shift;
return _gdImageSetThickness ( $self->{IMG_PTR}, @_ ); return _gdImageSetThickness ( $self->{IMG_PTR}, @_ );
} # End of gdImageSetThickness()... } # End of gdImageSetThickness()...
#line 2471 "GD.pm" #line 2556 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 Interlace =head2 Interlace
$image->Interlace( $interlaceArg ) $image->Interlace( $interlaceArg )
Alias for gdImageInterlace. Alias for gdImageInterlace.
=cut =cut
sub Interlace sub Interlace
{ {
skipping to change at line 2148 skipping to change at line 2226
$image->gdImageInterlace( $interlaceArg ) $image->gdImageInterlace( $interlaceArg )
=cut =cut
sub gdImageInterlace sub gdImageInterlace
{ {
my $self = shift; my $self = shift;
return _gdImageInterlace ( $self->{IMG_PTR}, @_ ); return _gdImageInterlace ( $self->{IMG_PTR}, @_ );
} # End of gdImageInterlace()... } # End of gdImageInterlace()...
#line 2503 "GD.pm" #line 2589 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 AlphaBlending =head2 AlphaBlending
$image->AlphaBlending( $alphaBlendingArg ) $image->AlphaBlending( $alphaBlendingArg )
Alias for gdImageAlphaBlending. Alias for gdImageAlphaBlending.
=cut =cut
sub AlphaBlending sub AlphaBlending
{ {
skipping to change at line 2175 skipping to change at line 2254
$image->gdImageAlphaBlending( $alphaBlendingArg ) $image->gdImageAlphaBlending( $alphaBlendingArg )
=cut =cut
sub gdImageAlphaBlending sub gdImageAlphaBlending
{ {
my $self = shift; my $self = shift;
return _gdImageAlphaBlending ( $self->{IMG_PTR}, @_ ); return _gdImageAlphaBlending ( $self->{IMG_PTR}, @_ );
} # End of gdImageAlphaBlending()... } # End of gdImageAlphaBlending()...
#line 2535 "GD.pm" #line 2622 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 SaveAlpha =head2 SaveAlpha
$image->SaveAlpha( $saveAlphaArg ) $image->SaveAlpha( $saveAlphaArg )
Alias for gdImageSaveAlpha. Alias for gdImageSaveAlpha.
=cut =cut
sub SaveAlpha sub SaveAlpha
{ {
skipping to change at line 2202 skipping to change at line 2282
$image->gdImageSaveAlpha( $saveAlphaArg ) $image->gdImageSaveAlpha( $saveAlphaArg )
=cut =cut
sub gdImageSaveAlpha sub gdImageSaveAlpha
{ {
my $self = shift; my $self = shift;
return _gdImageSaveAlpha ( $self->{IMG_PTR}, @_ ); return _gdImageSaveAlpha ( $self->{IMG_PTR}, @_ );
} # End of gdImageSaveAlpha()... } # End of gdImageSaveAlpha()...
#line 2567 "GD.pm" #line 2655 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 TrueColor =head2 TrueColor
$image->TrueColor( ) $image->TrueColor( )
Alias for gdImageTrueColor. Alias for gdImageTrueColor.
=cut =cut
sub TrueColor sub TrueColor
{ {
skipping to change at line 2229 skipping to change at line 2310
$image->gdImageTrueColor( ) $image->gdImageTrueColor( )
=cut =cut
sub gdImageTrueColor sub gdImageTrueColor
{ {
my $self = shift; my $self = shift;
return _gdImageTrueColor ( $self->{IMG_PTR}, @_ ); return _gdImageTrueColor ( $self->{IMG_PTR}, @_ );
} # End of gdImageTrueColor()... } # End of gdImageTrueColor()...
#line 2599 "GD.pm" #line 2688 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 ColorsTotal =head2 ColorsTotal
$image->ColorsTotal( ) $image->ColorsTotal( )
Alias for gdImageColorsTotal. Alias for gdImageColorsTotal.
=cut =cut
sub ColorsTotal sub ColorsTotal
{ {
skipping to change at line 2256 skipping to change at line 2338
$image->gdImageColorsTotal( ) $image->gdImageColorsTotal( )
=cut =cut
sub gdImageColorsTotal sub gdImageColorsTotal
{ {
my $self = shift; my $self = shift;
return _gdImageColorsTotal ( $self->{IMG_PTR}, @_ ); return _gdImageColorsTotal ( $self->{IMG_PTR}, @_ );
} # End of gdImageColorsTotal()... } # End of gdImageColorsTotal()...
#line 2631 "GD.pm" #line 2721 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 Red =head2 Red
$image->Red( $c ) $image->Red( $c )
Alias for gdImageRed. Alias for gdImageRed.
=cut =cut
sub Red sub Red
{ {
skipping to change at line 2283 skipping to change at line 2366
$image->gdImageRed( $c ) $image->gdImageRed( $c )
=cut =cut
sub gdImageRed sub gdImageRed
{ {
my $self = shift; my $self = shift;
return _gdImageRed ( $self->{IMG_PTR}, @_ ); return _gdImageRed ( $self->{IMG_PTR}, @_ );
} # End of gdImageRed()... } # End of gdImageRed()...
#line 2663 "GD.pm" #line 2754 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 Green =head2 Green
$image->Green( $c ) $image->Green( $c )
Alias for gdImageGreen. Alias for gdImageGreen.
=cut =cut
sub Green sub Green
{ {
skipping to change at line 2310 skipping to change at line 2394
$image->gdImageGreen( $c ) $image->gdImageGreen( $c )
=cut =cut
sub gdImageGreen sub gdImageGreen
{ {
my $self = shift; my $self = shift;
return _gdImageGreen ( $self->{IMG_PTR}, @_ ); return _gdImageGreen ( $self->{IMG_PTR}, @_ );
} # End of gdImageGreen()... } # End of gdImageGreen()...
#line 2695 "GD.pm" #line 2787 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 Blue =head2 Blue
$image->Blue( $c ) $image->Blue( $c )
Alias for gdImageBlue. Alias for gdImageBlue.
=cut =cut
sub Blue sub Blue
{ {
skipping to change at line 2337 skipping to change at line 2422
$image->gdImageBlue( $c ) $image->gdImageBlue( $c )
=cut =cut
sub gdImageBlue sub gdImageBlue
{ {
my $self = shift; my $self = shift;
return _gdImageBlue ( $self->{IMG_PTR}, @_ ); return _gdImageBlue ( $self->{IMG_PTR}, @_ );
} # End of gdImageBlue()... } # End of gdImageBlue()...
#line 2727 "GD.pm" #line 2820 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 Alpha =head2 Alpha
$image->Alpha( $c ) $image->Alpha( $c )
Alias for gdImageAlpha. Alias for gdImageAlpha.
=cut =cut
sub Alpha sub Alpha
{ {
skipping to change at line 2364 skipping to change at line 2450
$image->gdImageAlpha( $c ) $image->gdImageAlpha( $c )
=cut =cut
sub gdImageAlpha sub gdImageAlpha
{ {
my $self = shift; my $self = shift;
return _gdImageAlpha ( $self->{IMG_PTR}, @_ ); return _gdImageAlpha ( $self->{IMG_PTR}, @_ );
} # End of gdImageAlpha()... } # End of gdImageAlpha()...
#line 2759 "GD.pm" #line 2853 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 GetTransparent =head2 GetTransparent
$image->GetTransparent( ) $image->GetTransparent( )
Alias for gdImageGetTransparent. Alias for gdImageGetTransparent.
=cut =cut
sub GetTransparent sub GetTransparent
{ {
skipping to change at line 2391 skipping to change at line 2478
$image->gdImageGetTransparent( ) $image->gdImageGetTransparent( )
=cut =cut
sub gdImageGetTransparent sub gdImageGetTransparent
{ {
my $self = shift; my $self = shift;
return _gdImageGetTransparent ( $self->{IMG_PTR}, @_ ); return _gdImageGetTransparent ( $self->{IMG_PTR}, @_ );
} # End of gdImageGetTransparent()... } # End of gdImageGetTransparent()...
#line 2791 "GD.pm" #line 2886 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 GetInterlaced =head2 GetInterlaced
$image->GetInterlaced( ) $image->GetInterlaced( )
Alias for gdImageGetInterlaced. Alias for gdImageGetInterlaced.
=cut =cut
sub GetInterlaced sub GetInterlaced
{ {
skipping to change at line 2418 skipping to change at line 2506
$image->gdImageGetInterlaced( ) $image->gdImageGetInterlaced( )
=cut =cut
sub gdImageGetInterlaced sub gdImageGetInterlaced
{ {
my $self = shift; my $self = shift;
return _gdImageGetInterlaced ( $self->{IMG_PTR}, @_ ); return _gdImageGetInterlaced ( $self->{IMG_PTR}, @_ );
} # End of gdImageGetInterlaced()... } # End of gdImageGetInterlaced()...
#line 2823 "GD.pm" #line 2919 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 SX =head2 SX
$image->SX( ) $image->SX( )
Alias for gdImageSX. Alias for gdImageSX.
=cut =cut
sub SX sub SX
{ {
skipping to change at line 2445 skipping to change at line 2534
$image->gdImageSX( ) $image->gdImageSX( )
=cut =cut
sub gdImageSX sub gdImageSX
{ {
my $self = shift; my $self = shift;
return _gdImageSX ( $self->{IMG_PTR}, @_ ); return _gdImageSX ( $self->{IMG_PTR}, @_ );
} # End of gdImageSX()... } # End of gdImageSX()...
#line 2855 "GD.pm" #line 2952 "GD.pm"
#line 1959 "GD.pd"
#line 1960 "GD.pd"
=head2 SY =head2 SY
$image->SY( ) $image->SY( )
Alias for gdImageSY. Alias for gdImageSY.
=cut =cut
sub SY sub SY
{ {
skipping to change at line 2472 skipping to change at line 2562
$image->gdImageSY( ) $image->gdImageSY( )
=cut =cut
sub gdImageSY sub gdImageSY
{ {
my $self = shift; my $self = shift;
return _gdImageSY ( $self->{IMG_PTR}, @_ ); return _gdImageSY ( $self->{IMG_PTR}, @_ );
} # End of gdImageSY()... } # End of gdImageSY()...
#line 2887 "GD.pm" #line 2985 "GD.pm"
#line 2060 "GD.pd"
#line 2061 "GD.pd"
=head2 ColorAllocates =head2 ColorAllocates
$image->ColorAllocates( $r(pdl), $g(pdl), $b(pdl) ) $image->ColorAllocates( $r(pdl), $g(pdl), $b(pdl) )
Alias for gdImageColorAllocates. Alias for gdImageColorAllocates.
=cut =cut
sub ColorAllocates sub ColorAllocates
{ {
skipping to change at line 2499 skipping to change at line 2590
$image->gdImageColorAllocates( $r(pdl), $g(pdl), $b(pdl) ) $image->gdImageColorAllocates( $r(pdl), $g(pdl), $b(pdl) )
=cut =cut
sub gdImageColorAllocates sub gdImageColorAllocates
{ {
my $self = shift; my $self = shift;
return _gdImageColorAllocates ( @_, $self->{IMG_PTR} ); return _gdImageColorAllocates ( @_, $self->{IMG_PTR} );
} # End of gdImageColorAllocates()... } # End of gdImageColorAllocates()...
#line 2919 "GD.pm" #line 3018 "GD.pm"
#line 2060 "GD.pd"
#line 2061 "GD.pd"
=head2 ColorAllocateAlphas =head2 ColorAllocateAlphas
$image->ColorAllocateAlphas( $r(pdl), $g(pdl), $b(pdl), $a(pdl) ) $image->ColorAllocateAlphas( $r(pdl), $g(pdl), $b(pdl), $a(pdl) )
Alias for gdImageColorAllocateAlphas. Alias for gdImageColorAllocateAlphas.
=cut =cut
sub ColorAllocateAlphas sub ColorAllocateAlphas
{ {
skipping to change at line 2526 skipping to change at line 2618
$image->gdImageColorAllocateAlphas( $r(pdl), $g(pdl), $b(pdl), $a(pdl) ) $image->gdImageColorAllocateAlphas( $r(pdl), $g(pdl), $b(pdl), $a(pdl) )
=cut =cut
sub gdImageColorAllocateAlphas sub gdImageColorAllocateAlphas
{ {
my $self = shift; my $self = shift;
return _gdImageColorAllocateAlphas ( @_, $self->{IMG_PTR} ); return _gdImageColorAllocateAlphas ( @_, $self->{IMG_PTR} );
} # End of gdImageColorAllocateAlphas()... } # End of gdImageColorAllocateAlphas()...
#line 2951 "GD.pm" #line 3051 "GD.pm"
#line 2060 "GD.pd"
#line 2061 "GD.pd"
=head2 SetPixels =head2 SetPixels
$image->SetPixels( $x(pdl), $y(pdl), $color(pdl) ) $image->SetPixels( $x(pdl), $y(pdl), $color(pdl) )
Alias for gdImageSetPixels. Alias for gdImageSetPixels.
=cut =cut
sub SetPixels sub SetPixels
{ {
skipping to change at line 2553 skipping to change at line 2646
$image->gdImageSetPixels( $x(pdl), $y(pdl), $color(pdl) ) $image->gdImageSetPixels( $x(pdl), $y(pdl), $color(pdl) )
=cut =cut
sub gdImageSetPixels sub gdImageSetPixels
{ {
my $self = shift; my $self = shift;
return _gdImageSetPixels ( @_, $self->{IMG_PTR} ); return _gdImageSetPixels ( @_, $self->{IMG_PTR} );
} # End of gdImageSetPixels()... } # End of gdImageSetPixels()...
#line 2983 "GD.pm" #line 3084 "GD.pm"
#line 2060 "GD.pd"
#line 2061 "GD.pd"
=head2 Lines =head2 Lines
$image->Lines( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) ) $image->Lines( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) )
Alias for gdImageLines. Alias for gdImageLines.
=cut =cut
sub Lines sub Lines
{ {
skipping to change at line 2580 skipping to change at line 2674
$image->gdImageLines( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) ) $image->gdImageLines( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) )
=cut =cut
sub gdImageLines sub gdImageLines
{ {
my $self = shift; my $self = shift;
return _gdImageLines ( @_, $self->{IMG_PTR} ); return _gdImageLines ( @_, $self->{IMG_PTR} );
} # End of gdImageLines()... } # End of gdImageLines()...
#line 3015 "GD.pm" #line 3117 "GD.pm"
#line 2060 "GD.pd"
#line 2061 "GD.pd"
=head2 DashedLines =head2 DashedLines
$image->DashedLines( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) ) $image->DashedLines( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) )
Alias for gdImageDashedLines. Alias for gdImageDashedLines.
=cut =cut
sub DashedLines sub DashedLines
{ {
skipping to change at line 2607 skipping to change at line 2702
$image->gdImageDashedLines( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) ) $image->gdImageDashedLines( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) )
=cut =cut
sub gdImageDashedLines sub gdImageDashedLines
{ {
my $self = shift; my $self = shift;
return _gdImageDashedLines ( @_, $self->{IMG_PTR} ); return _gdImageDashedLines ( @_, $self->{IMG_PTR} );
} # End of gdImageDashedLines()... } # End of gdImageDashedLines()...
#line 3047 "GD.pm" #line 3150 "GD.pm"
#line 2060 "GD.pd"
#line 2061 "GD.pd"
=head2 Rectangles =head2 Rectangles
$image->Rectangles( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) ) $image->Rectangles( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) )
Alias for gdImageRectangles. Alias for gdImageRectangles.
=cut =cut
sub Rectangles sub Rectangles
{ {
skipping to change at line 2634 skipping to change at line 2730
$image->gdImageRectangles( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) ) $image->gdImageRectangles( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) )
=cut =cut
sub gdImageRectangles sub gdImageRectangles
{ {
my $self = shift; my $self = shift;
return _gdImageRectangles ( @_, $self->{IMG_PTR} ); return _gdImageRectangles ( @_, $self->{IMG_PTR} );
} # End of gdImageRectangles()... } # End of gdImageRectangles()...
#line 3079 "GD.pm" #line 3183 "GD.pm"
#line 2060 "GD.pd"
#line 2061 "GD.pd"
=head2 FilledRectangles =head2 FilledRectangles
$image->FilledRectangles( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) ) $image->FilledRectangles( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color(pdl) )
Alias for gdImageFilledRectangles. Alias for gdImageFilledRectangles.
=cut =cut
sub FilledRectangles sub FilledRectangles
{ {
skipping to change at line 2661 skipping to change at line 2758
$image->gdImageFilledRectangles( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color( pdl) ) $image->gdImageFilledRectangles( $x1(pdl), $y1(pdl), $x2(pdl), $y2(pdl), $color( pdl) )
=cut =cut
sub gdImageFilledRectangles sub gdImageFilledRectangles
{ {
my $self = shift; my $self = shift;
return _gdImageFilledRectangles ( @_, $self->{IMG_PTR} ); return _gdImageFilledRectangles ( @_, $self->{IMG_PTR} );
} # End of gdImageFilledRectangles()... } # End of gdImageFilledRectangles()...
#line 3111 "GD.pm" #line 3216 "GD.pm"
#line 2060 "GD.pd"
#line 2061 "GD.pd"
=head2 FilledArcs =head2 FilledArcs
$image->FilledArcs( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $s(pdl), $e(pdl), $col or(pdl), $style(pdl) ) $image->FilledArcs( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $s(pdl), $e(pdl), $col or(pdl), $style(pdl) )
Alias for gdImageFilledArcs. Alias for gdImageFilledArcs.
=cut =cut
sub FilledArcs sub FilledArcs
{ {
skipping to change at line 2688 skipping to change at line 2786
$image->gdImageFilledArcs( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $s(pdl), $e(pdl ), $color(pdl), $style(pdl) ) $image->gdImageFilledArcs( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $s(pdl), $e(pdl ), $color(pdl), $style(pdl) )
=cut =cut
sub gdImageFilledArcs sub gdImageFilledArcs
{ {
my $self = shift; my $self = shift;
return _gdImageFilledArcs ( @_, $self->{IMG_PTR} ); return _gdImageFilledArcs ( @_, $self->{IMG_PTR} );
} # End of gdImageFilledArcs()... } # End of gdImageFilledArcs()...
#line 3143 "GD.pm" #line 3249 "GD.pm"
#line 2060 "GD.pd"
#line 2061 "GD.pd"
=head2 Arcs =head2 Arcs
$image->Arcs( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $s(pdl), $e(pdl), $color(pdl ) ) $image->Arcs( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $s(pdl), $e(pdl), $color(pdl ) )
Alias for gdImageArcs. Alias for gdImageArcs.
=cut =cut
sub Arcs sub Arcs
{ {
skipping to change at line 2715 skipping to change at line 2814
$image->gdImageArcs( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $s(pdl), $e(pdl), $co lor(pdl) ) $image->gdImageArcs( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $s(pdl), $e(pdl), $co lor(pdl) )
=cut =cut
sub gdImageArcs sub gdImageArcs
{ {
my $self = shift; my $self = shift;
return _gdImageArcs ( @_, $self->{IMG_PTR} ); return _gdImageArcs ( @_, $self->{IMG_PTR} );
} # End of gdImageArcs()... } # End of gdImageArcs()...
#line 3175 "GD.pm" #line 3282 "GD.pm"
#line 2060 "GD.pd"
#line 2061 "GD.pd"
=head2 FilledEllipses =head2 FilledEllipses
$image->FilledEllipses( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $color(pdl) ) $image->FilledEllipses( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $color(pdl) )
Alias for gdImageFilledEllipses. Alias for gdImageFilledEllipses.
=cut =cut
sub FilledEllipses sub FilledEllipses
{ {
skipping to change at line 2742 skipping to change at line 2842
$image->gdImageFilledEllipses( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $color(pdl) ) $image->gdImageFilledEllipses( $cx(pdl), $cy(pdl), $w(pdl), $h(pdl), $color(pdl) )
=cut =cut
sub gdImageFilledEllipses sub gdImageFilledEllipses
{ {
my $self = shift; my $self = shift;
return _gdImageFilledEllipses ( @_, $self->{IMG_PTR} ); return _gdImageFilledEllipses ( @_, $self->{IMG_PTR} );
} # End of gdImageFilledEllipses()... } # End of gdImageFilledEllipses()...
#line 3207 "GD.pm" #line 3315 "GD.pm"
#line 2072 "GD.pd"
#line 2073 "GD.pd"
=head1 CLASS FUNCTIONS =head1 CLASS FUNCTIONS
=cut =cut
#line 3215 "GD.pm" #line 3324 "GD.pm"
#line 2142 "GD.pd"
#line 2143 "GD.pd"
=head2 gdImageCopy =head2 gdImageCopy
gdImageCopy ( $dst(PDL::IO::GD), $src(PDL::IO::GD), $dstX, $dstY, $srcX, $srcY, $w, $h ) gdImageCopy ( $dst(PDL::IO::GD), $src(PDL::IO::GD), $dstX, $dstY, $srcX, $srcY, $w, $h )
=cut =cut
sub gdImageCopy sub gdImageCopy
{ {
my $dst = shift; my $dst = shift;
my $src = shift; my $src = shift;
my $dstX = shift; my $dstX = shift;
my $dstY = shift; my $dstY = shift;
my $srcX = shift; my $srcX = shift;
my $srcY = shift; my $srcY = shift;
my $w = shift; my $w = shift;
my $h = shift; my $h = shift;
return _gdImageCopy ( $dst->{IMG_PTR}, $src->{IMG_PTR}, $dstX, $dstY, $srcX, $srcY, $w, $h ); return _gdImageCopy ( $dst->{IMG_PTR}, $src->{IMG_PTR}, $dstX, $dstY, $srcX, $srcY, $w, $h );
} # End of gdImageCopy()... } # End of gdImageCopy()...
#line 3240 "GD.pm" #line 3350 "GD.pm"
#line 2142 "GD.pd"
#line 2143 "GD.pd"
=head2 gdImageCopyMerge =head2 gdImageCopyMerge
gdImageCopyMerge ( $dst(PDL::IO::GD), $src(PDL::IO::GD), $dstX, $dstY, $srcX, $s rcY, $w, $h, $pct ) gdImageCopyMerge ( $dst(PDL::IO::GD), $src(PDL::IO::GD), $dstX, $dstY, $srcX, $s rcY, $w, $h, $pct )
=cut =cut
sub gdImageCopyMerge sub gdImageCopyMerge
{ {
my $dst = shift; my $dst = shift;
my $src = shift; my $src = shift;
my $dstX = shift; my $dstX = shift;
my $dstY = shift; my $dstY = shift;
my $srcX = shift; my $srcX = shift;
my $srcY = shift; my $srcY = shift;
my $w = shift; my $w = shift;
my $h = shift; my $h = shift;
my $pct = shift; my $pct = shift;
return _gdImageCopyMerge ( $dst->{IMG_PTR}, $src->{IMG_PTR}, $dstX, $dstY, $ srcX, $srcY, $w, $h, $pct ); return _gdImageCopyMerge ( $dst->{IMG_PTR}, $src->{IMG_PTR}, $dstX, $dstY, $ srcX, $srcY, $w, $h, $pct );
} # End of gdImageCopyMerge()... } # End of gdImageCopyMerge()...
#line 3266 "GD.pm" #line 3377 "GD.pm"
#line 2142 "GD.pd"
#line 2143 "GD.pd"
=head2 gdImageCopyMergeGray =head2 gdImageCopyMergeGray
gdImageCopyMergeGray ( $dst(PDL::IO::GD), $src(PDL::IO::GD), $dstX, $dstY, $srcX , $srcY, $w, $h, $pct ) gdImageCopyMergeGray ( $dst(PDL::IO::GD), $src(PDL::IO::GD), $dstX, $dstY, $srcX , $srcY, $w, $h, $pct )
=cut =cut
sub gdImageCopyMergeGray sub gdImageCopyMergeGray
{ {
my $dst = shift; my $dst = shift;
my $src = shift; my $src = shift;
my $dstX = shift; my $dstX = shift;
my $dstY = shift; my $dstY = shift;
my $srcX = shift; my $srcX = shift;
my $srcY = shift; my $srcY = shift;
my $w = shift; my $w = shift;
my $h = shift; my $h = shift;
my $pct = shift; my $pct = shift;
return _gdImageCopyMergeGray ( $dst->{IMG_PTR}, $src->{IMG_PTR}, $dstX, $dst Y, $srcX, $srcY, $w, $h, $pct ); return _gdImageCopyMergeGray ( $dst->{IMG_PTR}, $src->{IMG_PTR}, $dstX, $dst Y, $srcX, $srcY, $w, $h, $pct );
} # End of gdImageCopyMergeGray()... } # End of gdImageCopyMergeGray()...
#line 3292 "GD.pm" #line 3404 "GD.pm"
#line 2142 "GD.pd"
#line 2143 "GD.pd"
=head2 gdImageCopyResized =head2 gdImageCopyResized
gdImageCopyResized ( $dst(PDL::IO::GD), $src(PDL::IO::GD), $dstX, $dstY, $srcX, $srcY, $dstW, $dstH, $srcW, $srcH ) gdImageCopyResized ( $dst(PDL::IO::GD), $src(PDL::IO::GD), $dstX, $dstY, $srcX, $srcY, $dstW, $dstH, $srcW, $srcH )
=cut =cut
sub gdImageCopyResized sub gdImageCopyResized
{ {
my $dst = shift; my $dst = shift;
my $src = shift; my $src = shift;
skipping to change at line 2840 skipping to change at line 2945
my $dstY = shift; my $dstY = shift;
my $srcX = shift; my $srcX = shift;
my $srcY = shift; my $srcY = shift;
my $dstW = shift; my $dstW = shift;
my $dstH = shift; my $dstH = shift;
my $srcW = shift; my $srcW = shift;
my $srcH = shift; my $srcH = shift;
return _gdImageCopyResized ( $dst->{IMG_PTR}, $src->{IMG_PTR}, $dstX, $dstY, $srcX, $srcY, $dstW, $dstH, $srcW, $srcH ); return _gdImageCopyResized ( $dst->{IMG_PTR}, $src->{IMG_PTR}, $dstX, $dstY, $srcX, $srcY, $dstW, $dstH, $srcW, $srcH );
} # End of gdImageCopyResized()... } # End of gdImageCopyResized()...
#line 3319 "GD.pm" #line 3432 "GD.pm"
#line 2142 "GD.pd"
#line 2143 "GD.pd"
=head2 gdImageCopyResampled =head2 gdImageCopyResampled
gdImageCopyResampled ( $dst(PDL::IO::GD), $src(PDL::IO::GD), $dstX, $dstY, $srcX , $srcY, $dstW, $dstH, $srcW, $srcH ) gdImageCopyResampled ( $dst(PDL::IO::GD), $src(PDL::IO::GD), $dstX, $dstY, $srcX , $srcY, $dstW, $dstH, $srcW, $srcH )
=cut =cut
sub gdImageCopyResampled sub gdImageCopyResampled
{ {
my $dst = shift; my $dst = shift;
my $src = shift; my $src = shift;
skipping to change at line 2864 skipping to change at line 2970
my $dstY = shift; my $dstY = shift;
my $srcX = shift; my $srcX = shift;
my $srcY = shift; my $srcY = shift;
my $dstW = shift; my $dstW = shift;
my $dstH = shift; my $dstH = shift;
my $srcW = shift; my $srcW = shift;
my $srcH = shift; my $srcH = shift;
return _gdImageCopyResampled ( $dst->{IMG_PTR}, $src->{IMG_PTR}, $dstX, $dst Y, $srcX, $srcY, $dstW, $dstH, $srcW, $srcH ); return _gdImageCopyResampled ( $dst->{IMG_PTR}, $src->{IMG_PTR}, $dstX, $dst Y, $srcX, $srcY, $dstW, $dstH, $srcW, $srcH );
} # End of gdImageCopyResampled()... } # End of gdImageCopyResampled()...
#line 3346 "GD.pm" #line 3460 "GD.pm"
#line 2142 "GD.pd"
#line 2143 "GD.pd"
=head2 gdImageCompare =head2 gdImageCompare
gdImageCompare ( $im1(PDL::IO::GD), $im2(PDL::IO::GD) ) gdImageCompare ( $im1(PDL::IO::GD), $im2(PDL::IO::GD) )
=cut =cut
sub gdImageCompare sub gdImageCompare
{ {
my $im1 = shift; my $im1 = shift;
my $im2 = shift; my $im2 = shift;
return _gdImageCompare ( $im1->{IMG_PTR}, $im2->{IMG_PTR} ); return _gdImageCompare ( $im1->{IMG_PTR}, $im2->{IMG_PTR} );
} # End of gdImageCompare()... } # End of gdImageCompare()...
#line 3365 "GD.pm" #line 3480 "GD.pm"
#line 2142 "GD.pd"
#line 2143 "GD.pd"
=head2 gdImagePaletteCopy =head2 gdImagePaletteCopy
gdImagePaletteCopy ( $dst(PDL::IO::GD), $src(PDL::IO::GD) ) gdImagePaletteCopy ( $dst(PDL::IO::GD), $src(PDL::IO::GD) )
=cut =cut
sub gdImagePaletteCopy sub gdImagePaletteCopy
{ {
my $dst = shift; my $dst = shift;
my $src = shift; my $src = shift;
return _gdImagePaletteCopy ( $dst->{IMG_PTR}, $src->{IMG_PTR} ); return _gdImagePaletteCopy ( $dst->{IMG_PTR}, $src->{IMG_PTR} );
} # End of gdImagePaletteCopy()... } # End of gdImagePaletteCopy()...
#line 3384 "GD.pm" #line 3500 "GD.pm"
#line 1468 "GD.pd"
#line 1469 "GD.pd"
=head2 StringTTF =head2 StringTTF
$image->StringTTF( $brect, $fg, $fontlist, $ptsize, $angle, $x, $y, $string ) $image->StringTTF( $brect, $fg, $fontlist, $ptsize, $angle, $x, $y, $string )
Alias for gdImageStringTTF. Alias for gdImageStringTTF.
=cut =cut
sub StringTTF sub StringTTF
{ {
skipping to change at line 2923 skipping to change at line 3032
$image->gdImageStringTTF( $brect, $fg, $fontlist, $ptsize, $angle, $x, $y, $stri ng ) $image->gdImageStringTTF( $brect, $fg, $fontlist, $ptsize, $angle, $x, $y, $stri ng )
=cut =cut
sub gdImageStringTTF sub gdImageStringTTF
{ {
my $self = shift; my $self = shift;
return _gdImageStringTTF ( $self->{IMG_PTR}, @_ ); return _gdImageStringTTF ( $self->{IMG_PTR}, @_ );
} # End of gdImageStringTTF()... } # End of gdImageStringTTF()...
#line 3416 "GD.pm" #line 3533 "GD.pm"
#line 1521 "GD.pd"
#line 1522 "GD.pd"
=head2 StringFT =head2 StringFT
$image->StringFT( $brect, $fg, $fontlist, $ptsize, $angle, $x, $y, $string ) $image->StringFT( $brect, $fg, $fontlist, $ptsize, $angle, $x, $y, $string )
Alias for gdImageStringFT. Alias for gdImageStringFT.
=cut =cut
sub StringFT sub StringFT
{ {
skipping to change at line 2950 skipping to change at line 3060
$image->gdImageStringFT( $brect, $fg, $fontlist, $ptsize, $angle, $x, $y, $strin g ) $image->gdImageStringFT( $brect, $fg, $fontlist, $ptsize, $angle, $x, $y, $strin g )
=cut =cut
sub gdImageStringFT sub gdImageStringFT
{ {
my $self = shift; my $self = shift;
return _gdImageStringFT ( $self->{IMG_PTR}, @_ ); return _gdImageStringFT ( $self->{IMG_PTR}, @_ );
} # End of gdImageStringFT()... } # End of gdImageStringFT()...
#line 3448 "GD.pm" #line 3566 "GD.pm"
#line 1554 "GD.pd" #line 1553 "GD.pd"
=head1 AUTHOR =head1 AUTHOR
Judd Taylor, Orbital Systems, Ltd. Judd Taylor, Orbital Systems, Ltd.
judd dot t at orbitalsystems dot com judd dot t at orbitalsystems dot com
=cut =cut
#line 3460 "GD.pm" #line 3579 "GD.pm"
# Exit with OK status # Exit with OK status
1; 1;
 End of changes. 240 change blocks. 
241 lines changed or deleted 351 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)