Go to content Go to navigation and search


Current SQL Server Blog Articles

    STGeometryTypes: Extracting all geometry type string values from complex geometry
    STDensify: Densify (m)LineString or (m)Polygon geometry objects
    STInsertN: Insert single vertex into a geometry
    STUpdateN: Update (replace) a single vertex within a geometry object.
    STUpdate: Replace all points equal to the supplied point with replacement point.
    STDeleteN: Delete single vertex from geometry
    STDelete: Deleting vertices in geometry objects
    STFlipVectors: Normalize direction of linestring vectors
    STConvertToLineString: Extract LineStrings in GeometryCollection to create LineString
    STLine2Cogo: Converting LineStrings to COGO XML
    STCogo2Line: Creating (Multi)LineStrings geometries from COGO XML instructions
    STVectorize: Break Linestring/Polygon elements into 2 point vectors (or 3 point circular curves)
    STScale: Function to Scale a geometry object
    TSQL String Tokenizer Function for SQL Server
    STGeometry2MBR/STGeography2MBR: Compute and return MBR ordinates
    generate_series for SQL Server 2008
    STExtractPolygon: Extract Polygons from result of STIntersection in SQL Server Spatial
    STRound: Function to round ordinates of a SQL Server Spatial geometry object
    STExtract: Extract elements of a geometry object
    STNumRings: Counting number of polygon rings
    STFilterRings: Removing rings from Polygon based on area.
    STMove: Function to Move a geometry object in SQL Server Spatial
    STCentroid*: Alternate Functions for Compute a Centroid
    STRotate: Function to rotate a geometry object in SQL Server Spatial
    STVertices: Wrapper over STDumpPoints
    STMorton: Creating a Morton number Space Key value for grid square
    Gridding a geometry or geography object (SQL Server Denali)
    On hinting spatial indexes
    RandomSearchByExtent: Random Search Procedure (2008 Spatial)
    COGO: Convert DMS String to decimal degrees floating point number.
    COGO: Converting (Google Earth) Formatted Longitude/Latitude points to decimal degrees (SQL Server)
    COGO: Convert Degrees, Minutes and Seconds values to Decimal Degrees
    COGO: DD2DMS Formatting a latitude/longitude decimal degree value
    COGO: Create point from bearing and distance
    COGO: Compute number of vertices required to stroke circle or circular arc
    COGO: Calculating the bearing between two points (SQL Server 2008 Spatial)
    COGO: Compute arc length subtended by angle centre of circle
    COGO: Compute chord length of segment of a circle (arc)
    COGO: Computing Arc To Chord (Arc2Chord) Separation
    COGO: Creating a stroked polygon from a circle's centre x,y and radius
    COGO: Finding centre and radius of a curve defined by three points: FindCircle function
    CheckRadii: Identifying Tight Radius Curves sections within LineString geometry data
    Generating random point data for SQL Server 2008 Spatial
    New Presentation on Active (Searchable) Spatial Metadata for SQL Server 2008 Spatial and FreeText
    STisGeo: Checking if a column in a table or a view is of type geometry or geography
    Vectorising geometry objects in SQL Server 2008
    STMBR2Geometry/STMBR2Geography functions
    Extracting geometry types from geometry/geography objects in SQL Server 2008
    Getting the number of coordinate dimensions of a geometry/geography object in SQL Server 2008
    STDumpPoints: A Function that Dumps the Vertices/Points in a geometry
    toGeography and toGeography Conversion Functions for SQL Server 2008 Spatial
    Write text file with spatial data from SQL Server 2008
    Loading Shapefiles into Geography type column in SQL Server 2008
    Tip #6: Correcting invalid geometries
    Tip #5: Where or where has my little column gone
    Tip #4: What Coordinate System is that?
    Tip #3: What object is that?
    Tip #2: Spatial Indexing and Primary Keys
    Tip #1: SQL Server 2008 "Katmai" - Setting SRIDs



RSS / Atom

Email me


Creative Commons License
All Blog Articles, Data Models and Free Source Code by Simon Greener, The SpatialDB Advisor is licensed under a Creative Commons Attribution-ShareAlike 3.0 Unported License.

COGO: Create point from bearing and distance

Friday May 06 2011 at 03:15

Sometimes the definition of an object can be as a bearing and distance from a known point. This often happens in unbiased statistical sampling, or when creating polygons describing land titles from coordinate geometry (COGO) measurements.

Here is a version of the PointFromBearingAndDistance PL/SQL function I wrote for Oracle Spatial many years ago for SQL Server 2008.

Note that I have a schema call cogo in which I create functions like this. You can use anything you like.

