The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Gimp::PDL - Overwrite Tile/Region functions to work with piddles.

SYNOPSIS

  use Gimp;
  use Gimp::PDL;        # must be use'd _after_ Gimp!
  use PDL;

DESCRIPTION

This module overwrites all methods of Gimp::Tile and Gimp::PixelRgn. The new functions return and accept piddles instead of strings for pixel values. The last argument (height) of gimp_pixel_rgn_set_rect is calculated from the piddle.

Some exmaples:

 $region = $drawable->pixel_rgn (0,0, 100,100, 1,0);
 $pixel = $region->get_pixel (5,7);     # fetches the pixel from (5|7)
 print $pixel;
 -> [255, 127, 0]                       # RGB format ;)
 $region->set_pixel ($pixel * 0.5, 5, 7);# darken the pixel
 $rect = $region->get_rect (3,3,70,20); # get a horizontal stripe
 $rect = $rect->hclip(255/5)*5;         # clip and multiply by 5
 $region->set_rect($rect);              # and draw it!
 undef $region;                         # and update it!

AUTHOR

Marc Lehmann <pcg@goof.com>

SEE ALSO

perl(1), Gimp(1),