38 lines
1.1 KiB
Perl
38 lines
1.1 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# generated from http://openstreetmap.gryph.de/bigmap.cgi/
|
|
# permalink for this map: http://openstreetmap.gryph.de/bigmap.cgi?xmin=8582&xmax=8617&ymin=5574&ymax=5587&zoom=14&scale=256&baseurl=http%3A%2F%2Fandy.sandbox.cloudmade.com%2Ftiles%2Fcycle%2F!z%2F!x%2F!y.png
|
|
#
|
|
use strict;
|
|
use LWP;
|
|
use GD;
|
|
|
|
my $img = GD::Image->new(9216, 3584, 1);
|
|
my $white = $img->colorAllocate(248,248,248);
|
|
$img->filledRectangle(0,0,9216,3584,$white);
|
|
my $ua = LWP::UserAgent->new();
|
|
$ua->env_proxy;
|
|
for (my $x=0;$x<36;$x++)
|
|
{
|
|
for (my $y=0;$y<14;$y++)
|
|
{
|
|
my $xx = $x + 8582;
|
|
my $yy = $y + 5574;
|
|
foreach my $base(split(/\|/, "http://andy.sandbox.cloudmade.com/tiles/cycle/14/!x/!y.png"))
|
|
{
|
|
my $url = $base;
|
|
$url =~ s/!x/$xx/g;
|
|
$url =~ s/!y/$yy/g;
|
|
print STDERR "$url... ";
|
|
my $resp = $ua->get($url);
|
|
print STDERR $resp->status_line;
|
|
print STDERR "\n";
|
|
next unless $resp->is_success;
|
|
my $tile = GD::Image->new($resp->content);
|
|
next if ($tile->width == 1);
|
|
$img->copy($tile, $x*256,$y*256,0,0,256,256);
|
|
}
|
|
}
|
|
}
|
|
binmode STDOUT;
|
|
print $img->png();
|