1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 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 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188
|
-- Simple LVE Audio Manager
--
-- Copyright (c) 2011 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.
--
local newInstance = love.audio.newSource
local stop = love.audio.stop
------------------
-- source class --
------------------
local Source = {}
Source.__index = Source
Source.__newindex = function(_,k) error(('Cannot write key %s'):format(tostring(k))) end
local function remove_stopped(sources)
local remove = {}
for s in pairs(sources) do
remove[s] = true
end
for s in pairs(remove) do
sources[s] = nil
end
end
local function get_target(target)
if type(target) == 'table' then
return target[math.random(1,#target)]
end
return target
end
local play_instance, stop_instance
function Source:play()
remove_stopped(self.instances)
if self._paused then self:stop() end
local instance = newInstance(get_target(self.target), self.how)
-- overwrite instance:stop() and instance:play()
if not (play_instance and stop_instance) then
play_instance = getmetatable(instance).play
getmetatable(instance).play = error
stop_instance = getmetatable(instance).stop
getmetatable(instance).stop = function(this)
stop_instance(this)
self.instances[this] = nil
end
end
instance:setLooping(self.looping)
instance:setPitch(self.pitch)
instance:setVolume(self.volume)
self.instances[instance] = instance
play_instance(instance)
return instance
end
function Source:stop()
for s in pairs(self.instances) do
s:stop()
end
self._paused = false
self.instances = {}
end
function Source:pause()
if self._paused then return end
for s in pairs(self.instances) do
s:pause()
end
self._paused = true
end
function Source:resume()
if not self._paused then return end
for s in pairs(self.instances) do
s:resume()
end
self._paused = false
end
function Source:addTags(tag, ...)
if not tag then return end
love.audio.tags[tag][self] = self
return Source.addTags(self, ...)
end
function Source:removeTags(tag, ...)
if not tag then return end
love.audio.tags[tag][self] = nil
return Source.removeTags(self, ...)
end
function Source:isStatic()
return self.how ~= "stream"
end
-- getter/setter for looping, pitch and volume
for _, property in ipairs{'looping', 'pitch', 'volume'} do
local name = property:sub(1,1):upper() .. property:sub(2)
Source['get' .. name] = function(self)
return self[property]
end
Source['set' .. name] = function(self, val)
self[property] = val
for s in pairs(self.instances) do
s['set' .. name](s, val)
end
end
end
Source.isLooping = Source.getLooping
--------------------------
-- love.audio interface --
--------------------------
function love.audio.newSource(target, how)
local s = {
_paused = false,
target = target,
how = how,
instances = {},
looping = false,
pitch = 1,
volume = 1,
}
if how == 'static' and type(target) == 'string' then
s.target = love.sound.newSoundData(target)
end
love.audio.tags.all[s] = s
return setmetatable(s, Source)
end
function love.audio.play(source)
assert(source and source.instances, "Can only play source objects.")
return source:play()
end
function love.audio.stop(source)
if source and source.stop then return source:stop() end
stop()
end
----------
-- tags --
----------
local Tag = { __mode = "kv" }
function Tag:__index(func)
-- calls a function on all tagged sources
return function(...)
for s in pairs(self) do
assert(type(s[func]) == "function", ("`%s' does not name a function."):format(func))
s[func](s, ...)
end
end
end
love.audio.tags = setmetatable({}, {
__newindex = error,
__index = function(t,k)
local tag = setmetatable({}, Tag)
rawset(t, k, tag)
return tag
end,
})
|