diff options
Diffstat (limited to 'boost/geometry/srs/projections/proj/laea.hpp')
-rw-r--r-- | boost/geometry/srs/projections/proj/laea.hpp | 447 |
1 files changed, 447 insertions, 0 deletions
diff --git a/boost/geometry/srs/projections/proj/laea.hpp b/boost/geometry/srs/projections/proj/laea.hpp new file mode 100644 index 0000000000..757d2b7ff0 --- /dev/null +++ b/boost/geometry/srs/projections/proj/laea.hpp @@ -0,0 +1,447 @@ +#ifndef BOOST_GEOMETRY_PROJECTIONS_LAEA_HPP +#define BOOST_GEOMETRY_PROJECTIONS_LAEA_HPP + +// Boost.Geometry - extensions-gis-projections (based on PROJ4) +// This file is automatically generated. DO NOT EDIT. + +// Copyright (c) 2008-2015 Barend Gehrels, Amsterdam, the Netherlands. + +// This file was modified by Oracle on 2017, 2018. +// Modifications copyright (c) 2017-2018, Oracle and/or its affiliates. +// Contributed and/or modified by Adam Wulkiewicz, on behalf of Oracle. + +// Use, modification and distribution is subject to the Boost Software License, +// Version 1.0. (See accompanying file LICENSE_1_0.txt or copy at +// http://www.boost.org/LICENSE_1_0.txt) + +// This file is converted from PROJ4, http://trac.osgeo.org/proj +// PROJ4 is originally written by Gerald Evenden (then of the USGS) +// PROJ4 is maintained by Frank Warmerdam +// PROJ4 is converted to Boost.Geometry by Barend Gehrels + +// Last updated version of proj: 4.9.1 + +// Original copyright notice: + +// Permission is hereby granted, free of charge, to any person obtaining a +// copy of this software and associated documentation files (the "Software"), +// to deal in the Software without restriction, including without limitation +// the rights to use, copy, modify, merge, publish, distribute, sublicense, +// and/or sell copies of the Software, and to permit persons to whom the +// Software is furnished to do so, subject to the following conditions: + +// The above copyright notice and this permission notice shall be included +// in all copies or substantial portions of the Software. + +// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +// OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL +// THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER +// DEALINGS IN THE SOFTWARE. + +#include <boost/config.hpp> +#include <boost/geometry/util/math.hpp> +#include <boost/math/special_functions/hypot.hpp> + +#include <boost/geometry/srs/projections/impl/base_static.hpp> +#include <boost/geometry/srs/projections/impl/base_dynamic.hpp> +#include <boost/geometry/srs/projections/impl/projects.hpp> +#include <boost/geometry/srs/projections/impl/factory_entry.hpp> +#include <boost/geometry/srs/projections/impl/pj_auth.hpp> +#include <boost/geometry/srs/projections/impl/pj_qsfn.hpp> + +namespace boost { namespace geometry +{ + +namespace srs { namespace par4 +{ + struct laea {}; + +}} //namespace srs::par4 + +namespace projections +{ + #ifndef DOXYGEN_NO_DETAIL + namespace detail { namespace laea + { + static const double EPS10 = 1.e-10; + static const int NITER = 20; + static const double CONV = 1.e-10; + static const int N_POLE = 0; + static const int S_POLE = 1; + static const int EQUIT = 2; + static const int OBLIQ = 3; + + template <typename T> + struct par_laea + { + T sinb1; + T cosb1; + T xmf; + T ymf; + T mmf; + T qp; + T dd; + T rq; + T apa[APA_SIZE]; + int mode; + }; + + // template class, using CRTP to implement forward/inverse + template <typename CalculationType, typename Parameters> + struct base_laea_ellipsoid : public base_t_fi<base_laea_ellipsoid<CalculationType, Parameters>, + CalculationType, Parameters> + { + + typedef CalculationType geographic_type; + typedef CalculationType cartesian_type; + + par_laea<CalculationType> m_proj_parm; + + inline base_laea_ellipsoid(const Parameters& par) + : base_t_fi<base_laea_ellipsoid<CalculationType, Parameters>, + CalculationType, Parameters>(*this, par) {} + + // FORWARD(e_forward) ellipsoid + // Project coordinates from geographic (lon, lat) to cartesian (x, y) + inline void fwd(geographic_type& lp_lon, geographic_type& lp_lat, cartesian_type& xy_x, cartesian_type& xy_y) const + { + static const CalculationType HALFPI = detail::HALFPI<CalculationType>(); + + CalculationType coslam, sinlam, sinphi, q, sinb=0.0, cosb=0.0, b=0.0; + + coslam = cos(lp_lon); + sinlam = sin(lp_lon); + sinphi = sin(lp_lat); + q = pj_qsfn(sinphi, this->m_par.e, this->m_par.one_es); + if (this->m_proj_parm.mode == OBLIQ || this->m_proj_parm.mode == EQUIT) { + sinb = q / this->m_proj_parm.qp; + cosb = sqrt(1. - sinb * sinb); + } + switch (this->m_proj_parm.mode) { + case OBLIQ: + b = 1. + this->m_proj_parm.sinb1 * sinb + this->m_proj_parm.cosb1 * cosb * coslam; + break; + case EQUIT: + b = 1. + cosb * coslam; + break; + case N_POLE: + b = HALFPI + lp_lat; + q = this->m_proj_parm.qp - q; + break; + case S_POLE: + b = lp_lat - HALFPI; + q = this->m_proj_parm.qp + q; + break; + } + if (fabs(b) < EPS10) + BOOST_THROW_EXCEPTION( projection_exception(-20) ); + switch (this->m_proj_parm.mode) { + case OBLIQ: + xy_y = this->m_proj_parm.ymf * ( b = sqrt(2. / b) ) + * (this->m_proj_parm.cosb1 * sinb - this->m_proj_parm.sinb1 * cosb * coslam); + goto eqcon; + break; + case EQUIT: + xy_y = (b = sqrt(2. / (1. + cosb * coslam))) * sinb * this->m_proj_parm.ymf; + eqcon: + xy_x = this->m_proj_parm.xmf * b * cosb * sinlam; + break; + case N_POLE: + case S_POLE: + if (q >= 0.) { + xy_x = (b = sqrt(q)) * sinlam; + xy_y = coslam * (this->m_proj_parm.mode == S_POLE ? b : -b); + } else + xy_x = xy_y = 0.; + break; + } + } + + // INVERSE(e_inverse) ellipsoid + // Project coordinates from cartesian (x, y) to geographic (lon, lat) + inline void inv(cartesian_type& xy_x, cartesian_type& xy_y, geographic_type& lp_lon, geographic_type& lp_lat) const + { + CalculationType cCe, sCe, q, rho, ab=0.0; + + switch (this->m_proj_parm.mode) { + case EQUIT: + case OBLIQ: + if ((rho = boost::math::hypot(xy_x /= this->m_proj_parm.dd, xy_y *= this->m_proj_parm.dd)) < EPS10) { + lp_lon = 0.; + lp_lat = this->m_par.phi0; + return; + } + cCe = cos(sCe = 2. * asin(.5 * rho / this->m_proj_parm.rq)); + xy_x *= (sCe = sin(sCe)); + if (this->m_proj_parm.mode == OBLIQ) { + q = this->m_proj_parm.qp * (ab = cCe * this->m_proj_parm.sinb1 + xy_y * sCe * this->m_proj_parm.cosb1 / rho); + xy_y = rho * this->m_proj_parm.cosb1 * cCe - xy_y * this->m_proj_parm.sinb1 * sCe; + } else { + q = this->m_proj_parm.qp * (ab = xy_y * sCe / rho); + xy_y = rho * cCe; + } + break; + case N_POLE: + xy_y = -xy_y; + BOOST_FALLTHROUGH; + case S_POLE: + if (!(q = (xy_x * xy_x + xy_y * xy_y)) ) { + lp_lon = 0.; + lp_lat = this->m_par.phi0; + return; + } + /* + q = this->m_proj_parm.qp - q; + */ + ab = 1. - q / this->m_proj_parm.qp; + if (this->m_proj_parm.mode == S_POLE) + ab = - ab; + break; + } + lp_lon = atan2(xy_x, xy_y); + lp_lat = pj_authlat(asin(ab), this->m_proj_parm.apa); + } + + static inline std::string get_name() + { + return "laea_ellipsoid"; + } + + }; + + // template class, using CRTP to implement forward/inverse + template <typename CalculationType, typename Parameters> + struct base_laea_spheroid : public base_t_fi<base_laea_spheroid<CalculationType, Parameters>, + CalculationType, Parameters> + { + + typedef CalculationType geographic_type; + typedef CalculationType cartesian_type; + + par_laea<CalculationType> m_proj_parm; + + inline base_laea_spheroid(const Parameters& par) + : base_t_fi<base_laea_spheroid<CalculationType, Parameters>, + CalculationType, Parameters>(*this, par) {} + + // FORWARD(s_forward) spheroid + // Project coordinates from geographic (lon, lat) to cartesian (x, y) + inline void fwd(geographic_type& lp_lon, geographic_type& lp_lat, cartesian_type& xy_x, cartesian_type& xy_y) const + { + static const CalculationType FORTPI = detail::FORTPI<CalculationType>(); + + CalculationType coslam, cosphi, sinphi; + + sinphi = sin(lp_lat); + cosphi = cos(lp_lat); + coslam = cos(lp_lon); + switch (this->m_proj_parm.mode) { + case EQUIT: + xy_y = 1. + cosphi * coslam; + goto oblcon; + case OBLIQ: + xy_y = 1. + this->m_proj_parm.sinb1 * sinphi + this->m_proj_parm.cosb1 * cosphi * coslam; + oblcon: + if (xy_y <= EPS10) + BOOST_THROW_EXCEPTION( projection_exception(-20) ); + xy_x = (xy_y = sqrt(2. / xy_y)) * cosphi * sin(lp_lon); + xy_y *= this->m_proj_parm.mode == EQUIT ? sinphi : + this->m_proj_parm.cosb1 * sinphi - this->m_proj_parm.sinb1 * cosphi * coslam; + break; + case N_POLE: + coslam = -coslam; + BOOST_FALLTHROUGH; + case S_POLE: + if (fabs(lp_lat + this->m_par.phi0) < EPS10) + BOOST_THROW_EXCEPTION( projection_exception(-20) ); + xy_y = FORTPI - lp_lat * .5; + xy_y = 2. * (this->m_proj_parm.mode == S_POLE ? cos(xy_y) : sin(xy_y)); + xy_x = xy_y * sin(lp_lon); + xy_y *= coslam; + break; + } + } + + // INVERSE(s_inverse) spheroid + // Project coordinates from cartesian (x, y) to geographic (lon, lat) + inline void inv(cartesian_type& xy_x, cartesian_type& xy_y, geographic_type& lp_lon, geographic_type& lp_lat) const + { + static const CalculationType HALFPI = detail::HALFPI<CalculationType>(); + + CalculationType cosz=0.0, rh, sinz=0.0; + + rh = boost::math::hypot(xy_x, xy_y); + if ((lp_lat = rh * .5 ) > 1.) + BOOST_THROW_EXCEPTION( projection_exception(-20) ); + lp_lat = 2. * asin(lp_lat); + if (this->m_proj_parm.mode == OBLIQ || this->m_proj_parm.mode == EQUIT) { + sinz = sin(lp_lat); + cosz = cos(lp_lat); + } + switch (this->m_proj_parm.mode) { + case EQUIT: + lp_lat = fabs(rh) <= EPS10 ? 0. : asin(xy_y * sinz / rh); + xy_x *= sinz; + xy_y = cosz * rh; + break; + case OBLIQ: + lp_lat = fabs(rh) <= EPS10 ? this->m_par.phi0 : + asin(cosz * this->m_proj_parm.sinb1 + xy_y * sinz * this->m_proj_parm.cosb1 / rh); + xy_x *= sinz * this->m_proj_parm.cosb1; + xy_y = (cosz - sin(lp_lat) * this->m_proj_parm.sinb1) * rh; + break; + case N_POLE: + xy_y = -xy_y; + lp_lat = HALFPI - lp_lat; + break; + case S_POLE: + lp_lat -= HALFPI; + break; + } + lp_lon = (xy_y == 0. && (this->m_proj_parm.mode == EQUIT || this->m_proj_parm.mode == OBLIQ)) ? + 0. : atan2(xy_x, xy_y); + } + + static inline std::string get_name() + { + return "laea_spheroid"; + } + + }; + + // Lambert Azimuthal Equal Area + template <typename Parameters, typename T> + inline void setup_laea(Parameters& par, par_laea<T>& proj_parm) + { + static const T HALFPI = detail::HALFPI<T>(); + + T t; + + if (fabs((t = fabs(par.phi0)) - HALFPI) < EPS10) + proj_parm.mode = par.phi0 < 0. ? S_POLE : N_POLE; + else if (fabs(t) < EPS10) + proj_parm.mode = EQUIT; + else + proj_parm.mode = OBLIQ; + if (par.es) { + double sinphi; + + par.e = sqrt(par.es); + proj_parm.qp = pj_qsfn(1., par.e, par.one_es); + proj_parm.mmf = .5 / (1. - par.es); + pj_authset(par.es, proj_parm.apa); + switch (proj_parm.mode) { + case N_POLE: + case S_POLE: + proj_parm.dd = 1.; + break; + case EQUIT: + proj_parm.dd = 1. / (proj_parm.rq = sqrt(.5 * proj_parm.qp)); + proj_parm.xmf = 1.; + proj_parm.ymf = .5 * proj_parm.qp; + break; + case OBLIQ: + proj_parm.rq = sqrt(.5 * proj_parm.qp); + sinphi = sin(par.phi0); + proj_parm.sinb1 = pj_qsfn(sinphi, par.e, par.one_es) / proj_parm.qp; + proj_parm.cosb1 = sqrt(1. - proj_parm.sinb1 * proj_parm.sinb1); + proj_parm.dd = cos(par.phi0) / (sqrt(1. - par.es * sinphi * sinphi) * + proj_parm.rq * proj_parm.cosb1); + proj_parm.ymf = (proj_parm.xmf = proj_parm.rq) / proj_parm.dd; + proj_parm.xmf *= proj_parm.dd; + break; + } + } else { + if (proj_parm.mode == OBLIQ) { + proj_parm.sinb1 = sin(par.phi0); + proj_parm.cosb1 = cos(par.phi0); + } + } + } + + }} // namespace laea + #endif // doxygen + + /*! + \brief Lambert Azimuthal Equal Area projection + \ingroup projections + \tparam Geographic latlong point type + \tparam Cartesian xy point type + \tparam Parameters parameter type + \par Projection characteristics + - Azimuthal + - Spheroid + - Ellipsoid + \par Example + \image html ex_laea.gif + */ + template <typename CalculationType, typename Parameters> + struct laea_ellipsoid : public detail::laea::base_laea_ellipsoid<CalculationType, Parameters> + { + inline laea_ellipsoid(const Parameters& par) : detail::laea::base_laea_ellipsoid<CalculationType, Parameters>(par) + { + detail::laea::setup_laea(this->m_par, this->m_proj_parm); + } + }; + + /*! + \brief Lambert Azimuthal Equal Area projection + \ingroup projections + \tparam Geographic latlong point type + \tparam Cartesian xy point type + \tparam Parameters parameter type + \par Projection characteristics + - Azimuthal + - Spheroid + - Ellipsoid + \par Example + \image html ex_laea.gif + */ + template <typename CalculationType, typename Parameters> + struct laea_spheroid : public detail::laea::base_laea_spheroid<CalculationType, Parameters> + { + inline laea_spheroid(const Parameters& par) : detail::laea::base_laea_spheroid<CalculationType, Parameters>(par) + { + detail::laea::setup_laea(this->m_par, this->m_proj_parm); + } + }; + + #ifndef DOXYGEN_NO_DETAIL + namespace detail + { + + // Static projection + BOOST_GEOMETRY_PROJECTIONS_DETAIL_STATIC_PROJECTION(srs::par4::laea, laea_spheroid, laea_ellipsoid) + + // Factory entry(s) + template <typename CalculationType, typename Parameters> + class laea_entry : public detail::factory_entry<CalculationType, Parameters> + { + public : + virtual base_v<CalculationType, Parameters>* create_new(const Parameters& par) const + { + if (par.es) + return new base_v_fi<laea_ellipsoid<CalculationType, Parameters>, CalculationType, Parameters>(par); + else + return new base_v_fi<laea_spheroid<CalculationType, Parameters>, CalculationType, Parameters>(par); + } + }; + + template <typename CalculationType, typename Parameters> + inline void laea_init(detail::base_factory<CalculationType, Parameters>& factory) + { + factory.add_to_factory("laea", new laea_entry<CalculationType, Parameters>); + } + + } // namespace detail + #endif // doxygen + +} // namespace projections + +}} // namespace boost::geometry + +#endif // BOOST_GEOMETRY_PROJECTIONS_LAEA_HPP + |