如何在Perlmagick中正确使用Dissolve效果添加水印？

问题 #

用 ImageMagick 命令行能正常给图片加5%透明度的水印：

composite -dissolve 5% -gravity South watermark.png original.jpg new.jpg

但自己写的 PerlMagick 脚本只缩放了图片，水印完全没效果，脚本代码如下：

my $i = new Image::Magick;
my $watermark = $i->Read( "watermark.png" );
my $i2 = new Image::Magick;
my $p = $i->Read( "original.jpg" );
$i->Set( Gravity => 'Center' );
$i->Resize( geometry => "600x600" );
$i->Composite( image=>$watermark, compose=>"Dissolve", opacity=>5, gravity=>"South" );
$i->Write( 'jpg:temp_file' );

试了用 opacity 参数也不行，想知道 PerlMagick 里到底该怎么用 Dissolve 模式实现和命令行一样的半透明水印？

解决方法 #

你的脚本有两个关键问题，改完就能正常工作：

1. 图片读取逻辑错了 #

你用同一个 $i 对象先读水印再读原图，这会把对象里的水印图像覆盖掉，而且 $watermark 存的根本不是水印对象，是读取操作的返回状态。得给水印和原图各建一个独立的 Image::Magick 对象：

# 单独读水印
my $watermark = Image::Magick->new;
$watermark->Read("watermark.png");

# 单独读原图
my $img = Image::Magick->new;
$img->Read("original.jpg");

2. Dissolve 模式的参数用错了 #

PerlMagick 里用 Dissolve 合成模式时，不需要设 opacity，直接用 dissolve 参数传百分比数值就行（0到100的整数，不用加%）。另外之前设的 Gravity => 'Center' 会影响合成位置，合成时要明确指定 gravity => "South" 覆盖它。

修正后的完整脚本 #

use Image::Magick;

# 读取水印
my $watermark = Image::Magick->new;
$watermark->Read("watermark.png");

# 读取原图并缩放
my $img = Image::Magick->new;
$img->Read("original.jpg");
$img->Resize(geometry => "600x600");

# 添加5%透明度的水印
$img->Composite(
    image   => $watermark,
    compose => "Dissolve",
    dissolve=> 5,
    gravity => "South"
);

# 保存结果
$img->Write("jpg:temp_file");

额外补充 #

如果你的水印本身带透明通道，也可以用 Over 合成模式，通过给水印对象设置 Opacity 属性来调透明度（注意取值范围是0-65535，5%透明对应不透明度95%，也就是 65535 * 0.95 = 62258）：

$watermark->Set(Opacity => 62258);
$img->Composite(image => $watermark, compose => "Over", gravity => "South");

内容的提问来源于stack exchange，提问作者w.k