sample_kokuchi.lua

----------------------------------------------
-- Sample of SlibRGB57wTM1640.lua for W4.00.03
-- Copyright (c) 2019, AoiSaya
-- All rights reserved.
-- 2019/09/01 rev.0.03
-----------------------------------------------
function chkBreak(n)
	sleep(n or 0)
	if fa.sharedmemory("read", 0x00, 0x01, "") == "!" then
		error("Break!",2)
	end
end
fa.sharedmemory("write", 0x00, 0x01, "-")

local script_path = function()
	local  str = debug.getinfo(2, "S").source:sub(2)
	return str:match("(.*/)")
end

--main
local myDir  = script_path()
local libDir = myDir.."lib/"
local fontDir= myDir.."font/"
local led	 = require(libDir.."SlibRGB57wTM1640")
local jfont  = require(libDir.."SlibJfont")
local a3x8	 = jfont:open("3x8.sef")
local k6x8	 = jfont:open("k6x8.sef")

local bright = 1 -- 0..8
local d, r, g, b
local str= {
"そらまめ34号から",
"たいせつな",
"お知らせ　",
"FlashAir Developers",
"は",
"2019/9/17",
"正午に",
"ヘイサ",
"されます　"
}
led:setup(bright)
jfont:setFont(a3x8,k6x8)
local color = 1


rgb = {}
for i=1,15 do
	rgb[i] = 0
end

while 1 do
	chkBreak(5000)
	for _,strUTF8 in ipairs(str) do
		strEUC, euc_length = jfont:utf82euc(strUTF8)
		p=1

		b = bit32.btest(color,1)
		r = bit32.btest(color,2)
		g = bit32.btest(color,4)
		color = color % 7 + 1
		while p<=#strEUC do
			bitmap,fh,fw,p = jfont:getFont(strEUC, p)
			for i=1,fw==3 and 4 or fw do
				rgb = {table.unpack(rgb,4)}
				d = i<=fw and bitmap[i] or 0
				rgb[13] = r and d or 0
				rgb[14] = g and d or 0
				rgb[15] = b and d or 0
				led:write(rgb)
				chkBreak(80)
			end
			collectgarbage()
		end
	end
	chkBreak(2000)
end