#!/usr/bin/perl # # FixMyStreet:Map::OSM::TonerLite # OSM TonerLite maps on FixMyStreet. # # Map tiles by Stamen Design, # under CC BY 3.0. # Data by OpenStreetMap, # under 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 Stamen Design, under CC BY 3.0. Data by OpenStreetMap, under ODbL.' } 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;