Prototype Bing stuff.

4 files changed, 259 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/Map/Bing.pm b/perllib/FixMyStreet/Map/Bing.pm
new file mode 100644
index 000000000..8446a10fd
--- /dev/null
+++ b/perllib/FixMyStreet/Map/Bing.pm
@@ -0,0 +1,71 @@
+#!/usr/bin/perl
+#
+# FixMyStreet:Map::Bing
+# Bing 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;
+
+use strict;
+use mySociety::GeoUtil;
+use mySociety::Web qw(ent);
+
+sub header_js {
+    return '
+<script type="text/javascript" src="http://ecn.dev.virtualearth.net/mapcontrol/mapcontrol.ashx?v=7.0&mkt=en-GB"></script>
+<script type="text/javascript" src="/js/map-bing.js"></script>
+';
+}
+
+# display_map Q PARAMS
+# PARAMS include:
+# EASTING, NORTHING for the centre point of the map
+# TYPE is 1 if the map is clickable, 2 if clickable and has a form upload,
+#     0 if not clickable
+# PINS is array of pins to show, location and colour
+# PRE/POST are HTML to show above/below map
+sub display_map {
+    my ($q, %params) = @_;
+    $params{pre} ||= '';
+    $params{post} ||= '';
+
+    foreach my $pin (@{$params{pins}}) {
+    }
+
+    my $out = FixMyStreet::Map::header($q, $params{type});
+    my ($lat, $lon) = mySociety::GeoUtil::national_grid_to_wgs84($params{easting}, $params{northing}, 'G');
+    my $copyright = _('Map contains Ordnance Survey data &copy; Crown copyright and database right 2010.');
+    $out .= <<EOF;
+<script type="text/javascript">
+var fixmystreet = {
+    'lat': $lat,
+    'lon': $lon
+}
+</script>
+<div id="map_box">
+    $params{pre}
+    <div id="map"></div>
+    <p id="copyright">$copyright</p>
+    $params{post}
+</div>
+<div id="side">
+EOF
+    return $out;
+}
+
+sub display_map_end {
+    my ($type) = @_;
+    my $out = '</div>';
+    $out .= '</form>' if ($type);
+    return $out;
+}
+
+sub display_pin {
+}
+
+sub map_pins {
+}
+
+1;
diff --git a/perllib/FixMyStreet/Map/BingOL.pm b/perllib/FixMyStreet/Map/BingOL.pm
new file mode 100644
index 000000000..3939a710f
--- /dev/null
+++ b/perllib/FixMyStreet/Map/BingOL.pm
@@ -0,0 +1,71 @@
+#!/usr/bin/perl
+#
+# FixMyStreet:Map::Bing
+# Bing 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;
+
+use strict;
+use mySociety::Web qw(ent);
+
+sub header_js {
+    return '
+<!-- <script type="text/javascript" src="http://ecn.dev.virtualearth.net/mapcontrol/mapcontrol.ashx?v=7.0&mkt=en-GB"></script> -->
+<script type="text/javascript" src="http://openlayers.org/api/OpenLayers.js"></script>
+<script type="text/javascript" src="/js/map-bing-ol.js"></script>
+<script type="text/javascript" src="/js/OpenLayers.Projection.OrdnanceSurvey.js"></script>
+';
+}
+
+# display_map Q PARAMS
+# PARAMS include:
+# EASTING, NORTHING for the centre point of the map
+# TYPE is 1 if the map is clickable, 2 if clickable and has a form upload,
+#     0 if not clickable
+# PINS is array of pins to show, location and colour
+# PRE/POST are HTML to show above/below map
+sub display_map {
+    my ($q, %params) = @_;
+    $params{pre} ||= '';
+    $params{post} ||= '';
+
+    foreach my $pin (@{$params{pins}}) {
+    }
+
+    my $out = FixMyStreet::Map::header($q, $params{type});
+    my $copyright = _('Map contains Ordnance Survey data &copy; Crown copyright and database right 2010. Microsoft');
+    $out .= <<EOF;
+<script type="text/javascript">
+var fixmystreet = {
+    'easting': $params{easting},
+    'northing': $params{northing}
+}
+</script>
+<div id="map_box">
+    $params{pre}
+    <div id="map"></div>
+    <p id="copyright">$copyright</p>
+    $params{post}
+</div>
+<div id="side">
+EOF
+    return $out;
+}
+
+sub display_map_end {
+    my ($type) = @_;
+    my $out = '</div>';
+    $out .= '</form>' if ($type);
+    return $out;
+}
+
+sub display_pin {
+}
+
+sub map_pins {
+}
+
+1;
diff --git a/web/js/map-bing-ol.js b/web/js/map-bing-ol.js
new file mode 100644
index 000000000..ba9445326
--- /dev/null
+++ b/web/js/map-bing-ol.js
@@ -0,0 +1,96 @@
+YAHOO.util.Event.onContentReady('map', function() {
+    var map = new OpenLayers.Map("map", {
+        controls: [
+                  new OpenLayers.Control.ArgParser(),
+                  //new OpenLayers.Control.LayerSwitcher(),
+                  new OpenLayers.Control.Navigation(),
+                  new OpenLayers.Control.PanZoom()
+                ],
+        displayProjection: new OpenLayers.Projection("EPSG:4326")
+    });
+    var bing = new OpenLayers.Layer.Bing("", {
+        zoomOffset: 13,
+        numZoomLevels: 4
+    });
+    map.addLayer(bing);
+
+    var centre = new OpenLayers.LonLat( fixmystreet.easting, fixmystreet.northing );
+    centre.transform(
+        new OpenLayers.Projection("EPSG:27700"),
+        map.getProjectionObject()
+    );
+    map.setCenter(centre, 3);
+});
+
+OpenLayers.Util.OS = {};
+OpenLayers.Util.OS.MISSING_TILE_URL = "http://openstreetmap.org/openlayers/img/404.png";
+OpenLayers.Util.OS.originalOnImageLoadError = OpenLayers.Util.onImageLoadError;
+OpenLayers.Util.onImageLoadError = function() {
+    OpenLayers.Util.OS.originalOnImageLoadError;
+};
+
+OpenLayers.Layer.Bing = OpenLayers.Class(OpenLayers.Layer.XYZ, {
+    initialize: function(name, options) {
+        var url = [];
+        options = OpenLayers.Util.extend({
+            /* Below line added to OSM's file in order to allow minimum zoom level */
+            maxResolution: 156543.0339/Math.pow(2, options.zoomOffset || 0),
+            numZoomLevels: 18,
+            transitionEffect: "resize",
+            sphericalMercator: true,
+            attribution: "© Microsoft / OS 2010"
+        }, options);
+        var newArguments = [name, url, options];
+        OpenLayers.Layer.XYZ.prototype.initialize.apply(this, newArguments);
+    },
+
+    get_quadkey: function(x, y, level) {
+        var key = '';
+        for (var i = level; i > 0; i--) {
+            var digit = 0;
+            var mask = 1 << (i - 1);
+            if ((x & mask) != 0) {
+                digit++;
+            }
+            if ((y & mask) != 0) {
+                digit += 2;
+            }
+            key += digit;
+        }
+        return key;
+    },
+
+    getURL: function (bounds) {
+        var res = this.map.getResolution();
+        var x = Math.round((bounds.left - this.maxExtent.left)
+            / (res * this.tileSize.w));
+        var y = Math.round((this.maxExtent.top - bounds.top)
+            / (res * this.tileSize.h));
+        var z = this.serverResolutions != null ?
+            OpenLayers.Util.indexOf(this.serverResolutions, res) :
+            this.map.getZoom() + this.zoomOffset;
+
+        if (z == 16) {
+            var url = [
+                "http://a.os.openstreetmap.org/sv/${z}/${x}/${y}.png",
+                "http://b.os.openstreetmap.org/sv/${z}/${x}/${y}.png",
+                "http://c.os.openstreetmap.org/sv/${z}/${x}/${y}.png"
+            ];
+        } else {
+            var url = [
+                "http://ecn.t0.tiles.virtualearth.net/tiles/r${id}.png?g=587&productSet=mmOS",
+                "http://ecn.t1.tiles.virtualearth.net/tiles/r${id}.png?g=587&productSet=mmOS",
+                "http://ecn.t2.tiles.virtualearth.net/tiles/r${id}.png?g=587&productSet=mmOS",
+                "http://ecn.t3.tiles.virtualearth.net/tiles/r${id}.png?g=587&productSet=mmOS"
+            ];
+        }
+        var s = '' + x + y + z;
+        url = this.selectUrl(s, url);
+       
+        var id = this.get_quadkey(x, y, z);
+        var path = OpenLayers.String.format(url, {'id': id, 'x': x, 'y': y, 'z': z});
+        return path;
+    },
+
+    CLASS_NAME: "OpenLayers.Layer.Bing"
+});
diff --git a/web/js/map-bing.js b/web/js/map-bing.js
new file mode 100644
index 000000000..fbbbcc676
--- /dev/null
+++ b/web/js/map-bing.js
@@ -0,0 +1,21 @@
+YAHOO.util.Event.onContentReady('map', function() {
+    var centre = new Microsoft.Maps.Location( fixmystreet.lat, fixmystreet.lon );
+    var map = new Microsoft.Maps.Map(document.getElementById("map"), {
+        mapTypeId: Microsoft.Maps.MapTypeId.ordnanceSurvey,
+        center: centre,
+        zoom: 15,
+        enableClickableLogo: false,
+        enableSearchLogo: false,
+        showCopyright: false,
+        showDashboard: true,
+        showLogo: false,
+        showScalebar: false
+    });
+        //minZoomLevel: 14,
+        //numZoomLevels: 4
+
+    Microsoft.Maps.Events.addHandler(map, "viewchangestart", function(e) {
+        /* Doesn't work */
+        if (map.getTargetZoom() < 12) return false;
+    });
+});