FlashAir開発者向け非公式wiki

AirioのRGB-LEDをソフトPWMで調光して表示します。赤、緑、青とじんわり点滅し、その後　青→赤→緑と混色を発生させます。
最初はdigitalWriteでやってましたが、明らかに速度不足なのでpioを直接制御。

同フォルダにlib:pioduinoが必要です。

Airioはマルツにて購入できます。
http://www.marutsu.co.jp/pc/i/435575/

WTFPL

require("pioduino")
--[[
0:CMD  : 0x01 : SW1 D1 MOSI
1:D0	  : 0x02 : Red D0 MISO(直結)
2:D1	  : 0x04 : Blue DAT1 NC
3:D2	  : 0x08 : Green DAT2 NC
4:D3	  : 0x10 : NONE CS CS
]]--	

PIN_R = 1
PIN_G = 3
PIN_B = 2

pinMode(PIN_R	,OUTPUT)
pinMode(PIN_G	,OUTPUT)
pinMode(PIN_B	,OUTPUT)

for k=0,8 do
	for j=0,16 do
		for i=0, 8 do
			if(i < k) then
				fa.pio(PIO_MODE,2)
			end
			fa.pio(PIO_MODE,0)
		end
	end
end
for k=0,8 do
	for j=0,16 do
		for i=0, 8 do
			if(i < 8-k) then
				fa.pio(PIO_MODE,2)
			end
			fa.pio(PIO_MODE,0)
		end
	end
end

for k=0,8 do
	for j=0,16 do
		for i=0, 8 do
			if(i < k) then
				fa.pio(PIO_MODE,8)
			end
			fa.pio(PIO_MODE,0)
		end
	end
end
for k=0,8 do
	for j=0,16 do
		for i=0, 8 do
			if(i < 8-k) then
				fa.pio(PIO_MODE,8)
			end
			fa.pio(PIO_MODE,0)
		end
	end
end

for k=0,8 do
	for j=0,16 do
		for i=0, 8 do
			if(i < k) then
				fa.pio(PIO_MODE,4)
			end
			fa.pio(PIO_MODE,0)
		end
	end
end
for k=0,8 do
	for j=0,16 do
		for i=0, 8 do
			if(i < 8-k) then
				fa.pio(PIO_MODE,4)
			end
			fa.pio(PIO_MODE,0)
		end
	end
end

for k=0,16 do
	for j=0,64 do
		for i=0, 16 do
			if(i < k) then
				fa.pio(PIO_MODE,2)
			else
				fa.pio(PIO_MODE,4)	
			end
			fa.pio(PIO_MODE,0)
		end
	end
end
for k=0,16 do
	for j=0,64 do
		for i=0, 16 do
			if(i < k) then
				fa.pio(PIO_MODE,8)
			else
				fa.pio(PIO_MODE,2)	
			end
			fa.pio(PIO_MODE,0)
		end
	end
end

delay(500)