Forum Webscript.Ru

Программирование => Perl => Тема начата: APL от 25 Декабря 2007, 13:57:24

Название: Помогите с ImageMagic
Отправлено: APL от 25 Декабря 2007, 13:57:24

Локально работает, но у прова на хостинге картинка поверх накладывается без прозрачности, хотя она правильный gif. Помогите выяснить что не так...

my $image = new Image::Magick();
my $x = $image->Read("$variables::fpath_document".\'/images/protect2/fon.png\');
my ($width, $height) = $image->Get(\'width\', \'height\');
warn "\\n\\n$x" if "$x";

my $fn = "$variables::fpath_document"."/images/protect2/31.png";
$fn =~ s/\\/{2,}/\\//g;

my $image_mark = new Image::Magick();
$x = $image_mark->Read("$fn");
$image->Composite( \'image\'=>$image_mark,  \'x\'=>"0", \'y\'=>"0",  \'\'=>\'\' );

print "Content-type: image\\/png\\n\\n";                    
binmode STDOUT;
$x = $image->Write("png:-");
exit;

Название: Помогите с ImageMagic
Отправлено: APL от 25 Декабря 2007, 13:58:25

Тьфу, ошибся тут в примере не gif, конечно, но и если на гифы меня. тоже не фурычит :(

Название: Помогите с ImageMagic
Отправлено: commander от 25 Декабря 2007, 21:09:37

APL
пользуй Imager.

Image::Magic - кривой...