Forum Webscript.Ru

Программирование => Perl => Тема начата: DartSidius от 20 Мая 2007, 07:35:34

Название: Image::Magick , CROP & Gif
Отправлено: DartSidius от 20 Мая 2007, 07:35:34

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

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

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

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 самом

Название: Image::Magick , CROP & Gif
Отправлено: Phoinix от 25 Мая 2007, 12:14:14

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

Название: Image::Magick , CROP & Gif
Отправлено: DartSidius от 25 Мая 2007, 15:50:55

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

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

Название: Image::Magick , CROP & Gif
Отправлено: Phoinix от 25 Мая 2007, 17:24:35

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

Название: Image::Magick , CROP & Gif
Отправлено: DartSidius от 25 Мая 2007, 17:39:18

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