VPF::ImageMagic - Форум программистов

Error202

Дата 4.5.2012, 10:15 (ссылка)

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

Загрузка ...

Бывалый

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

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

Здравствуйте!

Из командной строки запускаю

Код


convert 111.jpg -background black -gravity south -splice 0x8 \
          \( +clone -sparse-color barycentric '0,0 black 1679,0 white' \) \
          \( +clone -function arcsin 0.5 \) \
          \( -clone 1 -level 25%,75% \
                 -function polynomial -4,4,0 -gamma 2 \
                 +level 50%,0 \) \
          -delete 1 -swap 0,1  miff:- |\
     composite - -virtual-pixel black  -displace 17x7  111.jpg

ImageMagic проводит все нужные мне операции...

А как его можно переписать в perl скрипт? ($im->...)

P.S. Есть пара мыслей, только что-то ничего не получается с Clone, level, function

Код


$im->Splice(geometry=>'0x8',gravity=>'south',background=>'black');
my @xypixels = ( 0,0, 0,0,0,  1040,0, 1,1,1 );    
$im->SparseColor(points=>\@xypixels, method=>'Barycentric');

Это сообщение отредактировал(а) Error202 - 4.5.2012, 11:25

infarch

Дата 4.5.2012, 11:24 (ссылка)

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

Загрузка ...

Опытный

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

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

А если из перла просто это выполнить как консольную команду?

Error202

Дата 4.5.2012, 11:30 (ссылка)

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

Загрузка ...

Бывалый

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

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

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

Код


print header(-type=>'image/png', -expires=>'now', -last_modified=>localtime()." GMT");
    binmode STDOUT;
    $im->Write('png:-');

infarch

Дата 4.5.2012, 13:57 (ссылка)

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

Загрузка ...

Опытный

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

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

Можно сохранить как файл в доступную папку и сделать на него редирект... или сохранить, а потом прочитать и передать в аутпут.

Pfailed

Дата 4.5.2012, 17:45 (ссылка)

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

Загрузка ...

Опытный

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

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

Документацию пробовали читать? Что конкретно не получается?

--------------------

I'm on CPAN
I'm on github

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