Geodesic

This sample demonstrates using the ArcGIS Runtime SDK for WPF to perform the Geodesic utility methods for densification and measure on the ellipsoid.

XAML

<UserControl x:Class="ArcGISWPFSDK.Geodesic"
         xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    xmlns:esri="http://schemas.esri.com/arcgis/client/2009">
    <Grid x:Name="LayoutRoot" Background="Transparent">

        <Grid.Resources>
            <esri:SimpleMarkerSymbol x:Key="OriginalMarkerSymbol" Color="Red" Size="12" />
            <esri:SimpleMarkerSymbol x:Key="NewMarkerSymbol" Size="8">
                <esri:SimpleMarkerSymbol.Color>
                    <RadialGradientBrush>
                        <GradientStop Color="LightGreen" Offset="0.578"/>
                        <GradientStop Color="#FF0E0D07" Offset="1"/>
                    </RadialGradientBrush>
                </esri:SimpleMarkerSymbol.Color>
            </esri:SimpleMarkerSymbol>
            <esri:SimpleFillSymbol x:Key="ResultFillSymbol" Fill="#88000000" BorderBrush="Blue" BorderThickness="2" />
            <esri:SimpleLineSymbol x:Key="ResultLineSymbol" Color="Blue" Width="2" />
            <esri:SimpleLineSymbol x:Key="DrawLineSymbol" Color="Green" Width="4" />
            <esri:SimpleFillSymbol x:Key="DrawFillSymbol" Fill="#3300FF00" BorderBrush="Green" BorderThickness="2" />
            <LinearGradientBrush x:Key="PanelGradient" EndPoint="0.5,1" StartPoint="0.5,0">
                <LinearGradientBrush.RelativeTransform>
                    <TransformGroup>
                        <ScaleTransform CenterY="0.5" CenterX="0.5"/>
                        <SkewTransform CenterY="0.5" CenterX="0.5"/>
                        <RotateTransform Angle="176" CenterY="0.5" CenterX="0.5"/>
                        <TranslateTransform/>
                    </TransformGroup>
                </LinearGradientBrush.RelativeTransform>
                <GradientStop Color="#FF145787" Offset="0.16"/>
                <GradientStop Color="#FF3D7FAC" Offset="0.502"/>
                <GradientStop Color="#FF88C5EF" Offset="0.984"/>
            </LinearGradientBrush>
        </Grid.Resources>

        <esri:Map x:Name="MyMap" WrapAround="True" Extent="-15000000,2000000,-7000000,8000000" Background="#FFE3E3E3" >
            <esri:ArcGISLocalTiledLayer ID="BaseMap" Path="..\\Data\\TPKs\\Topographic.tpk"/>
            <esri:GraphicsLayer ID="GeodesicResultGraphicsLayer" />
            <esri:GraphicsLayer ID="VerticesGraphicsLayer" />
        </esri:Map>

        <Grid HorizontalAlignment="Right" VerticalAlignment="Top" Margin="10,10,10,0" >
            <Rectangle Fill="{StaticResource PanelGradient}" Stroke="Gray"  RadiusX="10" RadiusY="10" >
                <Rectangle.Effect>
                    <DropShadowEffect/>
                </Rectangle.Effect>
            </Rectangle>
            <Rectangle Fill="#DDFFFFFF" Stroke="DarkGray" RadiusX="5" RadiusY="5" Margin="5,5,5,5" />
            <StackPanel x:Name="DrawTools" 
                        Orientation="Vertical">
                <StackPanel Orientation="Horizontal" Margin="5,5,5,0">
                    <Button Margin="5" Content="Draw Line" Tag="Polyline" Click="Button_Click" />
                    <Button Margin="5" Content="Draw Polygon" Tag="Polygon" Click="Button_Click" />
                    <Button Margin="5" Content="Clear" Tag="Clear" Click="Button_Click" />
                </StackPanel>
                <Grid Margin="10,5,15,15">
                    <Grid.ColumnDefinitions>
                        <ColumnDefinition />
                        <ColumnDefinition />
                    </Grid.ColumnDefinitions>
                    <Grid.RowDefinitions>
                        <RowDefinition />
                        <RowDefinition />
                        <RowDefinition />
                        <RowDefinition />
                    </Grid.RowDefinitions>

                    <TextBlock Text="Length: " Grid.Column="0" Grid.Row="0" Foreground="Black"/>
                    <TextBlock Name="TextBlockLength" Grid.Column="1" Grid.Row="0" Foreground="Black"/>
                    <TextBlock Text="Area: " Grid.Column="0" Grid.Row="1" Foreground="Black"/>
                    <TextBlock Name="TextBlockArea" Grid.Column="1" Grid.Row="1" Foreground="Black"/>
                    <TextBlock Text="Vertices Before: " Grid.Column="0" Grid.Row="2" Foreground="Black"/>
                    <TextBlock Name="TextBlockVerticesBefore" Grid.Column="1" Grid.Row="2" Foreground="Black"/>
                    <TextBlock Text="Vertices After: " Grid.Column="0" Grid.Row="3" Foreground="Black"/>
                    <TextBlock Name="TextBlockVerticesAfter" Grid.Column="1" Grid.Row="3" Foreground="Black"/>
                </Grid>
            </StackPanel>
        </Grid>

    </Grid>
