PerlMagick code with ->Montage method labels only first tile image instead of all
IM v.6.3.2 doesn't expose the problem , the problem found at least on FreeBSD 6.2-STABLE
DESCRIPTION:
With my code i produce montages like this:
ftp://ftp.dn.farlep.net/pub/misc/renrot ... Sample.jpg
but after IM ugrade to v.6.3.6-9 (the previous one was v.6.3.2)
on FreeBSD with perl v.5.8.8
i have found difficulty with ->Montage() behaviour
in my code i am using PerlMagich to build contact sheet for my shots ...
the code:
Code: Select all
...
for ($csIter = 0 ; $csIter < $csFilesAmount ; $csIter++) {
$readres = $image->Read("jpg:".$thumbnailes_sorted[$csIter]);
if ( not $readres ) { dbgmsg (4,"$thumbnailes_sorted[$csIter] was successfully red.\n"); }
else { errmsg ("Image::Magick error: $readres\n\n"); }
...
}
...
$montage = $image->Montage(background=>'#FFF',
bordercolor=>'#DDD',
mattecolor=>'#CCC',
font=>'Helvetica',
label=>'%t',
frame=>'5',
geometry=>$size . "x" . $size . "+4+4",
pointsize=>'11',
shadow=>'True',
title=>$title,
tile=>$contactSheetTile);
...
ftp://ftp.dn.farlep.net/pub/misc/renrot/misc/cs.jpg
the title is rendered, the first file label is rendered, but no further labels
it looks like i have to write label for each file i read ...
I believe, it is something in PerlMagick, since command line montage works fine as well as PerlMagick from IM v.6.3.2 ...
Any advice is welcome, please
