convert command -> PerlMagick

[ggking7]

Try as I might, I can't come up with the PerlMagick equivalent of this command:

convert image.jpg -alpha set -virtual-pixel transparent -channel A -blur 0x10 -level 50%,100% +channel -background white -flatten -quantize RGB -quality 85 converted-image.jpg

Can anyone show me how to do this in PerlMagick?

[anthony]

What operation are you having problems with?

note -flatten is a shall API shortcut for -layers flatten

[ggking7]

Should this:

$image->Set(alpha=>'Set');
$image->Set('virtual-pixel'=>'Transparent');
$image->Blur(geometry=>'0x10',channel=>'A');
$image->Level(levels=>'50%,100%',channel=>'A');

be the equivalent of this:

convert image.jpg -alpha set -virtual-pixel transparent -channel A -blur 0x10 -level 50%,100% +channel -background white -flatten converted-image.jpg

[anthony]

For the first part of the CLI line, yes I believe so. At least it seems right.

[ggking7]

Can you tell me how this is done in PerlMagick or point me in the right direction?

+channel -background white -flatten

[jta2012]

The PerlMagick "-flatten" is a little different:

Code: Select all

$image = Image::Magick::Flatten( $image );

[ggking7]

Thank you, can you translate this into PerlMagick:

+channel -background white