Generate EDM (but the code is bad)

This commit is contained in:
Pyrex 2024-03-16 19:38:02 -07:00
parent fa282184a9
commit da41c77dad
3 changed files with 186 additions and 51 deletions

View File

@ -17,11 +17,73 @@ __gfx__
00077000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00700700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__sfx__
010f20001e2241e2201e22525224252202522523224232222322521224202241e2241c2241c2251a2241a22519224192201922023224232202322022224222222222222225000001c2241e224202242122423224
010f2000252242522523224232252a2242a2252c2242c2252d2242d2252f2242d2242c2242c2252a2242a22528224282252a22428224262242622528224262242522425220252202522500000000000000000000
010f200000000000000e0401a04015045110322a03036030310352d02200000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
010fa0001ab741211512115101040e1740e1740e1740e174101050412404135161250806034a433cb5736b273eb5338a4338a3336a331ab7522b362ab7630b2736b473ab573ab1732b37069231c012280622e847
090a20001837018341183411834118341183411834118341183411834118341183411834118341183411834118341183411834118341183411834118341183411834118341183411834118341183411834118341
010120002667126361233610e3610e3610a3610636103361013600036301363013630135000350003500035002350023500235002550025400254001540004400000000000000000000000000000000000000000
010f200000000000000000015040210401c04518032310203d0203802534012000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
010f20000a8522285114852168520a8522285114852168520a8520a853148520a8520a85314852198521b852168522e8512085222852168522e85120852228521685216853208521685216853208522585227852
010f200013a700a95314952169521e6730a953149521695213a700a953149520a9531e67314952199531b95213a701d95327952299521e6731d953279522995213a701d953279521d9531e673279522c9532e952
010f2000293252932529345293652932529325293452936529325293252934529365293252932533345333653132531345313653136531345313453136531365303453034530365303652c3652c365303652c365
010f2000228523a8512c8522e852228523a8512c8522e85222852228532c85222852228532c852318523385227852278532085227852278532085227852278532085227852278532085219852188521985218852
010f200013a702995333952359521e67329953339523595213a702995333952299531e67333952389533a95213a703795313a70379531e6733095213a703795313a70379531e6733095213a702b95213a701f952
010f20002932529325293452936529325293252934529365293252932529345293652932529325333453336500000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
002000001885000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__music__
00 00404040
00 01404040
00 08090a40
00 0b0c0d40
00 40404040
00 40404040

View File

@ -8,6 +8,7 @@ function performer:init(track,channel,instrument,time,roots)
self.time=time
self.roots=roots
self.selected_root=1
self.offset=0
end
function performer:root(root)
@ -16,7 +17,7 @@ function performer:root(root)
end
function performer:play(duration,note,verbs)
local base=self.roots[self.selected_root]
local note=base+note
local note=base+note+self.offset
local t0=self.time
local t1=t0+duration
self.time+=duration

View File

