Подскажите, пожалуйста, как можно получить значение альфа канала для отдельного пикселя изображения?

http://www.perlmonks.org/?node_id=945617 ?

В тех примерах самый лучший результат :
Image dimensions: height = 348, width = 349
 shade = 238, 238, 238
 shade = 255, 255, 255
 shade = 255, 255, 255
 shade = 238, 238, 238
 shade = 238, 238, 238
 shade = 238, 238, 238
Image dimensions: height = 348, width = 349
 shade = 204, 204, 204
 shade = 170, 170, 170
 shade = 136, 136, 136
 shade = 187, 187, 187
 shade = 153, 153, 153
Он пишет "Не повезло.","Тем не менее не работает. Что мне не хватает?" и т.п. 
И альфа таки нету. Перевод был машинный, может я что не понял.

Это сообщение отредактировал(а) Сisa - 1.9.2014, 18:56

в смысле нет альфы?

Альфа в рисунке.
А значение альфы для отдельного пикселя как получить в переменную perl?

ачто у вас именно не получилось?
приведите код.

Для рисунка в первоначальном варианте альфа пишет значение 0.
В GIMPе пытаюсь добавить прозрачность в рисунок, чтобы считать не 0, и теперь dzsoft пишет "Cannot load Imager=HASH(0x348afc): not a BMP file at alfa.pl line 8"

Присоединённый файл ( Кол-во скачиваний: 1 )
 image.zip 579,49 Kb

может у вас с форматом проблемы?

# file /tmp/*.bmp
/tmp/14.bmp:  PC bitmap, Windows 3.x format, 591 x 789 x 16
/tmp/a14.bmp: data
#

Поищу готовые фото с прозрачностью, чтобы получить не 0.

arto, спасибо!
Для иконок прозрачность отлична от 0.
Например:
 shade = 62, 63, 72, 249
 shade = 32, 36, 45, 233

И было бы вообще класс если бы так же читались rgba не только форматы:
formats bmp, ico, pnm, raw, sgi, tga available for reading,
но и  format 'jpeg', 'png' а они not supported для Imager.

+ setpixel и новый рисунок, 
а как его сохранить?
явно не так:


Добавлено через 13 минут и 49 секунд

Ура! Есть.
Остался вопрос только с  jpg, png.

у меня imager показывает

# perl -MImager -le 'while(($a,$b)=each%Imager::formats){print"$a: $b"}'
ifs: 1
pnm: 1
bmp: 1
tga: 1
raw: 1
png: 1
tiff: 1
jpeg: 1
ft2: 1
#

а у вас?

Вы можете также попробовать другие библиотеки, они мощнее чем Imager

http://search.cpan.org/~lds/GD-2.53/GD.pm
http://www.graphicsmagick.org/perl.html

рекомендую GD

# perl -MImager -le 'while(($a,$b)=each%Imager::formats){print"$a: $b"}'

perl -MImager -le 'while(($a,$b)=each%Imager::formats){print"$a: $b"}'
не показывает ничего.

Такой код:

пишет :
try png
try gif
try jpeg
try tiff
try ppm
try ico
и ничего не сохраняет. хотя в нем и присутствует в списке тип файла иконка, так что сохраняю только $image->write(file => "foo.ico").
Значит $Imager::formats не работает, возможно версия другая какая то у меня. Придется пробовать другие библиотеки для jpg, png. Возможно GD.

Это сообщение отредактировал(а) Сisa - 3.9.2014, 23:05

что именно вы сохраняете?