Imported Upstream version 1.72.0
[platform/upstream/boost.git] / boost / geometry / srs / projections / proj / hammer.hpp
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, 2019.
6 // Modifications copyright (c) 2017-2019, 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 // Permission is hereby granted, free of charge, to any person obtaining a
23 // copy of this software and associated documentation files (the "Software"),
24 // to deal in the Software without restriction, including without limitation
25 // the rights to use, copy, modify, merge, publish, distribute, sublicense,
26 // and/or sell copies of the Software, and to permit persons to whom the
27 // Software is furnished to do so, subject to the following conditions:
28
29 // The above copyright notice and this permission notice shall be included
30 // in all copies or substantial portions of the Software.
31
32 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
33 // OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
34 // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
35 // THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
36 // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
37 // FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
38 // DEALINGS IN THE SOFTWARE.
39
40 #ifndef BOOST_GEOMETRY_PROJECTIONS_HAMMER_HPP
41 #define BOOST_GEOMETRY_PROJECTIONS_HAMMER_HPP
42
43 #include <boost/geometry/srs/projections/impl/base_static.hpp>
44 #include <boost/geometry/srs/projections/impl/base_dynamic.hpp>
45 #include <boost/geometry/srs/projections/impl/factory_entry.hpp>
46 #include <boost/geometry/srs/projections/impl/pj_param.hpp>
47 #include <boost/geometry/srs/projections/impl/projects.hpp>
48
49 namespace boost { namespace geometry
50 {
51
52 namespace projections
53 {
54     #ifndef DOXYGEN_NO_DETAIL
55     namespace detail { namespace hammer
56     {
57             static const double epsilon = 1.0e-10;
58
59             template <typename T>
60             struct par_hammer
61             {
62                 T w;
63                 T m, rm;
64             };
65
66             template <typename T, typename Parameters>
67             struct base_hammer_spheroid
68             {
69                 par_hammer<T> m_proj_parm;
70
71                 // FORWARD(s_forward)  spheroid
72                 // Project coordinates from geographic (lon, lat) to cartesian (x, y)
73                 inline void fwd(Parameters const& , T lp_lon, T const& lp_lat, T& xy_x, T& xy_y) const
74                 {
75                     T cosphi, d;
76
77                     d = sqrt(2./(1. + (cosphi = cos(lp_lat)) * cos(lp_lon *= this->m_proj_parm.w)));
78                     xy_x = this->m_proj_parm.m * d * cosphi * sin(lp_lon);
79                     xy_y = this->m_proj_parm.rm * d * sin(lp_lat);
80                 }
81
82                 // INVERSE(s_inverse)  spheroid
83                 // Project coordinates from cartesian (x, y) to geographic (lon, lat)
84                 inline void inv(Parameters const& , T const& xy_x, T const& xy_y, T& lp_lon, T& lp_lat) const
85                 {
86                     T z;
87
88                     z = sqrt(1. - 0.25*this->m_proj_parm.w*this->m_proj_parm.w*xy_x*xy_x - 0.25*xy_y*xy_y);
89                     if (geometry::math::abs(2.*z*z-1.) < epsilon) {
90                         lp_lon = HUGE_VAL;
91                         lp_lat = HUGE_VAL;
92                         BOOST_THROW_EXCEPTION( projection_exception(error_lat_or_lon_exceed_limit) );
93                     } else {
94                         lp_lon = aatan2(this->m_proj_parm.w * xy_x * z,2. * z * z - 1)/this->m_proj_parm.w;
95                         lp_lat = aasin(z * xy_y);
96                     }
97                 }
98
99                 static inline std::string get_name()
100                 {
101                     return "hammer_spheroid";
102                 }
103
104             };
105
106             // Hammer & Eckert-Greifendorff
107             template <typename Params, typename Parameters, typename T>
108             inline void setup_hammer(Params const& params, Parameters& par, par_hammer<T>& proj_parm)
109             {
110                 T tmp;
111
112                 if (pj_param_f<srs::spar::w>(params, "W", srs::dpar::w, tmp)) {
113                     if ((proj_parm.w = fabs(tmp)) <= 0.)
114                         BOOST_THROW_EXCEPTION( projection_exception(error_w_or_m_zero_or_less) );
115                 } else
116                     proj_parm.w = .5;
117                 if (pj_param_f<srs::spar::m>(params, "M", srs::dpar::m, tmp)) {
118                     if ((proj_parm.m = fabs(tmp)) <= 0.)
119                         BOOST_THROW_EXCEPTION( projection_exception(error_w_or_m_zero_or_less) );
120                 } else
121                     proj_parm.m = 1.;
122
123                 proj_parm.rm = 1. / proj_parm.m;
124                 proj_parm.m /= proj_parm.w;
125
126                 par.es = 0.;
127             }
128
129     }} // namespace detail::hammer
130     #endif // doxygen
131
132     /*!
133         \brief Hammer & Eckert-Greifendorff projection
134         \ingroup projections
135         \tparam Geographic latlong point type
136         \tparam Cartesian xy point type
137         \tparam Parameters parameter type
138         \par Projection characteristics
139          - Miscellaneous
140          - Spheroid
141          - no inverse
142         \par Projection parameters
143          - W (real)
144          - M (real)
145         \par Example
146         \image html ex_hammer.gif
147     */
148     template <typename T, typename Parameters>
149     struct hammer_spheroid : public detail::hammer::base_hammer_spheroid<T, Parameters>
150     {
151         template <typename Params>
152         inline hammer_spheroid(Params const& params, Parameters & par)
153         {
154             detail::hammer::setup_hammer(params, par, this->m_proj_parm);
155         }
156     };
157
158     #ifndef DOXYGEN_NO_DETAIL
159     namespace detail
160     {
161
162         // Static projection
163         BOOST_GEOMETRY_PROJECTIONS_DETAIL_STATIC_PROJECTION_FI(srs::spar::proj_hammer, hammer_spheroid)
164
165         // Factory entry(s)
166         BOOST_GEOMETRY_PROJECTIONS_DETAIL_FACTORY_ENTRY_FI(hammer_entry, hammer_spheroid)
167         
168         BOOST_GEOMETRY_PROJECTIONS_DETAIL_FACTORY_INIT_BEGIN(hammer_init)
169         {
170             BOOST_GEOMETRY_PROJECTIONS_DETAIL_FACTORY_INIT_ENTRY(hammer, hammer_entry)
171         }
172
173     } // namespace detail
174     #endif // doxygen
175
176 } // namespace projections
177
178 }} // namespace boost::geometry
179
180 #endif // BOOST_GEOMETRY_PROJECTIONS_HAMMER_HPP
181