Changeset 412 for trunk/npemap.org.uk

Timestamp:

Dec 10, 2006, 7:00:58 PM (14 years ago)

Author:

Nick Burch

Message:

Add scaled50 at the right place

File:

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

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

@@ -1 +1 @@
 #!/usr/bin/perl
 # Generate the "whole of the UK" thumbnail from lots of files in scaled50
-# Doesn't need corners.csv, but does need scaled50/
 
 use List::Util qw[min max];
@@ -24 +23 @@
 }
 
-
+# No 000, but there is ???/000.jpg
 $maxx = max(keys %tiles);
-$maxy = max(map { max(keys %{$tiles{$_}})} keys %tiles);
+$maxy = max(map { max(keys %{$tiles{$_}})} keys %tiles) + 1;
 
 # Decide how big our intermediate, and final images will be
@@ -45 +44 @@
 
 foreach my $x (1..($maxx)) {
-        foreach my $y (1..($maxy)) {
+        foreach my $y (0..($maxy)) {
                 my $input = $tiles{$x}{$y};
                 if(-f $input) {
@@ -51 +50 @@
                         my $image = Image::Magick->new;
             print $image->Read($input);
-            print $out->Composite(image=>$image, x=>(($x-1)*$tilesize), y=>(($y-1)*$tilesize));
+
+                        # x goes from 1 to n
+                        my $this_x = ($x-1) * $tilesize;
+                        # y goes from 0 to n
+                        my $this_y = $temp_y - (($y+1) * $tilesize);
+                        print "   goes at $this_x , $this_y\n";
+
+            print $out->Composite(image=>$image, x=>$this_x, y=>$this_y);
             undef $image;
         }