@ -1,7 +1,7 @@
function _init()
local bgm=build_bgm()
local free_patterns={}
for i=0,63 do add(free_patterns,i) end
for i=8,63 do add(free_patterns,i) end
bgm:build(free_patterns,0)
@ -18,60 +18,132 @@ end
function build_bgm()
local bgm=track:new()
bgm:add(32)
bgm:add(32)
bgm:add(32)
bgm:add(32)
trumpet=instrument:new(play_trumpet)
local perf=performer:new(bgm,0,trumpet,0,{30})
perf:play(3,0)
perf:play(3,7)
perf:play(3,5,"warb")
perf:play(1,3)
perf:play(1,2)
perf:play(1,0)
perf:play(2,-2)
perf:play(2,-4)
perf:play(3,-5,"hold")
perf:play(3,5,"hold")
perf:play(4,4,"warb")
perf:rest(1)
perf:play(1,-2)
perf:play(1,0)
perf:play(1,2)
perf:play(1,3)
perf:play(1,5)
local bassline=instrument:new(devil(0,2,5,5))
local yowler=instrument:new(devil(1,2,5,3))
local p0=performer:new(bgm,0,bassline,0,{12-2})
local p1=performer:new(bgm,1,yowler,0,{24-2})
perf:play(2,7)
perf:play(2,5)
perf:play(2,12)
perf:play(2,14)
perf:play(2,15)
perf:play(1,17)
perf:play(1,15)
perf:play(2,14)
perf:play(2,12)
perf:play(2,10)
perf:play(1,12)
perf:play(1,10)
perf:play(2,8)
perf:play(1,10)
perf:play(1,8)
perf:play(4,7)
perf:rest(4)
function generators(r,a,b,c,d)
a+=r b+=r c+=r d+=r
local oct=12
if (b < a) oct=-12
local e=a+oct
local f=b+oct
local g=c+oct
local t={
gen4=function()
p0:play(1,a) p0:play(1,a+24,"slide") p0:play(1,d) p0:play(1,e)
p1:play(1,a,"chop") p1:play(1,a,"chop") p1:play(1,d) p1:play(1,e)
end,
gen3=function()
p0:play(1,a) p0:play(1,a,"chop") p0:play(1,d)
p1:play(1,a,"chop") p1:play(1,a,"chop") p1:play(1,d)
end,
gen2=function(off)
off = off or 0
p0:play(1,f+off) p0:play(1,g+off)
p1:play(1,f+off,"chop") p1:play(1,g+off)
end
}
t.gen16=function()
t.gen4() t.gen4() t.gen3() t.gen3() t.gen2()
end
t.gen12=function()
t.gen3() t.gen3() t.gen3() t.gen3()
end
return t
end
p1.offset=-12
generators(0,0,3,5,10).gen16()
p1.offset=-5
generators(12,0,3,5,10).gen16()
generators(24,0,3,5,10).gen16()
p1.offset=4
generators(29,0,-2,-3,-7).gen12()
p1.offset=7
generators(29,0,-2,-3,-7).gen2()
p1.offset=-5
generators(29,0,-2,-3,-7).gen2()
local drums=instrument:new(drums)
local pd=performer:new(bgm,1,drums,0,{0})
for i=0,5 do
pd:play(1,0,"kick")
pd:rest(3)
pd:play(1,0,"snare")
pd:rest(3)
end
pd:play(1,0,"kick") pd:rest(1) pd:play(1,0,"kick") pd:rest(1) pd:play(1,0,"snare") pd:rest(1)
pd:play(1,0,"kick") pd:rest(1) pd:play(1,0,"kick") pd:rest(1) pd:play(1,0,"snare") pd:rest(1)
pd:play(1,0,"kick") pd:rest(1) pd:play(1,0,"kick") pd:rest(1)
local melo1=instrument:new(melo1)
local pm=performer:new(bgm,2,melo1,0,{48-2})
local function generate_ostinato(a,b,c,d,e,stophalf)
pm:play(1,a,"qq") pm:play(1,a,"qq") pm:play(1,a,"q") pm:play(1,a)
pm:play(1,a,"qq") pm:play(1,a,"qq") pm:play(1,a,"q") pm:play(1,a)
pm:play(1,a,"qq") pm:play(1,a,"qq") pm:play(1,a,"q") pm:play(1,a)
pm:play(1,a,"qq") pm:play(1,a,"qq") pm:play(1,e,"q") pm:play(1,e)
if (stophalf) return
pm:play(1,d,"qq") pm:play(1,d,"q") pm:play(1,d) pm:play(1,d)
pm:play(1,d,"q") pm:play(1,d,"q") pm:play(1,d) pm:play(1,d)
pm:play(1,c,"q") pm:play(1,c,"q") pm:play(1,c) pm:play(1,c)
pm:play(1,b) pm:play(1,b) pm:play(1,c) pm:play(1,b)
end
generate_ostinato(-5,-2,2,3,5)
generate_ostinato(-5,-2,2,3,5,true)
pm:rest(16)
return bgm
end
function play_trumpet(duration,pitch,verbs)
local e=0
if (verbs.slide) e=1
if (verbs.warb) e=2
function devil(w,e,v0,v1)
return function(duration,pitch,verbs)
local out={}
for i=1,duration do
out[i]=nflags:new{p=pitch,v=2,w=2,e=e}
local v=v1
if (i == 1) v=v0
out[i]=nflags:new{p=pitch,v=v,c=1,w=w,e=e}
end
if (verbs.slide and #out>0) out[1].e=1
if (verbs.chop and #out>0) out[1].e=3
return out
end
end
function drums(duration,pitch,verbs)
if verbs.kick then
return {
-- kind of a cool sidechained bass effect, but not useful here
-- nflags:new{p=10,v=7,c=1,w=0,e=0},
-- nflags:new{p=0,v=5,c=1,w=0,e=1}
nflags:new{p=19,v=7,c=1,w=2,e=0},
-- nflags:new{p=12,v=5,c=1,w=2,e=0}
}
end
if (verbs.snare) return {nflags:new{p=30,v=7,c=0,w=6,e=3}}
return {}
end
function melo1(duration,pitch,verbs)
local v=6
if (verbs.q) v=4
if (verbs.qq) v=2
local out={}
for i=1,duration do
out[i]=nflags:new{p=pitch,w=3,v=v,e=5}
end
if (not verbs.slide) out[1].e=4
if (not verbs.hold and #out>1) out[#out].e=5
return out
end