diff options
| -rw-r--r-- | LICENSE | 24 | ||||
| -rw-r--r-- | depends.txt | 1 | ||||
| -rw-r--r-- | fw.lua | 1094 | ||||
| -rw-r--r-- | init.lua | 345 | ||||
| -rw-r--r-- | textures/ltc4000e_cabinet_front.png | bin | 0 -> 3833 bytes | |||
| -rw-r--r-- | textures/ltc4000e_cabinet_sides.png | bin | 0 -> 3213 bytes | |||
| -rw-r--r-- | textures/ltc4000e_formspec_bg.png | bin | 0 -> 1735 bytes |
7 files changed, 1464 insertions, 0 deletions
@@ -0,0 +1,24 @@ +This is free and unencumbered software released into the public domain. + +Anyone is free to copy, modify, publish, use, compile, sell, or +distribute this software, either in source code form or as a compiled +binary, for any purpose, commercial or non-commercial, and by any +means. + +In jurisdictions that recognize copyright laws, the author or authors +of this software dedicate any and all copyright interest in the +software to the public domain. We make this dedication for the benefit +of the public at large and to the detriment of our heirs and +successors. We intend this dedication to be an overt act of +relinquishment in perpetuity of all present and future rights to this +software under copyright law. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR +OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, +ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR +OTHER DEALINGS IN THE SOFTWARE. + +For more information, please refer to <http://unlicense.org/> diff --git a/depends.txt b/depends.txt new file mode 100644 index 0000000..da1d119 --- /dev/null +++ b/depends.txt @@ -0,0 +1 @@ +digilines @@ -0,0 +1,1094 @@ +--LTC-4000E Firmware +--A product of Advanced Mesecons Devices, a Cheapie Systems company +--This is free and unencumbered software released into the public domain. +--See http://unlicense.org/ for more information + +--Lookup tables for human-readable strings and such +lttypes = {"Permissive","Protected","Yellow Arrow Prot/Perm","Circular Green Prot/Perm"} +pedtypes = {"Unsignalized","Signalized"} +signaltypes = {"Streets 1","Roads","Streets 2"} +pedbuttontypes = {"Normal","TrafficNeXt Compatibility"} +shortphases = {"O","G","R","Y","FR","FY","FG","RY"} -- Green/red switched for, uh, reasons +phases = {O = "Off",R = "Red",Y = "Yellow",G = "Green",RY = "RedYellow",FR = "FlashRed",FY = "FlashYellow",FG = "FlashGreen"} +monitortypes = {"Straight","Left Turn","Pedestrian"} +modes = {"Sensor","Timer","Phase Lock"} +panellock = {"Unlocked","Locked"} +logmodes = {"Quiet","Normal","Verbose"} + +--Used for reverse lookups +function pivot(table) + local out = {} + for k,v in pairs(table) do + out[v] = k + end + return(out) +end + +--Phase setter thing +function setlight(light,phase) + mem.currentphase[light] = phase +end + +--Log filter/formatter +function log(desc,verboseonly) + if mem.logmode ~= 1 and (mem.logmode == 3 or not verboseonly) then + print("[LTC-4000E @ "..mem.name.."] "..desc) + end +end + +--Fault logger +function logfault(desc,fatal) + if fatal then mem.phaselocked = true end + log(string.format("%s FAULT: ",(fatal and "FATAL" or "Non-fatal"))..desc,false) + local date = os.datetable() + local time = string.format(" - %04u-%02u-%02u %02u:%02u:%02u",date.year,date.month,date.day,date.hour,date.min,date.sec) + table.insert(mem.faultlog,1,desc..time) +end + +--Checks if the schedule is currently active +function isscheduled() + local hour = os.datetable().hour + if mem.schedstart < mem.schedend then + --Active during the day + return(hour >= mem.schedstart and hour < mem.schedend) + elseif mem.schedstart > mem.schedend then + --Active during the night + return(hour >= mem.schedstart or hour < mem.schedend) + else + --Disabled + return(false) + end +end + +--Default parameters +if event.type == "program" then + mem.menu = "run" + mem.monitor = 1 + mem.monflash = false + if not mem.schedstart then mem.schedstart = 0 end + if not mem.schedend then mem.schedend = 0 end + if not mem.normalmode then + if mem.phaselocked then + mem.normalmode = 3 + else + mem.normalmode = 1 + end + end + if not mem.schedmode then mem.schedmode = 3 end + if not mem.ltatype then mem.ltatype = 1 end + if not mem.ltbtype then mem.ltbtype = 1 end + if not mem.ltctype then mem.ltctype = 1 end + if not mem.ltdtype then mem.ltdtype = 1 end + if not mem.pedatype then mem.pedatype = 1 end + if not mem.pedbtype then mem.pedbtype = 1 end + if not mem.pedctype then mem.pedctype = 1 end + if not mem.peddtype then mem.peddtype = 1 end + if not mem.signaltype then mem.signaltype = 2 end + if not mem.pedbuttontype then mem.pedbuttontype = 1 end + if not mem.allreda then mem.allreda = 2 end + if not mem.allredb then mem.allredb = 2 end + if not mem.yellowa then mem.yellowa = 3 end + if not mem.yellowb then mem.yellowb = 3 end + if not mem.minsidegreen then mem.minsidegreen = (mem.sidegreen or 7) end + if not mem.gapout then mem.gapout = 3 end + if not mem.maxsidegreen then mem.maxsidegreen = 20 end + if not mem.mindwell then mem.mindwell = 10 end + if not mem.pedwarn then mem.pedwarn = 7 end + if not mem.sideped then mem.sideped = 5 end + if not mem.llturn then mem.llturn = 4 end + if not mem.name then mem.name = "Unnamed Intersection" end + if not mem.logmode then mem.logmode = 2 end + if not mem.lock then mem.lock = 2 end + mem.stats = {a = 0,b = 0,c = 0,d = 0,at = 0,bt = 0,ct = 0,dt = 0,ap = 0,bp = 0,cp = 0,dp = 0,cycles = 0,lastreset = os.time()} + mem.det = {} + mem.busy = false + mem.preempt = nil + mem.cycle = nil + mem.currentphase = {a = "G",b = "R",c = "G",d = "R",at = "R",bt = "R",ct = "R",dt = "R",ap = "R",bp = "R",cp = "R",dp = "R"} + if not mem.phaselock then mem.phaselock = {a = "FR",b = "FR",c = "FR",d = "FR",at = "FR",bt = "FR",ct = "FR",dt = "FR",ap = "O",bp = "O",cp = "O",dp = "O"} end + mem.phaselocked = false + mem.faultlog = {} + log("Chip programmed",true) +end + +--Handle special modes +was_phaselocked = mem.phaselocked +was_timed = mem.timed +mem.phaselocked = (isscheduled() and mem.schedmode == 3) or (not isscheduled() and mem.normalmode == 3) +mem.timed = (isscheduled() and mem.schedmode == 2) or (not isscheduled() and mem.normalmode == 2) +if was_phaselocked and not mem.phaselocked then + mem.currentphase = {a = "G",b = "R",c = "G",d = "R",at = "R",bt = "R",ct = "R",dt = "R",ap = "R",bp = "R",cp = "R",dp = "R"} + mem.cycle = "mindwell" + mem.busy = true + interrupt(0,"tick") +end +if mem.timed then + mem.det = {a = true,b = true,c = true,d = true,ap = true,bp = true,cp = true,dp = true,at = true,bt = true,ct = true,dt = true} +elseif was_timed then + mem.det = {} +end + +--Detector signal handling +if (not mem.timed and not mem.phaselocked and not mem.preempt) and event.type == "digiline" and string.sub(event.channel,1,9) == "detector_" then + local detname = string.sub(event.channel,10) + if mem.stats[detname] then + mem.stats[detname] = mem.stats[detname] + 1 + end + if detname == "a" or detname == "c" then + log("Ignoring stats-only detector "..detname,true) + elseif (detname == "at" and mem.ltatype == 1) then + logfault("AT disabled but detector present",false) + elseif (detname == "bt" and mem.ltbtype == 1) then + logfault("BT disabled but detector present",false) + elseif (detname == "ct" and mem.ltctype == 1) then + logfault("CT disabled but detector present",false) + elseif (detname == "dt" and mem.ltdtype == 1) then + logfault("DT disabled but detector present",false) + elseif (detname == "ap" and mem.pedatype == 1) then + logfault("AP disabled but detector present",false) + elseif (detname == "bp" and mem.pedbtype == 1) then + logfault("BP disabled but detector present",false) + elseif (detname == "cp" and mem.pedctype == 1) then + logfault("CP disabled but detector present",false) + elseif (detname == "dp" and mem.peddtype == 1) then + logfault("DP disabled but detector present",false) + else + log("Detector "..detname.." activated",true) + mem.det[detname] = true + end +end + +if event.type == "digiline" and mem.pedbuttontype == 2 and event.channel == "pedbutton" then + if event.msg == "main" then + log("Emulating detector_ap/cp for TrafficNeXt compatibility",true) + mem.det.ap = true + mem.det.cp = true + elseif event.msg == "side" then + log("Emulating detector_bp/dp for TrafficNeXt compatibility",true) + mem.det.bp = true + mem.det.dp = true + else + logfault("Unrecognized pedbutton type "..event.msg,false) + end +end + +--Volume Density Logic +if event.type == "interrupt" and (event.iid == "gapout" or event.iid == "maxgreen") and (mem.cycle == "straight2.5" or mem.cycle == "straight3") then + if mem.cycle == "straight2.5" or (mem.currentphase.ap ~= "FR" and mem.currentphase.cp ~= "FR") then + if event.iid == "gapout" then + log("Gapped out",true) + elseif event.iid == "maxgreen" then + log("Reached maximum green",true) + end + --Either gapped out or reached max green, go to next step + interrupt(0,"tick") + + interrupt(nil,"gapout") + end +end + +if (event.channel == "detector_b" or event.channel == "detector_d") and (mem.cycle == "straight2.5" or mem.cycle == "straight3") then + --Car detected, reset gap-out timer + interrupt(mem.gapout,"gapout") +end + +--Preemption logic +if event.type == "digiline" and string.sub(event.channel,1,8) == "preempt_" then + log("Preemption detector activated",true) + mem.preempt = string.sub(event.channel,9,10) + log("Entering preemption on approach "..mem.preempt.." from state "..(mem.cycle or "idle"),true) + mem.busy = true + local pedactive = (mem.currentphase.ap ~= "R" or mem.currentphase.bp ~= "R" or mem.currentphase.cp ~= "R" or mem.currentphase.dp ~= "R") + for k,v in pairs(mem.currentphase) do + if pedactive then + if k == "ap" or k == "bp" or k == "cp" or k == "dp" then + if v == "G" then setlight(k,"FR") end + end + else + if v ~= "R" then + setlight(k,"Y") + end + end + end + if pedactive then + mem.cycle = "preempt_yellow" + interrupt(mem.pedwarn,"tick") + else + mem.cycle = "preempt_allred" + interrupt(mem.yellowa,"tick") + end +end + +--Phase logic for already-running cycles +if mem.busy and event.type == "interrupt" and event.iid == "tick" and not mem.phaselocked then + log("Continuing existing cycle at phase "..mem.cycle,true) + if mem.cycle == "preempt_yellow" then + for k,v in pairs(mem.currentphase) do + if k == "ap" or k == "bp" or k == "cp" or k == "dp" then + setlight(k,"R") + else + if v ~= "R" then setlight(k,"Y") end + end + mem.cycle = "preempt_allred" + interrupt(mem.yellowa,"tick") + end + elseif mem.cycle == "preempt_allred" then + mem.currentphase = {a = "R",b = "R",c = "R",d = "R",at = "R",bt = "R",ct = "R",dt = "R",ap = "R",bp = "R",cp = "R",dp = "R"} + mem.cycle = "preempt_green" + interrupt(mem.allreda,"tick") + elseif mem.cycle == "preempt_green" then + if mem["lt"..mem.preempt.."type"] ~= 1 then + mem.cycle = mem.preempt.."lead1" + else + if mem.preempt == "a" or mem.preempt == "c" then + mem.cycle = "mindwell" + else + mem.cycle = "straight2" + end + end + mem.preempt = nil + mem.det = {} + interrupt(0,"tick") + elseif mem.cycle == "straight1" then + mem.cycle = "straight2" + setlight("a","R") + setlight("c","R") + setlight("at","R") + setlight("ct","R") + --Branch over to B/D leading left turn if necessary + if (mem.det.bt and mem.det.dt and mem.ltbtype ~= 1 and mem.ltdtype ~= 1) or (((mem.det.bt and mem.ltbtype ~= 1) or (mem.det.dt and mem.ltdtype ~= 1)) and ((mem.det.ap and mem.pedatype ~= 1) or (mem.det.cp and mem.pedctype ~= 1))) then + mem.cycle = "bdlead1" + elseif mem.det.bt and mem.ltbtype ~= 1 then + mem.cycle = "blead1" + elseif mem.det.dt and mem.ltdtype ~= 1 then + mem.cycle = "dlead1" + end + --If nobody wants to go straight or turn on B/D, but there are cars an AT or CT, serve them instead + if not mem.det.b and not mem.det.d and not mem.det.bt and not mem.det.dt and not mem.det.ap and not mem.det.cp then + if mem.det.at and mem.ltatype ~= 1 and mem.det.ct and mem.ltctype ~= 1 then + mem.cycle = "aclead1" + elseif mem.det.at and mem.ltatype ~= 1 then + mem.cycle = "alead1" + elseif mem.det.ct and mem.ltctype ~= 1 then + mem.cycle = "clead1" + end + end + interrupt(mem.allreda,"tick") + elseif mem.cycle == "straight2" then + mem.cycle = "straight3" + setlight("b","G") + setlight("d","G") + if mem.ltbtype == 3 then setlight("bt","FY") end + if mem.ltdtype == 3 then setlight("dt","FY") end + if (mem.det.ap and mem.pedatype ~= 1) or (mem.det.cp and mem.pedctype ~= 1) and not mem.preempt then + mem.cycle = "straight2.5" + if mem.pedatype ~= 1 then setlight("ap","G") end + if mem.pedctype ~= 1 then setlight("cp","G") end + end + log("Entering volume density control",true) + interrupt(mem.minsidegreen,"gapout") + interrupt(mem.maxsidegreen,"maxgreen") + elseif mem.cycle == "straight2.5" then + mem.cycle = "straight3" + mem.det.ap = nil + mem.det.cp = nil + if mem.pedatype ~= 1 then setlight("ap","FR") end + if mem.pedctype ~= 1 then setlight("cp","FR") end + interrupt(mem.pedwarn,"tick") + elseif mem.cycle == "straight3" then + mem.cycle = "straight4" + setlight("b","Y") + setlight("d","Y") + if mem.pedatype ~= 1 then setlight("ap","R") end + if mem.pedctype ~= 1 then setlight("cp","R") end + if mem.ltbtype == 3 then setlight("bt","Y") end + if mem.ltdtype == 3 then setlight("dt","Y") end + mem.det.b = nil + mem.det.d = nil + interrupt(mem.yellowb,"tick") + elseif mem.cycle == "straight4" then + mem.cycle = "mindwell" + setlight("b","R") + setlight("d","R") + setlight("bt","R") + setlight("dt","R") + --Branch over to A/C leading left turn if necessary + if mem.det.at and mem.det.ct and mem.ltatype ~= 1 and mem.ltctype ~= 1 then + mem.cycle = "aclead1" + elseif mem.det.at and mem.ltatype ~= 1 then + mem.cycle = "alead1" + elseif mem.det.ct and mem.ltctype ~= 1 then + mem.cycle = "clead1" + end + interrupt(mem.allredb,"tick") + elseif mem.cycle == "mindwell" then + mem.cycle = "reset" + setlight("a","G") + setlight("c","G") + if mem.ltatype == 3 then setlight("at","FY") end + if mem.ltctype == 3 then setlight("ct","FY") end + if (mem.det.bp and mem.pedbtype ~= 1) or (mem.det.dp and mem.peddtype ~= 1) then + mem.cycle = "sideped1" + if mem.ltatype == 3 and mem.pedbtype ~= 1 then setlight("at","R") end + if mem.ltctype == 3 and mem.peddtype ~= 1 then setlight("ct","R") end + if mem.ltatype == 3 or mem.ltctype == 3 then + interrupt(mem.yellowa,"tick") + else + interrupt(0,"tick") + end + else + interrupt(mem.mindwell,"tick") + end + elseif mem.cycle == "bdlead1" then + mem.cycle = "bdlead2" + setlight("bt","G") + setlight("dt","G") + interrupt(mem.llturn,"tick") + elseif mem.cycle == "bdlead2" then + mem.det.bt = nil + mem.det.dt = nil + if mem.ltbtype ~= 3 and mem.ltdtype ~= 3 then + mem.cycle = "bdlead3" + else + mem.cycle = "straight2" + end + setlight("bt","Y") + setlight("dt","Y") + interrupt(mem.yellowb,"tick") + elseif mem.cycle == "bdlead3" then + mem.cycle = "straight2" + setlight("bt","R") + setlight("dt","R") + interrupt(mem.allredb,"tick") + elseif mem.cycle == "blead1" then + mem.cycle = "blead2" + setlight("bt","G") + setlight("b","G") + interrupt(mem.llturn,"tick") + elseif mem.cycle == "blead2" then + if mem.ltbtype ~= 3 then + mem.cycle = "blead3" + else + mem.cycle = "straight2" + end + mem.det.bt = nil + setlight("bt","Y") + interrupt(mem.yellowb,"tick") + elseif mem.cycle == "blead3" then + mem.cycle = "straight2" + setlight("bt","R") + interrupt(mem.allredb,"tick") + elseif mem.cycle == "dlead1" then + mem.cycle = "dlead2" + setlight("dt","G") + setlight("d","G") + interrupt(mem.llturn,"tick") + elseif mem.cycle == "dlead2" then + if mem.ltdtype ~= 3 then + mem.cycle = "dlead3" + else + mem.cycle = "straight2" + end + mem.det.dt = nil + setlight("dt","Y") + interrupt(mem.yellowb,"tick") + elseif mem.cycle == "dlead3" then + mem.cycle = "straight2" + setlight("dt","R") + interrupt(mem.allredb,"tick") + elseif mem.cycle == "aclead1" then + mem.cycle = "aclead2" + setlight("at","G") + setlight("ct","G") + interrupt(mem.llturn,"tick") + elseif mem.cycle == "aclead2" then + if mem.ltatype ~= 3 and mem.ltctype ~= 3 then + mem.cycle = "aclead3" + else + mem.cycle = "mindwell" + end + setlight("at","Y") + setlight("ct","Y") + mem.det.at = nil + mem.det.ct = nil + interrupt(mem.yellowa,"tick") + elseif mem.cycle == "aclead3" then + mem.cycle = "mindwell" + setlight("at","R") + setlight("ct","R") + interrupt(mem.allreda,"tick") + elseif mem.cycle == "alead1" then + if mem.det.ct and mem.ltctype ~= 1 then + mem.cycle = "aclead2" + setlight("ct","G") + else + mem.cycle = "alead2" + setlight("a","G") + end + setlight("at","G") + interrupt(mem.llturn,"tick") + elseif mem.cycle == "alead2" then + mem.cycle = "alead3" + setlight("at","Y") + mem.det.at = nil + interrupt(mem.yellowa,"tick") + elseif mem.cycle == "alead3" then + mem.cycle = "mindwell" + setlight("at","R") + interrupt(mem.allreda,"tick") + elseif mem.cycle == "clead1" then + if mem.det.at and mem.ltatype ~= 1 then + mem.cycle = "aclead2" + setlight("at","G") + else + mem.cycle = "clead2" + setlight("c","G") + end + setlight("ct","G") + interrupt(mem.llturn,"tick") + elseif mem.cycle == "clead2" then + mem.cycle = "clead3" + setlight("ct","Y") + mem.det.ct = nil + interrupt(mem.yellowa,"tick") + elseif mem.cycle == "clead3" then + mem.cycle = "mindwell" + setlight("ct","R") + interrupt(mem.allreda,"tick") + elseif mem.cycle == "yta1" then + mem.cycle = "yta2" + setlight("c","R") + interrupt(mem.allreda,"tick") + elseif mem.cycle == "yta2" then + mem.cycle = "yta3" + setlight("at","G") + interrupt(mem.llturn,"tick") + elseif mem.cycle == "yta3" then + mem.cycle = "yta4" + setlight("at","Y") + mem.det.at = nil + interrupt(mem.yellowa,"tick") + elseif mem.cycle == "yta4" then + mem.cycle = "mindwell" + if mem.ltatype == 3 then + setlight("at","FY") + else + setlight("at","R") + end + interrupt(mem.allreda,"tick") + elseif mem.cycle == "ytc1" then + mem.cycle = "ytc2" + setlight("a","R") + interrupt(mem.allreda,"tick") + elseif mem.cycle == "ytc2" then + mem.cycle = "ytc3" + setlight("ct","G") + interrupt(mem.llturn,"tick") + elseif mem.cycle == "ytc3" then + mem.cycle = "ytc4" + setlight("ct","Y") + mem.det.ct = nil + interrupt(mem.yellowa,"tick") + elseif mem.cycle == "ytc4" then + mem.cycle = "mindwell" + if mem.ltctype == 3 then + setlight("ct","FY") + else + setlight("ct","R") + end + interrupt(mem.allreda,"tick") + elseif mem.cycle == "sideped1" then + mem.cycle = "sideped2" + if mem.ltatype == 3 and mem.pedbtype ~= 1 then setlight("at","R") end + if mem.ltctype == 3 and mem.peddtype ~= 1 then setlight("ct","R") end + interrupt(mem.allreda,"tick") + elseif mem.cycle == "sideped2" then + mem.cycle = "sideped3" + if mem.pedbtype ~= 1 then setlight("bp","G") end + if mem.peddtype ~= 1 then setlight("dp","G") end + interrupt(mem.sideped,"tick") + elseif mem.cycle == "sideped3" then + mem.cycle = "sideped4" + mem.det.bp = nil + mem.det.dp = nil + if mem.pedbtype ~= 1 then setlight("bp","FR") end + if mem.peddtype ~= 1 then setlight("dp","FR") end + interrupt(mem.pedwarn,"tick") + elseif mem.cycle == "sideped4" then + if mem.det.b or mem.det.d or mem.det.at or mem.det.bt or mem.det.ct or mem.det.dt or mem.det.ap or mem.det.cp then + mem.cycle = "reset" + interrupt(mem.allredb,"tick") + else + mem.cycle = "mindwell" + interrupt(0,"tick") + end + setlight("bp","R") + setlight("dp","R") + elseif mem.cycle == "reset" then + mem.cycle = nil + mem.busy = false + --If someone shows up on AT/CT and turns immediately, + --we shouldn't change for them unless we're completely idle or protected only + if mem.ltatype ~= 2 then mem.det.at = nil end + if mem.ltctype ~= 2 then mem.det.ct = nil end + else + logfault("Unrecognized phase "..mem.cycle,true) + end +end + +--Phase logic for starting new cycles +detactive = false +for _,_ in pairs(mem.det) do detactive = true end +if (not mem.busy) and detactive then + if mem.phaselocked then + log("Not starting cycle due to phase lock",true) + elseif mem.preempt then + log("Not starting cycle due to preemption",true) + else + log("Starting new cycle",true) + mem.stats.cycles = mem.stats.cycles + 1 + if mem.det.at and mem.ltatype ~= 1 and (mem.ltctype == 2 or mem.ltctype == 3) and not (mem.det.b or mem.det.d or mem.det.bt or mem.det.ct or mem.det.dt) then + mem.cycle = "yta1" + mem.busy = true + setlight("c","Y") + interrupt(mem.yellowa,"tick") + elseif mem.det.ct and mem.ltctype ~=1 and (mem.ltatype == 2 or mem.ltatype == 3) and not (mem.det.b or mem.det.d or mem.det.at or mem.det.bt or mem.det.dt) then + mem.cycle = "ytc1" + mem.busy = true + setlight("a","Y") + interrupt(mem.yellowa,"tick") + elseif mem.det.b or mem.det.d or mem.det.bt or mem.det.dt or (mem.det.at and mem.ltatype ~= 1) or (mem.det.ct and mem.ltctype ~= 1) then + mem.cycle = "straight1" + mem.busy = true + setlight("a","Y") + setlight("c","Y") + if mem.ltatype == 3 then setlight("at","Y") end + if mem.ltctype == 3 then setlight("ct","Y") end + interrupt(mem.yellowa,"tick") + elseif (mem.det.ap and mem.pedatype ~= 1) or (mem.det.cp and mem.pedctype ~= 1) then + mem.cycle = "straight1" + mem.busy = true + setlight("a","Y") + setlight("c","Y") + if mem.ltatype == 3 then setlight("at","Y") end + if mem.ltctype == 3 then setlight("ct","Y") end + interrupt(mem.yellowa,"tick") + elseif (mem.det.bp and mem.pedbtype ~= 1) or (mem.det.dp and mem.peddtype ~= 1) then + mem.cycle = "sideped1" + mem.busy = true + if mem.ltatype == 3 and mem.pedbtype ~= 1 then setlight("at","Y") end + if mem.ltctype == 3 and mem.peddtype ~= 1 then setlight("ct","Y") end + if mem.ltatype == 3 or mem.ltctype == 3 then + interrupt(mem.yellowa,"tick") + else + interrupt(0,"tick") + end + else + logfault("Detectors active but no cycle found",true) + end + end +end + +--Touch event handling +if event.type == "digiline" and event.channel == "touchscreen" then + local fields = event.msg + if mem.menu == "main" then + if fields.exit then + mem.menu = "run" + elseif fields.hwsetup then + mem.menu = "hwsetup" + elseif fields.timing then + mem.menu = "timing" + elseif fields.options then + mem.menu = "options" + elseif fields.phaselock then + mem.menu = "phaselock" + elseif fields.about then + mem.menu = "about" + elseif fields.log then + mem.menu = "log" + elseif fields.monitoring then + mem.menu = "monitoring" + elseif fields.mancyc then + mem.menu = "mancyc" + elseif fields.stats then + mem.menu = "stats" + elseif fields.mode then + mem.menu = "mode" + end + elseif mem.menu == "run" then + if fields.menu then + mem.menu = "main" + end + elseif mem.menu == "hwsetup" then + if fields.cancel then + mem.menu = "main" + elseif fields.save then + mem.menu = "main" + mem.ltatype = pivot(lttypes)[fields.ltatype] + mem.ltbtype = pivot(lttypes)[fields.ltbtype] + mem.ltctype = pivot(lttypes)[fields.ltctype] + mem.ltdtype = pivot(lttypes)[fields.ltdtype] + mem.pedatype = pivot(pedtypes)[fields.pedatype] + mem.pedbtype = pivot(pedtypes)[fields.pedbtype] + mem.pedctype = pivot(pedtypes)[fields.pedctype] + mem.peddtype = pivot(pedtypes)[fields.peddtype] + mem.signaltype = pivot(signaltypes)[fields.signaltype] + mem.pedbuttontype = pivot(pedbuttontypes)[fields.pedbuttontype] + mem.logmode = pivot(logmodes)[fields.logmode] + mem.lock = pivot(panellock)[fields.panellock] + end + elseif mem.menu == "timing" then + if fields.cancel then + mem.menu = "main" + elseif fields.save then + mem.menu = "main" + mem.allreda = tonumber(fields.allreda) or mem.allreda + mem.allredb = tonumber(fields.allredb) or mem.allredb + mem.yellowa = tonumber(fields.yellowa) or mem.yellowa + mem.yellowb = tonumber(fields.yellowb) or mem.yellowb + mem.mindwell = tonumber(fields.mindwell) or mem.mindwell + mem.minsidegreen = tonumber(fields.minsidegreen) or mem.minsidegreen + mem.gapout = tonumber(fields.gapout) or mem.minsidegreen + mem.maxsidegreen = tonumber(fields.maxsidegreen) or mem.minsidegreen + mem.pedwarn = tonumber(fields.pedwarn) or mem.pedwarn + mem.sideped = tonumber(fields.sideped) or mem.sideped + mem.llturn = tonumber(fields.llturn) or mem.llturn + end + elseif mem.menu == "options" then + if fields.cancel then + mem.menu = "main" + elseif fields.save then + mem.menu = "main" + mem.name = fields.name + end + elseif mem.menu == "mancyc" then + if fields.cancel then + mem.menu = "main" + else + for _,v in pairs({"a","b","c","d","at","bt","ct","dt","ap","bp","cp","dp"}) do + if fields[v] then + mem.det[v] = true + interrupt(0) --Forces the program to be re-run since the cycle logic is up there ^^ + end + end + end + elseif mem.menu == "log" then + if fields.cancel then + mem.menu = "main" + elseif fields.clear then + mem.faultlog = {} + end + elseif mem.menu == "monitoring" then + if fields.cancel then + mem.menu = "main" + elseif fields.straight then + mem.monitor = 1 + elseif fields.leftturn then + mem.monitor = 2 + elseif fields.pedestrian then + mem.monitor = 3 + end + elseif mem.menu == "phaselock" then + if fields.cancel then + mem.menu = "main" + elseif fields.save then + mem.menu = "main" + local phases_reverse = pivot(phases) + mem.phaselock.a = phases_reverse[fields.a] + mem.phaselock.b = phases_reverse[fields.b] + mem.phaselock.c = phases_reverse[fields.c] + mem.phaselock.d = phases_reverse[fields.d] + mem.phaselock.at = phases_reverse[fields.at] + mem.phaselock.bt = phases_reverse[fields.bt] + mem.phaselock.ct = phases_reverse[fields.ct] + mem.phaselock.dt = phases_reverse[fields.dt] + mem.phaselock.ap = phases_reverse[fields.ap] + mem.phaselock.bp = phases_reverse[fields.bp] + mem.phaselock.cp = phases_reverse[fields.cp] + mem.phaselock.dp = phases_reverse[fields.dp] + end + elseif mem.menu == "about" then + if fields.cancel then + mem.menu = "main" + end + elseif mem.menu == "stats" then + if fields.cancel then + mem.menu = "main" + elseif fields.clear then + mem.stats = {a = 0,b = 0,c = 0,d = 0,at = 0,bt = 0,ct = 0,dt = 0,ap = 0,bp = 0,cp = 0,dp = 0,cycles = 0,lastreset = os.time()} + end + elseif mem.menu == "mode" then + if fields.cancel then + mem.menu = "main" + elseif fields.save then + mem.schedstart = tonumber(fields.schedstart) or mem.schedstart + mem.schedend = tonumber(fields.schedend) or mem.schedend + mem.normalmode = pivot(modes)[fields.normalmode] + mem.schedmode = pivot(modes)[fields.schedmode] + mem.menu = "main" + interrupt(0) -- Some of these need to take immediate effect + end + else + logfault("Unrecognized menu "..mem.menu,false) + mem.menu = "run" + end +end + +--Light control signal sending +if mem.phaselocked then + mem.busy = false + mem.cycle = nil + mem.currentphase = mem.phaselock + for k,v in pairs(mem.phaselock) do + digiline_send(k,string.upper(phases[v])) + end +else + for k,v in pairs(mem.currentphase) do + digiline_send(k,string.upper(phases[v])) + end +end + +--Display drawing +if event.type == "interrupt" and event.iid == "monflash" then + mem.monflash = not mem.monflash +end +local disp = {{command="clear"}} +if mem.lock == 2 then + table.insert(disp,{command="lock"}) +else + table.insert(disp,{command="unlock"}) +end +if mem.menu == "main" then + table.insert(disp,{command="addlabel",X=0,Y=0,label="Main Menu"}) + table.insert(disp,{command="addbutton",X=1,Y=1,W=2,H=1,name="exit",label="Exit"}) + table.insert(disp,{command="addbutton",X=1,Y=3,W=2,H=1,name="hwsetup",label="Hardware Setup"}) + table.insert(disp,{command="addbutton",X=1,Y=5,W=2,H=1,name="timing",label="Timing"}) + table.insert(disp,{command="addbutton",X=4,Y=1,W=2,H=1,name="options",label="Set Name"}) + table.insert(disp,{command="addbutton",X=4,Y=3,W=2,H=1,name="phaselock",label="Phase Lock"}) + table.insert(disp,{command="addbutton",X=4,Y=5,W=2,H=1,name="about",label="About"}) + table.insert(disp,{command="addbutton",X=7,Y=1,W=2,H=1,name="log",label="Log"}) + table.insert(disp,{command="addbutton",X=7,Y=3,W=2,H=1,name="monitoring",label="Monitoring"}) + table.insert(disp,{command="addbutton",X=7,Y=5,W=2,H=1,name="mancyc",label="Manual Call Entry"}) + table.insert(disp,{command="addbutton",X=1,Y=7,W=2,H=1,name="stats",label="Statistics"}) + table.insert(disp,{command="addbutton",X=4,Y=7,W=2,H=1,name="mode",label="Mode/Schedule"}) +elseif mem.menu == "run" then + table.insert(disp,{command="addlabel",X=0,Y=0,label=mem.name}) + table.insert(disp,{command="addlabel",X=0,Y=1,label="Advanced Mesecons Devices LTC-4000E"}) + if #mem.faultlog > 0 then + table.insert(disp,{command="addlabel",X=0,Y=2,label="FAULT DETECTED! Use Menu->Log to view"}) + else + table.insert(disp,{command="addlabel",X=0,Y=2,label="No Current Faults"}) + end + table.insert(disp,{command="addbutton",X=0,Y=7,W=2,H=1,name="menu",label="Menu"}) +elseif mem.menu == "hwsetup" then + table.insert(disp,{command="addlabel",X=0,Y=0,label="Hardware Setup"}) + table.insert(disp,{command="addlabel",X=0,Y=1,label="Left Turn A Type"}) + table.insert(disp,{command="adddropdown",X=0.1,Y=1.5,W=2.25,H=1,name="ltatype",selected_id=mem.ltatype,choices=lttypes}) + table.insert(disp,{command="addlabel",X=0,Y=2.5,label="Left Turn B Type"}) + table.insert(disp,{command="adddropdown",X=0.1,Y=3,W=2.25,H=1,name="ltbtype",selected_id=mem.ltbtype,choices=lttypes}) + table.insert(disp,{command="addlabel",X=0,Y=4,label="Left Turn C Type"}) + table.insert(disp,{command="adddropdown",X=0.1,Y=4.5,W=2.25,H=1,name="ltctype",selected_id=mem.ltctype,choices=lttypes}) + table.insert(disp,{command="addlabel",X=0,Y=5.5,label="Left Turn D Type"}) + table.insert(disp,{command="adddropdown",X=0.1,Y=6,W=2.25,H=1,name="ltdtype",selected_id=mem.ltdtype,choices=lttypes}) + table.insert(disp,{command="addlabel",X=3,Y=1,label="Pedestrian A Type"}) + table.insert(disp,{command="adddropdown",X=3.1,Y=1.5,W=2.25,H=1,name="pedatype",selected_id=mem.pedatype,choices=pedtypes}) + table.insert(disp,{command="addlabel",X=3,Y=2.5,label="Pedestrian B Type"}) + table.insert(disp,{command="adddropdown",X=3.1,Y=3,W=2.25,H=1,name="pedbtype",selected_id=mem.pedbtype,choices=pedtypes}) + table.insert(disp,{command="addlabel",X=3,Y=4,label="Pedestrian C Type"}) + table.insert(disp,{command="adddropdown",X=3.1,Y=4.5,W=2.25,H=1,name="pedctype",selected_id=mem.pedctype,choices=pedtypes}) + table.insert(disp,{command="addlabel",X=3,Y=5.5,label="Pedestrian D Type"}) + table.insert(disp,{command="adddropdown",X=3.1,Y=6,W=2.25,H=1,name="peddtype",selected_id=mem.peddtype,choices=pedtypes}) + table.insert(disp,{command="addlabel",X=6,Y=1,label="Signal Type"}) + table.insert(disp,{command="adddropdown",X=6.1,Y=1.5,W=2.25,H=1,name="signaltype",selected_id=mem.signaltype,choices=signaltypes}) + table.insert(disp,{command="addlabel",X=6,Y=2.5,label="Pedestrian Button Type"}) + table.insert(disp,{command="adddropdown",X=6.1,Y=3,W=2.25,H=1,name="pedbuttontype",selected_id=mem.pedbuttontype,choices=pedbuttontypes}) + table.insert(disp,{command="addlabel",X=6,Y=4,label="Log Output Mode"}) + table.insert(disp,{command="adddropdown",X=6.1,Y=4.5,W=2.25,H=1,name="logmode",selected_id=mem.logmode,choices=logmodes}) + table.insert(disp,{command="addlabel",X=6,Y=5.5,label="Panel Lock"}) + table.insert(disp,{command="adddropdown",X=6.1,Y=6,W=2.25,H=1,name="panellock",selected_id=mem.lock,choices=panellock}) + table.insert(disp,{command="addbutton",X=2,Y=7,W=2,H=1,name="save",label="Save"}) + table.insert(disp,{command="addbutton",X=5,Y=7,W=2,H=1,name="cancel",label="Cancel"}) +elseif mem.menu == "timing" then + table.insert(disp,{command="addlabel",X=0,Y=0,label="Timing"}) + table.insert(disp,{command="addfield",X=0.25,Y=1,W=2.25,H=1,name="allreda",label="All Red A/C->B/D",default=tostring(mem.allreda)}) + table.insert(disp,{command="addfield",X=0.25,Y=2.5,W=2.25,H=1,name="allredb",label="All Red B/D->A/C",default=tostring(mem.allredb)}) + table.insert(disp,{command="addfield",X=0.25,Y=4,W=2.25,H=1,name="yellowa",label="Yellow A/C->B/D",default=tostring(mem.yellowa)}) + table.insert(disp,{command="addfield",X=0.25,Y=5.5,W=2.25,H=1,name="yellowb",label="Yellow B/D->A/C",default=tostring(mem.yellowb)}) + table.insert(disp,{command="addfield",X=3.25,Y=1,W=2.25,H=1,name="mindwell",label="Minimum Dwell",default=tostring(mem.mindwell)}) + table.insert(disp,{command="addfield",X=3.25,Y=4,W=2.25,H=1,name="pedwarn",label="Pedestrian Warn",default=tostring(mem.pedwarn)}) + table.insert(disp,{command="addfield",X=3.25,Y=5.5,W=2.25,H=1,name="sideped",label="B/D Pedestrian Walk",default=tostring(mem.sideped)}) + table.insert(disp,{command="addfield",X=3.25,Y=2.5,W=2.25,H=1,name="llturn",label="Lead/Lag Turn",default=tostring(mem.llturn)}) + table.insert(disp,{command="addfield",X=0.25,Y=7,W=2.25,H=1,name="minsidegreen",label="B/D Min Green",default=tostring(mem.minsidegreen)}) + table.insert(disp,{command="addfield",X=3.25,Y=7,W=2.25,H=1,name="gapout",label="B/D Gap-out",default=tostring(mem.gapout)}) + table.insert(disp,{command="addfield",X=6.25,Y=7,W=2.25,H=1,name="maxsidegreen",label="B/D Max Green",default=tostring(mem.maxsidegreen)}) + table.insert(disp,{command="addbutton",X=6,Y=3.75,W=2,H=1,name="save",label="Save"}) + table.insert(disp,{command="addbutton",X=6,Y=5,W=2,H=1,name="cancel",label="Cancel"}) +elseif mem.menu == "options" then + table.insert(disp,{command="addlabel",X=0,Y=0,label="Set Name"}) + table.insert(disp,{command="addfield",X=0.25,Y=1,W=5,H=1,name="name",label="Intersection Name",default=mem.name}) + table.insert(disp,{command="addbutton",X=0.25,Y=2.5,W=2,H=1,name="save",label="Save"}) + table.insert(disp,{command="addbutton",X=0.25,Y=3.5,W=2,H=1,name="cancel",label="Cancel"}) +elseif mem.menu == "mancyc" then + table.insert(disp,{command="addlabel",X=0,Y=0,label="Manual Call Entry"}) + table.insert(disp,{command="addimage_button",X=1,Y=2,W=2,H=1,name="b",label="Straight B",image="digistuff_ts_bg.png"..(mem.det.b and "^[brighten" or "")}) + table.insert(disp,{command="addimage_button",X=1,Y=4,W=2,H=1,name="d",label="Straight D",image="digistuff_ts_bg.png"..(mem.det.d and "^[brighten" or "")}) + if mem.ltatype ~= 1 then table.insert(disp,{command="addimage_button",X=4,Y=1,W=2,H=1,name="at",label="Left Turn A",image="digistuff_ts_bg.png"..(mem.det.at and "^[brighten" or "")}) end + if mem.ltbtype ~= 1 then table.insert(disp,{command="addimage_button",X=4,Y=2,W=2,H=1,name="bt",label="Left Turn B",image="digistuff_ts_bg.png"..(mem.det.bt and "^[brighten" or "")}) end + if mem.ltctype ~= 1 then table.insert(disp,{command="addimage_button",X=4,Y=3,W=2,H=1,name="ct",label="Left Turn C",image="digistuff_ts_bg.png"..(mem.det.ct and "^[brighten" or "")}) end + if mem.ltdtype ~= 1 then table.insert(disp,{command="addimage_button",X=4,Y=4,W=2,H=1,name="dt",label="Left Turn D",image="digistuff_ts_bg.png"..(mem.det.dt and "^[brighten" or "")}) end + if mem.pedatype ~= 1 then table.insert(disp,{command="addimage_button",X=7,Y=1,W=2,H=1,name="ap",label="Pedestrian A",image="digistuff_ts_bg.png"..(mem.det.ap and "^[brighten" or "")}) end + if mem.pedbtype ~= 1 then table.insert(disp,{command="addimage_button",X=7,Y=2,W=2,H=1,name="bp",label="Pedestrian B",image="digistuff_ts_bg.png"..(mem.det.bp and "^[brighten" or "")}) end + if mem.pedctype ~= 1 then table.insert(disp,{command="addimage_button",X=7,Y=3,W=2,H=1,name="cp",label="Pedestrian C",image="digistuff_ts_bg.png"..(mem.det.cp and "^[brighten" or "")}) end + if mem.peddtype ~= 1 then table.insert(disp,{command="addimage_button",X=7,Y=4,W=2,H=1,name="dp",label="Pedestrian D",image="digistuff_ts_bg.png"..(mem.det.dp and "^[brighten" or "")}) end + table.insert(disp,{command="addbutton",X=4,Y=6,W=2,H=1,name="cancel",label="Back"}) +elseif mem.menu == "log" then + table.insert(disp,{command="addlabel",X=0,Y=0,label="Fault Log"}) + table.insert(disp,{command="addbutton",X=2,Y=0,W=2,H=1,name="cancel",label="Back"}) + table.insert(disp,{command="addbutton",X=4,Y=0,W=2,H=1,name="clear",label="Clear"}) + if #mem.faultlog > 0 then + for i=1,math.max(#mem.faultlog,10),1 do + table.insert(disp,{command="addlabel",X=0,Y=1+(i/2),label=mem.faultlog[i]}) + end + else + table.insert(disp,{command="addlabel",X=0,Y=1.5,label="No Faults"}) + end +elseif mem.menu == "monitoring" then + interrupt(0.6,"monflash") + + local monitor_textures = {} + monitor_textures.O = "streets_tl_off.png" + monitor_textures.R = "streets_tl_red.png" + monitor_textures.Y = "streets_tl_yellow.png" + monitor_textures.G = "streets_tl_green.png" + if mem.monflash then + monitor_textures.FR = "streets_tl_red.png" + monitor_textures.FY = "streets_tl_yellow.png" + monitor_textures.FG = "streets_tl_green.png" + else + monitor_textures.FR = "streets_tl_off.png" + monitor_textures.FY = "streets_tl_off.png" + monitor_textures.FG = "streets_tl_off.png" + end + monitor_textures.RY = "streets_tl_redyellow.png" + + local monitor_textures_lt = {} + monitor_textures_lt.O = "streets_tl_left_off.png" + monitor_textures_lt.R = "streets_tl_left_red.png" + monitor_textures_lt.Y = "streets_tl_left_yellow.png" + monitor_textures_lt.G = "streets_tl_left_green.png" + if mem.monflash then + monitor_textures_lt.FR = "streets_tl_left_red.png" + monitor_textures_lt.FY = "streets_tl_left_yellow.png" + monitor_textures_lt.FG = "streets_tl_left_green.png" + else + monitor_textures_lt.FR = "streets_tl_left_off.png" + monitor_textures_lt.FY = "streets_tl_left_off.png" + monitor_textures_lt.FG = "streets_tl_left_off.png" + end + monitor_textures_lt.RY = "streets_tl_left_redyellow.png" + + local monitor_textures_ped = {} + monitor_textures_ped.O = "streets_pl_off.png" + monitor_textures_ped.R = "streets_pl_dontwalk.png" + monitor_textures_ped.G = "streets_pl_walk.png" + if mem.monflash then + monitor_textures_ped.FR = "streets_pl_dontwalk.png" + monitor_textures_ped.FY = "streets_pl_dontwalk.png" + monitor_textures_ped.FG = "streets_pl_dontwalk.png" + monitor_textures_ped.Y = "streets_pl_dontwalk.png" + else + monitor_textures_ped.FR = "streets_pl_off.png" + monitor_textures_ped.FY = "streets_pl_off.png" + monitor_textures_ped.FG = "streets_pl_off.png" + monitor_textures_ped.Y = "streets_pl_off.png" + end + monitor_textures_ped.RY = "streets_pl_dontwalk.png" + + table.insert(disp,{command="addlabel",X=0,Y=0,label="Monitor"}) + table.insert(disp,{command="addbutton",X=0,Y=2,W=2,H=1,name="straight",label="Straight"}) + table.insert(disp,{command="addbutton",X=0,Y=3,W=2,H=1,name="leftturn",label="Left Turn"}) + table.insert(disp,{command="addbutton",X=0,Y=4,W=2,H=1,name="pedestrian",label="Pedestrian"}) + table.insert(disp,{command="addbutton",X=0,Y=6,W=2,H=1,name="cancel",label="Back"}) + + --Texture names + local asphalt = "" + local sideline = "" + local centerline = "" + if mem.signaltype == 1 then + asphalt = "streets_asphalt.png" + sideline = asphalt.."^streets_asphalt_side.png" + centerline = asphalt.."^streets_rw_dashed_line.png" + elseif mem.signaltype == 2 then + asphalt = "streets_asphalt.png" + sideline = asphalt.."^streets_asphalt_side.png" + centerline = asphalt.."^infrastructure_double_yellow_line.png" + elseif mem.signaltype == 3 then + asphalt = "streets_asphalt.png" + sideline = asphalt.."^streets_solid_side_line.png" + centerline = asphalt.."^(streets_double_solid_center_line.png^[colorize:#ecb100)" + end + + --Center of intersection + table.insert(disp,{command="addimage",X=5.25, Y=3.25, W=1,H=1,texture_name=asphalt}) + table.insert(disp,{command="addimage",X=6, Y=3.25, W=1,H=1,texture_name=asphalt}) + table.insert(disp,{command="addimage",X=6.75, Y=3.25, W=1,H=1,texture_name=asphalt}) + table.insert(disp,{command="addimage",X=5.25, Y=4, W=1,H=1,texture_name=asphalt}) + table.insert(disp,{command="addimage",X=6, Y=4, W=1,H=1,texture_name=asphalt}) + table.insert(disp,{command="addimage",X=6.75, Y=4, W=1,H=1,texture_name=asphalt}) + table.insert(disp,{command="addimage",X=5.25, Y=4.75, W=1,H=1,texture_name=asphalt}) + table.insert(disp,{command="addimage",X=6, Y=4.75, W=1,H=1,texture_name=asphalt}) + table.insert(disp,{command="addimage",X=6.75, Y=4.75, W=1,H=1,texture_name=asphalt}) + + --Approach Labels + table.insert(disp,{command="addlabel",X=3.5, Y=4.25, label="A"}) + table.insert(disp,{command="addlabel",X=6.25, Y=1.25, label="B"}) + table.insert(disp,{command="addlabel",X=9.25, Y=4.25, label="C"}) + table.insert(disp,{command="addlabel",X=6.25, Y=7.25, label="D"}) + + --Approach A (left) + table.insert(disp,{command="addimage",X=4.5, Y=3.25, W=1,H=1,texture_name=sideline.."^[transformR270"}) + table.insert(disp,{command="addimage",X=4.5, Y=4, W=1,H=1,texture_name=centerline.."^[transformR90"}) + table.insert(disp,{command="addimage",X=4.5, Y=4.75, W=1,H=1,texture_name=sideline.."^[transformR90"}) + table.insert(disp,{command="addimage",X=3.75, Y=3.25, W=1,H=1,texture_name=sideline.."^[transformR270"}) + table.insert(disp,{command="addimage",X=3.75, Y=4, W=1,H=1,texture_name=centerline.."^[transformR90"}) + table.insert(disp,{command="addimage",X=3.75, Y=4.75, W=1,H=1,texture_name=sideline.."^[transformR90"}) + + --Approach B (top) + table.insert(disp,{command="addimage",X=5.25, Y=2.5, W=1,H=1,texture_name=sideline}) + table.insert(disp,{command="addimage",X=6, Y=2.5, W=1,H=1,texture_name=centerline}) + table.insert(disp,{command="addimage",X=6.75, Y=2.5, W=1,H=1,texture_name=sideline.."^[transformR180"}) + table.insert(disp,{command="addimage",X=5.25, Y=1.75, W=1,H=1,texture_name=sideline}) + table.insert(disp,{command="addimage",X=6, Y=1.75, W=1,H=1,texture_name=centerline}) + table.insert(disp,{command="addimage",X=6.75, Y=1.75, W=1,H=1,texture_name=sideline.."^[transformR180"}) + + --Approach C (right) + table.insert(disp,{command="addimage",X=7.5, Y=3.25, W=1,H=1,texture_name=sideline.."^[transformR270"}) + table.insert(disp,{command="addimage",X=7.5, Y=4, W=1,H=1,texture_name=centerline.."^[transformR90"}) + table.insert(disp,{command="addimage",X=7.5, Y=4.75, W=1,H=1,texture_name=sideline.."^[transformR90"}) + table.insert(disp,{command="addimage",X=8.25, Y=3.25, W=1,H=1,texture_name=sideline.."^[transformR270"}) + table.insert(disp,{command="addimage",X=8.25, Y=4, W=1,H=1,texture_name=centerline.."^[transformR90"}) + table.insert(disp,{command="addimage",X=8.25, Y=4.75, W=1,H=1,texture_name=sideline.."^[transformR90"}) + + --Approach D (bottom) + table.insert(disp,{command="addimage",X=5.25, Y=5.5, W=1,H=1,texture_name=sideline}) + table.insert(disp,{command="addimage",X=6, Y=5.5, W=1,H=1,texture_name=centerline}) + table.insert(disp,{command="addimage",X=6.75, Y=5.5, W=1,H=1,texture_name=sideline.."^[transformR180"}) + table.insert(disp,{command="addimage",X=5.25, Y=6.25, W=1,H=1,texture_name=sideline}) + table.insert(disp,{command="addimage",X=6, Y=6.25, W=1,H=1,texture_name=centerline}) + table.insert(disp,{command="addimage",X=6.75, Y=6.25, W=1,H=1,texture_name=sideline.."^[transformR180"}) + + --Traffic Lights + if mem.monitor == 1 then + table.insert(disp,{command="addimage",X=4.25, Y=5.5, W=1,H=1,texture_name=monitor_textures[mem.currentphase.a].."^[transformR270"}) --A + table.insert(disp,{command="addimage",X=4.5, Y=2.25, W=1,H=1,texture_name=monitor_textures[mem.currentphase.b].."^[transformR180"}) --B + table.insert(disp,{command="addimage",X=7.75, Y=2.5, W=1,H=1,texture_name=monitor_textures[mem.currentphase.c].."^[transformR90"}) --C + table.insert(disp,{command="addimage",X=7.5, Y=5.75, W=1,H=1,texture_name=monitor_textures[mem.currentphase.d]}) --D + elseif mem.monitor == 2 then + table.insert(disp,{command="addimage",X=4.25, Y=5.5, W=1,H=1,texture_name=monitor_textures_lt[mem.currentphase.at].."^[transformR270"}) --A + table.insert(disp,{command="addimage",X=4.5, Y=2.25, W=1,H=1,texture_name=monitor_textures_lt[mem.currentphase.bt].."^[transformR180"}) --B + table.insert(disp,{command="addimage",X=7.75, Y=2.5, W=1,H=1,texture_name=monitor_textures_lt[mem.currentphase.ct].."^[transformR90"}) --C + table.insert(disp,{command="addimage",X=7.5, Y=5.75, W=1,H=1,texture_name=monitor_textures_lt[mem.currentphase.dt]}) --D + elseif mem.monitor == 3 then + table.insert(disp,{command="addimage",X=4.25, Y=5.5, W=1,H=1,texture_name=monitor_textures_ped[mem.currentphase.ap].."^[transformR270"}) --A + table.insert(disp,{command="addimage",X=4.5, Y=2.25, W=1,H=1,texture_name=monitor_textures_ped[mem.currentphase.bp].."^[transformR180"}) --B + table.insert(disp,{command="addimage",X=7.75, Y=2.5, W=1,H=1,texture_name=monitor_textures_ped[mem.currentphase.cp].."^[transformR90"}) --C + table.insert(disp,{command="addimage",X=7.5, Y=5.75, W=1,H=1,texture_name=monitor_textures_ped[mem.currentphase.dp]}) --D + end +elseif mem.menu == "phaselock" then + local phaselock_phases = {"Off","Green","Red"} + if mem.signaltype >= 2 then + table.insert(phaselock_phases,"Yellow") + table.insert(phaselock_phases,"FlashRed") + table.insert(phaselock_phases,"FlashYellow") + end + if mem.signaltype == 3 then + table.insert(phaselock_phases,"FlashGreen") + table.insert(phaselock_phases,"RedYellow") + end + local shortphase_reverse = pivot(shortphases) + table.insert(disp,{command="addlabel",X=0,Y=0,label="Phase Lock"}) + table.insert(disp,{command="addlabel",X=0,Y=1,label="Straight A"}) + table.insert(disp,{command="adddropdown",X=0.1,Y=1.5,W=2.25,H=1,name="a",selected_id=shortphase_reverse[mem.phaselock.a],choices=phaselock_phases}) + table.insert(disp,{command="addlabel",X=0,Y=2.5,label="Straight B"}) + table.insert(disp,{command="adddropdown",X=0.1,Y=3,W=2.25,H=1,name="b",selected_id=shortphase_reverse[mem.phaselock.b],choices=phaselock_phases}) + table.insert(disp,{command="addlabel",X=0,Y=4,label="Straight C"}) + table.insert(disp,{command="adddropdown",X=0.1,Y=4.5,W=2.25,H=1,name="c",selected_id=shortphase_reverse[mem.phaselock.c],choices=phaselock_phases}) + table.insert(disp,{command="addlabel",X=0,Y=5.5,label="Straight D"}) + table.insert(disp,{command="adddropdown",X=0.1,Y=6,W=2.25,H=1,name="d",selected_id=shortphase_reverse[mem.phaselock.d],choices=phaselock_phases}) + table.insert(disp,{command="addlabel",X=3,Y=1,label="Left Turn A"}) + table.insert(disp,{command="adddropdown",X=3.1,Y=1.5,W=2.25,H=1,name="at",selected_id=shortphase_reverse[mem.phaselock.at],choices=phaselock_phases}) + table.insert(disp,{command="addlabel",X=3,Y=2.5,label="Left Turn B"}) + table.insert(disp,{command="adddropdown",X=3.1,Y=3,W=2.25,H=1,name="bt",selected_id=shortphase_reverse[mem.phaselock.bt],choices=phaselock_phases}) + table.insert(disp,{command="addlabel",X=3,Y=4,label="Left Turn C"}) + table.insert(disp,{command="adddropdown",X=3.1,Y=4.5,W=2.25,H=1,name="ct",selected_id=shortphase_reverse[mem.phaselock.ct],choices=phaselock_phases}) + table.insert(disp,{command="addlabel",X=3,Y=5.5,label="Left Turn D"}) + table.insert(disp,{command="adddropdown",X=3.1,Y=6,W=2.25,H=1,name="dt",selected_id=shortphase_reverse[mem.phaselock.dt],choices=phaselock_phases}) + table.insert(disp,{command="addlabel",X=6,Y=1,label="Pedestrian A"}) + table.insert(disp,{command="adddropdown",X=6.1,Y=1.5,W=2.25,H=1,name="ap",selected_id=shortphase_reverse[mem.phaselock.ap],choices=phaselock_phases}) + table.insert(disp,{command="addlabel",X=6,Y=2.5,label="Pedestrian B"}) + table.insert(disp,{command="adddropdown",X=6.1,Y=3,W=2.25,H=1,name="bp",selected_id=shortphase_reverse[mem.phaselock.bp],choices=phaselock_phases}) + table.insert(disp,{command="addlabel",X=6,Y=4,label="Pedestrian C"}) + table.insert(disp,{command="adddropdown",X=6.1,Y=4.5,W=2.25,H=1,name="cp",selected_id=shortphase_reverse[mem.phaselock.cp],choices=phaselock_phases}) + table.insert(disp,{command="addlabel",X=6,Y=5.5,label="Pedestrian D"}) + table.insert(disp,{command="adddropdown",X=6.1,Y=6,W=2.25,H=1,name="dp",selected_id=shortphase_reverse[mem.phaselock.dp],choices=phaselock_phases}) + table.insert(disp,{command="addbutton",X=3,Y=7,W=2,H=1,name="save",label="Save"}) + table.insert(disp,{command="addbutton",X=6,Y=7,W=2,H=1,name="cancel",label="Cancel"}) +elseif mem.menu == "about" then + table.insert(disp,{command="addlabel",X=0,Y=0,label="About"}) + table.insert(disp,{command="addlabel",X=0,Y=1,label="LTC-4000E"}) + table.insert(disp,{command="addlabel",X=0,Y=1.5,label="A product of Advanced Mesecons Devices, a Cheapie Systems company."}) + table.insert(disp,{command="addlabel",X=0,Y=2,label="This is free and unencumbered software released into the public domain."}) + table.insert(disp,{command="addlabel",X=0,Y=2.5,label="See http://unlicense.org/ for more information."}) + table.insert(disp,{command="addbutton",X=0,Y=7.25,W=2,H=1,name="cancel",label="Back"}) +elseif mem.menu == "stats" then + interrupt(1,"statsrefresh") + table.insert(disp,{command="addlabel",X=0,Y=0,label="Statistics"}) + table.insert(disp,{command="addbutton",X=2,Y=0,W=2,H=1,name="cancel",label="Back"}) + table.insert(disp,{command="addbutton",X=4,Y=0,W=2,H=1,name="clear",label="Clear"}) + table.insert(disp,{command="addlabel",X=0,Y=1,label="Numbers represent total seconds waiting (for detectors) or total presses (for buttons)"}) + table.insert(disp,{command="addlabel",X=0,Y=2,label="A: "..mem.stats.a}) + table.insert(disp,{command="addlabel",X=0,Y=2.5,label="B: "..mem.stats.b}) + table.insert(disp,{command="addlabel",X=0,Y=3,label="C: "..mem.stats.c}) + table.insert(disp,{command="addlabel",X=0,Y=3.5,label="D: "..mem.stats.d}) + table.insert(disp,{command="addlabel",X=2,Y=2,label="AT: "..mem.stats.at}) + table.insert(disp,{command="addlabel",X=2,Y=2.5,label="BT: "..mem.stats.bt}) + table.insert(disp,{command="addlabel",X=2,Y=3,label="CT: "..mem.stats.ct}) + table.insert(disp,{command="addlabel",X=2,Y=3.5,label="DT: "..mem.stats.dt}) + table.insert(disp,{command="addlabel",X=4,Y=2,label="AP: "..mem.stats.ap}) + table.insert(disp,{command="addlabel",X=4,Y=2.5,label="BP: "..mem.stats.bp}) + table.insert(disp,{command="addlabel",X=4,Y=3,label="CP: "..mem.stats.cp}) + table.insert(disp,{command="addlabel",X=4,Y=3.5,label="DP: "..mem.stats.dp}) + table.insert(disp,{command="addlabel",X=0,Y=4.5,label="Total cycles: "..mem.stats.cycles}) + local timesinceclear = os.time() - mem.stats.lastreset + local lastclear = "ERROR" + if timesinceclear < 120 then --Two minutes + lastclear = math.floor(timesinceclear).." seconds" + elseif timesinceclear < 7200 then --Two hours + lastclear = math.floor(timesinceclear/60).." minutes" + elseif timesinceclear < 172800 then --Two days + lastclear = math.floor(timesinceclear/3600).." hours" + else + lastclear = math.floor(timesinceclear/86400).." days" + end + table.insert(disp,{command="addlabel",X=0,Y=5.5,label="Last cleared: "..lastclear.." ago"}) +elseif mem.menu == "mode" then + table.insert(disp,{command="addlabel",X=0,Y=0,label="Mode / Schedule"}) + table.insert(disp,{command="addlabel",X=0,Y=1,label="Normal Mode"}) + table.insert(disp,{command="adddropdown",X=0.1,Y=1.5,W=2.25,H=1,name="normalmode",selected_id=mem.normalmode,choices=modes}) + table.insert(disp,{command="addlabel",X=0,Y=2.5,label="Scheduled Mode"}) + table.insert(disp,{command="adddropdown",X=0.1,Y=3,W=2.25,H=1,name="schedmode",selected_id=mem.schedmode,choices=modes}) + table.insert(disp,{command="addfield",X=0.5,Y=4.5,W=2,H=1,name="schedstart",label="Schedule Start Hour",default=tostring(mem.schedstart)}) + table.insert(disp,{command="addfield",X=0.5,Y=5.5,W=2,H=1,name="schedend",label="Schedule End Hour",default=tostring(mem.schedend)}) + table.insert(disp,{command="addbutton",X=3,Y=7,W=2,H=1,name="save",label="Save"}) + table.insert(disp,{command="addbutton",X=6,Y=7,W=2,H=1,name="cancel",label="Cancel"}) +else + logfault("Unrecognized menu "..mem.menu,false) + mem.menu = "run" +end +digiline_send("touchscreen",disp) + +--Wake up periodically to check schedule +if (mem.schedstart ~= mem.schedend) then + interrupt(10,"schedcheck") +end diff --git a/init.lua b/init.lua new file mode 100644 index 0000000..21775bc --- /dev/null +++ b/init.lua @@ -0,0 +1,345 @@ +--Just enough of the touchscreen to enable it to work here +local function process_command(meta,data,msg) + if msg.command == "clear" then + data = {} + elseif msg.command == "addimage" then + for _,i in pairs({"X","Y","W","H"}) do + if not msg[i] or type(msg[i]) ~= "number" then + return + end + end + if not msg.texture_name or type(msg.texture_name) ~= "string" then + return + end + local field = {type="image",X=msg.X,Y=msg.Y,W=msg.W,H=msg.H,texture_name=minetest.formspec_escape(msg.texture_name)} + table.insert(data,field) + elseif msg.command == "addfield" then + for _,i in pairs({"X","Y","W","H"}) do + if not msg[i] or type(msg[i]) ~= "number" then + return + end + end + for _,i in pairs({"name","label","default"}) do + if not msg[i] or type(msg[i]) ~= "string" then + return + end + end + local field = {type="field",X=msg.X,Y=msg.Y,W=msg.W,H=msg.H,name=minetest.formspec_escape(msg.name),label=minetest.formspec_escape(msg.label),default=minetest.formspec_escape(msg.default)} + table.insert(data,field) + elseif msg.command == "addpwdfield" then + for _,i in pairs({"X","Y","W","H"}) do + if not msg[i] or type(msg[i]) ~= "number" then + return + end + end + for _,i in pairs({"name","label"}) do + if not msg[i] or type(msg[i]) ~= "string" then + return + end + end + local field = {type="pwdfield",X=msg.X,Y=msg.Y,W=msg.W,H=msg.H,name=minetest.formspec_escape(msg.name),label=minetest.formspec_escape(msg.label)} + table.insert(data,field) + elseif msg.command == "addtextarea" then + for _,i in pairs({"X","Y","W","H"}) do + if not msg[i] or type(msg[i]) ~= "number" then + return + end + end + for _,i in pairs({"name","label","default"}) do + if not msg[i] or type(msg[i]) ~= "string" then + return + end + end + local field = {type="textarea",X=msg.X,Y=msg.Y,W=msg.W,H=msg.H,name=minetest.formspec_escape(msg.name),label=minetest.formspec_escape(msg.label),default=minetest.formspec_escape(msg.default)} + table.insert(data,field) + elseif msg.command == "addlabel" then + for _,i in pairs({"X","Y"}) do + if not msg[i] or type(msg[i]) ~= "number" then + return + end + end + if not msg.label or type(msg.label) ~= "string" then + return + end + local field = {type="label",X=msg.X,Y=msg.Y,label=minetest.formspec_escape(msg.label)} + table.insert(data,field) + elseif msg.command == "addvertlabel" then + for _,i in pairs({"X","Y"}) do + if not msg[i] or type(msg[i]) ~= "number" then + return + end + end + if not msg.label or type(msg.label) ~= "string" then + return + end + local field = {type="vertlabel",X=msg.X,Y=msg.Y,label=minetest.formspec_escape(msg.label)} + table.insert(data,field) + elseif msg.command == "addbutton" then + for _,i in pairs({"X","Y","W","H"}) do + if not msg[i] or type(msg[i]) ~= "number" then + return + end + end + for _,i in pairs({"name","label"}) do + if not msg[i] or type(msg[i]) ~= "string" then + return + end + end + local field = {type="button",X=msg.X,Y=msg.Y,W=msg.W,H=msg.H,name=minetest.formspec_escape(msg.name),label=minetest.formspec_escape(msg.label)} + table.insert(data,field) + elseif msg.command == "addbutton_exit" then + for _,i in pairs({"X","Y","W","H"}) do + if not msg[i] or type(msg[i]) ~= "number" then + return + end + end + for _,i in pairs({"name","label"}) do + if not msg[i] or type(msg[i]) ~= "string" then + return + end + end + local field = {type="button_exit",X=msg.X,Y=msg.Y,W=msg.W,H=msg.H,name=minetest.formspec_escape(msg.name),label=minetest.formspec_escape(msg.label)} + table.insert(data,field) + elseif msg.command == "addimage_button" then + for _,i in pairs({"X","Y","W","H"}) do + if not msg[i] or type(msg[i]) ~= "number" then + return + end + end + for _,i in pairs({"image","name","label"}) do + if not msg[i] or type(msg[i]) ~= "string" then + return + end + end + local field = {type="image_button",X=msg.X,Y=msg.Y,W=msg.W,H=msg.H,image=minetest.formspec_escape(msg.image),name=minetest.formspec_escape(msg.name),label=minetest.formspec_escape(msg.label)} + table.insert(data,field) + elseif msg.command == "addimage_button_exit" then + for _,i in pairs({"X","Y","W","H"}) do + if not msg[i] or type(msg[i]) ~= "number" then + return + end + end + for _,i in pairs({"image","name","label"}) do + if not msg[i] or type(msg[i]) ~= "string" then + return + end + end + local field = {type="image_button_exit",X=msg.X,Y=msg.Y,W=msg.W,H=msg.H,image=minetest.formspec_escape(msg.image),name=minetest.formspec_escape(msg.name),label=minetest.formspec_escape(msg.label)} + table.insert(data,field) + elseif msg.command == "adddropdown" then + for _,i in pairs({"X","Y","W","H","selected_id"}) do + if not msg[i] or type(msg[i]) ~= "number" then + return + end + end + if not msg.name or type(msg.name) ~= "string" then + return + end + if not msg.choices or type(msg.choices) ~= "table" or #msg.choices < 1 then + return + end + local field = {type="dropdown",X=msg.X,Y=msg.Y,W=msg.W,H=msg.H,name=msg.name,selected_id=msg.selected_id,choices=msg.choices} + table.insert(data,field) + elseif msg.command == "lock" then + meta:set_int("locked",1) + elseif msg.command == "unlock" then + meta:set_int("locked",0) + end + return data +end + +local function update_ts_formspec(pos,data) + local meta = minetest.get_meta(pos) + local fs = "size[10,8]".. + "background[0,0;0,0;ltc4000e_formspec_bg.png;true]" + for _,field in pairs(data) do + if field.type == "image" then + fs = fs..string.format("image[%s,%s;%s,%s;%s]",field.X,field.Y,field.W,field.H,field.texture_name) + elseif field.type == "field" then + fs = fs..string.format("field[%s,%s;%s,%s;%s;%s;%s]",field.X,field.Y,field.W,field.H,field.name,field.label,field.default) + elseif field.type == "pwdfield" then + fs = fs..string.format("pwdfield[%s,%s;%s,%s;%s;%s]",field.X,field.Y,field.W,field.H,field.name,field.label) + elseif field.type == "textarea" then + fs = fs..string.format("textarea[%s,%s;%s,%s;%s;%s;%s]",field.X,field.Y,field.W,field.H,field.name,field.label,field.default) + elseif field.type == "label" then + fs = fs..string.format("label[%s,%s;%s]",field.X,field.Y,field.label) + elseif field.type == "vertlabel" then + fs = fs..string.format("vertlabel[%s,%s;%s]",field.X,field.Y,field.label) + elseif field.type == "button" then + fs = fs..string.format("button[%s,%s;%s,%s;%s;%s]",field.X,field.Y,field.W,field.H,field.name,field.label) + elseif field.type == "button_exit" then + fs = fs..string.format("button_exit[%s,%s;%s,%s;%s;%s]",field.X,field.Y,field.W,field.H,field.name,field.label) + elseif field.type == "image_button" then + fs = fs..string.format("image_button[%s,%s;%s,%s;%s;%s;%s]",field.X,field.Y,field.W,field.H,field.image,field.name,field.label) + elseif field.type == "image_button_exit" then + fs = fs..string.format("image_button_exit[%s,%s;%s,%s;%s;%s;%s]",field.X,field.Y,field.W,field.H,field.image,field.name,field.label) + elseif field.type == "dropdown" then + local choices = "" + for _,i in ipairs(field.choices) do + if type(i) == "string" then + choices = choices..minetest.formspec_escape(i).."," + end + end + choices = string.sub(choices,1,-2) + fs = fs..string.format("dropdown[%s,%s;%s,%s;%s;%s;%s]",field.X,field.Y,field.W,field.H,field.name,choices,field.selected_id) + end + end + meta:set_string("formspec",fs) +end + +local function ts_on_digiline_receive(pos,msg) + local meta = minetest.get_meta(pos) + if type(msg) ~= "table" then return end + local data = minetest.deserialize(meta:get_string("data")) or {} + if msg.command then + data = process_command(meta,data,msg) + else + for _,i in ipairs(msg) do + if i.command then + data = process_command(meta,data,i) or data + end + end + end + meta:set_string("data",minetest.serialize(data)) + update_ts_formspec(pos,data) +end + +--Load the (mostly unmodified) firmware +local fw = loadfile(minetest.get_modpath("ltc4000e")..DIR_DELIM.."fw.lua") + +local function run(pos,event) + --Initialize environment + local context = {} + local meta = minetest.get_meta(pos) + context.mem = minetest.deserialize(meta:get_string("mem")) or {} + context.event = event + context.string = string + context.table = table + context.math = math + context.pairs = pairs + context.ipairs = ipairs + context.tostring = tostring + context.tonumber = tonumber + context.type = type + context.print = print + context.os = {} + for k,v in pairs(os) do + context.os[k] = v + end + + function context.os.datetable() + return(os.date("*t",os.time())) + end + + function context.digiline_send(channel,msg) + if channel == "touchscreen" then + --Touchscreen is integrated into the chip + ts_on_digiline_receive(pos,msg) + else + --Not an integrated peripheral, so send the message + digiline:receptor_send(pos,digiline.rules.default,channel,msg) + end + end + + function context.interrupt(time,iid) + if iid == "gapout" then + --This one can have the time changed on-the-fly, so it has to be done with node timers + local timer = minetest.get_node_timer(pos) + if time then + timer:start(time) + else + timer:stop() + end + else + local event = {} + event.type = "interrupt" + event.iid = iid + minetest.after(time,run,pos,event) + end + end + + --This is where the magic happens... + setfenv(fw,context) + + --Run code + local success,err = pcall(fw) + if not success then + print("Error in LTC-4000E execution, aborting: "..err) + return + end + + --Save memory after execution + meta:set_string("mem",minetest.serialize(context.mem)) +end + +local function ts_on_receive_fields(pos,formname,fields,sender) + local meta = minetest.get_meta(pos) + local playername = sender:get_player_name() + local locked = meta:get_int("locked") == 1 + local can_bypass = minetest.check_player_privs(playername,{protection_bypass=true}) + local is_protected = minetest.is_protected(pos,playername) + if (locked and is_protected) and not can_bypass then + minetest.record_protection_violation(pos,playername) + minetest.chat_send_player(playername,"You are not authorized to use this controller.") + return + end + local event = {} + event.type = "digiline" + event.channel = "touchscreen" + event.msg = fields + run(pos,event) +end + +local nodebox = { + { -0.35, -0.45, 0.25, 0.35, 0.45, 0.75 } +} + + +minetest.register_node("ltc4000e:controller", { + tiles = { + "ltc4000e_cabinet_sides.png", + "ltc4000e_cabinet_sides.png", + "ltc4000e_cabinet_sides.png", + "ltc4000e_cabinet_sides.png", + "ltc4000e_cabinet_sides.png", + "ltc4000e_cabinet_front.png", + }, + description = "LTC-4000E Traffic Signal Controller", + paramtype = "light", + paramtype2 = "facedir", + drawtype = "nodebox", + groups = {dig_immediate=2}, + sounds = default.node_sound_stone_defaults(), + on_construct = function(pos) + local event = {type="program"} + run(pos,event) + end, + on_timer = function(pos) + local event = {} + event.type = "interrupt" + event.iid = "gapout" + run(pos,event) + end, + node_box = { + type = "fixed", + fixed = nodebox + }, + selection_box = { + type = "fixed", + fixed = nodebox + }, + on_receive_fields = ts_on_receive_fields, + digiline = + { + receptor = {}, + effector = { + action = function(pos,_,channel,msg) + local event = {} + event.type = "digiline" + event.channel = channel + event.msg = msg + run(pos,event) + end + }, + }, +}) diff --git a/textures/ltc4000e_cabinet_front.png b/textures/ltc4000e_cabinet_front.png Binary files differnew file mode 100644 index 0000000..4e85319 --- /dev/null +++ b/textures/ltc4000e_cabinet_front.png diff --git a/textures/ltc4000e_cabinet_sides.png b/textures/ltc4000e_cabinet_sides.png Binary files differnew file mode 100644 index 0000000..49a5ef8 --- /dev/null +++ b/textures/ltc4000e_cabinet_sides.png diff --git a/textures/ltc4000e_formspec_bg.png b/textures/ltc4000e_formspec_bg.png Binary files differnew file mode 100644 index 0000000..87c54f2 --- /dev/null +++ b/textures/ltc4000e_formspec_bg.png |
