Kaj SchittecatandClaude Opus 4.8
fd4659f4ce
Adds the primitive the ports were missing: wada.ui.chart (two shifting series, line or bar, settable range) plus rx_events/rx_dropped/tx_pkts/ freq/bw/sf/duty_pct on wada.mesh.stats. RF Monitor 1.1: live RSSI + noise-floor chart, peak with tap-to-reset, link-margin grade, RX/min, radio params, colour-coded heard feed, narrow and wide layouts. Airtime 1.1: live + average utilization bars, peak, rx/tx air split, duty ceiling, tx budget, packet counters, tap to restart the window. Native versions stay compiled in until these are field-proven. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
83 lines
2.9 KiB
Lua
83 lines
2.9 KiB
Lua
-- Airtime (Lua) — full-parity port: channel utilization over time with the
|
|
-- RX/TX split, duty-cycle ceiling, live budget and packet counters.
|
|
local ui, sys, mesh, timer = wada.ui, wada.sys, wada.mesh, wada.timer
|
|
local C = ui.colors
|
|
local app = {}
|
|
|
|
local W, H, narrow
|
|
local head, sub, detail, chart, legend
|
|
local base, t0, last = nil, nil, nil
|
|
local peak_pct, samples = 0, 0
|
|
|
|
local function refresh()
|
|
local st = mesh.stats()
|
|
local now = sys.millis()
|
|
local wall = (now - t0) / 1000
|
|
if wall < 0.5 then return end
|
|
|
|
-- utilization since open (stable) and since the last tick (live)
|
|
local rx_air = st.rx_air_s - base.rx
|
|
local tx_air = st.tx_air_s - base.tx
|
|
local avg = math.min(100, (rx_air + tx_air) * 100 / wall)
|
|
|
|
local dw = (now - last.ms) / 1000
|
|
local live = 0
|
|
if dw > 0 then
|
|
live = math.min(100, ((st.rx_air_s - last.rx) + (st.tx_air_s - last.tx)) * 100 / dw)
|
|
end
|
|
last = { ms = now, rx = st.rx_air_s, tx = st.tx_air_s }
|
|
if live > peak_pct then peak_pct = live end
|
|
samples = samples + 1
|
|
|
|
chart:push(1, math.floor(live))
|
|
chart:push(2, math.floor(avg))
|
|
|
|
local col = live > 50 and C.bad or live > 20 and 0xE8A33D or C.good
|
|
head:set(string.format("channel busy %.1f%%", live))
|
|
head:color(col)
|
|
sub:set(string.format("avg %.1f%% peak %.1f%% over %ds", avg, peak_pct, math.floor(wall)))
|
|
if narrow then
|
|
detail:set(string.format("rx air %ds tx air %ds\nduty ceiling %d%% budget %dms\ntx %d rx %d err %d",
|
|
rx_air, tx_air, st.duty_pct, st.tx_budget_ms, st.tx_pkts, st.rx_pkts, st.rx_err))
|
|
else
|
|
detail:set(string.format("rx air %ds tx air %ds duty ceiling %d%% tx budget %dms\ntx %d pkts rx %d pkts %d err %d dropped %.3f MHz SF%d",
|
|
rx_air, tx_air, st.duty_pct, st.tx_budget_ms, st.tx_pkts, st.rx_pkts, st.rx_err, st.rx_dropped, st.freq, st.sf))
|
|
end
|
|
end
|
|
|
|
function app.on_open(w, h)
|
|
W, H, narrow = w, h, w < 280
|
|
local st = mesh.stats()
|
|
base = { rx = st.rx_air_s, tx = st.tx_air_s }
|
|
t0 = sys.millis()
|
|
last = { ms = t0, rx = st.rx_air_s, tx = st.tx_air_s }
|
|
|
|
head = ui.label("sampling...", 4, 2, 16, C.accent)
|
|
sub = ui.label("", 4, narrow and 22 or 24, 12, C.sub)
|
|
local ch_y = narrow and 40 or 44
|
|
local ch_h = narrow and 70 or 92
|
|
chart = ui.chart(w - 8, ch_h, 60, C.accent, 0x4F9DF7, true) -- bars: live, line-ish: avg
|
|
chart:pos(4, ch_y)
|
|
chart:range(0, 100)
|
|
chart:fill(1, 0)
|
|
chart:fill(2, 0)
|
|
legend = ui.label("teal = now blue = average", 4, ch_y + ch_h + 2, 12, C.sub)
|
|
detail = ui.label("", 4, ch_y + ch_h + 18, 12, C.text)
|
|
timer.every(1000)
|
|
end
|
|
|
|
function app.on_tick(dt) refresh() end
|
|
function app.on_input(ev)
|
|
if ev.type == "down" then -- tap = restart the window
|
|
local st = mesh.stats()
|
|
base = { rx = st.rx_air_s, tx = st.tx_air_s }
|
|
t0 = sys.millis()
|
|
last = { ms = t0, rx = st.rx_air_s, tx = st.tx_air_s }
|
|
peak_pct = 0
|
|
chart:fill(1, 0); chart:fill(2, 0)
|
|
sys.toast("window restarted", 900)
|
|
end
|
|
end
|
|
|
|
return app
|