From e74c1c9bcf91208836bd7e409fb912efd2c08595 Mon Sep 17 00:00:00 2001
From: Alexander Krutov <a.a.krutov@gmail.com>
Date: Mon, 5 Jul 2021 17:42:01 +0300
Subject: [PATCH] Added Bing Maps

---
 DemoApp/FormMain.cs                          |   3 +
 MapControl/MapControl.csproj                 |   4 +-
 MapControl/TileServers/BingMapsTileServer.cs | 103 +++++++++++++++++++
 3 files changed, 108 insertions(+), 2 deletions(-)
 create mode 100644 MapControl/TileServers/BingMapsTileServer.cs

diff --git a/DemoApp/FormMain.cs b/DemoApp/FormMain.cs
index b9a7809..c98dbff 100644
--- a/DemoApp/FormMain.cs
+++ b/DemoApp/FormMain.cs
@@ -90,6 +90,9 @@ public FormMain()
                 new StamenTerrainTileServer(),
                 new OpenTopoMapServer(),
                 new OfflineTileServer(),
+                new BingMapsAerialTileServer(),
+                new BingMapsRoadsTileServer(),
+                new BingMapsHybridTileServer(),
             };
 
             cmbTileServers.Items.AddRange(tileServers);
diff --git a/MapControl/MapControl.csproj b/MapControl/MapControl.csproj
index 016c861..a53f92f 100644
--- a/MapControl/MapControl.csproj
+++ b/MapControl/MapControl.csproj
@@ -1,10 +1,10 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <TargetFrameworks>net451</TargetFrameworks>
-    <Version>1.0.2</Version>
+    <Version>1.1.0</Version>
     <Product>System.Windows.Forms.MapControl</Product>
     <Description>Map control for WindowsForms</Description>
-    <Copyright>© Alexander Krutov 2020</Copyright>
+    <Copyright>© Alexander Krutov 2020-2021</Copyright>
     <GeneratePackageOnBuild>true</GeneratePackageOnBuild>
     <Title>System.Windows.Forms.MapControl</Title>
     <Summary>Map control for WindowsForms</Summary>
diff --git a/MapControl/TileServers/BingMapsTileServer.cs b/MapControl/TileServers/BingMapsTileServer.cs
new file mode 100644
index 0000000..529a6ce
--- /dev/null
+++ b/MapControl/TileServers/BingMapsTileServer.cs
@@ -0,0 +1,103 @@
+using System.Text;
+
+namespace System.Windows.Forms
+{
+	/// <summary>
+	/// Base class for Bing Maps tile providers
+	/// </summary>
+    public abstract class BingMapsTileServer : WebTileServer
+    {
+		/// <summary>
+		/// Not used here
+		/// </summary>
+        public override string UserAgent { get; set; }
+
+		/// <summary>
+		/// Gets tile layer type: a = aerial, r = roads, h = hybrid
+		/// </summary>
+		protected abstract string Layer { get; }
+
+		/// <inheritdoc />
+        public override string AttributionText => "© <a href='https://www.bing.com/maps/'>Bing Maps</a>";
+
+		/// <inheritdoc />
+		public override int MinZoomLevel => 1;
+
+        /// <summary>
+        /// Used to access random tile subdomains.
+        /// </summary>
+        private readonly Random _Random = new Random();
+
+		/// <inheritdoc />
+		public override Uri GetTileUri(int x, int y, int z)
+        {
+			return new Uri($"https://ecn.t{_Random.Next(8)}.tiles.virtualearth.net/tiles/{Layer}{TileXYToQuadKey(x, y, z)}.jpeg?g=587");
+		}
+
+		/// <summary>
+		/// Converts x,y,z to QuadKey string used by MS maps.
+		/// </summary>
+		/// <param name="x">X-index of the tile.</param>
+		/// <param name="y">Y-index of the tile.</param>
+		/// <param name="z">Zoom level.</param>
+		/// <returns>QuadKey string</returns>
+		/// <remarks>See details: <see href="https://docs.microsoft.com/en-us/bingmaps/articles/bing-maps-tile-system"/></remarks> 
+		private string TileXYToQuadKey(int x, int y, int z)
+		{
+			var quadKey = new StringBuilder();
+			for (int i = z; i > 0; i--)
+			{
+				char digit = '0';
+				int mask = 1 << (i - 1);
+				if ((x & mask) != 0)
+				{
+					digit++;
+				}
+				if ((y & mask) != 0)
+				{
+					digit++;
+					digit++;
+				}
+				quadKey.Append(digit);
+			}
+			return quadKey.ToString();
+		}
+	}
+
+	/// <summary>
+	/// Represents Bing Maps Aerial web tile server.
+	/// </summary>
+	public class BingMapsAerialTileServer : BingMapsTileServer
+	{
+		/// <inheritdoc />
+		public override string Name => "Bing Maps (Aerial)";
+
+		/// <inheritdoc />
+		protected override string Layer => "a";
+	}
+
+	/// <summary>
+	/// Represents Bing Maps Roads web tile server.
+	/// </summary>
+	public class BingMapsRoadsTileServer : BingMapsTileServer
+	{
+		/// <inheritdoc />
+		public override string Name => "Bing Maps (Roads)";
+
+		/// <inheritdoc />
+		protected override string Layer => "r";
+	}
+
+
+	/// <summary>
+	/// Represents Bing Maps Hybrid web tile server.
+	/// </summary>
+	public class BingMapsHybridTileServer : BingMapsTileServer
+	{
+		/// <inheritdoc />
+		public override string Name => "Bing Maps (Hybrid)";
+
+		/// <inheritdoc />
+		protected override string Layer => "h";
+	}
+}