Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re^2: Creating Tiff's from perl

by JediWizard (Deacon)
on Jul 11, 2005 at 15:44 UTC ( #473981=note: print w/replies, xml ) Need Help??

in reply to Re: Creating Tiff's from perl
in thread Creating Tiff's from perl

Thank you for you advice. This code does come closer to what I want, but not quite there yet. Even with a one bit input image, with Group4 fax compression, the outputed image becomes 8 bit, without compression.

They say that time changes things, but you actually have to change them yourself.

—Andy Warhol

Replies are listed 'Best First'.
Re^3: Creating Tiff's from perl
by mpeters (Chaplain) on Jul 11, 2005 at 16:32 UTC
    I'm sorry, I forgot to show how to write out the image, silly me!
    $img->write( { file => $tmp->filename, type => 'tiff', class => 'fax', } );
    And then in order to get the Group4 compression I did resort to ImageMagick's convert util.
    system("convert -page Letter -compress Group4 $filename $filename") +;
    The last part I'm still not completely happy with, but since this is a batch process I didn't have to worry so much about having the extra system call.

    -- More people are killed every year by pigs than by sharks, which shows you how good we are at evaluating risk. -- Bruce Schneier

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2018-12-13 22:31 GMT
Find Nodes?
    Voting Booth?
    How many stories does it take before you've heard them all?

    Results (62 votes). Check out past polls.