mirror of
https://git.osgeo.org/gitea/postgis/postgis
synced 2024-10-25 01:22:47 +00:00
fd6d759590
git-svn-id: http://svn.osgeo.org/postgis/trunk@6437 b70326c6-7e19-0410-871a-916f4a2858ee
199 lines
4.7 KiB
C
199 lines
4.7 KiB
C
/**********************************************************************
|
|
* $Id$
|
|
*
|
|
* PostGIS - Spatial Types for PostgreSQL
|
|
* http://postgis.refractions.net
|
|
* Copyright 2001-2006 Refractions Research Inc.
|
|
*
|
|
* This is free software; you can redistribute and/or modify it under
|
|
* the terms of the GNU General Public Licence. See the COPYING file.
|
|
*
|
|
**********************************************************************/
|
|
|
|
/* basic LWCURVEPOLY manipulation */
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include "liblwgeom_internal.h"
|
|
|
|
|
|
LWCURVEPOLY *
|
|
lwcurvepoly_deserialize(uchar *srl)
|
|
{
|
|
LWCURVEPOLY *result;
|
|
LWGEOM_INSPECTED *insp;
|
|
uchar type = (uchar)srl[0];
|
|
int geomtype = lwgeom_getType(type);
|
|
int i;
|
|
|
|
LWDEBUG(3, "lwcurvepoly_deserialize called.");
|
|
|
|
if (geomtype != CURVEPOLYTYPE)
|
|
{
|
|
lwerror("lwcurvepoly_deserialize called on NON curvepoly: %d",
|
|
geomtype);
|
|
return NULL;
|
|
}
|
|
|
|
insp = lwgeom_inspect(srl);
|
|
|
|
result = lwalloc(sizeof(LWCURVEPOLY));
|
|
result->type = CURVEPOLYTYPE;
|
|
result->flags = gflags(TYPE_HASZ(type),TYPE_HASM(type),0);
|
|
result->srid = insp->srid;
|
|
result->nrings = insp->ngeometries;
|
|
result->rings = lwalloc(sizeof(LWGEOM *)*insp->ngeometries);
|
|
|
|
if (lwgeom_hasBBOX(srl[0]))
|
|
{
|
|
BOX2DFLOAT4 *box2df;
|
|
|
|
FLAGS_SET_BBOX(result->flags, 1);
|
|
box2df = lwalloc(sizeof(BOX2DFLOAT4));
|
|
memcpy(box2df, srl + 1, sizeof(BOX2DFLOAT4));
|
|
result->bbox = gbox_from_box2df(result->flags, box2df);
|
|
lwfree(box2df);
|
|
}
|
|
else result->bbox = NULL;
|
|
|
|
for (i = 0; i < insp->ngeometries; i++)
|
|
{
|
|
result->rings[i] = lwgeom_deserialize(insp->sub_geoms[i]);
|
|
if (result->rings[i]->type != CIRCSTRINGTYPE
|
|
&& result->rings[i]->type != LINETYPE
|
|
&& result->rings[i]->type != COMPOUNDTYPE)
|
|
{
|
|
lwerror("Only Circular curves, Linestrings and Compound curves are supported as rings, not %s (%d)", lwtype_name(result->rings[i]->type), result->rings[i]->type);
|
|
lwfree(result);
|
|
lwfree(insp);
|
|
return NULL;
|
|
}
|
|
if (FLAGS_NDIMS(result->rings[i]->flags) != FLAGS_NDIMS(result->flags))
|
|
{
|
|
lwerror("Mixed dimensions (curvepoly %d, ring %d)",
|
|
FLAGS_NDIMS(result->flags), i,
|
|
FLAGS_NDIMS(result->rings[i]->flags));
|
|
lwfree(result);
|
|
lwfree(insp);
|
|
return NULL;
|
|
}
|
|
}
|
|
return result;
|
|
}
|
|
|
|
LWCURVEPOLY *
|
|
lwcurvepoly_construct_empty(int srid, char hasz, char hasm)
|
|
{
|
|
LWCURVEPOLY *ret;
|
|
|
|
ret = lwalloc(sizeof(LWCURVEPOLY));
|
|
ret->type = CURVEPOLYTYPE;
|
|
ret->flags = gflags(hasz, hasm, 0);
|
|
ret->srid = srid;
|
|
ret->nrings = 0;
|
|
ret->maxrings = 1; /* Allocate room for sub-members, just in case. */
|
|
ret->rings = lwalloc(ret->maxrings * sizeof(LWGEOM*));
|
|
ret->bbox = NULL;
|
|
|
|
return ret;
|
|
}
|
|
|
|
int lwcurvepoly_add_ring(LWCURVEPOLY *poly, LWGEOM *ring)
|
|
{
|
|
int i;
|
|
|
|
/* Can't do anything with NULLs */
|
|
if( ! poly || ! ring )
|
|
{
|
|
LWDEBUG(4,"NULL inputs!!! quitting");
|
|
return LW_FAILURE;
|
|
}
|
|
|
|
/* Check that we're not working with garbage */
|
|
if ( poly->rings == NULL && (poly->nrings || poly->maxrings) )
|
|
{
|
|
LWDEBUG(4,"mismatched nrings/maxrings");
|
|
lwerror("Curvepolygon is in inconsistent state. Null memory but non-zero collection counts.");
|
|
}
|
|
|
|
/* Check that we're adding an allowed ring type */
|
|
if ( ! ( ring->type == LINETYPE || ring->type == CIRCSTRINGTYPE || ring->type == COMPOUNDTYPE ) )
|
|
{
|
|
LWDEBUGF(4,"got incorrect ring type: %s",lwtype_name(ring->type));
|
|
return LW_FAILURE;
|
|
}
|
|
|
|
|
|
/* In case this is a truly empty, make some initial space */
|
|
if ( poly->rings == NULL )
|
|
{
|
|
poly->maxrings = 2;
|
|
poly->nrings = 0;
|
|
poly->rings = lwalloc(poly->maxrings * sizeof(LWGEOM*));
|
|
}
|
|
|
|
/* Allocate more space if we need it */
|
|
if ( poly->nrings == poly->maxrings )
|
|
{
|
|
poly->maxrings *= 2;
|
|
poly->rings = lwrealloc(poly->rings, sizeof(LWGEOM*) * poly->maxrings);
|
|
}
|
|
|
|
/* Make sure we don't already have a reference to this geom */
|
|
for ( i = 0; i < poly->nrings; i++ )
|
|
{
|
|
if ( poly->rings[i] == ring )
|
|
{
|
|
LWDEBUGF(4, "Found duplicate geometry in collection %p == %p", poly->rings[i], ring);
|
|
return LW_SUCCESS;
|
|
}
|
|
}
|
|
|
|
/* Add the ring and increment the ring count */
|
|
poly->rings[poly->nrings] = (LWGEOM*)ring;
|
|
poly->nrings++;
|
|
return LW_SUCCESS;
|
|
}
|
|
|
|
/**
|
|
* This should be rewritten to make use of the curve itself.
|
|
*/
|
|
double
|
|
lwcurvepoly_area(const LWCURVEPOLY *curvepoly)
|
|
{
|
|
double area = 0.0;
|
|
LWPOLY *poly;
|
|
if( lwgeom_is_empty((LWGEOM*)curvepoly) )
|
|
return 0.0;
|
|
poly = lwcurvepoly_segmentize(curvepoly, 32);
|
|
area = lwpoly_area(poly);
|
|
lwpoly_free(poly);
|
|
return area;
|
|
}
|
|
|
|
|
|
double
|
|
lwcurvepoly_perimeter(const LWCURVEPOLY *poly)
|
|
{
|
|
double result=0.0;
|
|
int i;
|
|
|
|
for (i=0; i<poly->nrings; i++)
|
|
result += lwgeom_length(poly->rings[i]);
|
|
|
|
return result;
|
|
}
|
|
|
|
double
|
|
lwcurvepoly_perimeter_2d(const LWCURVEPOLY *poly)
|
|
{
|
|
double result=0.0;
|
|
int i;
|
|
|
|
for (i=0; i<poly->nrings; i++)
|
|
result += lwgeom_length_2d(poly->rings[i]);
|
|
|
|
return result;
|
|
}
|