perllib/FixMyStreet/Map/OSM/MapQuest.pm


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

#!/usr/bin/perl
#
# FixMyStreet:Map::OSM::CycleMap
# OSM CycleMap maps on FixMyStreet.
#
# Copyright (c) 2010 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org; WWW: http://www.mysociety.org/

package FixMyStreet::Map::OSM::MapQuest;
use base 'FixMyStreet::Map::OSM';

use strict;

sub map_type {
    return 'OpenLayers.Layer.OSM.MapQuestOpen';
}

sub map_tiles {
    my ($self, $x, $y, $z) = @_;
    my $tile_url = $self->base_tile_url();
    return [
        "http://otile1.$tile_url/$z/" . ($x - 1) . "/" . ($y - 1) . ".png",
        "http://otile2.$tile_url/$z/$x/" . ($y - 1) . ".png",
        "http://otile3.$tile_url/$z/" . ($x - 1) . "/$y.png",
        "http://otile4.$tile_url/$z/$x/$y.png",
    ];
}

sub base_tile_url {
    return 'mqcdn.com/tiles/1.0.0/osm/';
}

1;