Changeset 421

Timestamp:

Dec 28, 2006, 10:32:50 PM (14 years ago)

Author:

Nick Burch

Message:

Do the cropping at the same time

File:

• trunk/npemap.org.uk/scripts/tile-processing/makeThumbImage.pl (modified) (7 diffs)

trunk/npemap.org.uk/scripts/tile-processing/makeThumbImage.pl

@@ -11 +11 @@
 my $outscale = 125;
 
+# Find these values by hand using the gimp or similar
+#  lower easting,northing
+my @bl_trims = qw( 77, 0 );
+#  upper easting,northing
+my @tr_trims = qw( 657, 877 );
+
+# which files to build it from
 my @files = glob("scaled${inscale}/???/???.jpg");
 my %tiles ;
@@ -23 +30 @@
 }
 
-# No 000, but there is ???/000.jpg
-$maxx = max(keys %tiles);
+# Ensure it starts at 0,0
+# (Otherwise, deciding where you clicked on is too hard)
+$maxx = max(keys %tiles) + 1;
 $maxy = max(map { max(keys %{$tiles{$_}})} keys %tiles) + 1;
 
@@ -34 +42 @@
 my $out_y = int($maxy * $tilesize * $inscale / $outscale);
 
+my $trim_width = $tr_trims[0] - $bl_trims[0];
+my $trim_height = $tr_trims[1] - $bl_trims[1];
+
 print "There are $maxx images across, and $maxy images down\n";
 print "The temp image will be $temp_x x $temp_y\n";
-print "The final image will be $out_x x $out_y\n\n";
+print "The joined image will be $out_x x $out_y\n";
+print "The final image will be $trim_width x $trim_height\n\n";
 
 
@@ -43 +55 @@
 $out ->ReadImage('xc:white');
 
-foreach my $x (1..($maxx)) {
+foreach my $x (0..($maxx)) {
         foreach my $y (0..($maxy)) {
                 my $input = $tiles{$x}{$y};
@@ -51 +63 @@
             print $image->Read($input);
 
-                        # x goes from 1 to n
-                        my $this_x = ($x-1) * $tilesize;
+                        # x goes from 0 to n
+                        my $this_x = $x * $tilesize;
                         # y goes from 0 to n
                         my $this_y = $temp_y - (($y+1) * $tilesize);
@@ -65 +77 @@
 # Now resize it
 $out->Resize("${out_x}x${out_y}");
+# And trim the edges off it
+$out->Crop( x=>$bl_trims[0], y=>($out_y - $tr_trims[1]),
+            width=>($tr_trims[0] - $bl_trims[0]),
+            height=>($tr_trims[1] - $bl_trims[1]) );
 # And make it a bit darker, so it's easier to see
 $out->Tint(fill=>"white", opacity=>65);
@@ -72 +88 @@
 $out->Write("jpg:thumbnail.jpg");
 undef $out;
+print "\nOutput at ${trim_width}x${trim_height}\n";
 print "($maxx,$maxy)\n";