perllib/FixMyStreet/Map/OSM/TonerLite.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
34
35
36

# FixMyStreet:Map::OSM::TonerLite
# OSM TonerLite maps on FixMyStreet.
#
# Map tiles by <http://stamen.com> Stamen Design,
# under <http://creativecommons.org/licenses/by/3.0>CC BY 3.0.
# Data by <http://openstreetmap.org> OpenStreetMap,
# under <http://www.openstreetmap.org/copyright> ODbL.
#
# Copyright (c) 2014 UK Citizens Online Democracy. All rights reserved.
# Email: hakim@mysociety.org; WWW: http://www.mysociety.org/

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

use strict;

sub map_type { 'OpenLayers.Layer.Stamen' }

sub map_template { 'osm-toner-lite' }

sub copyright {
    'Map tiles by <a href="http://stamen.com">Stamen Design</a>, under <a href="http://creativecommons.org/licenses/by/3.0">CC BY 3.0</a>. Data by <a href="http://openstreetmap.org">OpenStreetMap</a>, under <a href="http://www.openstreetmap.org/copyright">ODbL</a>.'
}

sub map_tiles {
    my ( $self, %params ) = @_;
    my ( $x, $y, $z ) = ( $params{x_tile}, $params{y_tile}, $params{zoom_act} );
    return [
        "https://stamen-tiles-a.a.ssl.fastly.net/toner-lite/$z/" . ($x - 1) . "/" . ($y - 1) . ".png",
        "https://stamen-tiles-b.a.ssl.fastly.net/toner-lite/$z/$x/" . ($y - 1) . ".png",
        "https://stamen-tiles-c.a.ssl.fastly.net/toner-lite/$z/" . ($x - 1) . "/$y.png",
        "https://stamen-tiles-d.a.ssl.fastly.net/toner-lite/$z/$x/$y.png",
    ];
}

1;