Changeset 407


Ignore:
Timestamp:
Dec 8, 2006, 6:16:10 PM (13 years ago)
Author:
Nick Burch
Message:

Print progress, and accept scale on command line

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/npemap.org.uk/scripts/tile-processing/makeSmaller.pl

    r182 r407  
    55
    66my $tilesize = 125;
    7 my $scale = 3;
     7
     8my $scale = shift;
     9unless($scale) { $scale = 6; }
    810
    911my $outdir = "scaled$scale";
     
    3739      my $filename = sprintf("%s/%03d/%03d.jpg", $outdir,$x,$y);
    3840      if ((! -f $filename) && any_tiles($x, $y, \%tiles) ) {
     41                print "Making $filename\n";
    3942         my $out = Image::Magick->new(size => ($tilesize * $scale). "x".($tilesize *$scale));
    4043         $out ->ReadImage('xc:white');
Note: See TracChangeset for help on using the changeset viewer.