1 files changed, 77 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Map/Bristol.pm b/perllib/FixMyStreet/Map/Bristol.pm
new file mode 100644
index 000000000..7098ceb40
--- /dev/null
+++ b/perllib/FixMyStreet/Map/Bristol.pm
@@ -0,0 +1,77 @@
+# FixMyStreet:Map::Bristol
+# Bristol use their own tiles on their cobrand
+
+package FixMyStreet::Map::Bristol;
+use base 'FixMyStreet::Map::WMTSBase';
+
+use strict;
+
+sub zoom_parameters {
+    my $self = shift;
+    my $params = {
+        zoom_levels    => scalar $self->scales,
+        default_zoom   => 5,
+        min_zoom_level => 0,
+        id_offset      => 0,
+    };
+    return $params;
+}
+
+sub tile_parameters {
+    my $self = shift;
+    my $params = {
+        url             => 'https://maps.bristol.gov.uk/arcgis/rest/services/base/2015_BCC_96dpi/MapServer/WMTS/tile',
+        wmts_version    => '1.0.0',
+        layer_name      => '2015_BCC_96dpi',
+        layer_style     => 'default',
+        matrix_set      => 'default028mm',
+        suffix          => '.png', # appended to tile URLs
+        size            => 256, # pixels
+        dpi             => 96,
+        inches_per_unit => 39.3701, # BNG uses metres
+        projection      => 'EPSG:27700',
+        # The original tile origin values from the getCapabilities call are
+        # -5220400.0/4470200.0, but this results in the map tile being offset
+        # slightly. These corrected values were figured out manually by
+        # trial and error...
+        origin_x        => -5220385.5,
+        origin_y        => 4470189.0,
+    };
+    return $params;
+}
+
+sub scales {
+    my $self = shift;
+    my @scales = (
+        '192000', # resolution: 50.800101600203206
+        '96000', # resolution: 25.400050800101603
+        '48000', # resolution: 12.700025400050801
+        '24000', # resolution: 6.350012700025401
+        '12000', # resolution: 3.1750063500127004
+        '6000', # resolution: 1.5875031750063502
+        '3000', # resolution: 0.7937515875031751
+        '1250', # resolution: 0.33072982812632296
+        '750', # resolution: 0.19843789687579377
+    );
+    return @scales;
+}
+
+sub copyright {
+    return '&copy; BCC';
+}
+
+# Reproject a WGS84 lat/lon into BNG easting/northing
+sub reproject_from_latlon($$$) {
+    my ($self, $lat, $lon) = @_;
+    my ($x, $y) = Utils::convert_latlon_to_en($lat, $lon);
+    return ($x, $y);
+}
+
+# Reproject a BNG easting/northing into WGS84 lat/lon
+sub reproject_to_latlon($$$) {
+    my ($self, $x, $y) = @_;
+    my ($lat, $lon) = Utils::convert_en_to_latlon($x, $y);
+    return ($lat, $lon);
+}
+
+1;