Как нормализовать цвета и контрастность изображения через Image::Magic |
[исправить] |
use Image::Magick;
my $image = Image::Magick->new; #новый проект
my $x = $image->Read("photo.jpg"); #открываем файл
$image->Contrast(); #Контрастность
$image->Normalize(); #Нормализуем цвета
$x = $image->Write("photo.jpg"); #Сохраняем изображение.
|
|
|
|
Раздел: Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Обработка изображений на Perl |