Perl Image :: Magick Метод создания тени (не командной строки)

Question

Я нашел эту версию PHP, которая, кажется, является результатом, который мне нужен.

<?php 

try 
{ 

    /*** a new Imagick object ***/ 
    $im = new Imagick('images/spork.jpg'); 

    /*** set the image format to png ***/ 
    $im->setImageFormat('png'); 

    /*** an object for the drop shadow ***/ 
    $shadow = $im->clone(); 

    /*** an object for the drop shadow ***/ 
    $drop_shadow = $im->clone(); 

    /*** set shadow color to black ***/ 
    $drop_shadow->setImageBackgroundColor(new ImagickPixel('black')); 

    /*** Create the shadow ***/ 
    $drop_shadow->shadowImage(80, 3, 5, 5); 

    /*** stick them together ***/ 
    $drop_shadow->compositeImage($im, Imagick::COMPOSITE_OVER, 0, 0); 

    /*** write image to disk ***/ 
    $drop_shadow->writeImage('/tmp/dropshadow.png'); 

    echo 'Wrote Image'; 
} 
catch(Exception $e) 
{ 
    echo $e->getMessasge(); 
} 
?> 

(Пробовал отправлять изображения, не пускала.) Пример здесь: spork with drop shadow

Теперь я Достигнутые результаты мне нужно использовать это в Perl (с другим изображением):

#!/usr/bin/perl -w 
use strict; 
my imageurl='http://nonprofit.org/images/someimage.jpg'; 
my $contact='email@email.org'; 
system("montage $imageurl -geometry 476x356 -background '#F7F7F7' -quality 90 -fill '#ffffff' -shadow \ -stroke '#000C' -strokewidth 2 -gravity SouthWest -font Candice -pointsize 14 -annotate +2+1 '$contact' \ -stroke none -fill white -gravity SouthWest -font Candice -pointsize 14 -annotate +2+2 '$contact' \ -gravity center $new"); 

system("montage $new -geometry 480x360 -background '#F7F7F7' -quality 90 -fill '#F7F7F7' $new"); 

Который дает мне хорошее изображение с затененным размером (ed) с центром в квадрате 480x360/холст, которое соответствует страницам bgcolor f7f7f7.

Теперь я хочу сделать это без использования системного метода.

Итак, я попытался это:

 #!/usr/bin/perl -w 
     use Image::Resize; 
     use Image::Magick; 
     use strict; 
     my imageurl='http://nonprofit.org/images/someimage.jpg'; 
     my $contact='email@email.org'; 
     my $ibig = Image::Magick->new; 
     $ibig->Read("$imageurl"); 
     $ibig->Resize(geometry=>'476x356'); 
     $ibig->Montage(geometry=>'476x356', 
      background=>'#F7F7F7', 
      quality=>90,gravity=>'center', 
      shadow=>80x4+4+4); 
    #tried shadow=>'true' and '1' and many other variations. 
    $ibig->Annotate(text=>$contact, 
      x=>2,y=>1, 
      font=>'Candice', 
      pointsize=>14, 
      stroke=>'#000C', 
      strokewidth=>2, 
      gravity=>'SouthWest'); 

    $ibig->Annotate(text=>$contact, 
      x=>2,y=>2, 
      font=>'Candice', 
      pointsize=>14, 
      fill=>'#ffffff', 
      stroke=>'none', 
      gravity=>'SouthWest'); 

    $ibig->Montage(geometry=>'480x360', 
      background=>'#F7F7F7', 
      quality=>90, 
      fill=>'#F7F7F7'); 

$ibig->Write("$new"); 

Который не работает. Аннотат работает, но ни одна тень и изображение обычно не заканчиваются 479x360.

Системный метод работает безупречно, но я действительно хочу узнать, как это сделать с помощью моего примера Image :: Magick.

Я провел два дня, исследуя это и читая человека.

Когда я не могу понять это, я прихожу к stackoverflow и ВСЕГДА получаю решение!

Заранее спасибо.

(К сожалению о форматировании вопросов .. Я пытался очистить его.)

Answer 1

Montage() возвращает новое изображение. Try:

$ibig = $ibig->Montage(...) 

documentation прямо не упомянул об этом, к сожалению, но есть некоторые примеры на этой странице, которые показывают это.