Densify Online

This sample demonstrates using an ESRI.ArcGIS.Client.Tasks GeometryService that takes an input polygon graphic and returns a densified polygon graphic. The original vertices to create the original polygon graphic are shown in red. The returned polygon shows the additional densified vertices in green.

To use the sample, create a polygon on the map. Red points indicate digitized polygon vertices. Click the Densify Polygon button to densify the polygon. Green points show all vertices (original and new) in the densified polygon.

XAML

<UserControl x:Class="ArcGISWPFSDK.Densify"      
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
    xmlns:esri="http://schemas.esri.com/arcgis/client/2009">
    <Grid x:Name="LayoutRoot">

        <Grid.Resources>
            <esri:SimpleMarkerSymbol x:Key="DefaultMarkerSymbol" 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="DefaultFillSymbol" Fill="#88000000" BorderBrush="Black" />
            <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">
            <esri:ArcGISTiledMapServiceLayer ID="StreetMapLayer" 
                      Url="http://services.arcgisonline.com/ArcGIS/rest/services/World_Street_Map/MapServer"/>
            <esri:GraphicsLayer ID="PolygonGraphicsLayer" />
            <esri:GraphicsLayer ID="VerticesGraphicsLayer" />
        </esri:Map>

        <Grid HorizontalAlignment="Right" VerticalAlignment="Top" Margin="0,10,10,0" >
            <Rectangle Fill="{StaticResource PanelGradient}" Stroke="Gray"  RadiusX="10" RadiusY="10" Margin="0,0,0,5" >
                <Rectangle.Effect>
                    <DropShadowEffect/>
                </Rectangle.Effect>
            </Rectangle>
            <Rectangle Fill="#FFFFFFFF" Stroke="DarkGray" RadiusX="5" RadiusY="5" Margin="10,10,10,15" />
            <StackPanel Orientation="Vertical" Margin="30,20,25,30" >
                <TextBlock x:Name="ResponseTextBlock" Text="Create a polygon on the map. Red points indicate digitized polygon vertices.  Click the Densify Polygon button to densify the polygon.  Green points show all vertices (original and new) in the densified polygon." 
                           Width="550" TextAlignment="Left"  TextWrapping="Wrap" Foreground="Black"/>
                <StackPanel Orientation="Horizontal" HorizontalAlignment="Center" >
                    <Button Content="Densify Polygon" Margin="0,5,5,0" x:Name="DensifyButton" 
                            Click="DensifyButton_Click" IsEnabled="False" />
                </StackPanel>
            </StackPanel>
        </Grid>

    </Grid>
</UserControl>

C#

using System;
using System.Linq;
using System.Windows;
using System.Windows.Controls;
using ESRI.ArcGIS.Client;
using ESRI.ArcGIS.Client.Geometry;
using ESRI.ArcGIS.Client.Tasks;

namespace ArcGISWPFSDK
{
    public partial class Densify : UserControl
    {
        private Draw MyDrawObject;

        public Densify()
        {
            InitializeComponent();
            MyDrawObject = new Draw(MyMap)
                {
                    DrawMode = DrawMode.Polygon,
                    IsEnabled = true,
                    FillSymbol = LayoutRoot.Resources["DefaultFillSymbol"] as ESRI.ArcGIS.Client.Symbols.FillSymbol
                };
            MyDrawObject.DrawComplete += MyDrawObject_DrawComplete;
            MyDrawObject.DrawBegin += MyDrawObject_DrawBegin;
        }

        private void MyDrawObject_DrawBegin(object sender, EventArgs args)
        {
            GraphicsLayer graphicsLayerPolygon = MyMap.Layers["PolygonGraphicsLayer"] as GraphicsLayer;
            graphicsLayerPolygon.ClearGraphics();
            GraphicsLayer graphicsLayerVertices = MyMap.Layers["VerticesGraphicsLayer"] as GraphicsLayer;
            graphicsLayerVertices.ClearGraphics();
        }

