For the given coordinates C[0], C[1], ... C[n], runs through the coordinates in order until a coordinate C[i] is found whose distance from C[0] is greater than the given radius. Finds the coordinate C on the line segment between C[0] and C[i] such that the distance C[0]-to-C equals the given radius. Returns the sequence C, C[i], C[i+1], ... C[n].

'Declaration
 
<ExtensionAttribute()>
Public Shared Function TrimRadial( _
   ByVal inputCoords() As SE.Geospatial.Spatial.Coordinate, _
   ByVal radius As Double _
) As SE.Geospatial.Spatial.Coordinate()

'Usage
 
Dim inputCoords() As SE.Geospatial.Spatial.Coordinate
Dim radius As Double
Dim value() As SE.Geospatial.Spatial.Coordinate
 
value = SeSpatialExtensions.TrimRadial(inputCoords, radius)

[Extension()]
public static SE.Geospatial.Spatial.Coordinate[] TrimRadial( 
   SE.Geospatial.Spatial.Coordinate[] inputCoords,
   double radius
)