library-mirrors/sfxr.lua
1
0
Fork 0
mirror of https://github.com/nucular/sfxrlua.git synced 2024-12-24 18:44:20 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added seed arguments to mutate and the random generators

Browse Source
This commit is contained in:
nucular 2014-05-08 15:50:56 +02:00
parent 47299dfa0c
commit c3b2a0eec3
1 changed files with 24 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
sfxr.lua
View File

@ -62,6 +62,13 @@ local function cpypol(a, b)
end end
end end
local function setseed(seed)
math.randomseed(seed)
for i=0, 5 do
math.random()
end
end
-- Constructor -- Constructor
function sfxr.newSound(...) function sfxr.newSound(...)
@ -443,7 +450,7 @@ function sfxr.Sound:generateSoundData(freq, bits)
end end
function sfxr.Sound:randomize(seed) function sfxr.Sound:randomize(seed)
math.randomseed(seed) if seed then setseed(seed) end
self.repeatSpeed = random(1, 2) self.repeatSpeed = random(1, 2)
if maybe() then if maybe() then
@ -493,7 +500,8 @@ function sfxr.Sound:randomize(seed)
self.change.amount = random(-1, 1) self.change.amount = random(-1, 1)
end end
function sfxr.Sound:mutate(amount, changeFreq) function sfxr.Sound:mutate(amount, seed, changeFreq)
if seed then setseed(seed) end
local amount = (amount or 1) local amount = (amount or 1)
local a = amount / 20 local a = amount / 20
local b = (1 - a) * 10 local b = (1 - a) * 10
@ -532,7 +540,8 @@ function sfxr.Sound:mutate(amount, changeFreq)
if maybe(b) then self.repeatSpeed = self.repeatSpeed + random(-a, a) end if maybe(b) then self.repeatSpeed = self.repeatSpeed + random(-a, a) end
end end
function sfxr.Sound:randomPickup() function sfxr.Sound:randomPickup(seed)
if seed then setseed(seed) end
self:resetParameters() self:resetParameters()
self.frequency.start = random(0.4, 0.5) self.frequency.start = random(0.4, 0.5)
self.envelope.attack = 0 self.envelope.attack = 0
@ -546,7 +555,8 @@ function sfxr.Sound:randomPickup()
end end
end end
function sfxr.Sound:randomLaser() function sfxr.Sound:randomLaser(seed)
if seed then setseed(seed) end
self:resetParameters() self:resetParameters()
self.waveType = trunc(random(0, 2)) self.waveType = trunc(random(0, 2))
if self.waveType == sfxr.SINE and maybe() then if self.waveType == sfxr.SINE and maybe() then
@ -589,7 +599,8 @@ function sfxr.Sound:randomLaser()
end end
end end
function sfxr.Sound:randomExplosion() function sfxr.Sound:randomExplosion(seed)
if seed then setseed(seed) end
self:resetParameters() self:resetParameters()
self.waveType = sfxr.NOISE self.waveType = sfxr.NOISE
@ -627,7 +638,8 @@ function sfxr.Sound:randomExplosion()
end end
end end
function sfxr.Sound:randomPowerup() function sfxr.Sound:randomPowerup(seed)
if seed then setseed(seed) end
self:resetParameters() self:resetParameters()
if maybe() then if maybe() then
self.waveType = sfxr.SAWTOOTH self.waveType = sfxr.SAWTOOTH
@ -652,7 +664,8 @@ function sfxr.Sound:randomPowerup()
self.envelope.decay = random(0.1, 0.5) self.envelope.decay = random(0.1, 0.5)
end end
function sfxr.Sound:randomHit() function sfxr.Sound:randomHit(seed)
if seed then setseed(seed) end
self:resetParameters() self:resetParameters()
self.waveType = trunc(random(0, 2)) self.waveType = trunc(random(0, 2))
@ -673,7 +686,8 @@ function sfxr.Sound:randomHit()
end end
end end
function sfxr.Sound:randomJump() function sfxr.Sound:randomJump(seed)
if seed then setseed(seed) end
self:resetParameters() self:resetParameters()
self.waveType = sfxr.SQUARE self.waveType = sfxr.SQUARE
@ -693,7 +707,8 @@ function sfxr.Sound:randomJump()
end end
end end
function sfxr.Sound:randomBlip() function sfxr.Sound:randomBlip(seed)
if seed then setseed(seed) end
self:resetParameters() self:resetParameters()
self.waveType = trunc(random(0, 1)) self.waveType = trunc(random(0, 1))