Taylor James wrote:
>
> Another good idea, which I shall try tonight along with the others,
> or this afternoon if I can get Image::Magick installed on my work PC.
> That's another story!
>
Done that, and revised the code as discussed earlier and it still seems to
be hangign at the same point (just after "Montaging...\n";) despite now
trying to montage a 3x3 square. Any ideas welcomed.
Revised code (now on Win32):
#####################################################
#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;
my @images;
my $input_file = 'H:\amalgam.txt';
my $output_file = 'H:\test.gif';
my $image_dir = 'E:\tiles\\';
my $result;
open IN, "<$input_file" or die "Couldn't read $input_file: $!\n";
while (<IN>) {
chomp;
if (/([A-Z0-9]{8}\.gif)/){
push (@images, $1);
} else {
print "Couldn't match a line in $input_file - $_";
}
}
my($image) = Image::Magick -> new();
my($stack) = Image::Magick -> new();
my $counter = 1;
for (1..3) {
for (1..3) {
my $tile = pop @images;
$result = $image -> Read("$image_dir"."$tile");
warn $result if $result;
push (@$stack, $image);
print "$tile seen ($counter)\n";
$counter++;
}
}
print "Montaging...\n";
my($final) = $stack -> Montage
(
tile => '3x3',
geometry => '200x200'
);
print "Montaged\n";
$result = $final -> Write($output_file);
warn $result if $result;
print "Success. Wrote $output_file. \n";
The information contained in this e-mail is intended for the recipient or
entity to whom it is addressed. It may contain confidential information that
is exempt from disclosure by law and if you are not the intended recipient,
you must not copy, distribute or take any act in reliance on it. If you have
received this e-mail in error, please notify the sender immediately and
delete from your system.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