        private void MyDrawObject_DrawComplete(object sender, DrawEventArgs args)
        {
            ESRI.ArcGIS.Client.Geometry.Polygon polygon = args.Geometry as ESRI.ArcGIS.Client.Geometry.Polygon;
            polygon.SpatialReference = MyMap.SpatialReference;
            Graphic graphic = new Graphic()
            {
                Symbol = LayoutRoot.Resources["DefaultFillSymbol"] as ESRI.ArcGIS.Client.Symbols.Symbol,
                Geometry = polygon
            };

            GraphicsLayer graphicsLayerPolygon = MyMap.Layers["PolygonGraphicsLayer"] as GraphicsLayer;
            graphicsLayerPolygon.Graphics.Add(graphic);

            GraphicsLayer graphicsLayerVertices = MyMap.Layers["VerticesGraphicsLayer"] as GraphicsLayer;
            foreach (MapPoint point in polygon.Rings[0])
            {
                Graphic vertice = new Graphic()
                {
                    Symbol = LayoutRoot.Resources["DefaultMarkerSymbol"] as ESRI.ArcGIS.Client.Symbols.Symbol,
                    Geometry = point
                };
                graphicsLayerVertices.Graphics.Add(vertice);
            }
            DensifyButton.IsEnabled = true;
        }

        private void DensifyButton_Click(object sender, RoutedEventArgs e)
        {
            DensifyButton.IsEnabled = false;

            GraphicsLayer graphicsLayerPolygon = MyMap.Layers["PolygonGraphicsLayer"] as GraphicsLayer;

            GeometryService geometryService =
                        new GeometryService("http://tasks.arcgisonline.com/ArcGIS/rest/services/Geometry/GeometryServer");
            geometryService.DensifyCompleted += GeometryService_DensifyCompleted;
            geometryService.Failed += GeometryService_Failed;

            DensifyParameters densityParameters = new DensifyParameters()
            {
                LengthUnit = LinearUnit.Meter,
                Geodesic = true,
                MaxSegmentLength = MyMap.Resolution * 10
            };

            geometryService.DensifyAsync(graphicsLayerPolygon.Graphics.ToList(), densityParameters);
        }

        void GeometryService_DensifyCompleted(object sender, GraphicsEventArgs e)
        {
            GraphicsLayer graphicsLayerVertices = MyMap.Layers["VerticesGraphicsLayer"] as GraphicsLayer;
            foreach (Graphic g in e.Results)
            {
                ESRI.ArcGIS.Client.Geometry.Polygon p = g.Geometry as ESRI.ArcGIS.Client.Geometry.Polygon;

                foreach (ESRI.ArcGIS.Client.Geometry.PointCollection pc in p.Rings)
                {
                    foreach (MapPoint point in pc)
                    {
                        Graphic vertice = new Graphic()
                        {
                            Symbol = LayoutRoot.Resources["NewMarkerSymbol"] as ESRI.ArcGIS.Client.Symbols.Symbol,
                            Geometry = point
                        };
                        graphicsLayerVertices.Graphics.Add(vertice);
                    }
                }
            }
            DensifyButton.IsEnabled = true;
        }

        private void GeometryService_Failed(object sender, TaskFailedEventArgs e)
        {
            MessageBox.Show("Geometry Service error: " + e.Error);
        }
    }
}

VB.NET

Imports System.Linq
Imports System.Windows
Imports System.Windows.Controls
Imports ESRI.ArcGIS.Client
Imports ESRI.ArcGIS.Client.Geometry
Imports ESRI.ArcGIS.Client.Tasks

