2010-10-17 13:06:35 +00:00
|
|
|
--[[
|
|
|
|
Copyright (c) 2010 Matthias Richter
|
|
|
|
|
|
|
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
|
|
of this software and associated documentation files (the "Software"), to deal
|
|
|
|
in the Software without restriction, including without limitation the rights
|
|
|
|
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
|
|
copies of the Software, and to permit persons to whom the Software is
|
|
|
|
furnished to do so, subject to the following conditions:
|
|
|
|
|
|
|
|
The above copyright notice and this permission notice shall be included in
|
|
|
|
all copies or substantial portions of the Software.
|
|
|
|
|
|
|
|
Except as contained in this notice, the name(s) of the above copyright holders
|
|
|
|
shall not be used in advertising or otherwise to promote the sale, use or
|
|
|
|
other dealings in this Software without prior written authorization.
|
|
|
|
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
|
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
|
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
|
|
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
|
|
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
|
|
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
|
|
THE SOFTWARE.
|
|
|
|
]]--
|
|
|
|
|
2011-01-18 16:44:38 +00:00
|
|
|
local assert, type = assert, type
|
|
|
|
local pairs, ipairs = pairs, ipairs
|
2011-04-24 19:12:33 +00:00
|
|
|
local min, math_huge = math.min, math.huge
|
2011-01-18 16:44:38 +00:00
|
|
|
module(...)
|
|
|
|
|
|
|
|
functions = {}
|
|
|
|
function update(dt)
|
2011-01-12 11:18:37 +00:00
|
|
|
local to_remove = {}
|
2011-01-18 16:44:38 +00:00
|
|
|
for func, delay in pairs(functions) do
|
2010-10-17 13:06:35 +00:00
|
|
|
delay = delay - dt
|
|
|
|
if delay <= 0 then
|
2011-01-12 11:18:37 +00:00
|
|
|
to_remove[#to_remove+1] = func
|
2010-10-17 13:06:35 +00:00
|
|
|
end
|
2011-04-24 19:12:33 +00:00
|
|
|
functions[func] = delay
|
2010-10-17 13:06:35 +00:00
|
|
|
end
|
2011-01-12 11:18:37 +00:00
|
|
|
for _,func in ipairs(to_remove) do
|
2011-01-18 16:44:38 +00:00
|
|
|
functions[func] = nil
|
2011-01-12 11:18:37 +00:00
|
|
|
func(func)
|
|
|
|
end
|
2010-10-17 13:06:35 +00:00
|
|
|
end
|
|
|
|
|
2011-01-18 16:44:38 +00:00
|
|
|
function add(delay, func)
|
2010-10-17 13:06:35 +00:00
|
|
|
assert(type(func) == "function", "second argument needs to be a function")
|
2011-01-18 16:44:38 +00:00
|
|
|
functions[func] = delay
|
2010-10-17 13:06:35 +00:00
|
|
|
end
|
|
|
|
|
2011-01-18 16:44:38 +00:00
|
|
|
function addPeriodic(delay, func, count)
|
2010-10-17 13:06:35 +00:00
|
|
|
assert(type(func) == "function", "second argument needs to be a function")
|
2011-04-24 19:12:33 +00:00
|
|
|
local count = count or math_huge -- exploit below: math.huge - 1 = math.huge
|
|
|
|
|
|
|
|
add(delay, function(f)
|
2011-06-04 13:45:25 +00:00
|
|
|
if func(func) == false then return end
|
2011-04-24 19:12:33 +00:00
|
|
|
count = count - 1
|
|
|
|
if count > 0 then
|
|
|
|
add(delay, f)
|
|
|
|
end
|
|
|
|
end)
|
2010-10-17 13:06:35 +00:00
|
|
|
end
|
|
|
|
|
2011-01-18 16:44:38 +00:00
|
|
|
function clear()
|
|
|
|
functions = {}
|
2010-10-17 13:06:35 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
function Interpolator(length, func)
|
|
|
|
assert(type(func) == "function", "second argument needs to be a function")
|
|
|
|
local t = 0
|
2010-10-18 10:31:01 +00:00
|
|
|
return function(dt, ...)
|
2010-10-17 13:06:35 +00:00
|
|
|
t = t + dt
|
2011-01-20 14:26:12 +00:00
|
|
|
return t <= length and func((t-dt)/length, ...) or nil
|
2010-10-18 10:31:01 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
function Oscillator(length, func)
|
|
|
|
assert(type(func) == "function", "second argument needs to be a function")
|
|
|
|
local t = 0
|
|
|
|
return function(dt, ...)
|
2011-04-24 19:12:33 +00:00
|
|
|
t = (t + dt) % length
|
2010-10-18 10:31:01 +00:00
|
|
|
return func(t/length, ...)
|
2010-10-17 13:06:35 +00:00
|
|
|
end
|
|
|
|
end
|