split.pl

# splitter for kosovo
# tiles kosovo region into 0.2x0.2 tiles with numbers for processing
# copyright 2009 James Michael DuPont h4ck3rm1k3@flossk.org
# license agpl 3.0

use strict;
use warnings;

my $startx = 41; #minlat
my $stopx  = 44; #maxlat
my $starty= 20; #minlon
my $stopy = 22; #maxlon
my $overlap = 0.0001;
my $stepx = 0.2;
my $stepy = $stepx;
warn $stepx . "\n";
warn $stepy . "\n";

my $step = 0;

for( my $x = $startx; $x <= $stopx; $x += $stepx)
{

    warn "x is now $x\n";

    for(my $y = $starty; $y <= $stopy; $y += $stepy)
    {
	warn "y is now $y\n";

	my $x1=$x-$overlap;
	my $x2=$x + $stepx + $overlap ;
	my $y1=$y-$overlap ;
	my $y2=$y + $stepy + $overlap ;

	$step++;
	my $window= "$y1,$x1,$y2,$x2";

	print "perl getosm.pl http://www.openstreetmap.org/api/0.6/map?bbox=$window ${step}\n";
#	print "wget http://www.openstreetmap.org/api/0.6/trackpoints?bbox=$x1,$y1,$x2,$y2 -O ${step}.gpx\n";
    }
}