mirror of
https://github.com/TangentFoxy/slam.git
synced 2024-11-14 10:24:21 +00:00
Remove obsulete file
This commit is contained in:
Matthias Richter
parent
041b3a642f
commit
9d05d2315c
165
slam/bdsm.lua
165
slam/bdsm.lua
@ -1,165 +0,0 @@
|
|||||||
-- Benignly Designed Sound 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 = error
|
|
||||||
|
|
||||||
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_what(what)
|
|
||||||
if type(what) == 'table' then
|
|
||||||
return what[math.random(1,#what)]
|
|
||||||
end
|
|
||||||
return what
|
|
||||||
end
|
|
||||||
|
|
||||||
local play_instance, stop_instance
|
|
||||||
function Source:play()
|
|
||||||
remove_stopped(self.instances)
|
|
||||||
local instance = newInstance(get_what(self.what), 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.instances = {}
|
|
||||||
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 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
|
|
||||||
|
|
||||||
--------------------------
|
|
||||||
-- love.audio interface --
|
|
||||||
--------------------------
|
|
||||||
function love.audio.newSource(what, how)
|
|
||||||
local s = {
|
|
||||||
what = what,
|
|
||||||
how = how,
|
|
||||||
instances = {},
|
|
||||||
looping = false,
|
|
||||||
pitch = 1,
|
|
||||||
volume = 1,
|
|
||||||
}
|
|
||||||
love.audio.tags.all[s] = s
|
|
||||||
return setmetatable(s, Source)
|
|
||||||
end
|
|
||||||
|
|
||||||
function love.audio.play(what)
|
|
||||||
assert(what and what.instances, "Can only play source objects.")
|
|
||||||
return what:play()
|
|
||||||
end
|
|
||||||
|
|
||||||
function love.audio.stop(what)
|
|
||||||
if what and what.stop then return what: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
|
|
||||||
})
|
|
||||||
Loading…
Reference in New Issue
Block a user