PERL Beginners - push the same image multiple times in a PerlMagick object

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

push the same image multiple times in a PerlMagick object

guba@vi-anec.de

2006-11-24, 3:56 am

Hello,

I am trying to push more than two images in an PerlMagick
object to append them. The example shows the special case
where I try to push an image multiple times in an object
but this does not work: only two or three tiles were pushed
depending on the setting of $pattern_columns_nr. How can
this be resolved? Thank you for your help.

Guenter.

use Image::Magick;
use diagnostics;
my $tile = new Image::Magick;

my $pattern_columns_nr = 5;

my $tile->Read('image.jpg');
my $q = $tile->Clone();
for (my $k = 1; $k <= $pattern_columns_nr; $k++) {push(@$q, $tile)};
my $Pattern_row = $q->Append(stack=>'false');

Sponsored Links