mirror of
https://github.com/MaSzyna-EU07/maszyna.git
synced 2026-10-17 22:39:19 +02:00
bf82c35734
"New map" now asks what is being started. A fictional scenery keeps its own frame, where coordinates mean nothing outside it. A real one pins the scenery's zero to a point picked off a map of Poland, so the plan is drawn in EPSG:2180 - the frame the layout library already works in, and the one Geoportal serves imagery in. The projection is the standard transverse Mercator series for PUWG 1992 on GRS80. Checked against known values: the central meridian comes out at easting 500000 exactly, Warszawa at 637382/486757, Krakow at 567614/244588, Gdansk at 477038/720937. The map behind the picker is a schematic border outline plus the larger cities, projected from geographic coordinates on first use. It is coarse on purpose - it is there to point at a region, not to measure against - and the dialog says so. No network is involved.
74 lines
2.5 KiB
C++
74 lines
2.5 KiB
C++
/*
|
|
This Source Code Form is subject to the
|
|
terms of the Mozilla Public License, v.
|
|
2.0. If a copy of the MPL was not
|
|
distributed with this file, You can
|
|
obtain one at
|
|
http://mozilla.org/MPL/2.0/.
|
|
*/
|
|
|
|
#include "stdafx.h"
|
|
#include "editor/puwg1992.h"
|
|
|
|
namespace editor
|
|
{
|
|
|
|
namespace
|
|
{
|
|
|
|
// PUWG 1992: a single transverse Mercator zone over the whole country, on the GRS80 ellipsoid
|
|
double const kSemiMajor = 6378137.0;
|
|
double const kFlattening = 1.0 / 298.257222101;
|
|
double const kCentralMeridian = 19.0; // degrees east
|
|
double const kScaleFactor = 0.9993;
|
|
double const kFalseEasting = 500000.0;
|
|
double const kFalseNorthing = -5300000.0;
|
|
|
|
} // namespace
|
|
|
|
glm::dvec2 puwg1992(double const Latitude, double const Longitude)
|
|
{
|
|
auto const e2 = 2.0 * kFlattening - kFlattening * kFlattening;
|
|
auto const ep2 = e2 / (1.0 - e2);
|
|
|
|
auto const lat = glm::radians(Latitude);
|
|
auto const dlon = glm::radians(Longitude - kCentralMeridian);
|
|
|
|
auto const sinlat = std::sin(lat);
|
|
auto const coslat = std::cos(lat);
|
|
auto const tanlat = std::tan(lat);
|
|
|
|
// radius of curvature in the prime vertical, and the series terms of the standard
|
|
// transverse Mercator expansion (Snyder); good to millimetres over a zone this size
|
|
auto const n = kSemiMajor / std::sqrt(1.0 - e2 * sinlat * sinlat);
|
|
auto const t = tanlat * tanlat;
|
|
auto const c = ep2 * coslat * coslat;
|
|
auto const a = dlon * coslat;
|
|
|
|
// meridional arc from the equator
|
|
auto const m =
|
|
kSemiMajor * ((1.0 - e2 / 4.0 - 3.0 * e2 * e2 / 64.0 - 5.0 * e2 * e2 * e2 / 256.0) * lat -
|
|
(3.0 * e2 / 8.0 + 3.0 * e2 * e2 / 32.0 + 45.0 * e2 * e2 * e2 / 1024.0) * std::sin(2.0 * lat) +
|
|
(15.0 * e2 * e2 / 256.0 + 45.0 * e2 * e2 * e2 / 1024.0) * std::sin(4.0 * lat) -
|
|
(35.0 * e2 * e2 * e2 / 3072.0) * std::sin(6.0 * lat));
|
|
|
|
auto const a2 = a * a;
|
|
auto const a3 = a2 * a;
|
|
auto const a4 = a3 * a;
|
|
auto const a5 = a4 * a;
|
|
auto const a6 = a5 * a;
|
|
|
|
auto const easting = kFalseEasting + kScaleFactor * n *
|
|
(a + (1.0 - t + c) * a3 / 6.0 +
|
|
(5.0 - 18.0 * t + t * t + 72.0 * c - 58.0 * ep2) * a5 / 120.0);
|
|
|
|
auto const northing = kFalseNorthing + kScaleFactor *
|
|
(m + n * tanlat *
|
|
(a2 / 2.0 + (5.0 - t + 9.0 * c + 4.0 * c * c) * a4 / 24.0 +
|
|
(61.0 - 58.0 * t + t * t + 600.0 * c - 330.0 * ep2) * a6 / 720.0));
|
|
|
|
return {easting, northing};
|
|
}
|
|
|
|
} // namespace editor
|