Программирование > Perl

Image::Magick , CROP & Gif

(1/1)

DartSidius:
Сталкнулся с такой проблемой

Обрезаю картинки с помощью сабжа

функция примерно такая

use Image::Magick;

my ($image,$x,$y) = @_;

$img = Image::Magick->new; #новый проект
$img->Read("$image"); #открываем файл

my $crop_start_x=int(($x-$Settings::THUMBIMAGESIZE_CROP_X)/2);
my $crop_start_y=int(($y-$Settings::THUMBIMAGESIZE_CROP_Y)/2);
$img->Crop(x=>$crop_start_x, y=>$crop_start_y, width=>$Settings::THUMBIMAGESIZE_CROP_X, height=>$Settings::THUMBIMAGESIZE_CROP_Y);

$img->Write("$image");

с JPG всё ок работает...т.е. например картинка 200x200 надо вырезать квадрат 100x100 - всё ок

а вот с гифами - какой то глюк...вырезается кусок но картинка всё же остаётся 200x200 а вырезанный кусок 100x100 вставляется в центр

на локальной машине всё ок работает...а такое наблюдается на хосте

никто не сталкивался с таким?...другой хост пока нет возможности проверить...может просто какие то ошибки в модуле IMage::magick самом

Phoinix:
DartSidius
Версию модуля на хосте проверь, наверняка 5.7.x

DartSidius:
А как её там проверить можно?

Это типа глюк такой :) ?

Phoinix:
DartSidius
Нет, более ранние версии не совсем корректно делали процедуру обрезки изображений GIF 24bit

DartSidius:
да...попробую узнать...хорошо что просветил :)

Навигация

[0] Главная страница сообщений