oea.hpp 8.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210
  1. // Boost.Geometry - gis-projections (based on PROJ4)
  2. // Copyright (c) 2008-2015 Barend Gehrels, Amsterdam, the Netherlands.
  3. // This file was modified by Oracle on 2017, 2018.
  4. // Modifications copyright (c) 2017-2018, Oracle and/or its affiliates.
  5. // Contributed and/or modified by Adam Wulkiewicz, on behalf of Oracle.
  6. // Use, modification and distribution is subject to the Boost Software License,
  7. // Version 1.0. (See accompanying file LICENSE_1_0.txt or copy at
  8. // http://www.boost.org/LICENSE_1_0.txt)
  9. // This file is converted from PROJ4, http://trac.osgeo.org/proj
  10. // PROJ4 is originally written by Gerald Evenden (then of the USGS)
  11. // PROJ4 is maintained by Frank Warmerdam
  12. // PROJ4 is converted to Boost.Geometry by Barend Gehrels
  13. // Last updated version of proj: 5.0.0
  14. // Original copyright notice:
  15. // Permission is hereby granted, free of charge, to any person obtaining a
  16. // copy of this software and associated documentation files (the "Software"),
  17. // to deal in the Software without restriction, including without limitation
  18. // the rights to use, copy, modify, merge, publish, distribute, sublicense,
  19. // and/or sell copies of the Software, and to permit persons to whom the
  20. // Software is furnished to do so, subject to the following conditions:
  21. // The above copyright notice and this permission notice shall be included
  22. // in all copies or substantial portions of the Software.
  23. // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  24. // OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  25. // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
  26. // THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  27. // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
  28. // FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
  29. // DEALINGS IN THE SOFTWARE.
  30. #ifndef BOOST_GEOMETRY_PROJECTIONS_OEA_HPP
  31. #define BOOST_GEOMETRY_PROJECTIONS_OEA_HPP
  32. #include <boost/math/special_functions/hypot.hpp>
  33. #include <boost/geometry/srs/projections/impl/base_static.hpp>
  34. #include <boost/geometry/srs/projections/impl/base_dynamic.hpp>
  35. #include <boost/geometry/srs/projections/impl/projects.hpp>
  36. #include <boost/geometry/srs/projections/impl/factory_entry.hpp>
  37. #include <boost/geometry/srs/projections/impl/aasincos.hpp>
  38. namespace boost { namespace geometry
  39. {
  40. namespace srs { namespace par4
  41. {
  42. struct oea {}; // Oblated Equal Area
  43. }} //namespace srs::par4
  44. namespace projections
  45. {
  46. #ifndef DOXYGEN_NO_DETAIL
  47. namespace detail { namespace oea
  48. {
  49. template <typename T>
  50. struct par_oea
  51. {
  52. T theta;
  53. T m, n;
  54. T two_r_m, two_r_n, rm, rn, hm, hn;
  55. T cp0, sp0;
  56. };
  57. // template class, using CRTP to implement forward/inverse
  58. template <typename T, typename Parameters>
  59. struct base_oea_spheroid
  60. : public base_t_fi<base_oea_spheroid<T, Parameters>, T, Parameters>
  61. {
  62. par_oea<T> m_proj_parm;
  63. inline base_oea_spheroid(const Parameters& par)
  64. : base_t_fi<base_oea_spheroid<T, Parameters>, T, Parameters>(*this, par)
  65. {}
  66. // FORWARD(s_forward) sphere
  67. // Project coordinates from geographic (lon, lat) to cartesian (x, y)
  68. inline void fwd(T& lp_lon, T& lp_lat, T& xy_x, T& xy_y) const
  69. {
  70. T Az, M, N, cp, sp, cl, shz;
  71. cp = cos(lp_lat);
  72. sp = sin(lp_lat);
  73. cl = cos(lp_lon);
  74. Az = aatan2(cp * sin(lp_lon), this->m_proj_parm.cp0 * sp - this->m_proj_parm.sp0 * cp * cl) + this->m_proj_parm.theta;
  75. shz = sin(0.5 * aacos(this->m_proj_parm.sp0 * sp + this->m_proj_parm.cp0 * cp * cl));
  76. M = aasin(shz * sin(Az));
  77. N = aasin(shz * cos(Az) * cos(M) / cos(M * this->m_proj_parm.two_r_m));
  78. xy_y = this->m_proj_parm.n * sin(N * this->m_proj_parm.two_r_n);
  79. xy_x = this->m_proj_parm.m * sin(M * this->m_proj_parm.two_r_m) * cos(N) / cos(N * this->m_proj_parm.two_r_n);
  80. }
  81. // INVERSE(s_inverse) sphere
  82. // Project coordinates from cartesian (x, y) to geographic (lon, lat)
  83. inline void inv(T& xy_x, T& xy_y, T& lp_lon, T& lp_lat) const
  84. {
  85. T N, M, xp, yp, z, Az, cz, sz, cAz;
  86. N = this->m_proj_parm.hn * aasin(xy_y * this->m_proj_parm.rn);
  87. M = this->m_proj_parm.hm * aasin(xy_x * this->m_proj_parm.rm * cos(N * this->m_proj_parm.two_r_n) / cos(N));
  88. xp = 2. * sin(M);
  89. yp = 2. * sin(N) * cos(M * this->m_proj_parm.two_r_m) / cos(M);
  90. cAz = cos(Az = aatan2(xp, yp) - this->m_proj_parm.theta);
  91. z = 2. * aasin(0.5 * boost::math::hypot(xp, yp));
  92. sz = sin(z);
  93. cz = cos(z);
  94. lp_lat = aasin(this->m_proj_parm.sp0 * cz + this->m_proj_parm.cp0 * sz * cAz);
  95. lp_lon = aatan2(sz * sin(Az),
  96. this->m_proj_parm.cp0 * cz - this->m_proj_parm.sp0 * sz * cAz);
  97. }
  98. static inline std::string get_name()
  99. {
  100. return "oea_spheroid";
  101. }
  102. };
  103. // Oblated Equal Area
  104. template <typename Parameters, typename T>
  105. inline void setup_oea(Parameters& par, par_oea<T>& proj_parm)
  106. {
  107. if (((proj_parm.n = pj_get_param_f(par.params, "n")) <= 0.) ||
  108. ((proj_parm.m = pj_get_param_f(par.params, "m")) <= 0.)) {
  109. BOOST_THROW_EXCEPTION( projection_exception(error_invalid_m_or_n) );
  110. } else {
  111. proj_parm.theta = pj_get_param_r(par.params, "theta");
  112. proj_parm.sp0 = sin(par.phi0);
  113. proj_parm.cp0 = cos(par.phi0);
  114. proj_parm.rn = 1./ proj_parm.n;
  115. proj_parm.rm = 1./ proj_parm.m;
  116. proj_parm.two_r_n = 2. * proj_parm.rn;
  117. proj_parm.two_r_m = 2. * proj_parm.rm;
  118. proj_parm.hm = 0.5 * proj_parm.m;
  119. proj_parm.hn = 0.5 * proj_parm.n;
  120. par.es = 0.;
  121. }
  122. }
  123. }} // namespace detail::oea
  124. #endif // doxygen
  125. /*!
  126. \brief Oblated Equal Area projection
  127. \ingroup projections
  128. \tparam Geographic latlong point type
  129. \tparam Cartesian xy point type
  130. \tparam Parameters parameter type
  131. \par Projection characteristics
  132. - Miscellaneous
  133. - Spheroid
  134. \par Projection parameters
  135. - n (real)
  136. - m (real)
  137. - theta: Theta (degrees)
  138. \par Example
  139. \image html ex_oea.gif
  140. */
  141. template <typename T, typename Parameters>
  142. struct oea_spheroid : public detail::oea::base_oea_spheroid<T, Parameters>
  143. {
  144. inline oea_spheroid(const Parameters& par) : detail::oea::base_oea_spheroid<T, Parameters>(par)
  145. {
  146. detail::oea::setup_oea(this->m_par, this->m_proj_parm);
  147. }
  148. };
  149. #ifndef DOXYGEN_NO_DETAIL
  150. namespace detail
  151. {
  152. // Static projection
  153. BOOST_GEOMETRY_PROJECTIONS_DETAIL_STATIC_PROJECTION(srs::par4::oea, oea_spheroid, oea_spheroid)
  154. // Factory entry(s)
  155. template <typename T, typename Parameters>
  156. class oea_entry : public detail::factory_entry<T, Parameters>
  157. {
  158. public :
  159. virtual base_v<T, Parameters>* create_new(const Parameters& par) const
  160. {
  161. return new base_v_fi<oea_spheroid<T, Parameters>, T, Parameters>(par);
  162. }
  163. };
  164. template <typename T, typename Parameters>
  165. inline void oea_init(detail::base_factory<T, Parameters>& factory)
  166. {
  167. factory.add_to_factory("oea", new oea_entry<T, Parameters>);
  168. }
  169. } // namespace detail
  170. #endif // doxygen
  171. } // namespace projections
  172. }} // namespace boost::geometry
  173. #endif // BOOST_GEOMETRY_PROJECTIONS_OEA_HPP