Hello, All:
I've been playin' around with IM for a few weeks now and am a bit
confused. I've installed ImageMagick and PerlMagick from RPM
(ImageMagick-5.2.7-2) on my RedHat Linux 7.1 machine and I'm attempting to
read, modify, and save JPEG files but am having trouble with this series
of commands:
1. If I use the Set method to set the comment - i.e.,
$image->Set(comment => 'foo')
...no comment is set. Only $image->Comment('foo') works.
2. There doesn't seem to be any difference in file-size when calling...
$image->Set(compression => '30')
3. Is this a "good enough" approach to capturing any errors?
<<SNIP - summary at the end of this message>>
$im = $image->Read(filename => "$directory/$files[$x]->{'image'}");
($height, $width) = $image->Get('height', 'width');
$im .= $image->Resize(geometry => $height * $scale . 'x' . $width * $scale);
$im .= $image->Normalize() if $normal;
$im .= $image->Modulate(saturation => $saturation + 100) if $saturation;
$im .= $image->Set(compression => 'JPEG', quality => $quality) if $quality;
$im .= $image->Comment($copyright);
$im .= $image->Write(filename => "$directory/lg_images/$files[$x]->{'image'}");
warn "$im" if $im;
<</SNIP>>
--
Eric P.
Sunnyvale, CA
<<SUMMARY>>
1. Read in a jpg image,
2. Set the comment,
3. Resize the image, and
4. Optionally...
a. set the compression
b. increase the saturation
c. normalize the saturation
5. Write the image to a new file.
<</SUMMARY>>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
