XAML-Map-Control/MapControl/Shared/AzimuthalEquidistantProjection.cs

using System;
#if WPF
using System.Windows;
using System.Windows.Media;
#elif AVALONIA
using Avalonia;
#endif

namespace MapControl
{
    /// <summary>
    /// Spherical Azimuthal Equidistant Projection - No standard CRS identifier.
    /// See "Map Projections - A Working Manual" (https://pubs.usgs.gov/publication/pp1395), p.195-197.
    /// </summary>
    public class AzimuthalEquidistantProjection : AzimuthalProjection
    {
        public const string DefaultCrsId = "AUTO2:97003"; // proprietary CRS identifier

        public AzimuthalEquidistantProjection() // parameterless constructor for XAML
            : this(DefaultCrsId)
        {
        }

        public AzimuthalEquidistantProjection(string crsId)
        {
            CrsId = crsId;
        }

        public override Matrix RelativeScale(double latitude, double longitude)
        {
            var p = GetProjectedPoint(latitude, longitude);

            if (Math.Abs(p.CosC) >= 1d)
            {
                return new Matrix(1d, 0d, 0d, 1d, 0d, 0d);
            }

            var c = Math.Acos(p.CosC);
            var k = c / Math.Sin(c); // p.195 (25-2)

            var scale = new Matrix(1d, 0d, 0d, k, 0d, 0d); // h == 1
            scale.Rotate(-Math.Atan2(p.Y, p.X) * 180d / Math.PI);
            return scale;
        }

        public override Point? LocationToMap(double latitude, double longitude)
        {
            var p = GetProjectedPoint(latitude, longitude);

            if (Math.Abs(p.CosC) >= 1d)
            {
                return new Point();
            }

            var c = Math.Acos(p.CosC);
            var k = c / Math.Sin(c); // p.195 (25-2)

            return new Point(EarthRadius * k * p.X, EarthRadius * k * p.Y); // p.195 (22-4/5)
        }

        public override Location MapToLocation(double x, double y)
        {
            var rho = Math.Sqrt(x * x + y * y);
            var c = rho / EarthRadius; // p.196 (25-15)

            return GetLocation(x, y, rho, Math.Sin(c));
        }
    }
}