-- Pico-8 Rain Effect used in Punk-8
-- Public Domain

rain = {}

function iff(c,a,b)
    return c and a or b
end

function between(b, e)
    return b + rnd(e - b + 1)
end

function initrain()
    for i=1,128 do
        add(rain, {
             between(-64,128),
             between(0,128),
             iff(i<64, 5, 13)}
        )
    end
end

function drawrain()
    for r in all(rain) do
        r[2] += iff(r[3]==5,3,4)
        if r[2] > between(70,88) then
            pset(r[1],r[2],1)
            r[1] = between(-64,96)
            r[2] = -between(0,32)
        end
        r[1] += iff(r[3]==5,2,3)
        line(r[1]-2 ,r[2]-3,
             r[1],r[2],
             r[3])
    end
end