patt_health.lua

local R = {100,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,98,98,98,98,98,98,98,97,97,97,97,96,96,96,96,95,95,95,94,94,94,93,93,93,92,92,91,91,90,
    90,89,89,88,88,87,86,86,85,85,84,83,82,82,81,80,79,79,78,77,76,75,74,73,73,72,71,70,69,68,67,66,65,64,63,62,61,60,59,58,56,55,54,53,52,51,50,49,48,47,46,
    45,44,42,41,40,39,38,37,36,35,34,33,32,31,30,29,28,27,26,25,24,23,22,21,20,19,18,17,17,16,15,14,13,12,11,11,10,9,8,7,7,6,5,4,4,3,2,2,1,0,0}

local G = {0,0,1,2,2,3,4,4,5,6,7,7,8,9,10,11,11,12,13,14,15,16,17,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,44,45,46,47,
    48,49,50,51,52,53,54,55,56,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,73,74,75,76,77,78,79,79,80,81,82,82,83,84,85,85,86,86,87,88,88,89,89,90,90,91,
    91,92,92,93,93,93,94,94,94,95,95,95,96,96,96,96,97,97,97,97,98,98,98,98,98,98,98,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,100}

local B = {0,0,0,1,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,7,8,8,8,9,9,10,10,11,11,12,12,13,13,14,14,15,15,16,16,17,17,18,18,19,19,20,20,21,22,22,23,23,24,24,25,25,26,
        26,27,27,28,29,29,30,30,31,31,32,32,33,33,34,34,35,35,36,36,36,37,37,38,38,39,39,39,40,40,41,41,41,42,42,42,43,43,43,44,44,44,44,45,45,45,45,46,46,46,
        46,46,47,47,47,47,47,47,48,48,48,48,48,48,48,48,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,50}


local LEDS = 150
local HALFLEDS = LEDS / 2
local x = HALFLEDS
local d = 1

local function run(wsbuf)
    if x >= HALFLEDS or x <= 1 then
        d = -d
    end
    x = x + d
    local k = x * 2
    local r, g, b = R[k], G[k], B[k]
    wsbuf:fill(0, 0, 0)
    local set = wsbuf.set
    for i = 0, x-1 do
        set(wsbuf, HALFLEDS-i, g,r,b)
        set(wsbuf, HALFLEDS+i, g,r,b)
    end

    return 25 -- delay
end

return run