linux – 如何使用Perl中的Image :: Magic增加特定像素的RGB值？

我正在使用一个具有起始颜色(100,99,193)的小图像.

在我的程序的顶部,我将始终拥有此代码.

use strict;
use warnings;
use Data::Printer;
use Image::Magick;
my $p = new Image::Magick;
$p->Read('33141038.jpg');

my @pixel = $p->GetPixel(
    x         => 1,y         => 1,normalize => 1,);

我检查了the documentation at imagemagick.org..它在Image::Magick on CPAN链接.在那里我搜索了GetPixel.这产生两个有用的东西.一个是解释,另一个是an example,表示返回一个数组@pixel,而不是你尝试过的标量.

Here we reduce the intensity of the red component at (1,1) by half:

06001

好.让我们用它.我上面的代码中已经有了@pixel.请注意,我还打开了normalize选项.默认情况下,您可以将其保留为打开状态.

p @pixel;

# [
#     [0] 0.392156862745098,#     [1] 0.388235294117647,#     [2] 0.756862745098039
# ]

所以这些都是花车.经过一些谷歌搜索后,我找到了this answer,它处理类似的事情.它看起来像255的一小部分.让我们相乘.我们可以通过在postfix foreach中指定$_来修改@pixel中的内容.那很整齐.

$_ *= 255 foreach @pixel;
p @pixel;

# [
#     [0] 100,#     [1] 99,#     [2] 193
# ]

这就是我们想要的.很容易.我们各添加一个.

$_ = ( $_ * 255 ) + 1 foreach @pixel;
p @pixel;

# [
#     [0] 101,#     [1] 100,#     [2] 194
# ]

还好.但是我们如何重新开始呢？文档在Manipulate section中有关于SetPixel的说法.

color=>array of float values
[…]
set a single pixel. By default normalized pixel values are expected.

显然我们需要回到浮动状态.没问题.

$_ = ( ( $_ * 255 ) + 1 ) / 255 foreach  @pixel;
p @pixel;

# [
#     [0] 0.396078431372549,#     [1] 0.392156862745098,#     [2] 0.76078431372549
# ]

尼斯.我们当然也可以让数学更短一些.结果是一样的.

$_ = $_ + 1 / 255 foreach @pixel;

现在让我们把它写回图像.

$p->SetPixel(
    x => 1,y => 1,color => @pixel,# need the array ref here
);

$p->Write('my_new_file.jpg');

在屏幕截图中,我将其更改为添加20而不是1,因此更加明显.

清理后代码看起来像这样.

use strict;
use warnings;
use Data::Printer;
use Image::Magick;

my $p = new Image::Magick;
$p->Read('33141038.jpg');

my @pixel = $p->GetPixel(
    x => 1,);

# increase RGB by 1 each
$_ = $_ + 1 / 255 foerach @pixel;

$p->SetPixel(
    x     => 1,y     => 1,);

$p->Write('my_new_file.jpg');

我已经从GetPixel和SetPixel中删除了地图和通道参数,因为RGB是默认值.标准化相同.