如何使用 PerlMagick "feather" 图像的边缘

Question

我有一张图片 (JPEG)，我想将其无缝叠加到另一张图片上。如果我试图在 Photoshop 中执行此操作，我会羽化边缘。但是我无法弄清楚如何使用 PerlMagick api 来实现这一点。我曾尝试使用 Vignette 来创建模糊边框，但这并不像我希望的那样有效。

use Image::Magick;

$file = 'background.jpg';
$image = Image::Magick->new;
open(IMAGE, $file ) or die "Error cannot open file: $file"; 
$image->Read(file=>\*IMAGE);
close(IMAGE);

$file = 'face.jpg';
$face = Image::Magick->new;
open(IMAGE, $file ) or die "Error cannot open file: $file"; 
$face->Read(file=>\*IMAGE);
close(IMAGE);

$face->Vignette (geometry=>'5x5', radius=>50, x=>5, y=>5, background=>none);

$image->Composite(image=>$face,compose=>'hardlight',geometry=>'+480+800');

print "Content-type: image/jpeg\n\n";
binmode STDOUT;
$image->Write('jpg:-');

Answer 1

硬边是由x=>5，y=>5参数引起的。删除这些和半径值，图像将根据需要合并。强光与晕影过程相结合，创建了两个图像混合的区域。所以代码应该是：

use Image::Magick;

$file = 'background.jpg';
$image = Image::Magick->new;
open(IMAGE, $file ) or die "Error cannot open file: $file"; 
$image->Read(file=>\*IMAGE);
close(IMAGE);

$file = 'face.jpg';
$face = Image::Magick->new;
open(IMAGE, $file ) or die "Error cannot open file: $file"; 
$face->Read(file=>\*IMAGE);
close(IMAGE);

$face->Vignette (geometry=>'5x5', background=>none);

$image->Composite(image=>$face,compose=>'hardlight',geometry=>'+480+800');

print "Content-type: image/jpeg\n\n";
binmode STDOUT;
$image->Write('jpg:-');

如何使用 PerlMagick "feather" 图像的边缘

How to "feather" the edges on image with PerlMagick

perl

jpeg

imagemagick

perlmagick