我有一个图像 (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:-');