BPM=128,
sR=48e3,
sPB=32768,
tn=512,
tr=9+2,
edo=12,
r=t*abs(BPM/((120*sR)/sPB)),
p=(t/sR*256)*tn*2**((tr-9)/12)/2,
b=x=>(x)%256/128-1,
s=(x,y,z=0)=>x[z?y:(r/2**y)%x.length|0],
ms=(...x)=>p*2**(parseInt(s(...x),36)/12)||0,
cs=(x,y,z)=>ms(x,(y.codePointAt(r%(y.length*2**z)/2**z|0)%y.length)%x.length,1),
cl=(x,mn,mx)=>min(max(x,mn),mx),
saw=(x,y=1)=>atan(tan(x*PI/256)*y)/(PI/2),
t?0:d_fx=[],d_fxi=0,d_max=1e5,
dlay=(inp,time=1,mix=.55,feedb=.55)=>(d_fxii=d_fxi++,d_fx[d_fxii]??=new Float32Array(d_max),out=inp+d_fx[d_fxii][t%round(time)],d_fx[d_fxii][t%round(time)]=out*feedb,inp*(1-mix)+out*mix),
t||(lprfx=[]),lprfxi=0,
lpr=lowPassResonance=(a, c, r)=>(
lpr_fxii = lprfxi ++,
lprfx[lpr_fxii] ??= [0, 0, 0, 0],
lprfx[lpr_fxii][0] += (a - lprfx[lpr_fxii][0] + (r + r / ((1 + .1e-9) - c)) * (lprfx[lpr_fxii][0] - lprfx[lpr_fxii][1])) * c,
lprfx[lpr_fxii][1] += (a - lprfx[lpr_fxii][1] + (r + r / ((1 + .1e-9) - c)) * (lprfx[lpr_fxii][1] - lprfx[lpr_fxii][2])) * c,
lprfx[lpr_fxii][2] += (lprfx[lpr_fxii][1] - lprfx[lpr_fxii][2]) * c,
lprfx[lpr_fxii][3] += (lprfx[lpr_fxii][2] - lprfx[lpr_fxii][3]) * c,
lprfx[lpr_fxii][3]
),hpr=(a,c,r)=>a-lpr(a,c,r),bpr=(a,hc,lc,r)=>hpr(lpr(a,lc,r),hc,r),
ch=(p1,p2,p3,p4)=>(
cs=s('11 11 11 111 1 11 2 2 33 33 3 33 4 44 4 444 2 ',12)||0,
ms(cs=='1'?p1:cs=='2'?p2:cs=='3'?p3:cs=='4'?p4:0,0)
),
c1=ch('C','C','8','B'),
c2=ch('F','F','C','E'),
c3=ch('J','J','F','H'),
c4=ch('O','O','K','N'),
c5=ch(' ',' ',' ','')||0,
m1=ms('0705030507050302',13),
m2=ms('CEFHJKMO',12),
m3=ms('CEFHJKMO',s([10,12,9,11,10,12],14)),
ma=ms('CEFHJKMO',10),
mb=ms('CC C CC CC A A C CC C CCC AA A 88 88 8 88 AA A 55 5 5 555 555AA',12)/2,
mc=ms('CEFHJKMO',s([8,10,9,10,11,12,9],13))*cl((r>>14&3^r>>16&1)/(r&12288?2:1),2,4),
md=ms('DCHH',16),
[(
M=lr=>(
ss=dlay((
sv=(dt,e)=>saw(c1*dt,e)/4+saw(c2*dt,e)/4+saw(c3*dt,e)/4+saw(c4*dt,e)/4+saw(c5*dt,e)/4,
sv(1)/2+sv(lr?.99:1.01)/2+sv(lr?.98:1.02)/2+sv(lr?.995:1.005)/2+sv(.5)/2+sv(lr?.49:.51)/2+sv(1,8)/3+sv(1,.5)/4+sv(1,.5)/4
)||0,16384,.5,.85)*s('111 11 111 111 ',14),
d=(
ds=s('khh shh khh shh khh shh khk shs ',12),
ds=='k'?tanh(sin(15*cbrt(r%4096)**.7)/(r%4096)*8192*cos(r%4096*PI/16384)**3)*3:
ds=='h'?cl((((((t*(441/480))&1)-.5)+sin(t/(lr?1.1:1.2))*random())/(r%4096)*750)*16*cos(r%4096*PI/8192)**7,-1,1)*1.75:
ds=='s'?tanh(sin(cbrt(r%4096)*15**.9)*cos(r%4096*PI/8192)**3*3)*4+sin((t>>(lr?1:3))^t/(lr?3:4))*2*cos(r%4096*PI/8192)**.5:
0
),
a1=dlay(tanh(asin(sin(cbrt(m1*(lr?1:1.5)%256)*1))*8)+tanh(sin(m1*PI/128+sin(m1*PI/(lr?32:64))*1.2)*8),16384,.2,.8)*1.2,
ab=(sin((m1^m1+192)*PI/256))*tanh(sin(m1*PI/128)*10),
a2=(
as=s(' 1 22 3 1',14),
as=='1'?tanh(sin((m2^r>>(lr?10:12))*PI/128)*12):
as=='2'?sin(p&(r>>(lr?11:10)^r/1.5>>12|r>>(lr?14:15)))*s('1 ',11):
as=='3'?asin(sin(ma*PI/32))*s('1 ',13):0
),
sc=ds=='k'?sin(r%4096*PI/8192)**.7:1,
b1=(
bs=s('1112113311121114',14),
bs=='1'?saw(cbrt(mb%1024)*(lr?250:s([200,240,180],12)))*3:
bs=='2'?sin(1/(mb%512)*1000)*saw(mb)*2.5||0:
bs=='3'?saw(cbrt(mb%(mb&128?1024:512))*(u1=cos(r%4096*PI/8192))**.5*500+saw(cbrt(mb%256)*(lr?100:50))*64)*3:
bs=='4'?sin((mb&mb*(1+(r>>9&31^r/1.5>>(lr?10:11)&7))+mb)*PI/256)*3:0
)*s('1112112211121112',14),
b2=sin(mb*PI/1024)+saw(mb/4),
b3=sin(mb*PI/512+sin(mb*PI/256))+saw(mb/8|mb/4)+(saw(md/8)),
i1=dlay(saw(mc|r>>(lr?8:10))*s('1 1 11 1