Здравствуйте!
Из командной строки запускаю
| Код |
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');
|
|