mirror of
https://git.osgeo.org/gitea/postgis/postgis
synced 2024-10-24 17:12:35 +00:00
af3b7fe1db
git-svn-id: http://svn.osgeo.org/postgis/trunk@8792 b70326c6-7e19-0410-871a-916f4a2858ee
494 lines
11 KiB
C
494 lines
11 KiB
C
/**********************************************************************
|
|
* $Id$
|
|
*
|
|
* PostGIS - Spatial Types for PostgreSQL
|
|
* http://postgis.refractions.net
|
|
* Copyright 2008 Paul Ramsey
|
|
*
|
|
* This is free software; you can redistribute and/or modify it under
|
|
* the terms of the GNU General Public Licence. See the COPYING file.
|
|
*
|
|
**********************************************************************/
|
|
|
|
#include "liblwgeom_internal.h"
|
|
#include "lwgeom_log.h"
|
|
|
|
|
|
/**
|
|
* Returns -1 if n < 0.0 and 1 if n > 0.0
|
|
*/
|
|
int signum(double n)
|
|
{
|
|
if( n < 0 ) return -1;
|
|
if( n > 0 ) return 1;
|
|
return 0;
|
|
}
|
|
|
|
/**
|
|
** lw_segment_side()
|
|
**
|
|
** Return < 0.0 if point Q is left of segment P
|
|
** Return > 0.0 if point Q is right of segment P
|
|
** Return = 0.0 if point Q in on segment P
|
|
*/
|
|
double lw_segment_side(const POINT2D *p1, const POINT2D *p2, const POINT2D *q)
|
|
{
|
|
double side = ( (q->x - p1->x) * (p2->y - p1->y) - (p2->x - p1->x) * (q->y - p1->y) );
|
|
if ( FP_IS_ZERO(side) )
|
|
return 0.0;
|
|
else
|
|
return side;
|
|
}
|
|
|
|
|
|
int lw_segment_envelope_intersects(const POINT2D *p1, const POINT2D *p2, const POINT2D *q1, const POINT2D *q2)
|
|
{
|
|
double minq=FP_MIN(q1->x,q2->x);
|
|
double maxq=FP_MAX(q1->x,q2->x);
|
|
double minp=FP_MIN(p1->x,p2->x);
|
|
double maxp=FP_MAX(p1->x,p2->x);
|
|
|
|
if (FP_GT(minp,maxq) || FP_LT(maxp,minq))
|
|
return LW_FALSE;
|
|
|
|
minq=FP_MIN(q1->y,q2->y);
|
|
maxq=FP_MAX(q1->y,q2->y);
|
|
minp=FP_MIN(p1->y,p2->y);
|
|
maxp=FP_MAX(p1->y,p2->y);
|
|
|
|
if (FP_GT(minp,maxq) || FP_LT(maxp,minq))
|
|
return LW_FALSE;
|
|
|
|
return LW_TRUE;
|
|
}
|
|
|
|
/**
|
|
** @brief returns the kind of #CG_SEGMENT_INTERSECTION_TYPE behavior of lineseg 1 (constructed from p1 and p2) and lineseg 2 (constructed from q1 and q2)
|
|
** @param p1 start point of first straight linesegment
|
|
** @param p2 end point of first straight linesegment
|
|
** @param q1 start point of second line segment
|
|
** @param q2 end point of second line segment
|
|
** @return a #CG_SEGMENT_INTERSECTION_TYPE
|
|
** Returns one of
|
|
** SEG_ERROR = -1,
|
|
** SEG_NO_INTERSECTION = 0,
|
|
** SEG_COLINEAR = 1,
|
|
** SEG_CROSS_LEFT = 2,
|
|
** SEG_CROSS_RIGHT = 3,
|
|
*/
|
|
int lw_segment_intersects(const POINT2D *p1, const POINT2D *p2, const POINT2D *q1, const POINT2D *q2)
|
|
{
|
|
|
|
double pq1, pq2, qp1, qp2;
|
|
|
|
/* No envelope interaction => we are done. */
|
|
if (!lw_segment_envelope_intersects(p1, p2, q1, p2))
|
|
{
|
|
return SEG_NO_INTERSECTION;
|
|
}
|
|
|
|
/* Are the start and end points of q on the same side of p? */
|
|
pq1=lw_segment_side(p1,p2,q1);
|
|
pq2=lw_segment_side(p1,p2,q2);
|
|
if ((pq1>0 && pq2>0) || (pq1<0 && pq2<0))
|
|
{
|
|
return SEG_NO_INTERSECTION;
|
|
}
|
|
|
|
/* Are the start and end points of p on the same side of q? */
|
|
qp1=lw_segment_side(q1,q2,p1);
|
|
qp2=lw_segment_side(q1,q2,p2);
|
|
if ( (qp1 > 0.0 && qp2 > 0.0) || (qp1 < 0.0 && qp2 < 0.0) )
|
|
{
|
|
return SEG_NO_INTERSECTION;
|
|
}
|
|
|
|
/* Nobody is on one side or another? Must be colinear. */
|
|
if ( pq1 == 0.0 && pq2 == 0.0 && qp1 == 0.0 && qp2 == 0.0 )
|
|
{
|
|
return SEG_COLINEAR;
|
|
}
|
|
|
|
/*
|
|
** When one end-point touches, the sidedness is determined by the
|
|
** location of the other end-point. Only touches by the first point
|
|
** will be considered "real" to avoid double counting.
|
|
*/
|
|
LWDEBUGF(4, "pq1=%.15g pq2=%.15g", pq1, pq2);
|
|
LWDEBUGF(4, "qp1=%.15g qp2=%.15g", qp1, qp2);
|
|
|
|
/* Second point of p or q touches, it's not a crossing. */
|
|
if ( pq2 == 0.0 || qp2 == 0.0 )
|
|
{
|
|
return SEG_NO_INTERSECTION;
|
|
}
|
|
|
|
/* First point of p touches, it's a "crossing". */
|
|
if ( pq1 == 0.0 )
|
|
{
|
|
if ( FP_GT(pq2,0.0) )
|
|
return SEG_CROSS_RIGHT;
|
|
else
|
|
return SEG_CROSS_LEFT;
|
|
}
|
|
|
|
/* First point of q touches, it's a crossing. */
|
|
if ( qp1 == 0.0 )
|
|
{
|
|
if ( FP_LT(pq1,pq2) )
|
|
return SEG_CROSS_RIGHT;
|
|
else
|
|
return SEG_CROSS_LEFT;
|
|
}
|
|
|
|
/* The segments cross, what direction is the crossing? */
|
|
if ( FP_LT(pq1,pq2) )
|
|
return SEG_CROSS_RIGHT;
|
|
else
|
|
return SEG_CROSS_LEFT;
|
|
|
|
/* This should never happen! */
|
|
return SEG_ERROR;
|
|
}
|
|
|
|
/**
|
|
** @brief lwline_crossing_direction: returns the kind of #CG_LINE_CROSS_TYPE behavior of 2 linestrings
|
|
** @param l1 first line string
|
|
** @param l2 second line string
|
|
** @return a #CG_LINE_CROSS_TYPE
|
|
** LINE_NO_CROSS = 0
|
|
** LINE_CROSS_LEFT = -1
|
|
** LINE_CROSS_RIGHT = 1
|
|
** LINE_MULTICROSS_END_LEFT = -2
|
|
** LINE_MULTICROSS_END_RIGHT = 2
|
|
** LINE_MULTICROSS_END_SAME_FIRST_LEFT = -3
|
|
** LINE_MULTICROSS_END_SAME_FIRST_RIGHT = 3
|
|
**
|
|
*/
|
|
int lwline_crossing_direction(const LWLINE *l1, const LWLINE *l2)
|
|
{
|
|
int i = 0, j = 0, rv = 0;
|
|
POINT2D p1, p2, q1, q2;
|
|
POINTARRAY *pa1 = NULL, *pa2 = NULL;
|
|
int cross_left = 0;
|
|
int cross_right = 0;
|
|
int first_cross = 0;
|
|
int this_cross = 0;
|
|
|
|
pa1 = (POINTARRAY*)l1->points;
|
|
pa2 = (POINTARRAY*)l2->points;
|
|
|
|
/* One-point lines can't intersect (and shouldn't exist). */
|
|
if ( pa1->npoints < 2 || pa2->npoints < 2 )
|
|
return LINE_NO_CROSS;
|
|
|
|
LWDEBUGF(4, "l1 = %s", lwgeom_to_ewkt((LWGEOM*)l1));
|
|
LWDEBUGF(4, "l2 = %s", lwgeom_to_ewkt((LWGEOM*)l2));
|
|
|
|
/* Initialize first point of q */
|
|
rv = getPoint2d_p(pa2, 0, &q1);
|
|
|
|
for ( i = 1; i < pa2->npoints; i++ )
|
|
{
|
|
|
|
/* Update second point of q to next value */
|
|
rv = getPoint2d_p(pa2, i, &q2);
|
|
|
|
/* Initialize first point of p */
|
|
rv = getPoint2d_p(pa1, 0, &p1);
|
|
|
|
for ( j = 1; j < pa1->npoints; j++ )
|
|
{
|
|
|
|
/* Update second point of p to next value */
|
|
rv = getPoint2d_p(pa1, j, &p2);
|
|
|
|
this_cross = lw_segment_intersects(&p1, &p2, &q1, &q2);
|
|
|
|
LWDEBUGF(4, "i=%d, j=%d (%.8g %.8g, %.8g %.8g)", this_cross, i, j, p1.x, p1.y, p2.x, p2.y);
|
|
|
|
if ( this_cross == SEG_CROSS_LEFT )
|
|
{
|
|
LWDEBUG(4,"this_cross == SEG_CROSS_LEFT");
|
|
cross_left++;
|
|
if ( ! first_cross )
|
|
first_cross = SEG_CROSS_LEFT;
|
|
}
|
|
|
|
if ( this_cross == SEG_CROSS_RIGHT )
|
|
{
|
|
LWDEBUG(4,"this_cross == SEG_CROSS_RIGHT");
|
|
cross_right++;
|
|
if ( ! first_cross )
|
|
first_cross = SEG_CROSS_LEFT;
|
|
}
|
|
|
|
/*
|
|
** Crossing at a co-linearity can be turned handled by extending
|
|
** segment to next vertext and seeing if the end points straddle
|
|
** the co-linear segment.
|
|
*/
|
|
if ( this_cross == SEG_COLINEAR )
|
|
{
|
|
LWDEBUG(4,"this_cross == SEG_COLINEAR");
|
|
/* TODO: Add logic here and in segment_intersects()
|
|
continue;
|
|
*/
|
|
}
|
|
|
|
LWDEBUG(4,"this_cross == SEG_NO_INTERSECTION");
|
|
|
|
/* Turn second point of p into first point */
|
|
p1 = p2;
|
|
|
|
}
|
|
|
|
/* Turn second point of q into first point */
|
|
q1 = q2;
|
|
|
|
}
|
|
|
|
LWDEBUGF(4, "first_cross=%d, cross_left=%d, cross_right=%d", first_cross, cross_left, cross_right);
|
|
|
|
if ( !cross_left && !cross_right )
|
|
return LINE_NO_CROSS;
|
|
|
|
if ( !cross_left && cross_right == 1 )
|
|
return LINE_CROSS_RIGHT;
|
|
|
|
if ( !cross_right && cross_left == 1 )
|
|
return LINE_CROSS_LEFT;
|
|
|
|
if ( cross_left - cross_right == 1 )
|
|
return LINE_MULTICROSS_END_LEFT;
|
|
|
|
if ( cross_left - cross_right == -1 )
|
|
return LINE_MULTICROSS_END_RIGHT;
|
|
|
|
if ( cross_left - cross_right == 0 && first_cross == SEG_CROSS_LEFT )
|
|
return LINE_MULTICROSS_END_SAME_FIRST_LEFT;
|
|
|
|
if ( cross_left - cross_right == 0 && first_cross == SEG_CROSS_RIGHT )
|
|
return LINE_MULTICROSS_END_SAME_FIRST_RIGHT;
|
|
|
|
return LINE_NO_CROSS;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static char *base32 = "0123456789bcdefghjkmnpqrstuvwxyz";
|
|
|
|
/*
|
|
** Calculate the geohash, iterating downwards and gaining precision.
|
|
** From geohash-native.c, (c) 2008 David Troy <dave@roundhousetech.com>
|
|
** Released under the MIT License.
|
|
*/
|
|
char *geohash_point(double longitude, double latitude, int precision)
|
|
{
|
|
int is_even=1, i=0;
|
|
double lat[2], lon[2], mid;
|
|
char bits[] = {16,8,4,2,1};
|
|
int bit=0, ch=0;
|
|
char *geohash = NULL;
|
|
|
|
geohash = lwalloc(precision + 1);
|
|
|
|
lat[0] = -90.0;
|
|
lat[1] = 90.0;
|
|
lon[0] = -180.0;
|
|
lon[1] = 180.0;
|
|
|
|
while (i < precision)
|
|
{
|
|
if (is_even)
|
|
{
|
|
mid = (lon[0] + lon[1]) / 2;
|
|
if (longitude > mid)
|
|
{
|
|
ch |= bits[bit];
|
|
lon[0] = mid;
|
|
}
|
|
else
|
|
{
|
|
lon[1] = mid;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
mid = (lat[0] + lat[1]) / 2;
|
|
if (latitude > mid)
|
|
{
|
|
ch |= bits[bit];
|
|
lat[0] = mid;
|
|
}
|
|
else
|
|
{
|
|
lat[1] = mid;
|
|
}
|
|
}
|
|
|
|
is_even = !is_even;
|
|
if (bit < 4)
|
|
{
|
|
bit++;
|
|
}
|
|
else
|
|
{
|
|
geohash[i++] = base32[ch];
|
|
bit = 0;
|
|
ch = 0;
|
|
}
|
|
}
|
|
geohash[i] = 0;
|
|
return geohash;
|
|
}
|
|
|
|
int lwgeom_geohash_precision(GBOX bbox, GBOX *bounds)
|
|
{
|
|
double minx, miny, maxx, maxy;
|
|
double latmax, latmin, lonmax, lonmin;
|
|
double lonwidth, latwidth;
|
|
double latmaxadjust, lonmaxadjust, latminadjust, lonminadjust;
|
|
int precision = 0;
|
|
|
|
/* Get the bounding box, return error if things don't work out. */
|
|
minx = bbox.xmin;
|
|
miny = bbox.ymin;
|
|
maxx = bbox.xmax;
|
|
maxy = bbox.ymax;
|
|
|
|
if ( minx == maxx && miny == maxy )
|
|
{
|
|
/* It's a point. Doubles have 51 bits of precision.
|
|
** 2 * 51 / 5 == 20 */
|
|
return 20;
|
|
}
|
|
|
|
lonmin = -180.0;
|
|
latmin = -90.0;
|
|
lonmax = 180.0;
|
|
latmax = 90.0;
|
|
|
|
/* Shrink a world bounding box until one of the edges interferes with the
|
|
** bounds of our rectangle. */
|
|
while ( 1 )
|
|
{
|
|
lonwidth = lonmax - lonmin;
|
|
latwidth = latmax - latmin;
|
|
latmaxadjust = lonmaxadjust = latminadjust = lonminadjust = 0.0;
|
|
|
|
if ( minx > lonmin + lonwidth / 2.0 )
|
|
{
|
|
lonminadjust = lonwidth / 2.0;
|
|
}
|
|
else if ( maxx < lonmax - lonwidth / 2.0 )
|
|
{
|
|
lonmaxadjust = -1 * lonwidth / 2.0;
|
|
}
|
|
if ( miny > latmin + latwidth / 2.0 )
|
|
{
|
|
latminadjust = latwidth / 2.0;
|
|
}
|
|
else if (maxy < latmax - latwidth / 2.0 )
|
|
{
|
|
latmaxadjust = -1 * latwidth / 2.0;
|
|
}
|
|
/* Only adjust if adjustments are legal (we haven't crossed any edges). */
|
|
if ( (lonminadjust || lonmaxadjust) && (latminadjust || latmaxadjust ) )
|
|
{
|
|
latmin += latminadjust;
|
|
lonmin += lonminadjust;
|
|
latmax += latmaxadjust;
|
|
lonmax += lonmaxadjust;
|
|
/* Each adjustment cycle corresponds to 2 bits of storage in the
|
|
** geohash. */
|
|
precision += 2;
|
|
}
|
|
else
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
|
|
/* Save the edges of our bounds, in case someone cares later. */
|
|
bounds->xmin = lonmin;
|
|
bounds->xmax = lonmax;
|
|
bounds->ymin = latmin;
|
|
bounds->ymax = latmax;
|
|
|
|
/* Each geohash character (base32) can contain 5 bits of information.
|
|
** We are returning the precision in characters, so here we divide. */
|
|
return precision / 5;
|
|
}
|
|
|
|
|
|
/*
|
|
** Return a geohash string for the geometry. <http://geohash.org>
|
|
** Where the precision is non-positive, calculate a precision based on the
|
|
** bounds of the feature. Big features have loose precision.
|
|
** Small features have tight precision.
|
|
*/
|
|
char *lwgeom_geohash(const LWGEOM *lwgeom, int precision)
|
|
{
|
|
GBOX gbox;
|
|
GBOX gbox_bounds;
|
|
double lat, lon;
|
|
int result;
|
|
|
|
gbox_init(&gbox);
|
|
gbox_init(&gbox_bounds);
|
|
|
|
result = lwgeom_calculate_gbox(lwgeom, &gbox);
|
|
if ( result == LW_FAILURE ) return NULL;
|
|
|
|
/* Return error if we are being fed something outside our working bounds */
|
|
if ( gbox.xmin < -180 || gbox.ymin < -90 || gbox.xmax > 180 || gbox.ymax > 90 )
|
|
{
|
|
lwerror("Geohash requires inputs in decimal degrees.");
|
|
return NULL;
|
|
}
|
|
|
|
/* What is the center of our geometry bounds? We'll use that to
|
|
** approximate location. */
|
|
lon = gbox.xmin + (gbox.xmax - gbox.xmin) / 2;
|
|
lat = gbox.ymin + (gbox.ymax - gbox.ymin) / 2;
|
|
|
|
if ( precision <= 0 )
|
|
{
|
|
precision = lwgeom_geohash_precision(gbox, &gbox_bounds);
|
|
}
|
|
|
|
/*
|
|
** Return the geohash of the center, with a precision determined by the
|
|
** extent of the bounds.
|
|
** Possible change: return the point at the center of the precision bounds?
|
|
*/
|
|
return geohash_point(lon, lat, precision);
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|