NodeMCU で web LED signal

infinite loop さんが Crystal Signal Pi と言う製品を発売されました。Raspberry Pi を使った RGB color LED 信号灯です。これって NodeMCU で間に合うよね、と貧乏性なワタシです。当初は MicroPython で考えてみたものの、socket の非同期動作ができない(?)と言うことで不慣れな Lua で書いています。結局 socket の非同期処理とは関係なく、コマンドのパラメータをグローバルに置いてタイマで LED の点滅制御をしています。排他、それ何？みたいな雑なコードですみません。無駄に 100ms 毎にタイマ割込みを入れているのは PWM による LED の明るさ制御も自前でやってみようとした名残りです。

http://example.com//ctrl/?red=0&green=64&blue=255&period=500&rpt=300 のようににして使います。このパラメータ形式は当初の Crystal Sigal Pi の仕様にならったつもりなのですが、現行の仕様とは異なります。YouTubeにバラックで動作中の様子を置きました。

• MicroPython で web LED signal - MicroPython でも試してみました。(2017.01.27 追記)

websignal.lua

params = {red=0, green=0, blue=0, period=500, rpt=0}
ptimer = 0
power = false

pwm.setup(1, 500, 0) -- LED RED
pwm.setup(2, 500, 0) -- LED GREEN
pwm.setup(3, 500, 0) -- LED BLUE
pwm.start(1)
pwm.start(2)
pwm.start(3)

function split(str, pattern, n)
   if not string.find(str, pattern) then
	  return { str }
   end
   local result = {}
   local fpat = "(.-)" .. pattern
   local insertCnt = 1
   local lastEnd = 1
   local s, e, cap = string.find(str, fpat, 1)
   while s do
	  if insertCnt > n and n > 0 then
		 break
	  end
	  if s ~= 1 or cap ~= "" then
		 table.insert(result, cap)
	  end
	  insertCnt = insertCnt + 1
	  lastEnd = e + 1
	  s, e, cap = string.find(str, fpat, lastEnd)
   end
   if lastEnd <= #str then
	  cap = string.sub(str, lastEnd)
	  table.insert(result, cap)
   end
   return result
end

function pp()
   local k, v
   local s = ""
   for k,v in pairs(params) do s = s.."<br>\n"..k..":"..v end
   return s
end

function getparams(s)
   local t = split(s, "\n", 2) -- get first line
   t = split(t[1], " ", 4) -- get 'GET' argument
   -- t[1]: s = "/ctrl/?red=0&green=64&blue=255&period=500&rpt=300"
   t = split(t[2], "/", 2)
   if not (#t > 1 and t[1] == 'ctrl' and string.sub(t[2], 1, 1) == '?') then
	  return false
   end
   tt = split(string.sub(t[2], 2), "&", 10)
   local k, v
   for k, v in pairs(tt) do
	  local a = split(v, "=", 2)
	  local k = a[1]
	  local v = a[2]
	  if params[k] ~= nil then
		 v = tonumber(v)
		 if v < 0 then v = 0 end
		 if k ~= 'period' and k ~= 'rpt' and v > 1023 then v = 1023 end
		 params[k] = v
	  end
   end
   print(pp())
   tmfunc()

   return true
end

function led(r, g, b)
   print("R:"..r..",G:"..g..",B:"..b)
   pwm.setduty(1, r)
   pwm.setduty(2, g)
   pwm.setduty(3, b)
end

function tmfunc()
   local npower = power
   if params['rpt'] > 0 then
	  if params['period'] == 0 then
		 npower = true
	  else
		 if ptimer > 0 then
			ptimer = ptimer - 1
		 else
			npower = not power
			if not npower then params['rpt'] = params['rpt'] - 1 end
			ptimer = params['period'] / 200
		 end
	  end
   else
	  npower = off
   end

   -- LED on or off by params['power']
   if power ~= npower then
	  power = npower
	  if power then led(params['red'], params['green'], params['blue']) else led(0, 0, 0) end
   end
end

--

wifi.setmode(wifi.STATION)
wifi.sta.config("SSID", "PASSWORD")
wifi.sta.autoconnect(1)

tmr.register(0, 100, tmr.ALARM_AUTO, function() tmfunc() end)
tmr.start(0)

srv=net.createServer(net.TCP)
srv:listen(80,
		   function(conn) 
			  conn:on("receive",
					  function(conn,payload) 
						 print(payload)
						 local r = getparams(payload)
						 if r then
							conn:send("<h1>ESP8266 - Signal NodeMCU working!</h1><p>"..pp().."</p>")
						 else
							conn:send("<h1>ESP8266 - Server is working!</h1><p>"..pp().."</p>")
						 end
						 conn:close()
			  end)
end)