Version 1.4.6

ownAll

modules/mxObjects.lua

@@ -1,4 +1,132 @@
 mxObjects = {}
+mxObjects.version = "1.0.0"
+mxObjects.allObjects = {}
+mxObjects.textBoxes = {}
+mxObjects.miscObjects = {}
+mxObjects.imperial = true 
+mxObjects.doubleLine = true 
+
+-- scan mission to set up object DB
+
+function mxObjects.scanMissionData()
+	if not env.mission.drawings then 
+		trigger.action.outText("+++mxO: Mission has no object layer", 30)
+		return 
+	end 
+	local drawings = env.mission.drawings 
+	
+	-- all drawings are in drawings[layer]
+	local layers = drawings["layers"]
+	if not layers then 
+		trigger.action.outText("+++mxO: Mission has no layers in objects", 30)
+		return
+	end
+	
+	-- each layer has a "name" field that identifies the layer, and 
+	-- per layer there are the objects. Let's flatten the structure,
+	-- since object names are unique 
+	local count = 0
+	for idx, aLayer in pairs(layers) do 
+		local layerName = aLayer.name 
+		local objects = aLayer.objects 
+		-- scan objects in this layer
+		for idy, theObject in pairs (objects) do 
+			local theData = dcsCommon.clone(theObject)
+			theData.dist = math.huge -- simply init field 
+			-- make theData point-compatible, handle y<>z adapt
+			theData.x = theData.mapX -- set up x, y, z
+			if not theData.x then theData.x = 0 end
+			theData.y = 0 
+			theData.z = theData.mapY
+			if not theData.z then theData.z = 0 end 
+			
+			if mxObjects.allObjects[theData.name] then 
+				trigger.action.outText("+++mxO: name collision for drawing object named <" .. theData.name .. ">, skipped.", 30)
+			else
+				mxObjects.allObjects[theData.name] = theData
+				count = count + 1
+				-- sort into quick-access "type" slots
+				if theData.primitiveType == "TextBox" then 
+					mxObjects.textBoxes[theData.name] = theData
+				else 
+					mxObjects.miscObjects[theData.name] = theData
+				end
+			end
+		end
+	end
+end
+
+function mxObjects.sortObjectsInRelationTo(p, objects)
+	if not p then return nil end 
+	-- calculate distance to all into new list 
+	local disted = {}
+	for name, theData in pairs(objects) do 
+		theData.dist = dcsCommon.dist(p, theData)
+		table.insert(disted, theData)
+	end
+	table.sort(disted, 
+				function (e1, e2) return e1.dist < e2.dist end 
+			  )
+	return disted 
+end
+
+
+function mxObjects.showNClosestTextObjectsToUnit(n, theUnit, numbered)
+	if numbered == nil then numbered = true end 
+	local p = theUnit:getPoint()
+	local headingInDegrees = dcsCommon.getUnitHeadingDegrees(theUnit)
+	local theList = mxObjects.sortObjectsInRelationTo(p, mxObjects.textBoxes)
+	local msg = "\n"
+	if #theList < 1 then 
+		msg = msg .. "  NO OBJECTS "
+	else 
+		if n > #theList then n = #theList end
+		for i = 1, n do 
+			theObject = theList[i]
+			local dist = theObject.dist
+			units = "km"
+			if mxObjects.imperial then 
+				dist = dist * 3.28084
+				dist = math.floor(dist * 0.0016457883895983) -- in 0.1 nautmil 
+				units = "nm"
+			else
+				dist = math.floor(theObject.dist / 100) -- dekameters
+			end
+			dist = dist / 10
+			
+			if numbered then 
+				if i < 10 and n > 9 then 
+					msg = msg .. "0" 
+				end
+				msg = msg .. i .. ". "
+			end 
+			-- show text			
+			msg = msg .. theObject.text 
+			-- bearing 
+			local bea = dcsCommon.bearingInDegreesFromAtoB(p, theObject)
+			msg = msg .. " bearing " .. bea .. "°,"
+			-- get clock position
+			local clockPos = dcsCommon.clockPositionOfARelativeToB(theObject, p, headingInDegrees)
+			msg = msg .. " your " .. clockPos .. " o'clock, " 
+			-- dist 
+			msg = msg .. " " .. dist .. units 
+			msg = msg .. "\n" -- add line feed 
+			if mxObjects.doubleLine then msg = msg .. "\n" end 
+		end
+	end
+	return msg 
+	
+end
+
+function mxObjects.getClosestTo(p, objects)
+	if not p then return nil, nil end 
+	local closest = nil 
+	local theDist = math.huge
+	for oName, theData in pairs (objects) do 
+		
+	end
+
+end
 
 function mxObjects.getObjectFreePoly(layerName, polyName, rel) -- omit rel to get absolute points, else pass 'true' to get relative to first point.
 	if not rel then rel = false end -- relative or absolute
@@ -50,3 +178,16 @@ function mxObjects.getObjectFreePoly(layerName, polyName, rel) -- omit rel to ge
 	trigger.action.outText("+++mxO: no polygon named <" .. polyName .. "> in layer <" ..layerName  .. ">", 30)
 	return {}
 end
+
+function mxObjects.start()
+	mxObjects.scanMissionData()
+	trigger.action.outText("mxObjects v" .. mxObjects.version .. " loaded.", 30)
+
+end
+
+mxObjects.start()
+--[[--
+local theUnit = Unit.getByName("Bannok")
+local msg = mxObjects.showNClosestTextObjectsToUnit(8, theUnit, numbered)
+trigger.action.outText(msg, 30)
+--]]--