push the same image multiple times in a PerlMagick object



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');

.



Relevant Pages

  • Re: dvtk examples for retreiving raw dicom images
    ... retrieve images directly from the 850, you have to push them out (send ... cheaper alternative might be to set up a DICOM Storage SCP on another ...
    (comp.protocols.dicom)
  • Its well screwed!
    ... push the system to breaking point when testing new stuff (images on ... log-out with a view to log-in?) ...
    (uk.people.consumers.ebay)
  • Re: KM Off Topic Request for a Link
    ... > deployment tool to push down new images to target devices for field agents. ...
    (microsoft.public.windowsxp.embedded)
  • Re: Looking for fax software...
    ... This software will not only push the images into your subdirectory ... > I am having a devil of a time trying to find some software that will ... > Can anyone recommend anything? ...
    (microsoft.public.win2000.fax)
  • Appending Video to existing file
    ... test app whereby I can pass it a series of bitmaps and have it create ... For example, create a wmv file, add a series of ... images, close the file, re-open it, and append more images into the ...
    (microsoft.public.windowsmedia.sdk)