Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: PerlMagick segfault

by Sihal (Pilgrim)
on Apr 07, 2003 at 09:39 UTC ( [id://248548]=note: print w/replies, xml ) Need Help??


in reply to PerlMagick segfault

Okay this is how I solved it, didn't manage to find the segfault reason though, just providing a quick way to do the job:
my $mime_data = shift ; my ($orig, $x); $orig = Image::Magick->new ; $orig->BlobToImage($mime_data) ; my ($w, $h, $size, $format) = $orig->Ping(blob => $mime_data); $w = 1+int(($w-1)/8); $w *= 8; # Creating bg for composite image my $bg = Image::Magick->new ; $bg->Set(size=>$w."x$h",monochrome =>"True",magick =>"png"); $bg->ReadImage('xc:white'); $bg->Composite(image=>$orig, gravity=>"Center"); my $blob = $bg->ImageToBlob() undef ($orig,$bg) ; my $final = Image::Magick->new ; $final->BlobToImage($blob) ; $final->Set(magick => "wbmp") ; $blob = $final->ImageToBlob() ; undef $final ; return $blob ;

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://248548]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (3)
As of 2025-02-08 22:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Which URL do you most often use to access this site?












    Results (95 votes). Check out past polls.