[perlMagick]problema composite

[mlipreri]

Ciao, devo incollare un'immagine sopra ad un'altra, ho trovato questo script in giro

#!/usr/bin/perl
use Image::Magick;

  my $image1  = Image::Magick->new;
  my $image2 = Image::Magick->new;

  $image1->Set(size=>'420x300'); # finite size, speeds up read # original image
  $image2->Set(size=>'150x100'); # finite size, speeds up read # watermark

  $image1->Read("bg.jpg");
  $image2->Read("thm.jpg");
  $image1->Composite(image => $image2,
                                    compose=>"Over",
                                    gravity=>"Center");
  $image1->Write("01-NEW.jpg");

l'output che mi da è uguale bg.jpg...senza thm.jpg...qualche idea?
grazie

[shishii]

cioè non viene creata 01-NEW.jpg ?
o questa è uguale solo a bg.jpg?

ai provato anche:

$image2->Composite(image => $image1,
compose=>"Over",
gravity=>"Center");

[mlipreri]

Originariamente inviato da shishii
cioè non viene creata 01-NEW.jpg ?
o questa è uguale solo a bg.jpg?

è uguale a bg.jpg

ai provato anche:

$image2->Composite(image => $image1,
compose=>"Over",
gravity=>"Center");

così è uguale a thm.jpg

...ho provato anche ad usare il comando composite da solo:

composite -gravity center thm.jpg bg.jpg over.jpg

ma il risultato è uguale a prima(over.jpg=bg.jpg)
grazie