You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
39 lines
1.1 KiB
Perl
39 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=34328&xmax=34471&ymin=22296&ymax=22351&zoom=16&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(36864, 14336, 1);
|
|
my $white = $img->colorAllocate(248,248,248);
|
|
$img->filledRectangle(0,0,36864,14336,$white);
|
|
my $ua = LWP::UserAgent->new();
|
|
$ua->env_proxy;
|
|
for (my $x=0;$x<144;$x++)
|
|
{
|
|
for (my $y=0;$y<56;$y++)
|
|
{
|
|
my $xx = $x + 34328;
|
|
my $yy = $y + 22296;
|
|
foreach my $base(split(/\|/, "http://andy.sandbox.cloudmade.com/tiles/cycle/16/!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();
|