implement button to insert all mark coordinates

Refs #3

Scripts/Hooks/scratchpad-hook.lua

@@ -16,6 +16,113 @@ function scratchpad_load()
     local panel = nil
     local textarea = nil
 
+    local getCoordsLua =
+        [[
+        -- thanks MIST! https://github.com/mrSkortch/MissionScriptingTools/blob/master/mist.lua
+
+        local round = function (num, idp)
+            local mult = 10^(idp or 0)
+            return math.floor(num * mult + 0.5) / mult
+        end
+
+        local tostringLL = function (lat, lon, acc, DMS)
+            local latHemi, lonHemi
+            if lat > 0 then
+                latHemi = 'N'
+            else
+                latHemi = 'S'
+            end
+        
+            if lon > 0 then
+                lonHemi = 'E'
+            else
+                lonHemi = 'W'
+            end
+        
+            lat = math.abs(lat)
+            lon = math.abs(lon)
+        
+            local latDeg = math.floor(lat)
+            local latMin = (lat - latDeg)*60
+        
+            local lonDeg = math.floor(lon)
+            local lonMin = (lon - lonDeg)*60
+        
+            if DMS then	-- degrees, minutes, and seconds.
+                local oldLatMin = latMin
+                latMin = math.floor(latMin)
+                local latSec = round((oldLatMin - latMin)*60, acc)
+        
+                local oldLonMin = lonMin
+                lonMin = math.floor(lonMin)
+                local lonSec = round((oldLonMin - lonMin)*60, acc)
+        
+                if latSec == 60 then
+                    latSec = 0
+                    latMin = latMin + 1
+                end
+        
+                if lonSec == 60 then
+                    lonSec = 0
+                    lonMin = lonMin + 1
+                end
+        
+                local secFrmtStr -- create the formatting string for the seconds place
+                if acc <= 0 then	-- no decimal place.
+                    secFrmtStr = '%02d'
+                else
+                    local width = 3 + acc	-- 01.310 - that's a width of 6, for example.
+                    secFrmtStr = '%0' .. width .. '.' .. acc .. 'f'
+                end
+        
+                return string.format('%02d', latDeg) .. ' ' .. string.format('%02d', latMin) .. '\' ' .. string.format(secFrmtStr, latSec) .. '"' .. latHemi .. '	 '
+                .. string.format('%02d', lonDeg) .. ' ' .. string.format('%02d', lonMin) .. '\' ' .. string.format(secFrmtStr, lonSec) .. '"' .. lonHemi
+        
+            else	-- degrees, decimal minutes.
+                latMin = round(latMin, acc)
+                lonMin = round(lonMin, acc)
+        
+                if latMin == 60 then
+                    latMin = 0
+                    latDeg = latDeg + 1
+                end
+        
+                if lonMin == 60 then
+                    lonMin = 0
+                    lonDeg = lonDeg + 1
+                end
+        
+                local minFrmtStr -- create the formatting string for the minutes place
+                if acc <= 0 then	-- no decimal place.
+                    minFrmtStr = '%02d'
+                else
+                    local width = 3 + acc	-- 01.310 - that's a width of 6, for example.
+                    minFrmtStr = '%0' .. width .. '.' .. acc .. 'f'
+                end
+        
+                return string.format('%02d', latDeg) .. ' ' .. string.format(minFrmtStr, latMin) .. '\'' .. latHemi .. '	 '
+                .. string.format('%02d', lonDeg) .. ' ' .. string.format(minFrmtStr, lonMin) .. '\'' .. lonHemi
+        
+            end
+        end
+
+        local marks = world.getMarkPanels()
+        local result = ""
+        for _, mark in pairs(marks) do
+            local lat, lon = coord.LOtoLL({
+                x = mark.pos.z,
+                y = 0,
+                z = mark.pos.x
+            })
+            local alt = round(land.getHeight({
+                x = mark.pos.z,
+                y = mark.pos.x
+            }), 0)
+            result = result .. "\n" .. tostringLL(lat, lon, 2, true) .. "\n" .. tostring(alt) .. "m, " .. mark.text .. "\n"
+        end
+        return result
+    ]]
+
     local scratchpad = {
         logFile = io.open(lfs.writedir() .. [[Logs\Scratchpad.log]], "w")
     }
@@ -115,11 +222,29 @@ function scratchpad_load()
         keyboardLocked = true
     end
 
+    local function insertCoordinates()
+        local coords = net.dostring_in("server", getCoordsLua)
+        local lineCountBefore = textarea:getLineCount()
+
+        if coords == "" then
+            textarea:setText(textarea:getText() .. "\nNo marks found\n")
+        else
+            textarea:setText(textarea:getText() .. coords .. "\n")
+        end
+
+        -- scroll to the bottom of the textarea
+        local lastLine = textarea:getLineCount() - 1
+        local lastLineChar = textarea:getLineTextLength(lastLine)
+        textarea:setSelectionNew(lastLine, 0, lastLine, lastLineLen)
+        scratchpad.saveContent("0000", textarea:getText(), true)
+    end
+
     function scratchpad.createWindow()
         window = DialogLoader.spawnDialogFromFile(lfs.writedir() .. "Scripts\\Scratchpad\\ScratchpadWindow.dlg", cdata)
         windowDefaultSkin = window:getSkin()
         panel = window.Box
         textarea = panel.ScratchpadEditBox
+        insertCoordsBtn = panel.ScratchpadInsertCoordsButton
 
         -- setup textarea
         local skin = textarea:getSkin()
@@ -150,6 +275,13 @@ function scratchpad_load()
             end
         )
 
+        -- setup insert coords button
+        insertCoordsBtn:addMouseDownCallback(
+            function(self)
+                insertCoordinates()
+            end
+        )
+
         -- setup window
         window:setBounds(
             scratchpad.config.windowPosition.x,
@@ -185,7 +317,8 @@ function scratchpad_load()
         local w, h = self:getSize()
 
         panel:setBounds(0, 0, w, h - 20)
-        textarea:setBounds(0, 0, w, h - 20)
+        textarea:setBounds(0, 0, w, h - 20 - 20)
+        insertCoordsBtn:setBounds(0, h - 40, 50, 20)
 
         scratchpad.config.windowSize = {w = w, h = h}
         scratchpad.saveConfiguration()