</UserControl>

C#

using System;
using System.Windows;
using System.Windows.Controls;
using ESRI.ArcGIS.Client;
using ESRI.ArcGIS.Client.Geometry;
using ESRI.ArcGIS.Client.Symbols;

namespace ArcGISWPFSDK
{

    public partial class Geodesic : UserControl
    {


        Draw MyDrawObject;
        GraphicsLayer featureGraphicsLayer;
        GraphicsLayer verticesGraphicsLayer;

        private static ESRI.ArcGIS.Client.Projection.WebMercator _mercator =
           new ESRI.ArcGIS.Client.Projection.WebMercator();

        public Geodesic()
        {
            InitializeComponent();

            featureGraphicsLayer = MyMap.Layers["GeodesicResultGraphicsLayer"] as GraphicsLayer;
            verticesGraphicsLayer = MyMap.Layers["VerticesGraphicsLayer"] as GraphicsLayer;

            MyDrawObject = new Draw(MyMap)
            {
                LineSymbol = LayoutRoot.Resources["DrawLineSymbol"] as LineSymbol,
                FillSymbol = LayoutRoot.Resources["DrawFillSymbol"] as FillSymbol
            };

            MyDrawObject.DrawComplete += MyDrawObject_DrawComplete;
            MyDrawObject.VertexAdded += new EventHandler<VertexAddedEventArgs>(MyDrawObject_VertexAdded);
        }

        void MyDrawObject_VertexAdded(object sender, VertexAddedEventArgs e)
        {
            System.Diagnostics.Debug.WriteLine("d_VertexAdded {0} - {1}", e.DrawMode, e.Vertex);
        }

        private void MyDrawObject_DrawComplete(object sender, ESRI.ArcGIS.Client.DrawEventArgs args)
        {
            Type geometryType = args.Geometry.GetType();
            Geometry wgs84Geometry = _mercator.ToGeographic(args.Geometry);
            Geometry mercatorDensifiedGeometry = null;
            int originalVerticeCount = 0;
            int densifiedVerticeCount = 0;

            if (geometryType == typeof(Polygon))
            {
                // Values returned in meters
                TextBlockLength.Text = (ESRI.ArcGIS.Client.Geometry.Geodesic.Length(wgs84Geometry as Polygon)
                    * 0.000621371192).ToString("#0.000") + " mi";
                TextBlockArea.Text = (Math.Abs(ESRI.ArcGIS.Client.Geometry.Geodesic.Area(wgs84Geometry as Polygon))
                    * 3.86102159e-7).ToString("#0.000") + " sq mi";

                foreach (PointCollection ring in (args.Geometry as Polygon).Rings)
                    foreach (MapPoint mp in ring)
                    {
                        originalVerticeCount++;
                        verticesGraphicsLayer.Graphics.Add(new ESRI.ArcGIS.Client.Graphic()
                        {
                            Geometry = mp,
                            Symbol = LayoutRoot.Resources["OriginalMarkerSymbol"] as Symbol
                        });
                    }

                Geometry densifiedGeometry =
                    ESRI.ArcGIS.Client.Geometry.Geodesic.Densify(wgs84Geometry, MyMap.Resolution * 10);

                mercatorDensifiedGeometry = _mercator.FromGeographic(densifiedGeometry);

                foreach (PointCollection ring in (mercatorDensifiedGeometry as Polygon).Rings)
                    foreach (MapPoint mp in ring)
                    {
                        densifiedVerticeCount++;
                        verticesGraphicsLayer.Graphics.Add(new ESRI.ArcGIS.Client.Graphic()
                        {
                            Geometry = mp,
                            Symbol = LayoutRoot.Resources["NewMarkerSymbol"] as Symbol
                        });
                    }
            }
            else
            {
                // Value returned in meters
                TextBlockLength.Text = (ESRI.ArcGIS.Client.Geometry.Geodesic.Length(wgs84Geometry as Polyline)
                    * 0.000621371192).ToString("#0.000") + " mi";

                TextBlockArea.Text = "NA";

                foreach (PointCollection path in (args.Geometry as Polyline).Paths)
                    foreach (MapPoint mp in path)
                    {
                        originalVerticeCount++;
                        verticesGraphicsLayer.Graphics.Add(new ESRI.ArcGIS.Client.Graphic()
                        {
                            Geometry = mp,
                            Symbol = LayoutRoot.Resources["OriginalMarkerSymbol"] as Symbol
                        });
                    }

                Geometry densifiedGeometry =
                    ESRI.ArcGIS.Client.Geometry.Geodesic.Densify(wgs84Geometry, MyMap.Resolution * 10);

                mercatorDensifiedGeometry = _mercator.FromGeographic(densifiedGeometry);

                foreach (PointCollection path in (mercatorDensifiedGeometry as Polyline).Paths)
                    foreach (MapPoint mp in path)
                    {
                        densifiedVerticeCount++;
                        verticesGraphicsLayer.Graphics.Add(new ESRI.ArcGIS.Client.Graphic()
                        {
                            Geometry = mp,
                            Symbol = LayoutRoot.Resources["NewMarkerSymbol"] as Symbol
                        });
                    }
            }

            featureGraphicsLayer.Graphics.Add(new ESRI.ArcGIS.Client.Graphic()
            {
                Geometry = mercatorDensifiedGeometry,
                Symbol = geometryType == typeof(Polygon) ?
                LayoutRoot.Resources["ResultFillSymbol"] as Symbol :
                LayoutRoot.Resources["ResultLineSymbol"] as Symbol
            });

            TextBlockVerticesBefore.Text = originalVerticeCount.ToString();
            TextBlockVerticesAfter.Text = densifiedVerticeCount.ToString();
        }

