Tried that too. What seems to be happening is that I'm losing colors, and
that the image is getting inverted, ie I have to call the $image->Negate()
function to make it look better.
I called the $image->Get->('colors') method just to see what is going on:
colors: 213954 <- original image
colors: 6866 <- after Set(colorspace=>'CMYK')
colors: 255 <- after Quantize()
Still looks awful.
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: "Joel Gwynn" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Friday, September 14, 2001 2:11 PM
Subject: Re: [Boston.pm] perlmagick rgb to cmyk
> * Joel Gwynn <[EMAIL PROTECTED]> [01-09-14 12:57]:
> > Anyone here done any conversion of rgb files to cmyk color tiffs?
> > I'm using PerlMagick (also tried the 'convert' utility), and i'm
> > getting crap.
> >
> > I'm just using the $image->Set(colorspace=>'CMYK') method.
> > Is there a step I'm missing? If you're interested, you can see
> > what I'm getting at: http://192.9.211.118/sothprint/imagetest/
>
> Did you Quantize? Here's a quick script that converts GIF -> TIFF:
>
> #!/usr/bin/perl --
>
> use strict;
> use Image::Magick;
>
> my $img = Image::Magick->new;
> $img->Read('jobs_asp.gif');
> $img->Set(colorspace => 'CMYK');
> $img->Quantize;
> $img->Write('jobs_asp.tiff');
>
> --
> ----------------
> Joe Johnston - http://aliensaliensaliens.com
> "Only presidents, editors and people with tapeworms
> ought to have the right to use *we*." -Mark Twain
>