* @function   : PointFromBearingAndDistance
* @precis     : Returns a point geometry given a starting point, bearing and distance.
* @version    : 1.0
* @usage      : FUNCTION PointFromBearingAndDistance(@p_dStartE   float,
*                                                    @p_dStartN   float,
*                                                    @p_dBearing  float,
*                                                    @p_dDistance float,
*                                                    @p_precision int = 3,
*                                                    @p_srid      int = 0 )
*                 RETURNS GEOMETRY
*               eg select cogo.PointFromBearingAndDistance(0,0,45,100,3,0).STAsText();
* @param      : p_dStartE     : X Ordinate of start point of bearing
* @paramtype  : p_dStartE     : FLOAT
* @param      : p_dStartN     : Y Ordinate of start point of bearing
* @paramtype  : p_dStartN     : FLOAT
* @param      : p_dBearing    : Whole circle bearing (ie 0 North to 360 degree clockwise rotation)
* @paramtype  : p_dBearing    : FLOAT
* @param      : p_dDistance   : Distance in projection units from point along bearing
* @paramtype  : p_dDistance   : FLOAT
* @param      : p_precision   : Precision of any XY value ie number of significant digits. If null then 3 is assumed (ie 1 mm): 3456.2345245 -> 3456.235 
* @paramtype  : p_precision   : INTEGER
* @param      : p_srid        : SRID of output shape
* @paramtype  : p_srid        : INTEGER
* @return     : geometry      : Point geometry 
* @rtnType    : geometry      : GEOMETRY
* @note       : Does not throw exceptions
* @note       : Assumes planar projection eg UTM.
* @history    : Simon Greener  - Feb 2005 - Original coding.
* @history    : Simon Greener  - May 2011 - Converted to SQL Server
[cogo].[PointFromBearingAndDistance] (@p_dStartE   Float,
                                      @p_dStartN   Float,
                                      @p_dBearing  Float,
                                      @p_dDistance Float,
                                      @p_precision int = 3,
                                      @p_srid      int = 0 )
RETURNS geometry
      @dAngle1    Float,
      @dAngle1Rad Float,
      @dDeltaN    Float,
      @dDeltaE    Float,
      @dEndE      Float,
      @dEndN      Float,
      @precision  int = CASE WHEN @p_precision IS NULL THEN  3 ELSE @p_precision END,
      @srid       int = CASE WHEN @p_srid      IS NULL THEN  0 ELSE @p_srid      END;
      IF ( @p_dStartE   IS NULL OR
           @p_dStartN   IS NULL OR
           @p_dBearing  IS NULL OR
           @p_dDistance IS NULL )
      -- First calculate dDeltaE and dDeltaN
      IF ( @p_dBearing < 90 )
          SET @dAngle1    = 90 - @p_dBearing;
          SET @dAngle1Rad = @dAngle1 * PI() / 180;
          SET @dDeltaE    = Cos(@dAngle1Rad) * @p_dDistance;
          SET @dDeltaN    = Sin(@dAngle1Rad) * @p_dDistance;
      IF ( @p_dBearing < 180 )
          SET @dAngle1    = @p_dBearing - 90;
          SET @dAngle1Rad = @dAngle1 * PI() / 180;
          SET @dDeltaE    = Cos(@dAngle1Rad) * @p_dDistance;
          SET @dDeltaN    = Sin(@dAngle1Rad) * @p_dDistance * -1;
      IF ( @p_dBearing < 270 )
          SET @dAngle1    = 270 - @p_dBearing;
          SET @dAngle1Rad = @dAngle1 * PI() / 180;
          SET @dDeltaE    = Cos(@dAngle1Rad) * @p_dDistance * -1;
          SET @dDeltaN    = Sin(@dAngle1Rad) * @p_dDistance * -1;
      IF ( @p_dBearing <= 360 )
          SET @dAngle1    = @p_dBearing - 270;
          SET @dAngle1Rad = @dAngle1 * PI() / 180;
          SET @dDeltaE    = Cos(@dAngle1Rad) * @p_dDistance * -1;
          SET @dDeltaN    = Sin(@dAngle1Rad) * @p_dDistance;
      -- Calculate the easting and northing of the end point
      SET @dEndE = @dDeltaE + @p_dStartE;
      SET @dEndN = @dDeltaN + @p_dStartn;
      RETURN geometry::Point(ROUND(@dEndE, @precision),ROUND(@dEndN, @precision), @srid);

Here is an example of how to generate the geometry::Point object at the end of a bearing of 45 degrees and distance of 100 meters from ( 0,0 ) .

select cogo.PointFromBearingAndDistance(0,0,45,100,3,0).STAsText() as NewPoint;

POINT (70.711 70.711)

Or more visually:

  @XY Float = SQRT(POWER(100,2)/2);
select geometry::STGeomFromText('POINT(0 0)',0).STBuffer(10) as geom
union all
select geometry::STGeomFromText('LINESTRING(0 0,' + STR(@XY,10,5) + ' ' + STR(@XY,10,5) + ')',0) as geom
union all
select cogo.PointFromBearingAndDistance(0,0,45,100,3,0).STBuffer(10) as geom;

I hope this is helpful to someone.

Creative Commons License

post this at del.icio.uspost this at Diggpost this at Technoratipost this at Redditpost this at Farkpost this at Yahoo! my webpost this at Windows Livepost this at Google Bookmarkspost this to Twitter