222 lignes
6.4 KiB
Lua
222 lignes
6.4 KiB
Lua
|
|
local GetTime = QuestHelper_GetTime
|
|
|
|
QuestHelper_File["radar.lua"] = "4.0.1.$svnversion$"
|
|
QuestHelper_Loadtime["radar.lua"] = GetTime()
|
|
|
|
local tick = GetTime()
|
|
|
|
local anchor = nil
|
|
|
|
local rc = nil
|
|
|
|
local map = {}
|
|
|
|
local widgets = {}
|
|
local lwidth = 1.5
|
|
local lheight = 1.5
|
|
local quieted = true
|
|
|
|
local texparent = CreateFrame("Frame")
|
|
|
|
local grid = 3
|
|
|
|
QH_OnUpdate(function()
|
|
if not QuestHelper_Pref.radar then
|
|
if not quieted then
|
|
for _, v in ipairs(widgets) do
|
|
v[3] = nil
|
|
v[1]:Hide()
|
|
end
|
|
quieted = true
|
|
end
|
|
return
|
|
end
|
|
quieted = false
|
|
|
|
if not rc then rc = LibStub("LibRangeCheck-2.0") end
|
|
|
|
if tick <= GetTime() then
|
|
tick = tick + 1
|
|
if tick < GetTime() then
|
|
tick = GetTime()
|
|
end
|
|
|
|
local targ = UnitGUID("target")
|
|
if targ ~= anchor or UnitIsDead("target") then
|
|
for _, v in pairs(map) do QuestHelper:ReleaseTable(v) end
|
|
wipe(map)
|
|
for _, v in ipairs(widgets) do
|
|
v[3] = nil
|
|
v[1]:Hide()
|
|
end
|
|
anchor = targ
|
|
end
|
|
|
|
local minRange, maxRange = rc:GetRange('target')
|
|
|
|
if minRange then
|
|
if not maxRange then maxRange = 120 end
|
|
|
|
minRange = math.max(0, minRange - 1)
|
|
maxRange = maxRange + 1
|
|
|
|
local mnr, mxr = minRange * minRange, maxRange * maxRange
|
|
local px, py = QuestHelper.routing_ax, QuestHelper.routing_ay
|
|
|
|
-- first we blur
|
|
local newmap = QuestHelper:CreateTable("radar")
|
|
for x, d in pairs(map) do
|
|
if not newmap[x - grid] then newmap[x - grid] = QuestHelper:CreateTable("radar") end
|
|
if not newmap[x] then newmap[x] = QuestHelper:CreateTable("radar") end
|
|
if not newmap[x + grid] then newmap[x + grid] = QuestHelper:CreateTable("radar") end
|
|
|
|
for y, v in pairs(d) do
|
|
newmap[x - grid][y - grid] = (newmap[x - grid][y - grid] or 0) + v
|
|
newmap[x - grid][y] = (newmap[x - grid][y] or 0) + v * 2
|
|
newmap[x - grid][y + grid] = (newmap[x - grid][y + grid] or 0) + v
|
|
newmap[x][y - grid] = (newmap[x][y - grid] or 0) + v * 2
|
|
newmap[x][y] = (newmap[x][y] or 0) + v * 4
|
|
newmap[x][y + grid] = (newmap[x][y + grid] or 0) + v * 2
|
|
newmap[x + grid][y - grid] = (newmap[x + grid][y - grid] or 0) + v
|
|
newmap[x + grid][y] = (newmap[x + grid][y] or 0) + v * 2
|
|
newmap[x + grid][y + grid] = (newmap[x + grid][y + grid] or 0) + v
|
|
end
|
|
|
|
QuestHelper:ReleaseTable(d)
|
|
end
|
|
QuestHelper:ReleaseTable(map)
|
|
map = newmap
|
|
|
|
|
|
-- then we crop
|
|
local highest = 0
|
|
local newmap = QuestHelper:CreateTable("radar")
|
|
for x, d in pairs(map) do
|
|
local newk = QuestHelper:CreateTable("radar")
|
|
local something = false
|
|
local dx = px - x
|
|
dx = dx * dx
|
|
for y, v in pairs(d) do
|
|
local dy = py - y
|
|
dy = dy * dy
|
|
--print(dx + dy, mnr, mxr)
|
|
if dx + dy >= mnr and dx + dy <= mxr then
|
|
newk[y] = v
|
|
highest = max(highest, v)
|
|
something = true
|
|
end
|
|
end
|
|
|
|
if something then
|
|
newmap[x] = newk
|
|
end
|
|
QuestHelper:ReleaseTable(d)
|
|
end
|
|
QuestHelper:ReleaseTable(map)
|
|
map = newmap
|
|
|
|
-- then we normalize
|
|
if highest > 0 then
|
|
highest = 1 / highest -- I don't know if mult is faster in lua or not, but it often is
|
|
for x, d in pairs(map) do
|
|
for y, v in pairs(d) do
|
|
d[y] = v * highest
|
|
end
|
|
end
|
|
end
|
|
|
|
-- then we add
|
|
-- probably a more efficient way to do this
|
|
px, py = math.floor(px / grid + 0.5) * grid, math.floor(py / grid + 0.5) * grid
|
|
for dx = 0, maxRange, grid do
|
|
for dy = 0, maxRange, grid do
|
|
local ofs = dx * dx + dy * dy
|
|
if ofs >= mnr and ofs <= mxr then
|
|
if not map[px + dx] then map[px + dx] = QuestHelper:CreateTable("radar") end
|
|
if not map[px - dx] then map[px - dx] = QuestHelper:CreateTable("radar") end
|
|
map[px + dx][py + dy] = (map[px + dx][py + dy] or 0) + 0.001
|
|
if dx > 0 then
|
|
map[px - dx][py + dy] = (map[px - dx][py + dy] or 0) + 0.001
|
|
if dy > 0 then
|
|
map[px - dx][py - dy] = (map[px - dx][py - dy] or 0) + 0.001
|
|
end
|
|
end
|
|
if dy > 0 then
|
|
map[px + dx][py - dy] = (map[px + dx][py - dy] or 0) + 0.001
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
-- then we post
|
|
local widgetofs = 1
|
|
for x, d in pairs(map) do
|
|
for y, v in pairs(d) do
|
|
if v > 0.1 then
|
|
local widg = widgets[widgetofs]
|
|
if not widg then
|
|
widg = {texparent:CreateTexture()}
|
|
table.insert(widgets, widg)
|
|
widg[1]:SetWidth(lwidth)
|
|
widg[1]:SetHeight(lheight)
|
|
end
|
|
widgetofs = widgetofs + 1
|
|
|
|
widg[1]:SetTexture(0, 1, 0, math.min(1, v * 1.2))
|
|
widg[1]:Show()
|
|
widg[2] = x
|
|
widg[3] = y
|
|
end
|
|
end
|
|
end
|
|
|
|
for rem = widgetofs, #widgets do
|
|
widgets[rem][1]:Hide()
|
|
widgets[rem][3] = nil
|
|
end
|
|
end
|
|
end
|
|
|
|
-- here we replace the widgets
|
|
|
|
local rotatey = (GetCVar("rotateMinimap") == "0") and 0 or GetPlayerFacing()
|
|
rotatey = rotatey * 180 / 3.14159
|
|
-- WILL FAIL HERE.
|
|
local mapdiam = QuestHelper.Astrolabe:GetMapDiameter()
|
|
local minimap = QuestHelper.Astrolabe:GetMinimapObject()
|
|
local mapwid, maphei = minimap:GetWidth(), minimap:GetHeight()
|
|
|
|
local xds, yds = mapwid / mapdiam, maphei / mapdiam
|
|
|
|
local nwidth, nheight = xds * grid, yds * grid
|
|
if nwidth ~= lwidth or nheight ~= lheight then
|
|
for _, widg in pairs(widgets) do
|
|
widg[1]:SetWidth(nwidth)
|
|
widg[1]:SetHeight(nheight)
|
|
end
|
|
end
|
|
lwidth, lheight = nwidth, nheight
|
|
|
|
local xdx, xdy, ydx, ydy = cos(rotatey), -sin(rotatey), -sin(rotatey), -cos(rotatey) -- this will be wrong, but I'll figure it out
|
|
xdx, ydx = xdx * xds, ydx * xds
|
|
xdy, ydy = xdy * yds, ydy * yds
|
|
|
|
local px, py = QuestHelper.routing_ax, QuestHelper.routing_ay
|
|
|
|
for _, v in pairs(widgets) do
|
|
if not v[3] then break end
|
|
|
|
local dx, dy = v[2] - px, v[3] - py
|
|
|
|
v[1]:SetPoint("CENTER", Minimap, "CENTER", dx * xdx + dy * ydx, dx * xdy + dy * ydy)
|
|
--print("placing", dx * xdx + dy * ydx, dx * xdy + dy * ydy)
|
|
end
|
|
end, "radar")
|
|
|
|
|
|
|
|
if ( minimapRotationEnabled ) then
|
|
minimapRotationOffset = -Astrolabe.GetFacing()
|
|
end
|