// "Dead Data" Reverb Engine and Infinitely Instantiable 1 Pole Filters by Feeshbread
t||(wsin=(phase)=>(-cos(phase/128*PI)+1)*128-.5,fx=[],dMax=1e6,lpf=lowPassFilter=(a,c)=>(lp_fxii=fxi++,fx[lp_fxii]??=0,fx[lp_fxii]+=(a-fx[lp_fxii])*c),hpf=highPassFilter=(a,c)=>a-lpf(a,c),bpf=bandPassFilter=(a,hc,lc)=>hpf(lpf(a,lc),hc),dly=multiTabDelay=(audio,heads,dw,fbfn=x=>x)=>{dly_fxii=fxi++;fx[dly_fxii]??=Array(dMax).fill(0);dly_wi	=dt%dMax;dly_feed=audio;dly_out=0;for(let head of heads){dly_ri=(dMax+dt-round(head.t))%dMax;dly_feed+=fx[dly_fxii][dly_ri]*head.fb;dly_out+=fx[dly_fxii][dly_ri]*head.m;}fx[dly_fxii][dly_wi]=fbfn(dly_feed);return audio*(1-dw)+dly_out*dw;}),fxi=0,dt=t,rvrbHeads=[[{t:1e3+wsin(t/210),m:.5,fb:.15},{t:1e4+wsin(t/250),m:.5,fb:.35},{t:17e3+wsin(t/300),m:.1,fb:.45},{t:37e3+wsin(t/380),m:.1,fb:.65}],[{t:11e2+wsin(t/230),m:.5,fb:.15},{t:13e3+wsin(t/270),m:.5,fb:.35},{t:14e3+wsin(t/280),m:.1,fb:.45},{t:40e3+wsin(t/400),m:.1,fb:.65}]],

Q=(
BPM=125,sampleRate=48e3,r=abs(t/sampleRate/180*3*32768*BPM)/2,
t||(d=Array(D=round((sampleRate*30)/(BPM*2/3))).fill(0)),x=[0,-2,-3,-4][r>>16&3],
a=(1/sampleRate*256)*440*2**(([x,x,x,x,12,12,,,7,7,,,,,6,6,,,5,5,,,3,3,,,0,0,3,3,5,5][r>>11&31]+5)/12-2),
m=(((((0x065bd44e)>>(t+cos(t*a*PI/127)*8)*a/8)&1)%256-.5)*128*(a>-9e9?1:0)*((r>>9&7)<7))
+d[t%D],d[t%D]=m/4,m/64
),

[dly(Q,rvrbHeads[0],.35,x=>tanh(bpf(x,.01,.8)/200)*100),dly(Q,rvrbHeads[1],.35,x=>tanh(bpf(x,.01,.8)/200)*100)]

'\n\n -+ Copyright © 2024-2025 PrincessPriscillaPT, All Rights Reserved. +- \n-+ When using any of my songs/remixes, please credit me either at the top or the bottom. +- \n-+ Original by © 2016-2025 Semaphore (MarioFan171) +-'

rvrbHeads=[[{t:1e3+wsin(t/210),m:.5,fb:.15},{t:1e4+wsin(t/250),m:.5,fb:.35},{t:17e3+wsin(t/300),m:.1,fb:.45},{t:37e3+wsin(t/380),m:.1,fb:.65}],[{t:11e2-wsin(t/230),m:.5,fb:.15},{t:13e3-wsin(t/270),m:.5,fb:.35},{t:14e3-wsin(t/280),m:.1,fb:.45},{t:4e4-wsin(t/400),m:.1,fb:.65}]],

(40|t&t>>8)|t>>5

((t*2**([7,12,7,15,7,12,7,17,7,12,7,19,7,12,7,22,8,12,8,15,8,12,8,17,8,12,8,19,8,12,8,22][t>>13&31]/12)%256<(7+(-t>>10&7)))||(t*2**((7+(t>>17&1))/12)%256<14||t*2**((15+5*(t>>17&1))/12)%256<14||t*2**(-(t>>15&4)/12)%256<14)*(t>>13)||((t>>14&1?random()*218:t)%256>128)*!(t>>10&15))*128

(t*100>>(t>>(t&4096?7:8)&31)>>4&127)+((t*(((t&16384?7:4)^(1&t>>11))+(t>>15&5))>>(3&t>>(t&4096?2:9))<<1|t>>(t&4096?3:t&16384?t&8192?9:5:4))&255)/2+(t*3&64)*(t>>11&1)

t||(mem=new Float32Array(131072)),lp=simpleLowPass=function(e,s,a){mem[a]=e*s+mem[a]*(1-s);return mem[a]},lpr=lowPassResonance=function(e,s,a,t,m){fb=a+a/(1-s);mem[t]=mem[t]+s*(e-mem[t]+fb*(mem[t]-mem[m]))||0;mem[m]=mem[m]+s*(mem[t]-mem[m])||0;return mem[m]},seqnce=(e,s)=>e[s%e.length],wg=function(e,s){wav=0;switch(s){case"saw":wav=(e/512%1-.5)*2;break;case"sin":wav=sin(e*PI/256);break;case"squ":wav=((e/256&1)-.5)*2;break;case"tri":wav=(abs(e/512%1-.5)-.25)*4;break;case"rand":wav=(random()-.5)*2;break;default:wav=0;throw new Error("wg: Invalid type! You passed: "+s)}return wav},nt=e=>440*2**(e/12),BPM=138,st=t/48e3/60*BPM,lp(wg(t*nt(seqnce([7,10,9,8],st&3))/48e3*256,"squ")*max(1-st*4%2,0)*(1-(st*2&1)/2)+wg(t*nt(seqnce([0,1,2,-1],st&3))/48e3*256,"squ")*max(1-st*4%2,0)*(1-(st*2&1)/2),.001**(st*2%1)/4,2,3)/2+lpr(wg(t*nt(seqnce([0,1,2,-5],st&3))/48e3*128,"saw")/4+wg(t*nt([0,1,2,-5][st&3])/48e3*63,"saw")/4,.01,.4,0,1)*2

t||(mem=new Float32Array(131072)),lp=simpleLowPass=function(e,r,a){mem[a]=e*r+mem[a]*(1-r);return mem[a]},hp=simpleHighPass=(e,r,a)=>e-lp(e,r,a),lpr=lowPassResonance=function(e,r,a,s,t){fb=a+a/(1-r);mem[s]=mem[s]+r*(e-mem[s]+fb*(mem[s]-mem[t]))||0;mem[t]=mem[t]+r*(mem[s]-mem[t])||0;return mem[t]},seqnce=(e,r)=>e[r%e.length],wg=function(e,r){wav=0;switch(r){case"saw":wav=(e/512%1-.5)*2;break;case"sin":wav=sin(e*PI/256);break;case"squ":wav=((e/256&1)-.5)*2;break;case"tri":wav=(abs(e/512%1-.5)-.25)*4;break;case"rand":wav=(random()-.5)*2;break;default:wav=0;throw new Error("wg: Invalid type! You passed: "+r)}return wav},nt=e=>440*2**(e/12),BPM=175,repeatArray=(e,r)=>Array.from({length:r},()=>e).flat(),no

[code]

T=t,t/=48e3,SETS={S:154,P:440,t:0,B:1},BPS=t*SETS.S/60*SETS.B,t!=0?0:(echo=new Float32Array(7e3),mem=new Float32Array(256)),lowp=(n,S,P)=>mem[n]+=(S-mem[n])*P,highp=(n,S,P)=>lowp(n,S,P)-S,s=n=>atan(atan(tan(PI*n/511))+atan(tan(PI*n/256))+atan(tan(PI*n/129)))/2,p=n=>SETS.P*2**((n-70+SETS.t)/12+13),B=(n,S,P=.01)=>S--?B(abs(n-2*P)-8*P,S-1):tanh(2*cbrt(4*n+8*P)+n*8)/2,chords=[[5,9,12],[4,8,11],n=[9,12,16],BPS*2&3?[9,12,14]:n],bass=[12,11,16,16],r=T%echo.length|0,l='10001000100100100'[4*BPS&15],m=highp(1,5*sin(random()-.5)*1e-5**(2*BPS%1)*(2*BPS&1),3/2),input=chords[BPS/2&3].map(n=>s(t*p(n))/2*'11101100110110110011011011011011'[4*BPS&31]).reduce((n,S)=>n+S),P=echo[r]+=input/2-echo[r]*.7,tanh(highp(0,(P+B(sin(PI*t*p(bass[BPS/2&3])/3072)*.5**(g=BPS/2%1),12,.1)*.3**g)*(BPS>32&&min(1,4*BPS*l%1||1)||1),1-min(BPS/16,.999))+(BPS>16&&BPS<28&&m+lowp(2,sin(random()-.5)*.1**(4*BPS%1)*l*4,.2))+(BPS>32&&2*sin(64*(4*BPS%1)**.3)*l*.1**(4*BPS%1)+m)+(BPS>30&BPS<32&&highp(3,3*sin(random()-.5)/1e-5**(BPS/4%1)/8**5,3/2)))

T=t,t/=48e3,SETS={S:154,P:440,t:0,B:1},BPS=t*SETS.S/60*SETS.B,t!=0?0:(echo=new Float32Array(7e3),mem=new Float32Array(256)),lowp=(n,S,P)=>mem[n]+=(S-mem[n])*P,highp=(n,S,P)=>lowp(n,S,P)-S,s=n=>atan(atan(tan(PI*n/511))+atan(tan(PI*n/256))+atan(tan(PI*n/129)))/2,p=n=>SETS.P*2**((n-70+SETS.t)/12+13),B=(n,S,P=.01)=>S--?B(abs(n-2*P)-8*P,S-1):tanh(2*cbrt(4*n+8*P)+n*8)/2,chords=[[5,9,12],[4,8,11],n=[9,12,16],BPS*2&3?[9,12,14]:n],bass=[12,11,16,16],r=T%echo.length|0,l='10001000100100100'[4*BPS&15],m=highp(1,5*sin(random()-.5)*1e-5**(2*BPS%1)*(2*BPS&1),3/2),input=chords[BPS/2&3].map(n=>s(t*p(n))/2*'11101100110110110011011011011011'[4*BPS&31]).reduce((n,S)=>n+S),P=echo[r]+=input/2-echo[r]*.7,tanh(highp(0,(P+B(sin(PI*t*p(bass[BPS/2&3])/3072)*.5**(g=BPS/2%1),12,.1)*.3**g)*(BPS>32?min(1,4*BPS*l%1||1):1),1-min(BPS/16,.999))+(BPS>16&&BPS<28&&m+lowp(2,sin(random()-.5)*.1**(4*BPS%1)*l*4,.2))+(BPS>32&&2*sin(64*(4*BPS%1)**.3)*l*.1**(4*BPS%1)+m+lowp(4,cbrt(sin(850*t)+17*sin(random()-.5)*(1+sin(2*PI*BPS+4)))*.01**(BPS%1)*(BPS&1),.4))+(BPS>30&BPS<32&&highp(3,3*sin(random()-.5)/1e-5**(BPS/4%1)/8**5,3/2)))

T=t,t/=48e3,SETS={S:154,P:440,t:0,B:1},BPS=t*SETS.S/60*SETS.B,BPS%=256,t!=0?0:(echo=new Float32Array(7e3),mem=new Float32Array(256)),lowp=(n,S,P)=>mem[n]+=(S-mem[n])*P,highp=(n,S,P)=>lowp(n,S,P)-S,s=n=>atan(atan(tan(PI*n/511))+atan(tan(PI*n/256))+atan(tan(PI*n/129)))/2,p=n=>SETS.P*2**((n-70+SETS.t)/12+13),B=(n,S,P=.01)=>S--?B(abs(n-2*P)-8*P,S-1):tanh(2*cbrt(4*n+8*P)+n*8)/2,chords=[[5,9,12],[4,8,11],n=[9,12,16],BPS*2&3?[9,12,14]:n],bass=[12,11,16,16],r=T%echo.length|0,l='10001000100100100'[4*BPS&15],m=highp(1,5*sin(random()-.5)*1e-5**(2*BPS%1)*(2*BPS&1),3/2),input=chords[BPS/2&3].map(n=>s(t*p(n))/2*'11101100110110110011011011011011'[4*BPS&31]).reduce((n,S)=>n+S),P=echo[r]+=input/2-echo[r]*.7,tanh(highp(0,(P+B(sin(PI*t*p(bass[BPS/2&3])/3072)*.5**(g=BPS/2%1),12,.1)*.3**g)*(BPS>32?min(1,4*BPS*l%1||1):1),1-min(BPS/16,.999))+(BPS>16&&BPS<28&&m+lowp(2,sin(random()-.5)*.1**(4*BPS%1)*l*4,.2))+(BPS>32&&2*sin(64*(4*BPS%1)**.3)*l*.1**(4*BPS%1)+m+lowp(4,cbrt(sin(850*t)+17*sin(random()-.5)*(1+sin(2*PI*BPS+4)))*.01**(BPS%1)*(BPS&1),.4))+(BPS>30&BPS<32&&highp(3,3*sin(random()-.5)/1e-5**(BPS/4%1)/8**5,3/2)))

t?32*(x=8*cos((t>>10)%27*(t*'2265'[t/27648&3]/512%1)+abs(x)**.5)/PI)+128:x=0

bpm=150,sr=44100,T=t/sr*40960/150*bpm,(sin(sin(45/cbrt(T/16384%1+.05))*2+2)*64*(~T>>13&1)*(T>>20&1)+(((v=[1,0,2,0,1.2,0,2.4,0,1.35,0,2.7,1.5,0,3,0,1.5][(T>>18+(T>>12&3^T>>12&5))&15]*t/2)*2^v*7^v*3)&127)/2+(t*sin(t>>1)&128)/2*(1-T/16384%1)*(T>>14&1)*(T>>19&1)+32+(((t*[1,.9,.8,.75][T>>16&3]/2&255)+(T>>9)^64)&383)/4)/128-1

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512

this is part 2/2.

song chooser:
sr=44100,t||(oldt=0,realt=0,olddiff=0,song=0),songNames=["42 melody","sierpenski harmony","street surfer"],songCode=[(t)=>(t*(42&t>>10)),(t)=>(t&t>>8),(t)=>(t&4096?t/2*(t^t%255)|t>>5:t/8|(t&8192?4*t:t))],difference=t-oldt,oldt=t,difference,realt++,sign(difference)!=sign(olddiff)?(song+=sign(difference),realt=0):difference/olddiff==2?(song+=sign(difference),realt=0):0,olddiff=difference,song=min(songCode.length-1,max(0,song)),realt%1024?songCode[song](floor(realt*8000/sr)):(()=>{throw songNames.map((a,b)=>((b==song?"\n>\xa0":"\n\xa0\xa0")+a)).join("")})()

from original: "detect your samplerate [link to "unnamed, for song chooser (detect your samplerate)"], then put it into sr and the sample rate part (important! it will not work otherwise)

use the play buttons to select the song"
released january 1, 2024. bytebeat, 44100hz.
remix of (just includes) stephanshi's minification of a beat by skurk & raer, erroneously referred to as "street surfer". original skurk beat at https://www.pouet.net/topic.php?post=388479 , raer's modification at https://www.pouet.net/topic.php?post=388494 , and stephanshi's minification at https://dollchan.net/bytebeat

unnamed, for song chooser (detect your samplerate):
sr=100000,
t||(realt=0),realt++,(()=>{throw floor(sr*realt/t)})()

released january 1, 2024. bytebeat, 100000hz.
original.

uwa!!:
old version: sr=48000,tempo=280,
t?0:(R=new Array(RL=floor(sr*0.3)),RI=0,N1={N:0,D:0,L:0,wave:(p)=>(4*((p%1)-(p%0.5))-1),l:0.1,d:.4},N2={N:0,D:0,L:0,wave:(p)=>(4*((p%1)-(p%0.5))-1),l:.05,d:.5},D={N:0,D:0,L:0,wave:random,l:0,d:.1,p:1}),nl=(sr*60)/tempo,ni=floor(t/nl)%32,pt=floor(t/(nl*32)),n1=[22,,20,22,15,,13,15,10,,8,10,5,,,,8,,6,8,13,,,,8,,6,8,16,,,],n2=!(pt&1)?[-4,,-2,,0,,,,-4,,-2,,0,,,,-5,,-3,,-1,,,,-7,,-5,,-3]:[-4,,-2,,0,,,,-4,,-2,,0,,,,-3,,-1,,1,,,,-7,,-5,,-3],DA={l:.05,d:.1},DB={l:.2,d:.1},DC={l:.4,d:.04},d=[DA,,DC,DA,DB,,,DC,DA,,DC,DA,DB,,,,DA,,DC,DA,DB,,,DC,DA,,DC,DA,DB,,,,DA],U=(N,n)=>(floor(t%nl)==0?(N.p?(N.l=n[ni]?.l||N.l,N.d=n[ni]?.d||N.d):(N.N=2**(n[ni]/12)||N.N),N.D=typeof n[ni]=="undefined"?N.D:sr*N.d):(N.D--)),P=(N)=>(l=N.l**(sr/48000),N.L=(1-l)*N.L+l*N.wave(t*(440/sr)*N.N)*max(0.,N.D/sr/N.d)),U(N1,pt<4?n1:pt<6?[]:pt<8?n1:[]),U(N2,pt<8?n2:[]),U(D,pt<4?[]:pt<8?d:[]),RI=++RI%RL,R[RI]=0.3*(R[RI]||0)+P(N1)*.4+P(N2)*.2+P(D)*.9

new version: sr=48000,tempo=280,
t?0:(R=new Array(RL=floor(sr*0.3)),RI=0,N1={N:0,D:0,L:0,wave:(p)=>(4*((p%1)-(p%0.5))-1),l:0.1,d:.4},N2={N:0,D:0,L:0,wave:(p)=>(4*((p%1)-(p%0.5))-1),l:.05,d:.5},D={N:0,D:0,L:0,wave:(()=>(random()-0.5)),l:0,d:.1,p:1}),nl=(sr*60)/tempo,ni=floor(t/nl)%32,pt=floor(t/(nl*32)),n1=[22,,20,22,15,,13,15,10,,8,10,3,,,,8,,6,8,13,,,,8,,6,8,16,,,],n2=!(pt&1)?[-13,,-9,,-2,,,,-13,,-9,,-2,,,,-15,,-11,,-4,,,,-15,,-11,,-7]:[-13,,-9,,-2,,,,-13,,-9,,-2,,,,-10,,-6,,1,,,,-10,,-6,,-3],DA={l:.05,d:.1},DB={l:.2,d:.1},DC={l:.4,d:.04},d=[DA,,DC,DA,DB,,DC,DA,,,DC,DA,DB,,,,DA,,DC,DA,DB,,DC,DA,,,DC,DA,DB,,,,DA],U=(N,n)=>(floor(t%nl)==0?(N.p?(N.l=n[ni]?.l||N.l,N.d=n[ni]?.d||N.d):(N.N=2**(n[ni]/12)||N.N),N.D=typeof n[ni]=="undefined"?N.D:sr

return (t,s)=>(t*=s,t*(42&t>>10)&255)/128-1

return t=>(t*=8E3,t*(42&t>>10)&255)/128-1

return (t,s)=>(t*=s,t*(4|t>>13&3)>>(~t>>11&1)&128|t*(t>>11&t>>13)*(~t>>9&3)&127)/128-1

t/=48E3,s=s=>2**(('023578'[s%7|0]||10)/12+(s/7|0)+7.5),o=(t,b)=>(O=[O=t>12&&sin(b*200)/4+(t*s('0035'[t/3&3])/4%1>t/3%1)/4*b||0,O],(T=>{for(i=0;i<9;i++)(N=t-3/8*i)<0||(n=N*s(N%3*4-(N/3&2)+7),O[i%2]+=N<132&&T(n+N%3/9*T(n/((N/3&3)+1)))*(1-N*4%1)/3*.6**i)})(t=>abs(t%1*4-2)-1),O),t>127?o(t+4):o(t>48?(a=t%1,x=t*2&7,(t/4|0)*3+(t>96?(t&3)+a-(x>3):[a,(t&3)+[a%(1/12),(a-1)**2,a,a-.5,a*3/2,a*2/3,a-1,a-1][x],[a*3/2,a,a*3/2,(a-1)**2,a,a-.5,a*2/3,a*2/4][x]][t/16-3|0])):t,t<24||(t*(t/8-13|0?2:1)%1)**.4)

((t&255)*((t*((t>>10|t>>14)&15))&192)>>7)+((t&4095)<2048?(((1<<18)/(t&4095)+10000)&128):0)