Convert Gnome2::Canvas::Pixbuf to Image::Magick Array

[renegadex]

Description:

This simple code will convert a Gnome2::Canvas::Pixbuf into a Image::Magick Array. Enjoy Perlmagick Programmers!

#Convert Gnome2::Canvas::Pixbuf To Image::Magick Array
sub convert_gnome2pixbuf_im {
    my $pixbuf_g = shift;
    print $pixbuf_g , "\n";
    #Convert Gnome2::Canvas::Pixbuf To Gtk2::Gdk::Pixbuf
    my $pixbuf = $pixbuf_g->get('pixbuf');
    print $pixbuf , "\n";
    #Convert Gtk2::Gdk::Pixbuf To BLOb
    my $blob = $pixbuf->save_to_buffer('jpeg');
    my $im = Image::Magick->new;
    #Convert BLOb to Image::Magick Array
    $im->BlobToImage($blob);
    return $im
}