X-Git-Url: https://git.sur5r.net/?p=pdfstitch;a=blobdiff_plain;f=pdfstitch;h=a754d0ad60ff02c7eeb7659f51ccc8b067e13c82;hp=9a6cf9b72216d35bcad9589cd334768658682959;hb=HEAD;hpb=b2b095ec6f09928f828b799db38d336ddb9ec1aa

diff --git a/pdfstitch b/pdfstitch
index 9a6cf9b..a754d0a 100755
--- a/pdfstitch
+++ b/pdfstitch
@@ -16,7 +16,7 @@ my $genmeta = '';
 my $preview = '';
 my $crop = '';
 my $stitch = '';
-my $defaultcrop = '0.9';
+my $defaultcrop = '';
 
 Getopt::Long::Configure("bundling");
 
@@ -96,6 +96,7 @@ if(not ($genmeta or $preview or $crop or $stitch))
 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;
@@ -159,6 +160,10 @@ else
                 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();
             }