VPF::Perl+ImageMagick. Цвет пиксела от 0 до 1

Dziro

Дата 5.7.2010, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 20.3.2010

Репутация: нет
Всего: нет

Version: ImageMagick 6.3.6 03/13/08 Q16
Пытаюсь считать значение цвета пиксела jpg изображения.

Код


    my @color = $image->GetPixel(x => $offset, y => 5, channel => 'RGB', type => '16bit');
    print join(', ', @color);

Выдаёт тройки значений от 0 до 1, например:
0.482352941176471, 0.462745098039216, 0.47843137254902

Подскажите как это привести к шестнадцатиричному виду RRGGBB?

Jimy

Дата 5.7.2010, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 4.7.2010

Репутация: нет
Всего: 3

Код


print join('', map {sprintf("%X", $_ * 255)} @color);

Dziro

Дата 5.7.2010, 23:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 20.3.2010

Репутация: нет
Всего: нет

Помогло, спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »