[email protected] wrote:
>> Clone() wants to generate a new image object
> 
>   my $images=Image::Magick->new();
>   my $image=Image::Magick->new();
>   $image->Read( $inf ); 
>   push(@$images,$image->Clone());
>   push(@$images,$image->Clone());
>   push(@$images,$image->Clone());
>   push(@$images,$image->Clone());
>   my $montage = $images->Montage( tile=>"2x2", ... );
>   $montage->Write( $outf );
> 
> Clone() only clones the image properties, not the image pixels so its a
> light-weight process.

Ah, that did it.  Here's my final loop:

   push @$image, $image->[$i++]->Clone() while $n++ < $w*$h;

If I had cloned the whole thing, another response suggested I'd end up 
with binary growth--makes sense to me...

-- 
David N. Lombard
_______________________________________________
Magick-users mailing list
[email protected]
http://studio.imagemagick.org/mailman/listinfo/magick-users

Reply via email to