static VALUE method_geometry_equals(VALUE self, VALUE rhs)
{
VALUE result;
RGeo_GeometryData* self_data;
const GEOSGeometry* self_geom;
const GEOSGeometry* rhs_geom;
GEOSContextHandle_t self_context;
char val;
result = Qnil;
self_data = RGEO_GEOMETRY_DATA_PTR(self);
self_geom = self_data->geom;
if (self_geom) {
rhs_geom = rgeo_get_geos_geometry_safe(rhs);
if (rhs_geom) {
self_context = self_data->geos_context;
// GEOS has a bug where empty geometries are not spatially equal
// to each other. Work around this case first.
if (GEOSisEmpty_r(self_context, self_geom) == 1 &&
GEOSisEmpty_r(RGEO_GEOMETRY_DATA_PTR(rhs)->geos_context, rhs_geom) == 1) {
result = Qtrue;
}
else {
val = GEOSEquals_r(self_context, self_geom, rhs_geom);
if (val == 0) {
result = Qfalse;
}
else if (val == 1) {
result = Qtrue;
}
}
}
}
return result;
}
RGEO_BEGIN_C
/**** INTERNAL UTILITY FUNCTIONS ****/
// Determine the dimension of the given geometry. Empty collections have dimension -1.
// Recursively checks collection elemenets.
static int compute_dimension(GEOSContextHandle_t context, const GEOSGeometry* geom)
{
int result;
int size;
int i;
int dim;
result = -1;
if (geom) {
switch (GEOSGeomTypeId_r(context, geom)) {
case GEOS_POINT:
result = 0;
break;
case GEOS_MULTIPOINT:
if (!GEOSisEmpty_r(context, geom)) {
result = 0;
}
break;
case GEOS_LINESTRING:
case GEOS_LINEARRING:
result = 1;
break;
case GEOS_MULTILINESTRING:
if (!GEOSisEmpty_r(context, geom)) {
result = 1;
}
break;
case GEOS_POLYGON:
result = 2;
break;
case GEOS_MULTIPOLYGON:
if (!GEOSisEmpty_r(context, geom)) {
result = 2;
}
break;
case GEOS_GEOMETRYCOLLECTION:
size = GEOSGetNumGeometries_r(context, geom);
for (i=0; i<size; ++i) {
dim = compute_dimension(context, GEOSGetGeometryN_r(context, geom, i));
if (dim > result) {
result = dim;
}
}
break;
}
}
return result;
}
void object::test<4>()
{
geom1_ = GEOSGeom_createEmptyCollection_r(handle_, GEOS_MULTIPOINT);
ensure(0 != GEOSisEmpty_r(handle_, geom1_));
ensure_equals(GEOSGeomTypeId_r(handle_, geom1_), GEOS_MULTIPOINT);
GEOSGeom_destroy(geom1_); geom1_=0;
}
void object::test<2>()
{
geom1_ = GEOSGeom_createEmptyLineString_r(handle_);
ensure(0 != GEOSisEmpty_r(handle_, geom1_));
ensure_equals(GEOSGeomTypeId_r(handle_, geom1_), GEOS_LINESTRING);
GEOSGeom_destroy(geom1_); geom1_=0;
}
void object::test<3>()
{
geom1_ = GEOSGeom_createEmptyPolygon_r(handle_);
ensure(0 != GEOSisEmpty_r(handle_, geom1_));
ensure_equals(GEOSGeomTypeId_r(handle_, geom1_), GEOS_POLYGON);
GEOSGeom_destroy(geom1_); geom1_=0;
}
void object::test<7>()
{
geom1_ = GEOSGeom_createEmptyCollection_r(handle_, GEOS_GEOMETRYCOLLECTION);
ensure(0 != GEOSisEmpty_r(handle_, geom1_));
ensure_equals(GEOSGeomTypeId_r(handle_, geom1_), GEOS_GEOMETRYCOLLECTION);
GEOSGeom_destroy(geom1_); geom1_=0;
}
void object::test<1>()
{
geom1_ = GEOSGeom_createEmptyPoint_r(handle_);
ensure(0 != GEOSisEmpty_r(handle_, geom1_));
ensure_equals(GEOSGeomTypeId_r(handle_, geom1_), GEOS_POINT);
GEOSGeom_destroy(geom1_); geom1_=0;
}
SEXP rgeos_geospoint2SpatialPoints(SEXP env, GEOSGeom geom, SEXP p4s, SEXP id, int n) {
GEOSContextHandle_t GEOShandle = getContextHandle(env);
int type = GEOSGeomTypeId_r(GEOShandle, geom);
if ( type != GEOS_POINT && type != GEOS_MULTIPOINT && type != GEOS_GEOMETRYCOLLECTION )
error("rgeos_geospoint2SpatialPoints: invalid geometry type");
int pc=0;
SEXP bbox, crdmat;
if (GEOSisEmpty_r(GEOShandle, geom))
error("rgeos_geospoint2SpatialPoints: empty point found");
//if (GEOSisEmpty_r(GEOShandle, geom)==0) {
PROTECT(bbox = rgeos_geom2bbox(env, geom)); pc++;
PROTECT(crdmat = rgeos_geospoint2crdMat(env, geom, id, n, type)); pc++;
//} else {
// bbox = R_NilValue;
// crdmat = R_NilValue;
//}
SEXP ans;
PROTECT(ans = NEW_OBJECT(MAKE_CLASS("SpatialPoints"))); pc++;
SET_SLOT(ans, install("coords"), crdmat);
SET_SLOT(ans, install("bbox"), bbox);
SET_SLOT(ans, install("proj4string"), p4s);
UNPROTECT(pc);
return(ans);
}
static VALUE method_geometry_is_empty(VALUE self)
{
VALUE result = Qnil;
RGeo_GeometryData* self_data = RGEO_GEOMETRY_DATA_PTR(self);
const GEOSGeometry* self_geom = self_data->geom;
if (self_geom) {
char val = GEOSisEmpty_r(self_data->geos_context, self_geom);
if (val == 0) {
result = Qfalse;
}
else if (val == 1) {
result = Qtrue;
}
}
return result;
}
static GEOSGeometry *LWGEOM_GEOS_makeValidMultiLine( const GEOSGeometry *gin, QString &errorMessage )
{
GEOSContextHandle_t handle = QgsGeos::getGEOSHandler();
int ngeoms = GEOSGetNumGeometries_r( handle, gin );
uint32_t nlines_alloc = ngeoms;
QVector<GEOSGeometry *> lines;
QVector<GEOSGeometry *> points;
lines.reserve( nlines_alloc );
points.reserve( ngeoms );
for ( int i = 0; i < ngeoms; ++i )
{
const GEOSGeometry *g = GEOSGetGeometryN_r( handle, gin, i );
GEOSGeometry *vg = LWGEOM_GEOS_makeValidLine( g, errorMessage );
if ( GEOSisEmpty_r( handle, vg ) )
{
// we don't care about this one
GEOSGeom_destroy_r( handle, vg );
}
if ( GEOSGeomTypeId_r( handle, vg ) == GEOS_POINT )
{
points.append( vg );
}
else if ( GEOSGeomTypeId_r( handle, vg ) == GEOS_LINESTRING )
{
lines.append( vg );
}
else if ( GEOSGeomTypeId_r( handle, vg ) == GEOS_MULTILINESTRING )
{
int nsubgeoms = GEOSGetNumGeometries_r( handle, vg );
nlines_alloc += nsubgeoms;
lines.reserve( nlines_alloc );
for ( int j = 0; j < nsubgeoms; ++j )
{
// NOTE: ownership of the cloned geoms will be taken by final collection
lines.append( GEOSGeom_clone_r( handle, GEOSGetGeometryN_r( handle, vg, j ) ) );
}
}
else
{
// NOTE: return from GEOSGeomType will leak but we really don't expect this to happen
errorMessage = QStringLiteral( "unexpected geom type returned by LWGEOM_GEOS_makeValid: %1" ).arg( GEOSGeomTypeId_r( handle, vg ) );
}
}
GEOSGeometry *mpoint_out = nullptr;
if ( points.count() )
{
if ( points.count() > 1 )
{
mpoint_out = GEOSGeom_createCollection_r( handle, GEOS_MULTIPOINT, points.data(), points.count() );
}
else
{
mpoint_out = points[0];
}
}
GEOSGeometry *mline_out = nullptr;
if ( lines.count() )
{
if ( lines.count() > 1 )
{
mline_out = GEOSGeom_createCollection_r( handle, GEOS_MULTILINESTRING, lines.data(), lines.count() );
}
else
{
mline_out = lines[0];
}
}
if ( mline_out && mpoint_out )
{
GEOSGeometry *collection[2];
collection[0] = mline_out;
collection[1] = mpoint_out;
return GEOSGeom_createCollection_r( handle, GEOS_GEOMETRYCOLLECTION, collection, 2 );
}
else if ( mline_out )
{
return mline_out;
}
else if ( mpoint_out )
{
return mpoint_out;
}
else
{
return nullptr;
}
}
// Will return NULL on error (expect error handler being called by then)
Q_NOWARN_UNREACHABLE_PUSH
static GEOSGeometry *LWGEOM_GEOS_makeValidPolygon( const GEOSGeometry *gin, QString &errorMessage )
{
GEOSContextHandle_t handle = QgsGeos::getGEOSHandler();
GEOSGeom gout;
GEOSGeom geos_bound;
GEOSGeom geos_cut_edges, geos_area, collapse_points;
GEOSGeometry *vgeoms[3]; // One for area, one for cut-edges
unsigned int nvgeoms = 0;
Q_ASSERT( GEOSGeomTypeId_r( handle, gin ) == GEOS_POLYGON ||
GEOSGeomTypeId_r( handle, gin ) == GEOS_MULTIPOLYGON );
geos_bound = GEOSBoundary_r( handle, gin );
if ( !geos_bound )
return nullptr;
// Use noded boundaries as initial "cut" edges
geos_cut_edges = LWGEOM_GEOS_nodeLines( geos_bound );
if ( !geos_cut_edges )
{
GEOSGeom_destroy_r( handle, geos_bound );
errorMessage = QStringLiteral( "LWGEOM_GEOS_nodeLines() failed" );
return nullptr;
}
// NOTE: the noding process may drop lines collapsing to points.
// We want to retrieve any of those
{
GEOSGeometry *pi = nullptr;
GEOSGeometry *po = nullptr;
try
{
pi = GEOSGeom_extractUniquePoints_r( handle, geos_bound );
}
catch ( GEOSException &e )
{
GEOSGeom_destroy_r( handle, geos_bound );
errorMessage = QStringLiteral( "GEOSGeom_extractUniquePoints(): %1" ).arg( e.what() );
return nullptr;
}
try
{
po = GEOSGeom_extractUniquePoints_r( handle, geos_cut_edges );
}
catch ( GEOSException &e )
{
GEOSGeom_destroy_r( handle, geos_bound );
GEOSGeom_destroy_r( handle, pi );
errorMessage = QStringLiteral( "GEOSGeom_extractUniquePoints(): %1" ).arg( e.what() );
return nullptr;
}
try
{
collapse_points = GEOSDifference_r( handle, pi, po );
}
catch ( GEOSException &e )
{
GEOSGeom_destroy_r( handle, geos_bound );
GEOSGeom_destroy_r( handle, pi );
GEOSGeom_destroy_r( handle, po );
errorMessage = QStringLiteral( "GEOSDifference(): %1" ).arg( e.what() );
return nullptr;
}
GEOSGeom_destroy_r( handle, pi );
GEOSGeom_destroy_r( handle, po );
}
GEOSGeom_destroy_r( handle, geos_bound );
// And use an empty geometry as initial "area"
try
{
geos_area = GEOSGeom_createEmptyPolygon_r( handle );
}
catch ( GEOSException &e )
{
errorMessage = QStringLiteral( "GEOSGeom_createEmptyPolygon(): %1" ).arg( e.what() );
GEOSGeom_destroy_r( handle, geos_cut_edges );
return nullptr;
}
// See if an area can be build with the remaining edges
// and if it can, symdifference with the original area.
// Iterate this until no more polygons can be created
// with left-over edges.
while ( GEOSGetNumGeometries_r( handle, geos_cut_edges ) )
{
GEOSGeometry *new_area = nullptr;
GEOSGeometry *new_area_bound = nullptr;
GEOSGeometry *symdif = nullptr;
GEOSGeometry *new_cut_edges = nullptr;
// ASSUMPTION: cut_edges should already be fully noded
try
{
new_area = LWGEOM_GEOS_buildArea( geos_cut_edges, errorMessage );
}
catch ( GEOSException &e )
{
GEOSGeom_destroy_r( handle, geos_cut_edges );
GEOSGeom_destroy_r( handle, geos_area );
errorMessage = QStringLiteral( "LWGEOM_GEOS_buildArea() threw an error: %1" ).arg( e.what() );
return nullptr;
}
if ( GEOSisEmpty_r( handle, new_area ) )
{
// no more rings can be build with thes edges
GEOSGeom_destroy_r( handle, new_area );
break;
}
// We succeeded in building a ring !
// Save the new ring boundaries first (to compute
// further cut edges later)
try
{
new_area_bound = GEOSBoundary_r( handle, new_area );
}
catch ( GEOSException &e )
{
// We did check for empty area already so
// this must be some other error
errorMessage = QStringLiteral( "GEOSBoundary() threw an error: %1" ).arg( e.what() );
GEOSGeom_destroy_r( handle, new_area );
GEOSGeom_destroy_r( handle, geos_area );
return nullptr;
}
// Now symdiff new and old area
try
{
symdif = GEOSSymDifference_r( handle, geos_area, new_area );
}
catch ( GEOSException &e )
{
GEOSGeom_destroy_r( handle, geos_cut_edges );
GEOSGeom_destroy_r( handle, new_area );
GEOSGeom_destroy_r( handle, new_area_bound );
GEOSGeom_destroy_r( handle, geos_area );
errorMessage = QStringLiteral( "GEOSSymDifference() threw an error: %1" ).arg( e.what() );
return nullptr;
}
GEOSGeom_destroy_r( handle, geos_area );
GEOSGeom_destroy_r( handle, new_area );
geos_area = symdif;
symdif = nullptr;
// Now let's re-set geos_cut_edges with what's left
// from the original boundary.
// ASSUMPTION: only the previous cut-edges can be
// left, so we don't need to reconsider
// the whole original boundaries
//
// NOTE: this is an expensive operation.
try
{
new_cut_edges = GEOSDifference_r( handle, geos_cut_edges, new_area_bound );
}
catch ( GEOSException &e )
{
GEOSGeom_destroy_r( handle, geos_cut_edges );
GEOSGeom_destroy_r( handle, new_area_bound );
GEOSGeom_destroy_r( handle, geos_area );
errorMessage = QStringLiteral( "GEOSDifference() threw an error: %1" ).arg( e.what() );
return nullptr;
}
GEOSGeom_destroy_r( handle, geos_cut_edges );
GEOSGeom_destroy_r( handle, new_area_bound );
geos_cut_edges = new_cut_edges;
}
if ( !GEOSisEmpty_r( handle, geos_area ) )
{
vgeoms[nvgeoms++] = geos_area;
}
else
{
GEOSGeom_destroy_r( handle, geos_area );
}
if ( !GEOSisEmpty_r( handle, geos_cut_edges ) )
{
vgeoms[nvgeoms++] = geos_cut_edges;
}
else
{
GEOSGeom_destroy_r( handle, geos_cut_edges );
}
if ( !GEOSisEmpty_r( handle, collapse_points ) )
{
vgeoms[nvgeoms++] = collapse_points;
}
else
{
GEOSGeom_destroy_r( handle, collapse_points );
}
if ( 1 == nvgeoms )
{
// Return cut edges
gout = vgeoms[0];
}
else
{
// Collect areas and lines (if any line)
try
{
gout = GEOSGeom_createCollection_r( handle, GEOS_GEOMETRYCOLLECTION, vgeoms, nvgeoms );
}
catch ( GEOSException &e )
{
errorMessage = QStringLiteral( "GEOSGeom_createCollection() threw an error: %1" ).arg( e.what() );
// TODO: cleanup!
return nullptr;
}
}
return gout;
}
SEXP rgeos_geosring2SpatialRings(SEXP env, GEOSGeom geom, SEXP p4s, SEXP idlist, int nrings) {
GEOSContextHandle_t GEOShandle = getContextHandle(env);
int type = GEOSGeomTypeId_r(GEOShandle, geom);
if (type != GEOS_LINEARRING && type != GEOS_GEOMETRYCOLLECTION )
error("rgeos_geosring2SpatialRings: invalid type");
if (nrings < 1) error("rgeos_geosring2SpatialRings: invalid number of geometries");
int pc=0;
SEXP bbox, rings_list;
PROTECT(bbox = rgeos_geom2bbox(env, geom)); pc++;
PROTECT(rings_list = NEW_LIST(nrings)); pc++;
for(int j = 0; j < nrings; j++) {
GEOSGeom curgeom = (type == GEOS_GEOMETRYCOLLECTION) ?
(GEOSGeom) GEOSGetGeometryN_r(GEOShandle, geom, j) :
geom;
if (curgeom == NULL)
error("rgeos_geosring2SpatialRings: unable to get geometry collection geometry");
SEXP crdmat;
if (GEOSisEmpty_r(GEOShandle, curgeom) == 0) {
GEOSCoordSeq s = (GEOSCoordSeq) GEOSGeom_getCoordSeq_r(GEOShandle, curgeom);
if (s == NULL)
error("rgeos_geosring2SpatialRings: unable to generate coordinate sequence");
PROTECT(crdmat = rgeos_crdMatFixDir(PROTECT(rgeos_CoordSeq2crdMat(env, s, FALSE, FALSE)), FALSE)); pc += 2;
} else {
PROTECT( crdmat = R_NilValue); pc++;
}
SEXP ring;
PROTECT(ring = NEW_OBJECT(MAKE_CLASS("Ring"))); pc++;
SET_SLOT(ring, install("coords"), crdmat);
SEXP id;
PROTECT( id = NEW_CHARACTER(1) ); pc++;
char idbuf[BUFSIZ];
strcpy(idbuf, CHAR( STRING_ELT(idlist, j) ));
SET_STRING_ELT(id, 0, COPY_TO_USER_STRING(idbuf));
SET_SLOT(ring, install("ID"), id);
SET_VECTOR_ELT(rings_list, j, ring );
UNPROTECT(pc);
}
SEXP ans;
PROTECT(ans = NEW_OBJECT(MAKE_CLASS("SpatialRings"))); pc++;
SET_SLOT(ans, install("rings"), rings_list);
SET_SLOT(ans, install("bbox"), bbox);
SET_SLOT(ans, install("proj4string"), p4s);
UNPROTECT(pc);
return(ans);
}
SEXP rgeos_geosline2SpatialLines(SEXP env, GEOSGeom geom, SEXP p4s, SEXP idlist, int nlines) {
GEOSContextHandle_t GEOShandle = getContextHandle(env);
GEOSGeom curgeom;
GEOSGeom subgeom;
GEOSCoordSeq s;
int type = GEOSGeomTypeId_r(GEOShandle, geom);
if (type != GEOS_LINESTRING && type != GEOS_MULTILINESTRING &&
type != GEOS_LINEARRING && type != GEOS_GEOMETRYCOLLECTION ) {
error("rgeos_geosline2SpatialLines: invalid type");
}
if (nlines < 1) error("rgeos_geosline2SpatialLines: invalid number of geometries");
int pc=0;
if (nlines > length(idlist))
error("rgeos_geosline2SpatialLines: nlines > length(idlist)");
SEXP bbox, lines_list;
PROTECT(bbox = rgeos_geom2bbox(env, geom)); pc++;
PROTECT(lines_list = NEW_LIST(nlines)); pc++;
for(int j = 0; j < nlines; j++) {
curgeom = (type == GEOS_GEOMETRYCOLLECTION) ?
(GEOSGeom) GEOSGetGeometryN_r(GEOShandle, geom, j) :
geom;
if (curgeom == NULL)
error("rgeos_geosline2SpatialLines: unable to get geometry collection geometry");
int curtype = GEOSGeomTypeId_r(GEOShandle, curgeom);
int n = GEOSGetNumGeometries_r(GEOShandle, curgeom);
if (n == -1) error("rgeos_geosline2SpatialLines: invalid number of geometries in current geometry");
n = n ? n : 1;
SEXP line_list;
PROTECT(line_list = NEW_LIST(n));
for(int i = 0; i < n; i++) {
subgeom = (curtype == GEOS_MULTILINESTRING && !GEOSisEmpty_r(GEOShandle, curgeom)) ?
(GEOSGeom) GEOSGetGeometryN_r(GEOShandle, curgeom, i) :
curgeom;
if(subgeom == NULL) error("rgeos_geosline2SpatialLines: unable to get subgeometry");
SEXP crdmat;
if (GEOSisEmpty_r(GEOShandle, subgeom) == 0) {
s = (GEOSCoordSeq) GEOSGeom_getCoordSeq_r(GEOShandle, subgeom);
if (s == NULL)
error("rgeos_geosline2SpatialLines: unable to generate coordinate sequence");
PROTECT( crdmat = rgeos_CoordSeq2crdMat(env, s, FALSE, FALSE));
} else {
error("rgeos_geosline2SpatialLines: empty line found");
// PROTECT( crdmat = R_NilValue);
}
SEXP line;
PROTECT(line = NEW_OBJECT(MAKE_CLASS("Line")));
SET_SLOT(line, install("coords"), crdmat);
SET_VECTOR_ELT(line_list, i, line );
UNPROTECT(2);
}
SEXP lines;
PROTECT( lines = NEW_OBJECT(MAKE_CLASS("Lines")) );
SET_SLOT(lines, install("Lines"), line_list);
char idbuf[BUFSIZ];
strcpy(idbuf, CHAR( STRING_ELT(idlist, j) ));
SEXP id;
PROTECT( id = NEW_CHARACTER(1) );
SET_STRING_ELT(id, 0, COPY_TO_USER_STRING(idbuf));
SET_SLOT(lines, install("ID"), id);
SET_VECTOR_ELT( lines_list, j, lines );
UNPROTECT(3);
}
SEXP ans;
PROTECT(ans = NEW_OBJECT(MAKE_CLASS("SpatialLines"))); pc++;
SET_SLOT(ans, install("lines"), lines_list);
SET_SLOT(ans, install("bbox"), bbox);
SET_SLOT(ans, install("proj4string"), p4s);
UNPROTECT(pc);
return(ans);
}
SEXP rgeos_geospolygon2Polygons(SEXP env, GEOSGeom geom, SEXP ID) {
GEOSContextHandle_t GEOShandle = getContextHandle(env);
int pc=0;
int type = GEOSGeomTypeId_r(GEOShandle, geom);
int empty = GEOSisEmpty_r(GEOShandle, geom);
int ngeom = GEOSGetNumGeometries_r(GEOShandle, geom);
ngeom = ngeom ? ngeom : 1;
int npoly = 0;
for (int i=0; i<ngeom; i++) {
GEOSGeom GC = (type == GEOS_MULTIPOLYGON && !empty) ?
(GEOSGeometry *) GEOSGetGeometryN_r(GEOShandle, geom, i) :
geom;
int GCempty = GEOSisEmpty_r(GEOShandle, GC);
int GCpolys = (GCempty) ? 1 :
GEOSGetNumInteriorRings_r(GEOShandle, GC) + 1;
npoly += GCpolys;
}
SEXP polys;
PROTECT(polys = NEW_LIST(npoly)); pc++;
int *comm = (int *) R_alloc((size_t) npoly, sizeof(int));
int *po = (int *) R_alloc((size_t) npoly, sizeof(int));
double *areas = (double *) R_alloc((size_t) npoly, sizeof(double));
double totalarea = 0.0;
int k = 0;
for (int i=0; i<ngeom; i++) {
GEOSGeom GC = (type == GEOS_MULTIPOLYGON && !empty) ?
(GEOSGeometry *) GEOSGetGeometryN_r(GEOShandle, geom, i) :
geom;
if (GEOSisEmpty_r(GEOShandle, GC)) {
SEXP ringDir,area,labpt,hole;
PROTECT(ringDir = NEW_INTEGER(1));
INTEGER_POINTER(ringDir)[0] = 1;
PROTECT(labpt = NEW_NUMERIC(2));
NUMERIC_POINTER(labpt)[0] = NA_REAL;
NUMERIC_POINTER(labpt)[1] = NA_REAL;
PROTECT(area = NEW_NUMERIC(1));
NUMERIC_POINTER(area)[0] = 0.0;
PROTECT(hole = NEW_LOGICAL(1));
LOGICAL_POINTER(hole)[0] = TRUE;
SEXP poly;
PROTECT(poly = NEW_OBJECT(MAKE_CLASS("Polygon")));
SET_SLOT(poly, install("ringDir"), ringDir);
SET_SLOT(poly, install("labpt"), labpt);
SET_SLOT(poly, install("area"), area);
SET_SLOT(poly, install("hole"), hole);
SET_SLOT(poly, install("coords"), R_NilValue);
SET_VECTOR_ELT(polys, k, poly);
UNPROTECT(5);
comm[k] = 0;
areas[k] = 0;
po[k] = k + R_OFFSET;
// modified 131004 RSB
// https://stat.ethz.ch/pipermail/r-sig-geo/2013-October/019470.html
// warning("rgeos_geospolygon2Polygons: empty Polygons object");
error("rgeos_geospolygon2Polygons: empty Polygons object");
k++;
} else {
GEOSGeom lr = (GEOSGeometry *) GEOSGetExteriorRing_r(GEOShandle, GC);
if (lr == NULL)
error("rgeos_geospolygon2Polygons: exterior ring failure");
SET_VECTOR_ELT(polys, k, rgeos_geosring2Polygon(env, lr, FALSE));
comm[k] = 0;
areas[k] = NUMERIC_POINTER( GET_SLOT(VECTOR_ELT(polys,k), install("area")) )[0];
totalarea += areas[k];
po[k] = k + R_OFFSET;
int ownerk = k + R_OFFSET;
k++;
int nirs = GEOSGetNumInteriorRings_r(GEOShandle, GC);
for (int j=0; j<nirs; j++) {
lr = (GEOSGeometry *) GEOSGetInteriorRingN_r(GEOShandle, GC, j);
if (lr == NULL)
error("rgeos_geospolygon2Polygons: interior ring failure");
SET_VECTOR_ELT(polys, k, rgeos_geosring2Polygon(env, lr, TRUE));
comm[k] = ownerk;
areas[k] = NUMERIC_POINTER( GET_SLOT(VECTOR_ELT(polys,k), install("area")) )[0];
po[k] = k + R_OFFSET;
k++;
}
}
}
SEXP plotOrder;
PROTECT(plotOrder = NEW_INTEGER(npoly)); pc++;
revsort(areas, po, npoly);
for (int i=0; i<npoly; i++)
INTEGER_POINTER(plotOrder)[i] = po[i];
SEXP labpt = GET_SLOT(VECTOR_ELT(polys,po[0]-1), install("labpt"));
SEXP area;
PROTECT(area = NEW_NUMERIC(1)); pc++;
NUMERIC_POINTER(area)[0] = totalarea;
SEXP comment;
PROTECT(comment = NEW_CHARACTER(1)); pc++;
char *buf;
int nc;
nc = (int) (ceil(log10(npoly)+1.0))+1;
buf = (char *) R_alloc((size_t) (npoly*nc)+1, sizeof(char));
SP_PREFIX(comm2comment)(buf, (npoly*nc)+1, comm, npoly);
SET_STRING_ELT(comment, 0, mkChar((const char*) buf));
SEXP ans;
PROTECT(ans = NEW_OBJECT(MAKE_CLASS("Polygons"))); pc++;
SET_SLOT(ans, install("Polygons"), polys);
SET_SLOT(ans, install("plotOrder"), plotOrder);
SET_SLOT(ans, install("labpt"), labpt);
SET_SLOT(ans, install("ID"), ID);
SET_SLOT(ans, install("area"), area);
setAttrib(ans, install("comment"), comment);
UNPROTECT(pc);
return(ans);
}
SEXP rgeos_geospolygon2SpatialPolygons(SEXP env, GEOSGeom geom, SEXP p4s, SEXP IDs, int ng) {
GEOSContextHandle_t GEOShandle = getContextHandle(env);
int pc=0;
SEXP bbox, comment;
PROTECT(bbox = rgeos_geom2bbox(env, geom)); pc++;
int type = GEOSGeomTypeId_r(GEOShandle, geom);
int empty = GEOSisEmpty_r(GEOShandle, geom);
if (ng < 1)
error("rgeos_geospolygon2SpatialPolygons: invalid number of geometries");
if (ng > length(IDs))
error("rgeos_geospolygon2SpatialPolygons: ng > length(IDs)");
SEXP pls;
PROTECT(pls = NEW_LIST(ng)); pc++;
double *areas = (double *) R_alloc((size_t) ng, sizeof(double));
int *po = (int *) R_alloc((size_t) ng, sizeof(int));
for (int i=0; i<ng; i++) {
GEOSGeom GC = (type == GEOS_GEOMETRYCOLLECTION && !empty) ?
(GEOSGeometry *) GEOSGetGeometryN_r(GEOShandle, geom, i) :
geom;
if (GC == NULL)
error("rgeos_geospolygon2SpatialPolygons: unable to get subgeometry");
SEXP poly, ID;
PROTECT( ID = NEW_CHARACTER(1));
SET_STRING_ELT(ID,0,STRING_ELT(IDs, i));
PROTECT( poly = rgeos_geospolygon2Polygons(env, GC, ID) );
areas[i] = NUMERIC_POINTER(GET_SLOT(poly, install("area")))[0];
SET_VECTOR_ELT(pls, i, poly);
po[i] = i + R_OFFSET;
UNPROTECT(2);
}
revsort(areas, po, ng);
SEXP plotOrder;
PROTECT(plotOrder = NEW_INTEGER(ng)); pc++;
for (int i=0; i<ng; i++)
INTEGER_POINTER(plotOrder)[i] = po[i];
SEXP ans;
PROTECT(ans = NEW_OBJECT(MAKE_CLASS("SpatialPolygons"))); pc++;
SET_SLOT(ans, install("polygons"), pls);
SET_SLOT(ans, install("proj4string"), p4s);
SET_SLOT(ans, install("plotOrder"), plotOrder);
SET_SLOT(ans, install("bbox"), bbox);
// RSB 120417 add top-level comment that all member Polygons
// objects have comment set
PROTECT(comment = NEW_CHARACTER(1)); pc++;
SET_STRING_ELT(comment, 0, mkChar("TRUE"));
setAttrib(ans, install("comment"), comment);
UNPROTECT(pc);
return(ans);
}
SEXP rgeos_convert_geos2R(SEXP env, GEOSGeom geom, SEXP p4s, SEXP id) {
GEOSContextHandle_t GEOShandle = getContextHandle(env);
int type = GEOSGeomTypeId_r(GEOShandle, geom);
int ng = GEOSGetNumGeometries_r(GEOShandle, geom);
if (ng == -1) error("rgeos_convert_geos2R: invalid number of subgeometries");
if (type == GEOS_GEOMETRYCOLLECTION && ng==0 && GEOSisEmpty_r(GEOShandle,geom)) {
GEOSGeom_destroy_r(GEOShandle, geom);
return(R_NilValue);
}
ng = ng ? ng : 1; // Empty MULTI type geometries return size 0
int pc=0;
SEXP ans=NULL;
switch(type) { // Determine appropriate conversion for the collection
case -1:
error("rgeos_convert_geos2R: unknown geometry type");
break;
case GEOS_POINT:
case GEOS_MULTIPOINT:
PROTECT( ans = rgeos_geospoint2SpatialPoints(env, geom, p4s, id, ng) ); pc++;
break;
case GEOS_LINEARRING:
PROTECT( ans = rgeos_geosring2SpatialRings(env, geom, p4s, id, ng)); pc++;
break;
case GEOS_LINESTRING:
case GEOS_MULTILINESTRING:
PROTECT( ans = rgeos_geosline2SpatialLines(env, geom, p4s, id, 1) ); pc++;
break;
case GEOS_POLYGON:
case GEOS_MULTIPOLYGON:
PROTECT( ans = rgeos_geospolygon2SpatialPolygons(env, geom,p4s, id, 1) ); pc++;
break;
case GEOS_GEOMETRYCOLLECTION:
{
int gctypes[] = {0,0,0,0,0,0,0,0};
int gctypen[] = {0,0,0,0,0,0,0,0};
int n=0;
int *types = (int *) R_alloc((size_t) ng, sizeof(int));
for (int i=0; i<ng; i++) {
const GEOSGeometry *subgeom = GEOSGetGeometryN_r(GEOShandle, geom, i);
if (subgeom == NULL)
error("rgeos_convert_geos2R: unable to retrieve subgeometry");
int ns = GEOSGetNumGeometries_r(GEOShandle, subgeom);
if (ns == -1) error("rgeos_convert_geos2R: invalid number of geometries in subgeometry");
ns = ns ? ns : 1;
n += ns;
types[i] = GEOSGeomTypeId_r(GEOShandle, subgeom);
if (types[i] == GEOS_GEOMETRYCOLLECTION) {
Rprintf("output subgeometry %d, row.name: %s\n", i,
CHAR(STRING_ELT(id, i)));
for (int ii=0; ii<ns; ii++)
Rprintf("subsubgeometry %d: %s\n", ii,
GEOSGeomType_r(GEOShandle,
GEOSGetGeometryN_r(GEOShandle, subgeom, ii)));
error("Geometry collections may not contain other geometry collections");
}
gctypes[ types[i] ] += 1;
gctypen[ types[i] ] += ns;
}
int isPoint = gctypes[GEOS_POINT] + gctypes[GEOS_MULTIPOINT];
int isLine = gctypes[GEOS_LINESTRING] + gctypes[GEOS_MULTILINESTRING];
int isPoly = gctypes[GEOS_POLYGON] + gctypes[GEOS_MULTIPOLYGON];
int isRing = gctypes[GEOS_LINEARRING];
int isGC = gctypes[GEOS_GEOMETRYCOLLECTION];
if ( isPoint && !isLine && !isPoly && !isRing && !isGC ) {
PROTECT( ans = rgeos_geospoint2SpatialPoints(env, geom, p4s, id, n) ); pc++;
} else if ( isLine && !isPoint && !isPoly && !isRing && !isGC ) {
PROTECT( ans = rgeos_geosline2SpatialLines(env, geom, p4s, id, ng) ); pc++;
} else if ( isPoly && !isPoint && !isLine && !isRing && !isGC ) {
PROTECT( ans = rgeos_geospolygon2SpatialPolygons(env, geom, p4s,id, ng) ); pc++;
} else if ( isRing && !isPoint && !isLine && !isPoly && !isGC ) {
PROTECT( ans = rgeos_geosring2SpatialRings(env, geom, p4s, id, ng) ); pc++;
} else {
//Rprintf("isPoint: %d isLine: %d isPoly: %d isRing: %d isGC: %d\n",isPoint, isLine, isPoly, isRing, isGC);
int m = MAX(MAX(MAX(isPoint,isLine),isPoly),isRing);
if (length(id) < m) {
char buf[BUFSIZ];
PROTECT(id = NEW_CHARACTER(m)); pc++;
for (int i=0;i<m;i++) {
sprintf(buf,"%d",i);
SET_STRING_ELT(id, i, COPY_TO_USER_STRING(buf));
}
}
GEOSGeom *GCS[4];
GCS[0] = (GEOSGeom *) R_alloc((size_t) isPoint, sizeof(GEOSGeom));
GCS[1] = (GEOSGeom *) R_alloc((size_t) isLine, sizeof(GEOSGeom));
GCS[2] = (GEOSGeom *) R_alloc((size_t) isRing, sizeof(GEOSGeom));
GCS[3] = (GEOSGeom *) R_alloc((size_t) isPoly, sizeof(GEOSGeom));
SEXP ptID, lID, rID, pID;
PROTECT(ptID = NEW_CHARACTER(isPoint)); pc++;
PROTECT(lID = NEW_CHARACTER(isLine)); pc++;
PROTECT(rID = NEW_CHARACTER(isRing)); pc++;
PROTECT(pID = NEW_CHARACTER(isPoly)); pc++;
int typei[] = {0,0,0,0};
for (int i=0; i<ng; i++) {
const GEOSGeometry *subgeom = GEOSGetGeometryN_r(GEOShandle, geom, i);
if (subgeom == NULL)
error("rgeos_convert_geos2R: unable to retrieve subgeometry");
int j = -1;
SEXP cur_id=NULL;
if (types[i]==GEOS_POINT || types[i]==GEOS_MULTIPOINT) {
j=0;
cur_id=ptID;
} else if (types[i]==GEOS_LINESTRING || types[i]==GEOS_MULTILINESTRING) {
j=1;
cur_id=lID;
} else if (types[i]==GEOS_LINEARRING) {
j=2;
cur_id=rID;
} else if (types[i]==GEOS_POLYGON || types[i]==GEOS_MULTIPOLYGON) {
j=3;
cur_id=pID;
}
if (GCS[j] == NULL)
error("rgeos_convert_geos2R: GCS element is NULL (this should never happen).");
GCS[j][ typei[j] ] = GEOSGeom_clone_r(GEOShandle, subgeom);
SET_STRING_ELT(cur_id, typei[j], STRING_ELT(id,typei[j]));
typei[j]++;
}
SEXP points = R_NilValue;
SEXP lines = R_NilValue;
SEXP rings = R_NilValue;
SEXP polys = R_NilValue;
if (isPoint) {
GEOSGeom ptGC = GEOSGeom_createCollection_r(GEOShandle, GEOS_GEOMETRYCOLLECTION, GCS[0], (unsigned int) isPoint);
PROTECT( points = rgeos_convert_geos2R(env, ptGC, p4s, ptID) ); pc++;
}
if (isLine) {
GEOSGeom lGC = GEOSGeom_createCollection_r(GEOShandle, GEOS_GEOMETRYCOLLECTION, GCS[1], (unsigned int) isLine);
PROTECT( lines = rgeos_convert_geos2R(env, lGC, p4s, lID) ); pc++;
}
if (isRing) {
GEOSGeom rGC = GEOSGeom_createCollection_r(GEOShandle, GEOS_GEOMETRYCOLLECTION, GCS[2], (unsigned int) isRing);
PROTECT( rings = rgeos_convert_geos2R(env, rGC, p4s, rID) ); pc++;
}
if (isPoly) {
GEOSGeom pGC = GEOSGeom_createCollection_r(GEOShandle, GEOS_GEOMETRYCOLLECTION, GCS[3], (unsigned int) isPoly);
PROTECT( polys = rgeos_convert_geos2R(env, pGC, p4s, pID) ); pc++;
}
PROTECT(ans = NEW_OBJECT(MAKE_CLASS("SpatialCollections"))); pc++;
SET_SLOT(ans, install("proj4string"), p4s);
SET_SLOT(ans, install("pointobj"), points);
SET_SLOT(ans, install("lineobj"), lines);
SET_SLOT(ans, install("ringobj"), rings);
SET_SLOT(ans, install("polyobj"), polys);
SEXP plotOrder;
PROTECT(plotOrder = NEW_INTEGER(4)); pc++;
INTEGER_POINTER(plotOrder)[0] = 4;
INTEGER_POINTER(plotOrder)[1] = 3;
INTEGER_POINTER(plotOrder)[2] = 2;
INTEGER_POINTER(plotOrder)[3] = 1;
SET_SLOT(ans, install("plotOrder"), plotOrder);
SEXP bbox;
PROTECT(bbox = rgeos_geom2bbox(env, geom)); pc++;
SET_SLOT(ans, install("bbox"), bbox);
}
break;
}
default:
error("rgeos_convert_geos2R: Unknown geometry type");
}
GEOSGeom_destroy_r(GEOShandle, geom);
UNPROTECT(pc);
return(ans);
}
