D'oh. Actually process the subtiles in the right order.

1 files changed, 3 insertions, 3 deletions

diff --git a/maketiles/10kfull b/maketiles/10kfull
index a389088a0..873818092 100755
--- a/maketiles/10kfull
+++ b/maketiles/10kfull
@@ -8,7 +8,7 @@
 # Email: chris@mysociety.org; WWW: http://www.mysociety.org/
 #
 
-my $rcsid = ''; $rcsid .= '$Id: 10kfull,v 1.4 2006-09-19 15:48:11 chris Exp $';
+my $rcsid = ''; $rcsid .= '$Id: 10kfull,v 1.5 2006-09-20 15:01:56 chris Exp $';
 
 use strict;
 
@@ -35,7 +35,6 @@ sub System (@) {
     die "command failed with status $?" if ($?);
 }
 
-
 die "arguments are directories containing input tiles in TIFF format and\n"
     . "to which output tiles are to be written, and optional eastings and\n"
     . "northings ranges, in the order west, east, south, north\n"
@@ -150,8 +149,9 @@ while (my $name = $d->read()) {
     my $size = 0;
     for (my $j = 0; $j < SUBTILES_PER_TILE; ++$j) {
         debug("\r$j/", SUBTILES_PER_TILE);
+        my $j2 = SUBTILES_PER_TILE - 1 - $j;
         for (my $i = 0; $i < SUBTILES_PER_TILE; ++$i) {
-            my $fn = "$outputdir/$i,$j.png";
+            my $fn = "$outputdir/$i,$j2.png";
             my $f = new IO::File($fn, O_RDONLY)
                         or die "$fn: $!";
             my $sha = new Digest::SHA1();