"Fossies" - the Fresh Open Source Software Archive  

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

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

[ To the main PDL source changes report ]

GD.pm  (PDL-2.082):GD.pm  (PDL-2.083)
skipping to change at line 62 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 70 "GD.pm" #line 71 "GD.pm"
=head1 FUNCTIONS =head1 FUNCTIONS
=cut =cut
#line 958 "/home/osboxes/pdl-code/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 107 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*write_png = \&PDL::write_png; *write_png = \&PDL::write_png;
#line 114 "GD.pm"
#line 958 "/home/osboxes/pdl-code/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 138 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*write_png_ex = \&PDL::write_png_ex; *write_png_ex = \&PDL::write_png_ex;
#line 145 "GD.pm"
#line 958 "/home/osboxes/pdl-code/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 171 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*write_true_png = \&PDL::write_true_png; *write_true_png = \&PDL::write_true_png;
#line 178 "GD.pm"
#line 958 "/home/osboxes/pdl-code/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 202 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*write_true_png_ex = \&PDL::write_true_png_ex; *write_true_png_ex = \&PDL::write_true_png_ex;
#line 209 "GD.pm"
#line 315 "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 )
skipping to change at line 201 skipping to change at line 177
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 252 "GD.pm"
#line 361 "GD.pd"
#line 257 "GD.pm"
#line 389 "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);
} # end of load_lut()... } # end of load_lut()...
skipping to change at line 258 skipping to change at line 229
# 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 318 "GD.pm" #line 274 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_read_true_png = \&PDL::_read_true_png; *_read_true_png = \&PDL::_read_true_png;
#line 325 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_read_png = \&PDL::_read_png; *_read_png = \&PDL::_read_png;
#line 332 "GD.pm"
#line 960 "/home/osboxes/pdl-code/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 339 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_gd_image_to_pdl = \&PDL::_gd_image_to_pdl; *_gd_image_to_pdl = \&PDL::_gd_image_to_pdl;
#line 346 "GD.pm"
#line 960 "/home/osboxes/pdl-code/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 353 "GD.pm"
#line 960 "/home/osboxes/pdl-code/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 360 "GD.pm"
#line 717 "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 381 "GD.pm" #line 322 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_read_png_lut = \&PDL::_read_png_lut; *_read_png_lut = \&PDL::_read_png_lut;
#line 388 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_gdImageColorAllocates = \&PDL::_gdImageColorAllocates; *_gdImageColorAllocates = \&PDL::_gdImageColorAllocates;
#line 395 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_gdImageColorAllocateAlphas = \&PDL::_gdImageColorAllocateAlphas; *_gdImageColorAllocateAlphas = \&PDL::_gdImageColorAllocateAlphas;
#line 402 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_gdImageSetPixels = \&PDL::_gdImageSetPixels; *_gdImageSetPixels = \&PDL::_gdImageSetPixels;
#line 409 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_gdImageLines = \&PDL::_gdImageLines; *_gdImageLines = \&PDL::_gdImageLines;
#line 416 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_gdImageDashedLines = \&PDL::_gdImageDashedLines; *_gdImageDashedLines = \&PDL::_gdImageDashedLines;
#line 423 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_gdImageRectangles = \&PDL::_gdImageRectangles; *_gdImageRectangles = \&PDL::_gdImageRectangles;
#line 430 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_gdImageFilledRectangles = \&PDL::_gdImageFilledRectangles; *_gdImageFilledRectangles = \&PDL::_gdImageFilledRectangles;
#line 437 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_gdImageFilledArcs = \&PDL::_gdImageFilledArcs; *_gdImageFilledArcs = \&PDL::_gdImageFilledArcs;
#line 444 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_gdImageArcs = \&PDL::_gdImageArcs; *_gdImageArcs = \&PDL::_gdImageArcs;
#line 451 "GD.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_gdImageFilledEllipses = \&PDL::_gdImageFilledEllipses; *_gdImageFilledEllipses = \&PDL::_gdImageFilledEllipses;
#line 458 "GD.pm"
#line 804 "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:
skipping to change at line 827 skipping to change at line 747
} }
} # 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 936 "GD.pm"
#line 1747 "GD.pd" #line 1747 "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 954 "GD.pm"
#line 1747 "GD.pd" #line 1747 "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 972 "GD.pm"
#line 1747 "GD.pd" #line 1747 "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 990 "GD.pm"
#line 1747 "GD.pd" #line 1747 "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 1008 "GD.pm"
#line 1747 "GD.pd" #line 1747 "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 1026 "GD.pm"
#line 1747 "GD.pd" #line 1747 "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 1044 "GD.pm"
#line 1747 "GD.pd" #line 1747 "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 1062 "GD.pm"
#line 1859 "GD.pd" #line 1859 "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 1080 "GD.pm"
#line 1859 "GD.pd" #line 1859 "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 1098 "GD.pm"
#line 1859 "GD.pd" #line 1859 "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 1116 "GD.pm"
#line 1859 "GD.pd" #line 1859 "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 1134 "GD.pm"
#line 1859 "GD.pd" #line 1859 "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 1152 "GD.pm"
#line 1859 "GD.pd" #line 1859 "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 1170 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1050 skipping to change at line 942
$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 1203 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1078 skipping to change at line 968
$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 1236 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1106 skipping to change at line 994
$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 1269 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1134 skipping to change at line 1020
$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 1302 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1162 skipping to change at line 1046
$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 1335 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1190 skipping to change at line 1072
$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 1368 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1218 skipping to change at line 1098
$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 1401 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1246 skipping to change at line 1124
$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 1434 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1274 skipping to change at line 1150
$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 1467 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1302 skipping to change at line 1176
$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 1500 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1330 skipping to change at line 1202
$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 1533 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1358 skipping to change at line 1228
$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 1566 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1386 skipping to change at line 1254
$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 1599 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1414 skipping to change at line 1280
$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 1632 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1442 skipping to change at line 1306
$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 1665 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1470 skipping to change at line 1332
$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 1698 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1498 skipping to change at line 1358
$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 1731 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1526 skipping to change at line 1384
$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 1764 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1554 skipping to change at line 1410
$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 1797 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1582 skipping to change at line 1436
$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 1830 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1610 skipping to change at line 1462
$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 1863 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1638 skipping to change at line 1488
$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 1896 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1666 skipping to change at line 1514
$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 1929 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1694 skipping to change at line 1540
$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 1962 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1722 skipping to change at line 1566
$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 1995 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1750 skipping to change at line 1592
$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 2028 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1778 skipping to change at line 1618
$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 2061 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1806 skipping to change at line 1644
$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 2094 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1834 skipping to change at line 1670
$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 2127 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1862 skipping to change at line 1696
$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 2160 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1890 skipping to change at line 1722
$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 2193 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1918 skipping to change at line 1748
$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 2226 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1946 skipping to change at line 1774
$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 2259 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 1974 skipping to change at line 1800
$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 2292 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2002 skipping to change at line 1826
$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 2325 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2030 skipping to change at line 1852
$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 2358 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2058 skipping to change at line 1878
$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 2391 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2086 skipping to change at line 1904
$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 2424 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2114 skipping to change at line 1930
$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 2457 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2142 skipping to change at line 1956
$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 2490 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2170 skipping to change at line 1982
$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 2523 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2198 skipping to change at line 2008
$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 2556 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2226 skipping to change at line 2034
$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 2589 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2254 skipping to change at line 2060
$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 2622 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2282 skipping to change at line 2086
$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 2655 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2310 skipping to change at line 2112
$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 2688 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2338 skipping to change at line 2138
$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 2721 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2366 skipping to change at line 2164
$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 2754 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2394 skipping to change at line 2190
$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 2787 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2422 skipping to change at line 2216
$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 2820 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2450 skipping to change at line 2242
$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 2853 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2478 skipping to change at line 2268
$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 2886 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2506 skipping to change at line 2294
$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 2919 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2534 skipping to change at line 2320
$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 2952 "GD.pm"
#line 1959 "GD.pd" #line 1959 "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 2562 skipping to change at line 2346
$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 2985 "GD.pm"
#line 2060 "GD.pd" #line 2060 "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 2590 skipping to change at line 2372
$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 3018 "GD.pm"
#line 2060 "GD.pd" #line 2060 "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 2618 skipping to change at line 2398
$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 3051 "GD.pm"
#line 2060 "GD.pd" #line 2060 "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 2646 skipping to change at line 2424
$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 3084 "GD.pm"
#line 2060 "GD.pd" #line 2060 "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 2674 skipping to change at line 2450
$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 3117 "GD.pm"
#line 2060 "GD.pd" #line 2060 "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 2702 skipping to change at line 2476
$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 3150 "GD.pm"
#line 2060 "GD.pd" #line 2060 "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 2730 skipping to change at line 2502
$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 3183 "GD.pm"
#line 2060 "GD.pd" #line 2060 "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 2758 skipping to change at line 2528
$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 3216 "GD.pm"
#line 2060 "GD.pd" #line 2060 "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 2786 skipping to change at line 2554
$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 3249 "GD.pm"
#line 2060 "GD.pd" #line 2060 "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 2814 skipping to change at line 2580
$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 3282 "GD.pm"
#line 2060 "GD.pd" #line 2060 "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 2842 skipping to change at line 2606
$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 3315 "GD.pm"
#line 2072 "GD.pd" #line 2072 "GD.pd"
=head1 CLASS FUNCTIONS =head1 CLASS FUNCTIONS
=cut =cut
#line 3324 "GD.pm"
#line 2142 "GD.pd" #line 2142 "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 3350 "GD.pm"
#line 2142 "GD.pd" #line 2142 "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 3377 "GD.pm"
#line 2142 "GD.pd" #line 2142 "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 3404 "GD.pm"
#line 2142 "GD.pd" #line 2142 "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 2945 skipping to change at line 2699
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 3432 "GD.pm"
#line 2142 "GD.pd" #line 2142 "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 2970 skipping to change at line 2722
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 3460 "GD.pm"
#line 2142 "GD.pd" #line 2142 "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 3480 "GD.pm"
#line 2142 "GD.pd" #line 2142 "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 3500 "GD.pm"
#line 1468 "GD.pd" #line 1468 "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 3032 skipping to change at line 2778
$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 3533 "GD.pm"
#line 1521 "GD.pd" #line 1521 "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 3060 skipping to change at line 2804
$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 3566 "GD.pm"
#line 1553 "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 3579 "GD.pm" #line 2913 "GD.pm"
# Exit with OK status # Exit with OK status
1; 1;
 End of changes. 210 change blocks. 
262 lines changed or deleted 4 lines changed or added
To the Perl Modules section of the PDL source changes report or the top of this page
Mainly generated by pkgdiff using rfcdiff
Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)