1 // Boost.Geometry - gis-projections (based on PROJ4) 2 3 // Copyright (c) 2008-2015 Barend Gehrels, Amsterdam, the Netherlands. 4 5 // This file was modified by Oracle on 2017, 2018. 6 // Modifications copyright (c) 2017-2018, Oracle and/or its affiliates. 7 // Contributed and/or modified by Adam Wulkiewicz, on behalf of Oracle. 8 9 // Use, modification and distribution is subject to the Boost Software License, 10 // Version 1.0. (See accompanying file LICENSE_1_0.txt or copy at 11 // http://www.boost.org/LICENSE_1_0.txt) 12 13 // This file is converted from PROJ4, http://trac.osgeo.org/proj 14 // PROJ4 is originally written by Gerald Evenden (then of the USGS) 15 // PROJ4 is maintained by Frank Warmerdam 16 // PROJ4 is converted to Boost.Geometry by Barend Gehrels 17 18 // Last updated version of proj: 5.0.0 19 20 // Original copyright notice: 21 22 // Copyright (c) 2003 Gerald I. Evenden 23 24 // Permission is hereby granted, free of charge, to any person obtaining a 25 // copy of this software and associated documentation files (the "Software"), 26 // to deal in the Software without restriction, including without limitation 27 // the rights to use, copy, modify, merge, publish, distribute, sublicense, 28 // and/or sell copies of the Software, and to permit persons to whom the 29 // Software is furnished to do so, subject to the following conditions: 30 31 // The above copyright notice and this permission notice shall be included 32 // in all copies or substantial portions of the Software. 33 34 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS 35 // OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 36 // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 37 // THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 38 // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING 39 // FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 40 // DEALINGS IN THE SOFTWARE. 41 42 #ifndef BOOST_GEOMETRY_PROJECTIONS_STEREA_HPP 43 #define BOOST_GEOMETRY_PROJECTIONS_STEREA_HPP 44 45 #include <boost/math/special_functions/hypot.hpp> 46 47 #include <boost/geometry/srs/projections/impl/base_static.hpp> 48 #include <boost/geometry/srs/projections/impl/base_dynamic.hpp> 49 #include <boost/geometry/srs/projections/impl/projects.hpp> 50 #include <boost/geometry/srs/projections/impl/factory_entry.hpp> 51 #include <boost/geometry/srs/projections/impl/pj_gauss.hpp> 52 53 54 namespace boost { namespace geometry 55 { 56 57 namespace projections 58 { 59 #ifndef DOXYGEN_NO_DETAIL 60 namespace detail { namespace sterea 61 { 62 63 template <typename T> 64 struct par_sterea 65 { 66 T phic0; 67 T cosc0, sinc0; 68 T R2; 69 gauss<T> en; 70 }; 71 72 // template class, using CRTP to implement forward/inverse 73 template <typename T, typename Parameters> 74 struct base_sterea_ellipsoid 75 : public base_t_fi<base_sterea_ellipsoid<T, Parameters>, T, Parameters> 76 { 77 par_sterea<T> m_proj_parm; 78 base_sterea_ellipsoidboost::geometry::projections::detail::sterea::base_sterea_ellipsoid79 inline base_sterea_ellipsoid(const Parameters& par) 80 : base_t_fi<base_sterea_ellipsoid<T, Parameters>, T, Parameters>(*this, par) 81 {} 82 83 // FORWARD(e_forward) ellipsoid 84 // Project coordinates from geographic (lon, lat) to cartesian (x, y) fwdboost::geometry::projections::detail::sterea::base_sterea_ellipsoid85 inline void fwd(T lp_lon, T lp_lat, T& xy_x, T& xy_y) const 86 { 87 T cosc, sinc, cosl_, k; 88 89 detail::gauss_fwd(m_proj_parm.en, lp_lon, lp_lat); 90 sinc = sin(lp_lat); 91 cosc = cos(lp_lat); 92 cosl_ = cos(lp_lon); 93 k = this->m_par.k0 * this->m_proj_parm.R2 / (1. + this->m_proj_parm.sinc0 * sinc + this->m_proj_parm.cosc0 * cosc * cosl_); 94 xy_x = k * cosc * sin(lp_lon); 95 xy_y = k * (this->m_proj_parm.cosc0 * sinc - this->m_proj_parm.sinc0 * cosc * cosl_); 96 } 97 98 // INVERSE(e_inverse) ellipsoid 99 // Project coordinates from cartesian (x, y) to geographic (lon, lat) invboost::geometry::projections::detail::sterea::base_sterea_ellipsoid100 inline void inv(T xy_x, T xy_y, T& lp_lon, T& lp_lat) const 101 { 102 T rho, c, sinc, cosc; 103 104 xy_x /= this->m_par.k0; 105 xy_y /= this->m_par.k0; 106 if((rho = boost::math::hypot(xy_x, xy_y)) != 0.0) { 107 c = 2. * atan2(rho, this->m_proj_parm.R2); 108 sinc = sin(c); 109 cosc = cos(c); 110 lp_lat = asin(cosc * this->m_proj_parm.sinc0 + xy_y * sinc * this->m_proj_parm.cosc0 / rho); 111 lp_lon = atan2(xy_x * sinc, rho * this->m_proj_parm.cosc0 * cosc - 112 xy_y * this->m_proj_parm.sinc0 * sinc); 113 } else { 114 lp_lat = this->m_proj_parm.phic0; 115 lp_lon = 0.; 116 } 117 detail::gauss_inv(m_proj_parm.en, lp_lon, lp_lat); 118 } 119 get_nameboost::geometry::projections::detail::sterea::base_sterea_ellipsoid120 static inline std::string get_name() 121 { 122 return "sterea_ellipsoid"; 123 } 124 125 }; 126 127 // Oblique Stereographic Alternative 128 template <typename Parameters, typename T> setup_sterea(Parameters & par,par_sterea<T> & proj_parm)129 inline void setup_sterea(Parameters& par, par_sterea<T>& proj_parm) 130 { 131 T R; 132 133 proj_parm.en = detail::gauss_ini(par.e, par.phi0, proj_parm.phic0, R); 134 proj_parm.sinc0 = sin(proj_parm.phic0); 135 proj_parm.cosc0 = cos(proj_parm.phic0); 136 proj_parm.R2 = 2. * R; 137 } 138 139 }} // namespace detail::sterea 140 #endif // doxygen 141 142 /*! 143 \brief Oblique Stereographic Alternative projection 144 \ingroup projections 145 \tparam Geographic latlong point type 146 \tparam Cartesian xy point type 147 \tparam Parameters parameter type 148 \par Projection characteristics 149 - Azimuthal 150 - Spheroid 151 - Ellipsoid 152 \par Example 153 \image html ex_sterea.gif 154 */ 155 template <typename T, typename Parameters> 156 struct sterea_ellipsoid : public detail::sterea::base_sterea_ellipsoid<T, Parameters> 157 { 158 template <typename Params> sterea_ellipsoidboost::geometry::projections::sterea_ellipsoid159 inline sterea_ellipsoid(Params const& , Parameters const& par) 160 : detail::sterea::base_sterea_ellipsoid<T, Parameters>(par) 161 { 162 detail::sterea::setup_sterea(this->m_par, this->m_proj_parm); 163 } 164 }; 165 166 #ifndef DOXYGEN_NO_DETAIL 167 namespace detail 168 { 169 170 // Static projection BOOST_GEOMETRY_PROJECTIONS_DETAIL_STATIC_PROJECTION(srs::spar::proj_sterea,sterea_ellipsoid,sterea_ellipsoid)171 BOOST_GEOMETRY_PROJECTIONS_DETAIL_STATIC_PROJECTION(srs::spar::proj_sterea, sterea_ellipsoid, sterea_ellipsoid) 172 173 // Factory entry(s) 174 BOOST_GEOMETRY_PROJECTIONS_DETAIL_FACTORY_ENTRY_FI(sterea_entry, sterea_ellipsoid) 175 176 BOOST_GEOMETRY_PROJECTIONS_DETAIL_FACTORY_INIT_BEGIN(sterea_init) 177 { 178 BOOST_GEOMETRY_PROJECTIONS_DETAIL_FACTORY_INIT_ENTRY(sterea, sterea_entry) 179 } 180 181 } // namespace detail 182 #endif // doxygen 183 184 } // namespace projections 185 186 }} // namespace boost::geometry 187 188 #endif // BOOST_GEOMETRY_PROJECTIONS_STEREA_HPP 189 190