include MGRS coordinates

This commit is contained in:
Markus Ast 2021-10-15 18:48:22 +02:00
parent 2cd8fb860c
commit c621a6891b
No known key found for this signature in database
GPG Key ID: A24156F14E230197

View File

@ -246,22 +246,20 @@ local function loadScratchpad()
local function coordsType() local function coordsType()
local ac = DCS.getPlayerUnitType() local ac = DCS.getPlayerUnitType()
if ac == "FA-18C_hornet" or ac == "A-10C_2" then if ac == "FA-18C_hornet" or ac == "A-10C_2" then
return "DMS" return "DMS", true
elseif ac == "F-16C_50" or ac == "M-2000C" then elseif ac == "F-16C_50" or ac == "M-2000C" then
return "DDM" return "DDM", false
else else
return nil return nil, false
end end
end end
local function insertCoordinates() local function insertCoordinates()
local pos = Export.LoGetCameraPosition().p local pos = Export.LoGetCameraPosition().p
local alt = Export.LoGetAltitude(pos.x, pos.z) local alt = Terrain.GetSurfaceHeightWithSeabed(pos.x, pos.z)
local coords = Export.LoLoCoordinatesToGeoCoordinates(pos.x, pos.z) local lat, lon = Terrain.convertMetersToLatLon(pos.x, pos.z)
local lat = coords.latitude local mgrs = Terrain.GetMGRScoordinates(pos.x, pos.z)
local lon = coords.longitude local type, includeMgrs = coordsType()
local type = coordsType()
local result = "" local result = ""
if type == nil or type == "DMS" then if type == nil or type == "DMS" then
@ -270,6 +268,9 @@ local function loadScratchpad()
if type == nil or type == "DDM" then if type == nil or type == "DDM" then
result = result .. formatCoord("DDM", true, lat) .. ", " .. formatCoord("DDM", false, lon) .. "\n" result = result .. formatCoord("DDM", true, lat) .. ", " .. formatCoord("DDM", false, lon) .. "\n"
end end
if type == nil or includeMgrs then
result = result .. mgrs .. "\n"
end
result = result .. string.format("%.0f", alt) .. "m, ".. string.format("%.0f", alt*3.28084) .. "ft\n" result = result .. string.format("%.0f", alt) .. "m, ".. string.format("%.0f", alt*3.28084) .. "ft\n"
local lineCountBefore = textarea:getLineCount() local lineCountBefore = textarea:getLineCount()