PostGIS  3.4.0dev-r@@SVN_REVISION@@

◆ ptarray_length_spheroid()

double ptarray_length_spheroid ( const POINTARRAY pa,
const SPHEROID s 
)

Definition at line 3243 of file lwgeodetic.c.

3244 {
3245  GEOGRAPHIC_POINT a, b;
3246  double za = 0.0, zb = 0.0;
3247  POINT4D p;
3248  uint32_t i;
3249  int hasz = LW_FALSE;
3250  double length = 0.0;
3251  double seglength = 0.0;
3252 
3253  /* Return zero on non-sensical inputs */
3254  if ( ! pa || pa->npoints < 2 )
3255  return 0.0;
3256 
3257  /* See if we have a third dimension */
3258  hasz = FLAGS_GET_Z(pa->flags);
3259 
3260  /* Initialize first point */
3261  getPoint4d_p(pa, 0, &p);
3262  geographic_point_init(p.x, p.y, &a);
3263  if ( hasz )
3264  za = p.z;
3265 
3266  /* Loop and sum the length for each segment */
3267  for ( i = 1; i < pa->npoints; i++ )
3268  {
3269  seglength = 0.0;
3270  getPoint4d_p(pa, i, &p);
3271  geographic_point_init(p.x, p.y, &b);
3272  if ( hasz )
3273  zb = p.z;
3274 
3275  /* Special sphere case */
3276  if ( s->a == s->b )
3277  seglength = s->radius * sphere_distance(&a, &b);
3278  /* Spheroid case */
3279  else
3280  seglength = spheroid_distance(&a, &b, s);
3281 
3282  /* Add in the vertical displacement if we're in 3D */
3283  if ( hasz )
3284  seglength = sqrt( (zb-za)*(zb-za) + seglength*seglength );
3285 
3286  /* Add this segment length to the total */
3287  length += seglength;
3288 
3289  /* B gets incremented in the next loop, so we save the value here */
3290  a = b;
3291  za = zb;
3292  }
3293  return length;
3294 }
char * s
Definition: cu_in_wkt.c:23
#define LW_FALSE
Definition: liblwgeom.h:94
#define FLAGS_GET_Z(flags)
Definition: liblwgeom.h:165
int getPoint4d_p(const POINTARRAY *pa, uint32_t n, POINT4D *point)
Definition: lwgeom_api.c:125
void geographic_point_init(double lon, double lat, GEOGRAPHIC_POINT *g)
Initialize a geographic point.
Definition: lwgeodetic.c:180
double sphere_distance(const GEOGRAPHIC_POINT *s, const GEOGRAPHIC_POINT *e)
Given two points on a unit sphere, calculate their distance apart in radians.
Definition: lwgeodetic.c:948
double spheroid_distance(const GEOGRAPHIC_POINT *a, const GEOGRAPHIC_POINT *b, const SPHEROID *spheroid)
Computes the shortest distance along the surface of the spheroid between two points,...
Definition: lwspheroid.c:79
Point in spherical coordinates on the world.
Definition: lwgeodetic.h:54
double x
Definition: liblwgeom.h:414
double z
Definition: liblwgeom.h:414
double y
Definition: liblwgeom.h:414
lwflags_t flags
Definition: liblwgeom.h:431
uint32_t npoints
Definition: liblwgeom.h:427

References POINTARRAY::flags, FLAGS_GET_Z, geographic_point_init(), getPoint4d_p(), LW_FALSE, POINTARRAY::npoints, s, sphere_distance(), spheroid_distance(), POINT4D::x, POINT4D::y, and POINT4D::z.

Referenced by geography_interpolate_points(), geography_substring(), and lwgeom_length_spheroid().

Here is the call graph for this function:
Here is the caller graph for this function: