clm=(l,x,h)=>min(max(x,l),h),rd=random(),
bpm=clm(t%2**31?sTo:sTo=floor(rd*240),100,190),sr=48e3,spb=32768,ts=t/2*bpm/(60*sr/spb),
tri=2**(clm(t%2**31?rTo:rTo=floor(rd*12),-12,12)/12)*440*256/sr,
BPM=155,
sR=48e3,
sPB=32768,
tn=440,
tr=9,
edo=12,
gS=(BPM,sR,sPB)=>abs(BPM/((120*sR)/sPB)),
gP=(sR,tr,tn,edo)=>(1/sR*256)*tn*2**((tr-9)/12),
r=t*gS(bpm,sR,sPB),
p=t*gP(sR,tri,tn,edo),
b=x=>(x)%256/128-1,
t||(f1=f2=0),
t||(lprfx=[],delayfx=[],cfx=[]),lprfxi=0,delayfxi=0,cfxi=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),
delayMax = 1e6,
delay = (signal, time, feedback = .5, dryWet = .5) => (
delay_fxii = delayfxi ++,
delayfx[delay_fxii] ??= {
buf: new Float32Array(delayMax),
idx: 0
},
dLength = min(delayfx[delay_fxii].buf.length, max(1, time | 0)),
out = delayfx[delay_fxii].buf[delayfx[delay_fxii].idx],
delayfx[delay_fxii].buf[delayfx[delay_fxii].idx] = signal + out * feedback,
delayfx[delay_fxii].idx = (delayfx[delay_fxii].idx + 1) % round(dLength),
mix = min(1, max(0, dryWet)),
out * mix + signal * (1 - mix)
),
s=(x,y,z=0)=>x[z?y:(r/2**y)%x.length|0],
ms=(...x)=>p*2**(parseInt(s(...x),36)/12)||0,
saw=x=>atan(tan(x*PI/256))/(PI/2),
u1=s('111122222333331144441234',12),
ma=ms('0705AC53',s([10,9,11],16)),
mb=ms('CC7ACA5788CC8857',16)/8,
m1=ms('CF 7AC CFE H 7MC C8A HF ',r&16384?(r>>13)%16^(r/3>>15)%8:13,r&16384?1:0)*(1+(r>>14&3^r>>17&1))/2,
m2=ms('CJHCJC7CAFHO',(r>>13)%8^(r/3>>15)%6,1)*(1+(r>>14&3^r/3>>17&1))/(r&8192?8:4),
c1=ms(s(['CFJMQ','CFJMQ','7ACHO','AEHMO','CFJMQ','AEHMO','57AEH','7ACHO','8FJMQ','8FHMQ','CFJMQ','CFHMQ','8FJMQ','8FHMQ','57AEH','7ACHO'],16),0)/2,
M=lr=>(
i1=delay((sin(((ma/(1+((r*(lr?1:1.5)&16384?-1:1)*r>>12&3))*(1+(r>>s([9,10,9,11],[r>>14&3^r*1.5>>17&1],1)&3))/(r&8192?1:2)&ma>>s([8,10,12,8],[r*(lr?1.5:1)>>15&1^r>>13&3],1)/(1+(r>>12&3^r>>15&1))&(r%(u=(2**s([12,14,13,lr?16:15,lr?14:16,15,lr?13:12,14],[r*(lr?1.5:1)>>15&7^r*(lr?1:1.5)>>17&3],1))))>>8)*PI/(r%u>>8))+256)||0)*sin(r%16384*PI/32768)*s([1,1.5,3],13),12288,.4,.3),
i2=(
is=s('1 21 23 11 2 1 132 22 1',12),
is=='1'?sin((ma*(1+(r>>14&3))|r>>(lr?8:7)*(lr?2:1))*PI/128):
is=='2'?sin(((p%8192|p%32768/(lr?4:2))&r>>8)*PI/2**(1+(r>>11&7^r>>13&3^r>>15&11))):
is=='3'?sin(p&r>>(lr?10:12)):0
),
l1=delay(lpr((atan(tan(1/(m1%(lr?512:1024))*sin(r%8192*PI/16384)*1024)*sin(r*PI/8192)*32)/(PI/2)||0),.7,.3)*sin((m1|r>>(lr?10:8))*PI/256+sin((m1^r>>(lr?10:11))*PI/512)),12288,.3,.4),
l2=delay(hpr(lpr(b(m2/2%256*abs(sin(r%8192*PI/16384)**.5*s('421342',13))&128)+.5,.2,cos(r%8192*PI/16384)**(lr?1:3)*.95),lr?.03:.01,.3),12288,.4,.1),
b1=(
bs=s('11113322 222311123 1113332222333',13),
bs=='1'?(saw(cbrt(mb%2**s([8,9,7],13))*sin(r*u1*PI/32768)*(lr?192:256))):
bs=='2'?(sin((mb^mb/(lr?1.99:2.01))*PI/512+tan(sin(mb*PI/512))*sin(r*u1*PI/65536)*128)+saw(mb/2)+saw(mb))/2:
bs=='3'?tanh(tan(sin(mb*PI/(mb&(lr?128:256)?(lr?256:1024):512))*2**s([5,4,3,4,3,4],13))):0
),
b2=saw(mb/2)+sin(mb*PI/512),
ss=lpr(saw(c1)/3+saw(c1*(lr?.995:1.005))/3+saw(c1/2)/3,max(abs(sin(r*u1*PI/16384))**3*.6,.05),0)*3,
d=(
dp=s('kkkk rrrrs r s r kkkkrrrrs r kkkkkkkkrrrrs r s r kkkkrrrrs r ',(zd=(r>>s([12,14,13,15],16))%(r&65536?4:6)==(r&65536?3:5))?(r>>11)%64|(r>>(r&8192?13:12))%32:11,zd?1:0),
dp=='k'?tanh(sin((lr?13:15)*cbrt((r+(lr?0:128))%8192)**(lr?.8:.75))/(r%8192)*1024*3)*32*cos(r%8192*PI/16384)**9:
dp=='r'?(b(t*(lr?.97:1)*tan(t*(lr?1.03:1)>>(lr?3:2)&t)))*4*cos(r%8192*PI/16384)**3:
dp=='s'?(sin(t*(lr?1.01:1)^t>>1)*2.5)*random():0),
h=((t*(441/480)&1)-.5)*random()*sin(t/(lr?1.8:1.5))*cos(r%8192*PI/16384)**9*9,
k2=tanh(sin(26*(1/cbrt(r%8192)*192)**.8)/(r%8192)*2**s([9,11,10],13))*cos(r%8192*PI/16384)**9*s('1 1 1 1 1 1 1',13),
tanh(atan(((tanh(d*8)*87+h*64+k2*60+ss*120+b1*75)*8.4+((l1*2.7+l2*2.2)*32+b2*24+i1*30+i2*45)*8.2)/4096)/32)*40),
[M(0),M(1)]
linktiles