        private void Button_Click(object sender, RoutedEventArgs e)
        {
            Button button = sender as Button;
            if ((button.Tag as string) == "Polygon")
            {
                MyDrawObject.DrawMode = DrawMode.Polygon;
                MyDrawObject.IsEnabled = true;
            }
            else if ((button.Tag as string) == "Polyline")
            {
                MyDrawObject.DrawMode = DrawMode.Polyline;
                MyDrawObject.IsEnabled = true;
            }
            else
            {
                MyDrawObject.IsEnabled = false;
                featureGraphicsLayer.ClearGraphics();
                verticesGraphicsLayer.ClearGraphics();
            }
        }
    }
}

VB.NET

Imports System.Windows
Imports System.Windows.Controls
Imports ESRI.ArcGIS.Client
Imports ESRI.ArcGIS.Client.Geometry
Imports ESRI.ArcGIS.Client.Symbols

Namespace ArcGISWPFSDK
    Partial Public Class Geodesic
        Inherits UserControl
        Private MyDrawObject As Draw
        Private featureGraphicsLayer As GraphicsLayer
        Private verticesGraphicsLayer As GraphicsLayer

        Private Shared _mercator As New ESRI.ArcGIS.Client.Projection.WebMercator()

        Public Sub New()
            InitializeComponent()

            featureGraphicsLayer = TryCast(MyMap.Layers("GeodesicResultGraphicsLayer"), GraphicsLayer)
            verticesGraphicsLayer = TryCast(MyMap.Layers("VerticesGraphicsLayer"), GraphicsLayer)

            MyDrawObject = New Draw(MyMap) With { _
             .LineSymbol = TryCast(LayoutRoot.Resources("DrawLineSymbol"), LineSymbol), _
             .FillSymbol = TryCast(LayoutRoot.Resources("DrawFillSymbol"), FillSymbol) _
            }

            AddHandler MyDrawObject.DrawComplete, AddressOf MyDrawObject_DrawComplete
            AddHandler MyDrawObject.VertexAdded, New EventHandler(Of VertexAddedEventArgs)(AddressOf MyDrawObject_VertexAdded)
        End Sub

        Private Sub MyDrawObject_VertexAdded(sender As Object, e As VertexAddedEventArgs)
            System.Diagnostics.Debug.WriteLine("d_VertexAdded {0} - {1}", e.DrawMode, e.Vertex)
        End Sub

        Private Sub MyDrawObject_DrawComplete(sender As Object, args As ESRI.ArcGIS.Client.DrawEventArgs)
            Dim geometryType As Type = args.Geometry.[GetType]()
            Dim wgs84Geometry As Geometry = _mercator.ToGeographic(args.Geometry)
            Dim mercatorDensifiedGeometry As Geometry = Nothing
            Dim originalVerticeCount As Integer = 0
            Dim densifiedVerticeCount As Integer = 0

            If geometryType Is GetType(Polygon) Then
                ' Values returned in meters
                TextBlockLength.Text = (ESRI.ArcGIS.Client.Geometry.Geodesic.Length(TryCast(wgs84Geometry, Polygon)) * 0.000621371192).ToString("#0.000") & " mi"
                TextBlockArea.Text = (Math.Abs(ESRI.ArcGIS.Client.Geometry.Geodesic.Area(TryCast(wgs84Geometry, Polygon))) * 0.000000386102159).ToString("#0.000") & " sq mi"

                For Each ring As PointCollection In TryCast(args.Geometry, Polygon).Rings
                    For Each mp As MapPoint In ring
                        originalVerticeCount += 1
                        verticesGraphicsLayer.Graphics.Add(New ESRI.ArcGIS.Client.Graphic() With { _
                         .Geometry = mp, _
                         .Symbol = TryCast(LayoutRoot.Resources("OriginalMarkerSymbol"), Symbol) _
                        })
                    Next
                Next

                Dim densifiedGeometry As Geometry = ESRI.ArcGIS.Client.Geometry.Geodesic.Densify(wgs84Geometry, MyMap.Resolution * 10)

                mercatorDensifiedGeometry = _mercator.FromGeographic(densifiedGeometry)

                For Each ring As PointCollection In TryCast(mercatorDensifiedGeometry, Polygon).Rings
                    For Each mp As MapPoint In ring
                        densifiedVerticeCount += 1
                        verticesGraphicsLayer.Graphics.Add(New ESRI.ArcGIS.Client.Graphic() With { _
                         .Geometry = mp, _
                         .Symbol = TryCast(LayoutRoot.Resources("NewMarkerSymbol"), Symbol) _
                        })
                    Next
                Next
            Else
                ' Value returned in meters
                TextBlockLength.Text = (ESRI.ArcGIS.Client.Geometry.Geodesic.Length(TryCast(wgs84Geometry, Polyline)) * 0.000621371192).ToString("#0.000") & " mi"

                TextBlockArea.Text = "NA"

                For Each path As PointCollection In TryCast(args.Geometry, Polyline).Paths
                    For Each mp As MapPoint In path
                        originalVerticeCount += 1
                        verticesGraphicsLayer.Graphics.Add(New ESRI.ArcGIS.Client.Graphic() With { _
                         .Geometry = mp, _
                         .Symbol = TryCast(LayoutRoot.Resources("OriginalMarkerSymbol"), Symbol) _
                        })
                    Next
                Next

                Dim densifiedGeometry As Geometry = ESRI.ArcGIS.Client.Geometry.Geodesic.Densify(wgs84Geometry, MyMap.Resolution * 10)

                mercatorDensifiedGeometry = _mercator.FromGeographic(densifiedGeometry)

                For Each path As PointCollection In TryCast(mercatorDensifiedGeometry, Polyline).Paths
                    For Each mp As MapPoint In path
                        densifiedVerticeCount += 1
                        verticesGraphicsLayer.Graphics.Add(New ESRI.ArcGIS.Client.Graphic() With { _
                         .Geometry = mp, _
                         .Symbol = TryCast(LayoutRoot.Resources("NewMarkerSymbol"), Symbol) _
                        })
                    Next
                Next
            End If

            featureGraphicsLayer.Graphics.Add(New ESRI.ArcGIS.Client.Graphic() With { _
             .Geometry = mercatorDensifiedGeometry, _
             .Symbol = If(geometryType Is GetType(Polygon), TryCast(LayoutRoot.Resources("ResultFillSymbol"), Symbol), TryCast(LayoutRoot.Resources("ResultLineSymbol"), Symbol)) _
            })

            TextBlockVerticesBefore.Text = originalVerticeCount.ToString()
            TextBlockVerticesAfter.Text = densifiedVerticeCount.ToString()
        End Sub

        Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
            Dim button As Button = TryCast(sender, Button)
            If TryCast(button.Tag, String) = "Polygon" Then
                MyDrawObject.DrawMode = DrawMode.Polygon
                MyDrawObject.IsEnabled = True
            ElseIf TryCast(button.Tag, String) = "Polyline" Then
                MyDrawObject.DrawMode = DrawMode.Polyline
                MyDrawObject.IsEnabled = True
            Else
                MyDrawObject.IsEnabled = False
                featureGraphicsLayer.ClearGraphics()
                verticesGraphicsLayer.ClearGraphics()
            End If
        End Sub
    End Class

End Namespace