------------------------------
-- Are you local? --
------------------------------
local UPDATEPERIOD, MEMTHRESH = 0.5, 32
local prevmem, elapsed, tipshown = collectgarbage("count"), 0.5
local string_format, math_modf, GetNetStats, GetFramerate, collectgarbage = string.format, math.modf, GetNetStats, GetFramerate, collectgarbage
local addons = {}
for i=1,GetNumAddOns() do table.insert(addons, (GetAddOnInfo(i))) end
table.sort(addons, function(a,b) return a and b and a:lower() < b:lower() end)
local function ColorGradient(perc, r1, g1, b1, r2, g2, b2, r3, g3, b3)
if perc >= 1 then return r3, g3, b3 elseif perc <= 0 then return r1, g1, b1 end
local segment, relperc = math_modf(perc*2)
if segment == 1 then r1, g1, b1, r2, g2, b2 = r2, g2, b2, r3, g3, b3 end
return r1 + (r2-r1)*relperc, g1 + (g2-g1)*relperc, b1 + (b2-b1)*relperc
end
-------------------------------------------
-- Namespace and all that shit --
-------------------------------------------
local f = CreateFrame("frame")
local dataobj = LibStub:GetLibrary("LibDataBroker-1.1"):NewDataObject("picoFPS", {text = "75.0 FPS", OnClick = function() collectgarbage("collect") end})
local about = LibStub("tekKonfig-AboutPanel").new(nil, "picoFPS")
--------------------------------
-- OnUpdate Handler --
--------------------------------
f:SetScript("OnUpdate", function(self, elap)
elapsed = elapsed + elap
if elapsed < UPDATEPERIOD then return end
elapsed = 0
local fps = GetFramerate()
local r, g, b = ColorGradient(fps/75, 1,0,0, 1,1,0, 0,1,0)
dataobj.text = string_format("|cff%02x%02x%02x%.1f|r FPS", r*255, g*255, b*255, fps)
if tipshown then dataobj.OnEnter(tipshown) end
end)
------------------------
-- Tooltip! --
------------------------
local function GetTipAnchor(frame)
local x,y = frame:GetCenter()
if not x or not y then return "TOPLEFT", "BOTTOMLEFT" end
local hhalf = (x > UIParent:GetWidth()*2/3) and "RIGHT" or (x < UIParent:GetWidth()/3) and "LEFT" or ""
local vhalf = (y > UIParent:GetHeight()/2) and "TOP" or "BOTTOM"
return vhalf..hhalf, frame, (vhalf == "TOP" and "BOTTOM" or "TOP")..hhalf
end
function dataobj.OnLeave()
GameTooltip:Hide()
tipshown = nil
end
function dataobj.OnEnter(self)
tipshown = self
GameTooltip:SetOwner(self, "ANCHOR_NONE")
GameTooltip:SetPoint(GetTipAnchor(self))
GameTooltip:ClearLines()
GameTooltip:AddLine("picoFPS")
local fps = GetFramerate()
local r, g, b = ColorGradient(fps/75, 1,0,0, 1,1,0, 0,1,0)
GameTooltip:AddDoubleLine("FPS:", string_format("%.1f", fps), nil,nil,nil, r,g,b)
local _, _, lag = GetNetStats()
local r, g, b = ColorGradient(lag/1000, 0,1,0, 1,1,0, 1,0,0)
GameTooltip:AddDoubleLine("Lag:", lag.. " ms", nil,nil,nil, r,g,b)
GameTooltip:AddLine(" ")
local addonmem = 0
UpdateAddOnMemoryUsage()
for i,name in ipairs(addons) do
local mem = GetAddOnMemoryUsage(name)
addonmem = addonmem + mem
if mem > MEMTHRESH then
local memstr = mem > 1024 and string_format("%.1f MiB", mem/1024) or string_format("%.1f KiB", mem)
GameTooltip:AddDoubleLine(name, memstr, 1,1,1, r,g,b)
end
end
GameTooltip:AddDoubleLine("Addon memory:", string_format("%.2f MiB", addonmem/1024), nil,nil,nil, r,g,b)
local mem = collectgarbage("count")
local deltamem = mem - prevmem
prevmem = mem
local r, g, b = ColorGradient(mem/(60*1024), 0,1,0, 1,1,0, 1,0,0)
GameTooltip:AddDoubleLine("Default UI memory:", string_format("%.2f MiB", (mem-addonmem)/1024), nil,nil,nil, r,g,b)
local r, g, b = ColorGradient(deltamem/15, 0,1,0, 1,1,0, 1,0,0)
GameTooltip:AddDoubleLine("Garbage churn:", string_format("%.2f KiB/sec", deltamem), nil,nil,nil, r,g,b)
GameTooltip:AddLine(" ")
GameTooltip:AddLine("Click to force garbage collection")
GameTooltip:Show()
end
