State at 2019-12-13

1 files changed, 57 insertions, 0 deletions

diff --git a/Crossroads/nodes/(1755,27,943).lua b/Crossroads/nodes/(1755,27,943).lua
new file mode 100644
index 0000000..01ed586
--- /dev/null
+++ b/Crossroads/nodes/(1755,27,943).lua
@@ -0,0 +1,57 @@
+local head="TRAIN  STATUS"
+local function trainpairs(t, f)
+  local a = {}
+  for n in pairs(t) do table.insert(a, n) end
+  table.sort(a, f)
+  local i = 0
+  local iter = function ()
+    i = i + 1
+    if a[i] == nil then return nil
+      else return a[i], t[a[i]]
+    end
+  end
+  return iter
+end
+local length = 18
+if event.type=="digiline" then
+  if event.channel=="upd_main" then
+    local start_t = os.clock()
+    if not S.lagrec then S.lagrec = {} end
+    local l = {}
+    local i
+    for i=1,length,1 do
+      if i%2 == 0 then
+        l[i]=""
+      else
+        l[i]=head
+      end
+    end
+    local counter=0
+    for id,st in trainpairs(S.trains) do
+      if (counter) % 7 < 3 then
+        i = (counter - counter % 7) / 7 * 2 + 1
+      else
+        i = (counter - counter % 7) / 7 * 2 + 2
+      end
+      l[i] = l[i] .. "\n" .. id .. " " .. st
+      counter = counter + 1
+    end
+    for i=1,length,1 do
+      if l[i]=="" then
+        digiline_send("d"..tostring(i),"...")
+      else
+        digiline_send("d"..tostring(i),l[i])
+      end
+    end
+    local end_t = os.clock()
+    table.insert(S.lagrec,end_t - start_t)
+    table.sort(S.lagrec)
+    local lagavg = 0
+    for _,v in pairs(S.lagrec) do
+    	lagavg = lagavg + v
+    end
+    lagavg = lagavg / #S.lagrec
+    digiline_send("lag1", "DEBUG\nTRAINS: " .. counter .. "\nDISPS: " .. length .. "\nTIME: " .. os.date("%d %b %Y %X"))
+    digiline_send("lag2", "CUR " .. (end_t - start_t) .. "\nMIN " .. S.lagrec[1] .. "\nMAX " .. S.lagrec[#S.lagrec] .. "\nAVG " .. lagavg)
+  end
+end
\ No newline at end of file