geometry_distance_spheroid()

Datum geometry_distance_spheroid

(

PG_FUNCTION_ARGS

)

Definition at line 483 of file lwgeom_spheroid.c.

{
        GSERIALIZED *geom1 = PG_GETARG_GSERIALIZED_P(0);
        GSERIALIZED *geom2 = PG_GETARG_GSERIALIZED_P(1);
        SPHEROID *sphere = (SPHEROID *)PG_GETARG_POINTER(2);
        int type1 = gserialized_get_type(geom1);
        int type2 = gserialized_get_type(geom2);
        bool use_spheroid = PG_GETARG_BOOL(3);
        LWGEOM *lwgeom1, *lwgeom2;
        double distance;
 
        /* Calculate some other parameters on the spheroid */
        spheroid_init(sphere, sphere->a, sphere->b);
 
        error_if_srid_mismatch(gserialized_get_srid(geom1), gserialized_get_srid(geom2));
 
        /* Catch sphere special case and re-jig spheroid appropriately */
        if ( ! use_spheroid )
        {
                sphere->a = sphere->b = sphere->radius;
        }
 
        if ( ! ( type1 == POINTTYPE || type1 == LINETYPE || type1 == POLYGONTYPE ||
                 type1 == MULTIPOINTTYPE || type1 == MULTILINETYPE || type1 == MULTIPOLYGONTYPE ))
        {
                elog(ERROR, "geometry_distance_spheroid: Only point/line/polygon supported.\n");
                PG_RETURN_NULL();
        }
 
        if ( ! ( type2 == POINTTYPE || type2 == LINETYPE || type2 == POLYGONTYPE ||
                 type2 == MULTIPOINTTYPE || type2 == MULTILINETYPE || type2 == MULTIPOLYGONTYPE ))
        {
                elog(ERROR, "geometry_distance_spheroid: Only point/line/polygon supported.\n");
                PG_RETURN_NULL();
        }
 
        /* Get #LWGEOM structures */
        lwgeom1 = lwgeom_from_gserialized(geom1);
        lwgeom2 = lwgeom_from_gserialized(geom2);
 
        /* We are going to be calculating geodetic distances */
        lwgeom_set_geodetic(lwgeom1, LW_TRUE);
        lwgeom_set_geodetic(lwgeom2, LW_TRUE);
 
        distance = lwgeom_distance_spheroid(lwgeom1, lwgeom2, sphere, 0.0);
 
        PG_RETURN_FLOAT8(distance);
 
}

References SPHEROID::a, SPHEROID::b, distance(), error_if_srid_mismatch(), gserialized_get_srid(), gserialized_get_type(), LINETYPE, LW_TRUE, lwgeom_distance_spheroid(), lwgeom_from_gserialized(), lwgeom_set_geodetic(), MULTILINETYPE, MULTIPOINTTYPE, MULTIPOLYGONTYPE, POINTTYPE, POLYGONTYPE, SPHEROID::radius, and spheroid_init().

Referenced by LWGEOM_distance_ellipsoid(), and LWGEOM_distance_sphere().

Here is the call graph for this function:

Here is the caller graph for this function: