my $preview = '';
my $crop = '';
my $stitch = '';
-my $defaultcrop = '0.9';
+my $defaultcrop = '';
Getopt::Long::Configure("bundling");
if($genmeta)
{
print "Generating meta file for " . basename($infile) . ".\n";
+ $defaultcrop = '0.9' unless $defaultcrop;
my $outfile = basename($infile) . ".stitch";
die "$outfile exists, aborting!\n" if -e $outfile;
my $previewcontent = $previewpage->gfx();
$previewcontent->egstate($transparency);
$previewcontent->rect($llx, $lly, $urx, $ury);
+ $previewcontent->rect($llx - 20, $lly + $ury, 20, 20); # upper left
+ $previewcontent->rect($llx + $urx, $lly + $ury, 20, 20); # upper right
+ $previewcontent->rect($llx - 20, $lly - 20, 20, 20); # lower left
+ $previewcontent->rect($llx + $urx, $lly - 20, 20, 20); # lower right
$previewcontent->fillcolor('%F000');
$previewcontent->fill();
}