Namespace ArcGISWPFSDK
    Partial Public Class Densify
        Inherits UserControl
        Private MyDrawObject As Draw

        Public Sub New()
            InitializeComponent()
            MyDrawObject = New Draw(MyMap) With { _
             .DrawMode = DrawMode.Polygon, _
             .IsEnabled = True, _
             .FillSymbol = TryCast(LayoutRoot.Resources("DefaultFillSymbol"), ESRI.ArcGIS.Client.Symbols.FillSymbol) _
            }
            AddHandler MyDrawObject.DrawComplete, AddressOf MyDrawObject_DrawComplete
            AddHandler MyDrawObject.DrawBegin, AddressOf MyDrawObject_DrawBegin
        End Sub

        Private Sub MyDrawObject_DrawBegin(sender As Object, args As EventArgs)
            Dim graphicsLayerPolygon As GraphicsLayer = TryCast(MyMap.Layers("PolygonGraphicsLayer"), GraphicsLayer)
            graphicsLayerPolygon.ClearGraphics()
            Dim graphicsLayerVertices As GraphicsLayer = TryCast(MyMap.Layers("VerticesGraphicsLayer"), GraphicsLayer)
            graphicsLayerVertices.ClearGraphics()
        End Sub

        Private Sub MyDrawObject_DrawComplete(sender As Object, args As DrawEventArgs)
            Dim polygon As ESRI.ArcGIS.Client.Geometry.Polygon = TryCast(args.Geometry, ESRI.ArcGIS.Client.Geometry.Polygon)
            polygon.SpatialReference = MyMap.SpatialReference
            Dim graphic As New Graphic() With { _
             .Symbol = TryCast(LayoutRoot.Resources("DefaultFillSymbol"), ESRI.ArcGIS.Client.Symbols.Symbol), _
             .Geometry = polygon _
            }

            Dim graphicsLayerPolygon As GraphicsLayer = TryCast(MyMap.Layers("PolygonGraphicsLayer"), GraphicsLayer)
            graphicsLayerPolygon.Graphics.Add(graphic)

            Dim graphicsLayerVertices As GraphicsLayer = TryCast(MyMap.Layers("VerticesGraphicsLayer"), GraphicsLayer)
            For Each point As MapPoint In polygon.Rings(0)
                Dim vertice As New Graphic() With { _
                 .Symbol = TryCast(LayoutRoot.Resources("DefaultMarkerSymbol"), ESRI.ArcGIS.Client.Symbols.Symbol), _
                 .Geometry = point _
                }
                graphicsLayerVertices.Graphics.Add(vertice)
            Next
            DensifyButton.IsEnabled = True
        End Sub

        Private Sub DensifyButton_Click(sender As Object, e As RoutedEventArgs)
            DensifyButton.IsEnabled = False

            Dim graphicsLayerPolygon As GraphicsLayer = TryCast(MyMap.Layers("PolygonGraphicsLayer"), GraphicsLayer)

            Dim geometryService As New GeometryService("http://tasks.arcgisonline.com/ArcGIS/rest/services/Geometry/GeometryServer")
            AddHandler geometryService.DensifyCompleted, AddressOf GeometryService_DensifyCompleted
            AddHandler geometryService.Failed, AddressOf GeometryService_Failed

            Dim densityParameters As New DensifyParameters() With { _
             .LengthUnit = LinearUnit.Meter, _
             .Geodesic = True, _
             .MaxSegmentLength = MyMap.Resolution * 10 _
            }

            geometryService.DensifyAsync(graphicsLayerPolygon.Graphics.ToList(), densityParameters)
        End Sub

        Private Sub GeometryService_DensifyCompleted(sender As Object, e As GraphicsEventArgs)
            Dim graphicsLayerVertices As GraphicsLayer = TryCast(MyMap.Layers("VerticesGraphicsLayer"), GraphicsLayer)
            For Each g As Graphic In e.Results
                Dim p As ESRI.ArcGIS.Client.Geometry.Polygon = TryCast(g.Geometry, ESRI.ArcGIS.Client.Geometry.Polygon)

                For Each pc As ESRI.ArcGIS.Client.Geometry.PointCollection In p.Rings
                    For Each point As MapPoint In pc
                        Dim vertice As New Graphic() With { _
                         .Symbol = TryCast(LayoutRoot.Resources("NewMarkerSymbol"), ESRI.ArcGIS.Client.Symbols.Symbol), _
                         .Geometry = point _
                        }
                        graphicsLayerVertices.Graphics.Add(vertice)
                    Next
                Next
            Next
            DensifyButton.IsEnabled = True
        End Sub

        Private Sub GeometryService_Failed(sender As Object, e As TaskFailedEventArgs)
            MessageBox.Show("Geometry Service error: " & Convert.ToString(e.[Error]))
        End Sub
    End Class
End Namespace