Changeset 407

Timestamp:

Dec 8, 2006, 6:16:10 PM (15 years ago)

Author:

Nick Burch

Message:

Print progress, and accept scale on command line

File:

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

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

@@ -5 +5 @@
 
 my $tilesize = 125;
-my $scale = 3;
+
+my $scale = shift;
+unless($scale) { $scale = 6; }
 
 my $outdir = "scaled$scale";
@@ -37 +39 @@
       my $filename = sprintf("%s/%03d/%03d.jpg", $outdir,$x,$y);
       if ((! -f $filename) && any_tiles($x, $y, \%tiles) ) {
+                print "Making $filename\n";
          my $out = Image::Magick->new(size => ($tilesize * $scale). "x".($tilesize *$scale));
          $out ->ReadImage('xc:white');