BOX3D Polygon::bounds() const
{
uint32_t numInputDims;
BOX3D output;
GEOSGeometry* boundary = GEOSGeom_clone_r(m_ctx, m_geom);
// Smash out multi*
if (GEOSGeomTypeId_r(m_ctx, m_geom) > 3)
boundary = GEOSEnvelope_r(m_ctx, m_geom);
GEOSGeometry const* ring = GEOSGetExteriorRing_r(m_ctx, boundary);
GEOSCoordSequence const* coords = GEOSGeom_getCoordSeq_r(m_ctx, ring);
GEOSCoordSeq_getDimensions_r(m_ctx, coords, &numInputDims);
uint32_t count(0);
GEOSCoordSeq_getSize_r(m_ctx, coords, &count);
double x(0.0);
double y(0.0);
double z(0.0);
for (unsigned i = 0; i < count; ++i)
{
GEOSCoordSeq_getOrdinate_r(m_ctx, coords, i, 0, &x);
GEOSCoordSeq_getOrdinate_r(m_ctx, coords, i, 1, &y);
if (numInputDims > 2)
GEOSCoordSeq_getOrdinate_r(m_ctx, coords, i, 2, &z);
output.grow(x, y, z);
}
GEOSGeom_destroy_r(m_ctx, boundary);
return output;
}
static VALUE method_geometry_envelope(VALUE self)
{
VALUE result;
RGeo_GeometryData* self_data;
const GEOSGeometry* self_geom;
GEOSContextHandle_t geos_context;
GEOSGeometry* envelope;
result = Qnil;
self_data = RGEO_GEOMETRY_DATA_PTR(self);
self_geom = self_data->geom;
if (self_geom) {
geos_context = self_data->geos_context;
envelope = GEOSEnvelope_r(geos_context, self_geom);
// GEOS returns an "empty" point for an empty collection's envelope.
// We don't allow that type, so we replace it with an empty collection.
if (!envelope ||
GEOSGeomTypeId_r(geos_context, envelope) == GEOS_POINT &&
GEOSGetNumCoordinates_r(geos_context, envelope) == 0) {
if (envelope) {
GEOSGeom_destroy_r(geos_context, envelope);
}
envelope = GEOSGeom_createCollection_r(geos_context, GEOS_GEOMETRYCOLLECTION, NULL, 0);
}
result = rgeo_wrap_geos_geometry(self_data->factory, envelope, Qnil);
}
return result;
}
static Face *newFace( const GEOSGeometry *g )
{
GEOSContextHandle_t handle = QgsGeos::getGEOSHandler();
Face *f = new Face;
f->geom = g;
f->env = GEOSEnvelope_r( handle, f->geom );
GEOSArea_r( handle, f->env, &f->envarea );
f->parent = nullptr;
return f;
}
static VALUE method_geometry_envelope(VALUE self)
{
VALUE result;
RGeo_GeometryData* self_data;
const GEOSGeometry* self_geom;
GEOSContextHandle_t geos_context;
GEOSGeometry* envelope;
result = Qnil;
self_data = RGEO_GEOMETRY_DATA_PTR(self);
self_geom = self_data->geom;
if (self_geom) {
geos_context = self_data->geos_context;
envelope = GEOSEnvelope_r(geos_context, self_geom);
if (!envelope) {
envelope = GEOSGeom_createCollection_r(geos_context, GEOS_GEOMETRYCOLLECTION, NULL, 0);
}
result = rgeo_wrap_geos_geometry(self_data->factory, envelope, Qnil);
}
return result;
}
SEXP rgeos_binary_STRtree_query(SEXP env, SEXP obj1, SEXP obj2) {
GEOSGeom *bbs2;
int nobj1, nobj2, i, j, pc=0, isPts=FALSE;
GEOSGeom GC, GCpts=NULL, bb;
SEXP pl, bblist;
GEOSSTRtree *str;
int *icard, *ids, *oids;
char classbuf1[BUFSIZ], classbuf2[BUFSIZ];
GEOSGeom (*rgeos_xx2MP)(SEXP, SEXP);
strcpy(classbuf1, CHAR(STRING_ELT(GET_CLASS(VECTOR_ELT(obj1, 0)), 0)));
if (!strncmp(classbuf1, "Polygons", 8))
rgeos_xx2MP = rgeos_Polygons2MP;
else if (!strncmp(classbuf1, "Lines", 5))
rgeos_xx2MP = rgeos_Lines2MP;
else
error("rgeos_binary_STRtree_query: object class %s unknown", classbuf1);
GEOSContextHandle_t GEOShandle = getContextHandle(env);
str = (GEOSSTRtree *) GEOSSTRtree_create_r(GEOShandle, (size_t) 10);
nobj1 = length(obj1);
SEXP cl2 = GET_CLASS(obj2);
if (cl2 == R_NilValue) strcpy(classbuf2, "\0");
else strcpy(classbuf2, CHAR(STRING_ELT(cl2, 0)));
if ( !strcmp( classbuf2, "SpatialPoints") ||
!strcmp(classbuf2, "SpatialPointsDataFrame")) {
isPts = TRUE;
SEXP crds = GET_SLOT(obj2, install("coords"));
SEXP dim = getAttrib(crds, install("dim"));
nobj2 = INTEGER_POINTER(dim)[0];
} else {
nobj2 = length(obj2);
}
bbs2 = (GEOSGeom *) R_alloc((size_t) nobj2, sizeof(GEOSGeom));
ids = (int *) R_alloc((size_t) nobj1, sizeof(int));
UD.ids = (int *) R_alloc((size_t) nobj1, sizeof(int));
oids = (int *) R_alloc((size_t) nobj1, sizeof(int));
for (i=0; i<nobj1; i++) {
ids[i] = i;
pl = VECTOR_ELT(obj1, i);
GC = rgeos_xx2MP(env, pl);
if (GC == NULL) {
error("rgeos_binary_STRtree_query: MP GC[%d] not created", i);
}
if ((bb = GEOSEnvelope_r(GEOShandle, GC)) == NULL) {
error("rgeos_binary_STRtree_query: envelope [%d] not created", i);
}
GEOSGeom_destroy_r(GEOShandle, GC);
GEOSSTRtree_insert_r(GEOShandle, str, bb, &(ids[i]));
}
if (isPts) {
GCpts = rgeos_SpatialPoints2geospoint(env, obj2);
} else {
strcpy(classbuf2, CHAR(STRING_ELT(GET_CLASS(VECTOR_ELT(obj2, 0)), 0)));
if (!strncmp(classbuf2, "Polygons", 8))
rgeos_xx2MP = rgeos_Polygons2MP;
else if (!strncmp(classbuf2, "Lines", 5))
rgeos_xx2MP = rgeos_Lines2MP;
else
error("rgeos_binary_STRtree_query: object class %s unknown",
classbuf2);
}
for (i=0; i<nobj2; i++) {
if (isPts) {
GC = (GEOSGeom) GEOSGetGeometryN_r(GEOShandle, GCpts, i);
} else {
pl = VECTOR_ELT(obj2, i);
GC = rgeos_xx2MP(env, pl);
}
if (GC == NULL) {
error("rgeos_binary_STRtree_query: GC[%d] not created", i);
}
if ((bb = GEOSEnvelope_r(GEOShandle, GC)) == NULL) {
error("rgeos_binary_STRtree_query: envelope [%d] not created", i);
}
GEOSGeom_destroy_r(GEOShandle, GC);
// Rprintf("i: %d, bb %s\n", i, GEOSGeomType_r(GEOShandle, bb));
bbs2[i] = bb;
}
// 110904 EJP
icard = (int *) R_alloc((size_t) nobj2, sizeof(int));
PROTECT(bblist = NEW_LIST(nobj2)); pc++;
for (i=0; i<nobj2; i++) {
UD.count = 0;
GEOSSTRtree_query_r(GEOShandle, str, bbs2[i],
(GEOSQueryCallback) cb, &UD);
icard[i] = UD.count;
if (icard[i] > 0) {
SET_VECTOR_ELT(bblist, i, NEW_INTEGER(icard[i]));
for (j=0; j<UD.count; j++) {
oids[j] = UD.ids[j] + R_OFFSET;
}
R_isort(oids, UD.count);
for (j=0; j<UD.count; j++) {
INTEGER_POINTER(VECTOR_ELT(bblist, i))[j] = oids[j];
}
}
}
GEOSSTRtree_destroy_r(GEOShandle, str);
for (i=0; i<nobj2; i++) {
GEOSGeom_destroy_r(GEOShandle, bbs2[i]);
}
UNPROTECT(pc);
return(bblist);
}
SEXP rgeos_unary_STRtree_query(SEXP env, SEXP obj) {
GEOSGeom *bbs;
int nobj, i, j, jj, pc=0;
GEOSGeom GC, bb;
SEXP pl, bblist;
GEOSSTRtree *str;
int *icard, *ids, *oids;
char classbuf[BUFSIZ];
GEOSGeom (*rgeos_xx2MP)(SEXP, SEXP);
strcpy(classbuf, CHAR(STRING_ELT(GET_CLASS(VECTOR_ELT(obj, 0)), 0)));
if (!strncmp(classbuf, "Polygons", 8))
rgeos_xx2MP = rgeos_Polygons2MP;
else if (!strncmp(classbuf, "Lines", 5))
rgeos_xx2MP = rgeos_Lines2MP;
else if (!strncmp(classbuf, "Polygon", 7))
rgeos_xx2MP = rgeos_Polygon2MP;
else
error("rgeos_binary_STRtree_query: object class %s unknown", classbuf);
GEOSContextHandle_t GEOShandle = getContextHandle(env);
str = (GEOSSTRtree *) GEOSSTRtree_create_r(GEOShandle, (size_t) 10);
nobj = length(obj);
bbs = (GEOSGeom *) R_alloc((size_t) nobj, sizeof(GEOSGeom));
ids = (int *) R_alloc((size_t) nobj, sizeof(int));
UD.ids = (int *) R_alloc((size_t) nobj, sizeof(int));
oids = (int *) R_alloc((size_t) nobj, sizeof(int));
for (i=0; i<nobj; i++) {
ids[i] = i;
pl = VECTOR_ELT(obj, i);
GC = rgeos_xx2MP(env, pl);
if (GC == NULL) {
error("rgeos_unary_STRtree_query: MP GC[%d] not created", i);
}
if ((bb = GEOSEnvelope_r(GEOShandle, GC)) == NULL) {
error("rgeos_unary_STRtree_query: envelope [%d] not created", i);
}
bbs[i] = bb;
GEOSSTRtree_insert_r(GEOShandle, str, bb, &(ids[i]));
GEOSGeom_destroy_r(GEOShandle, GC);
// 110904 EJP
}
icard = (int *) R_alloc((size_t) nobj, sizeof(int));
PROTECT(bblist = NEW_LIST(nobj-1)); pc++;
for (i=0; i<(nobj-1); i++) {
UD.count = 0;
GEOSSTRtree_query_r(GEOShandle, str, bbs[i],
(GEOSQueryCallback) cb, &UD);
for (j=0, jj=0; j<UD.count; j++) if (UD.ids[j] > i) jj++;
icard[i] = jj;
if (icard[i] > 0) {
SET_VECTOR_ELT(bblist, i, NEW_INTEGER(icard[i]));
for (j=0, jj=0; j<UD.count; j++) {
if (UD.ids[j] > i) {
oids[jj] = UD.ids[j] + R_OFFSET;
jj++;
}
}
R_isort(oids, jj);
for (j=0; j<jj; j++) {
INTEGER_POINTER(VECTOR_ELT(bblist, i))[j] = oids[j];
}
}
}
for (i=0; i<nobj; i++) {
GEOSSTRtree_remove_r(GEOShandle, str, bbs[i], &(ids[i]));
// 110904 EJP
GEOSGeom_destroy_r(GEOShandle, bbs[i]);
}
GEOSSTRtree_destroy_r(GEOShandle, str);
UNPROTECT(pc);
return(bblist);
}
SEXP rgeos_poly_findInBox(SEXP env, SEXP pls, SEXP as_points) {
GEOSGeom *bbs;
int npls, i, j, jj, pc=0;
GEOSGeom GC, bb;
SEXP pl, bblist;
GEOSSTRtree *str;
int *icard, *ids, *oids;
int asPTS = LOGICAL_POINTER(as_points)[0];
GEOSContextHandle_t GEOShandle = getContextHandle(env);
str = (GEOSSTRtree *) GEOSSTRtree_create_r(GEOShandle, (size_t) 10);
npls = length(pls);
bbs = (GEOSGeom *) R_alloc((size_t) npls, sizeof(GEOSGeom));
ids = (int *) R_alloc((size_t) npls, sizeof(int));
UD.ids = (int *) R_alloc((size_t) npls, sizeof(int));
oids = (int *) R_alloc((size_t) npls, sizeof(int));
for (i=0; i<npls; i++) {
ids[i] = i;
pl = VECTOR_ELT(pls, i);
if (asPTS) {
if ((GC = rgeos_Polygons2MP(env, pl)) == NULL) {
error("rgeos_poly2nb: MP GC[%d] not created", i);
}
} else {
if ((GC = rgeos_Polygons2geospolygon(env, pl)) == NULL) {
error("rgeos_poly2nb: GC[%d] not created", i);
}
}
if ((bb = GEOSEnvelope_r(GEOShandle, GC)) == NULL) {
error("rgeos_poly2nb: envelope [%d] not created", i);
}
bbs[i] = bb;
GEOSSTRtree_insert_r(GEOShandle, str, bb, &(ids[i]));
// 110904 EJP
GEOSGeom_destroy_r(GEOShandle, GC);
}
icard = (int *) R_alloc((size_t) npls, sizeof(int));
PROTECT(bblist = NEW_LIST(npls-1)); pc++;
for (i=0; i<(npls-1); i++) {
UD.count = 0;
GEOSSTRtree_query_r(GEOShandle, str, bbs[i],
(GEOSQueryCallback) cb, &UD);
for (j=0, jj=0; j<UD.count; j++) if (UD.ids[j] > i) jj++;
icard[i] = jj;
if (icard[i] > 0) SET_VECTOR_ELT(bblist, i, NEW_INTEGER(icard[i]));
for (j=0, jj=0; j<UD.count; j++) {
if (icard[i] > 0 && UD.ids[j] > i) {
oids[jj] = UD.ids[j] + R_OFFSET;
jj++;
}
}
R_isort(oids, jj);
for (j=0; j<jj; j++) {
INTEGER_POINTER(VECTOR_ELT(bblist, i))[j] = oids[j];
}
}
for (i=0; i<npls; i++) {
GEOSSTRtree_remove_r(GEOShandle, str, bbs[i], &(ids[i]));
// 110904 EJP
GEOSGeom_destroy_r(GEOShandle, bbs[i]);
}
GEOSSTRtree_destroy_r(GEOShandle, str);
UNPROTECT(pc);
return(bblist);
}
