1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
# FixMyStreet:Map::Bing
# Bing maps on FixMyStreet, using OpenLayers.
package FixMyStreet::Map::Bing;
use base 'FixMyStreet::Map::OSM';
use strict;
sub map_type { '' }
sub map_template { 'bing' }
sub copyright { '' }
sub get_quadkey {
my ($self, $x, $y, $z) = @_;
my $key = '';
for (my $i = $z; $i > 0; $i--) {
my $digit = 0;
my $mask = 1 << ($i - 1);
$digit++ if ($x & $mask) != 0;
$digit += 2 if ($y & $mask) != 0;
$key .= $digit;
}
return $key;
}
sub map_tile_base {
'', "//ecn.%s.tiles.virtualearth.net/tiles/r%s.png?g=3467";
}
sub map_tiles {
my ( $self, %params ) = @_;
my ( $x, $y, $z ) = ( $params{x_tile}, $params{y_tile}, $params{zoom_act} );
my ($tile_sep, $tile_base) = $self->map_tile_base;
return [
sprintf($tile_base, 't0', $self->get_quadkey($x-1, $y-1, $z)),
sprintf($tile_base, 't1', $self->get_quadkey($x, $y-1, $z)),
sprintf($tile_base, 't2', $self->get_quadkey($x-1, $y, $z)),
sprintf($tile_base, 't3', $self->get_quadkey($x, $y, $z)),
];
}
1;
|
