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

Re:

Gif image corrupted?

by zentara (Archbishop)
on Nov 24, 2012 at 11:33 UTC ( #1005365=note: print w/replies, xml ) Need Help??


in reply to Gif image corrupted

I don't have the GD gif that you start with, but my guess from looking at the code, is that you are giving the wrong dimensional information in your $photo_file1 options. This is consistent with your Chatterbox description that if you resize the image, the distortion is less. Use the following code to get the real height and width of your GD produced gif.
#!/usr/bin/perl use warnings; use strict; use GD; my $image = GD::Image->newFromJpeg("frontpage.jpg"); my ($width,$height) = $image->getBounds(); print "width->$width\nheight->$height\n"; exit;
P.S. Also, please put a problem description in your original question, so others who didn't see the Chatterbox stuff, will know what your problem is.

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1005365]
help
Chatterbox?
[Corion]: Meh. My bank removed (part of) their CSV download facilities. Now I will either have to implement a full scraper or automate the download using the HBCI interface instead (or just get a new account elsewhere...)

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (8)
As of 2017-10-23 08:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (277 votes). Check out past polls.

    Notices?