code

sq=(f,p=0.5)=>2*((s*tone(f)%1)<p)-1, 
s=t/48000,
b=94,
r=-1/0,
tone=(note)=>440*(2**((note-9)/12)),
q=(a)=>s%(60/a)*a/60,
F=(a)=>sin(2*PI*s*a),
st=(j)=>F(tone(j)),
bass=(k)=>asin(sin(s*2*PI*440*(2**((k-9)/12))))/PI*2,
cyc=(p,l)=>(floor(p/60*s))%l,
dec=(s,r=1)=>(1-q(s))**r,
lfo=(f,a,w,p=0,o=0)=>
[sin(f*2*PI*s+p)*a+o,
sign(sin(f*2*PI*s+p))+o,
(s+p)%(1/f)*f*a+o,
random()][w], 
sum=(Ar)=>Ar.reduce((a,b)=>a+b,0),
R=random(),
Cho=(Ar,Fn)=>sum(Ar.map(Fn))/Ar.length,
ω=(a)=>{throw a},
p=(a,b)=>a!=b?a:r,
avg=(a)=>sum(a)/a.length,
Kick=_=>F(exp(q(_)*-19)*30/s),
Snare=(a)=>Kick(a)/2+R*dec(a,2)/2,
T=(M)=>(M[0].map((_,i) => M.reduce((A, R) => [...A, R[i]], []))),
Hat=_=>R*dec(_),
Chords={Maj:[0,4,7],
Min:[0,3,7],
Dim:[0,3,6],
Aug:[0,4,8],
Qua:[0,4,7,10],
Mi7:[0,3,7,10],
Ma7:[0,4,7,11],
Di7:[0,3,6,9],
mM7:[0,3,7,11]},
output=st(">@BEGJLN".charCodeAt(cyc(b*2,8))-64)*dec(b*2,2)+bass(">2;9".charCodeAt(cyc(b/4,4))-64)/2*dec(b/4,2)// the deafult code

t/=48000,
GlobalDetune=gd=14,//detune in ¢
ü=142,
c="charCodeAt",
Я=(A,os=0)=>(t+os*(60/A))/(60/A)%1,
Dec=(F,C=1,os=0)=>(1-Я(F,os))**C,
Cyc=(P,A,os=0)=>((t+os)/(60/P))%A,
Tu=a=>440*(2**(((a+gd/100)-9)/12)),//get Hz from note order
RandomPool=R=new Array(16).fill(0).map(a=>2*random()-1),
F=a=>sin(2*PI*t*a),//freq to sine
Sw=a=>F(Tu(a)),//Sine
St=a=>t%(1/(b=Tu(a)))*b*2-1,
Sq=(a,Du=1/2)=>(((St(a)+1)/2)<Du)*2-1,
MagNum=((2951594784).toString(2)),
Th=a=>{throw a},
IP=(N,Min,Max)=>N*(Max-Min)+Min,
LFO=(F,Min,Max,W)=>
[
IP((sin(2*PI*F*t)+1)/2,Min,Max),//Sw
IP(t%(1/F)*F,Min,Max),//St
IP(((asin(sin(2*PI*t*F))/PI*2)+1)/2,Min,Max),//Tr
IP((sign(sin(2*PI*F*t))+1)/2,Min,Max)//Sq
][W],
XOR=(T,A=1,B=2)=>((t*A*Tu(T)*256)^(t*B*Tu(T)*256))%256/256*2-1,
Bass=a=>parseInt((MagNum[(t*16*Tu(a))&31]))*2-1,
Tr=a=>asin(Sw(a))/PI*2,
p=(a,b)=>a!=b?a:-1/0,
FM=(B,M,C)=>F(Tu(B)+M*F(Tu(B+12*C))/t),
Proc=(Str,Ind)=>p(Str[c](Ind)-64,-32),
PT=(A,B)=>A.map(B).reduce((a,b)=>a+b)/A.length,
Counter=SC={Beat:(t/(60/ü))|0,BiB:3&(t/(60/ü))},SC.M=SC.Beat>>2,SC.sQ=((t/(60/ü))*4)|0,SC.sQC=SC.sQ&3,
/*
Get "Raddy"!
C D EF G A B
()*+,-./0123    __
456789:;<=>?     _
@ABCDEFGHIJK    
LMNOPQRSTUVW    ^
XYZ[\]^_`abc    ^^
*/
Kick=a=>F(+sqrt(3000*(100/ü)*exp(Dec(a,4)))/t),
Snare=a=>Kick(a)/2+R[0]*Dec(a,0.5)/2,
Mel1="4;@;G;@;4;@;G4;@8?D?K?D?8?D?K8?D1=D=L=D=1=D=L1=D-9@9E9@9-9@9E-9@",
Bass1=" 4 4 4 4 8 8 8 8 1 1 1 1 - - - -",
[C1,C2,C3]=["44 44 44  44 44 88 88 88  88 88 11 11 1   11 11 -- -- --  -- -- ",";; ;; ;;  ;; ;; 33 33 33  33 33 88 88 88  88 88 44 44 44  44 44 ","@@ @@ @@  @@ @@ DD DD DD  DD DD == == ==  == == EE EE EE  EE EE "],
(St(Proc(C1,Cyc(ü*4,64)))/3+St(Proc(C2,Cyc(ü*4,64)))/3+St(Proc(C3,Cyc(ü*4,64)))/3)/3+Tr(Proc(Bass1,Cyc(ü*2,32)))/3+FM(Proc(Mel1,Cyc(ü*4,64)),LFO(0.1,0,0.75,0),0)*Dec(ü*4,1.2)/3

return (t)=>(
GlobalDetune=gd=0,//detune in ¢
ü=142,
Clam=a=>min(max(a,0),1),
Clamp=A=>min(max(A,-1),1),
c="charCodeAt",
Я=(A,os=0)=>(t+os*(60/A))/(60/A)%1,
Dec=(F,C=1,os=0)=>(1-Я(F,os))**C,
Cyc=(P,A,os=0)=>((t+os)/(60/P))%A|0,
Tu=a=>440*(2**(((a+gd/100)-9)/12)),//get Hz from note order
RandomPool=R=new Array(16).fill(0).map(a=>2*random()-1),
F=a=>sin(2*PI*t*a),//freq to sine
Sw=a=>F(Tu(a)),//Sine
 St=a=>t%(1/(b=Tu(a)))*b*2-1,
 Sq=(a,Du=1/2)=>(((St(a)+1)/2)<Du)*2-1,
 MagNum=((2951594784).toString(2)),
Th=a=>{throw a},
 IP=(N,Min,Max)=>N*(Max-Min)+Min,
 LFO=(F,Min,Max,W)=>
[IP((sin(2*PI*F*t)+1)/2,Min,Max),IP(t%(1/F)*F,Min,Max),IP(((asin(sin(2*PI*t*F))/PI*2)+1)/2,Min,Max),IP((sign(sin(2*PI*F*t))+1)/2,Min,Max)][W],
XOR=(T,A=1,B=2)=>((t*A*Tu(T)*256)^(t*B*Tu(T)*256))%256/256*2-1,
Bass=a=>parseInt((MagNum[(t*16*Tu(a))&31]))*2-1,
Tr=a=>asin(Sw(a))/PI*2,
p=(a,b)=>a!=b?a:-1/0,
FM=(B,M,C)=>F(Tu(B)+M*F(Tu(B+12*C))/t),
 Proc=(Str,Ind)=>p(Str[c](Ind)-64,-32),
 PT=(A,B)=>A.map(B).reduce((a,b)=>a+b)/A.length,
 Counter=SC={Beat:(t/(60/ü)),BiB:3&(t/(60/ü))},
 SC.M=SC.Beat>>2,
 SC.sQ=((t/(60/ü))*4)|0,
SC.sQC=SC.sQ&3,
 Fifth=a=>[0,7,12].map(a),
O=(a,b)=>b>1?sin(Tu(a)*2*PI*t+O(a,b-1)):sin(Tu(a)+sin(Tu(a))),
kick=(a,H=1)=>(u=t%(60/a),Clamp(.9997**(48000*u)*sin((u*48000)**.5)*H)),
r=(x,y=12288,z=0.5)=>(t?0:a=Array(y).fill(0),b=x%256+a.shift(),a.push(b*z),b),
DP= "K K S  S SKKS SSK K S  S SKKS SSK K S  S SK   S  SKKS  S SK   S",
DP2="R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R ",
//DP2="H H H H H H H H H H H H H H H H H H H H H H H H H H H H H H H H ",
DM=a=>(
a=="H"?R[2]*Dec(ü*4,3):
a=="K"?kick(ü*4,2):
a=="S"?snare(ü*4):
a=="R"?Ride(ü*4):0),
Debug=(a,b)=>(t*38775.4648)%1024?a:Th(b),
/*
Get "Raddy"!
C D EF G A B
()*+,-./0123    __
456789:;<=>?     _
@ABCDEFGHIJK    
LMNOPQRSTUVW    ^
XYZ[\]^_`abc    ^^
*/
ParseNote=a=>ParseInt(a&255,16)-128,


Ride=a=>Sw(43)*Dec(a,2)/2,
snare=a=>Clamp(kick(a,8)/2+R[1]*Dec(a,4)/2),
SRise=SC.Beat>=32?(SC.Beat<36?snare(ü/4):0):Clam(SC.Beat/8-3)*snare(ü*4),
Mel1="4;@;G;@;4;@;G4;@8?D?K?D?8?D?K8?D1=D=L=D=1=D=L1=D-9@9E9@9-9@9E-9@",
Bass1=" 4 4 4 4 8 8 8 8 1 1 1 1 - - - -",
 [C1,C2,C3]=["44 44 44  44 44 88 88 88  88 88 11 11 11  11 11 -- -- --  -- -- ",";; ;; ;;  ;; ;; 33 33 33  33 33 88 88 88  88 88 44 44 44  44 44 ","@@ @@ @@  @@ @@ DD DD DD  DD DD == == ==  == == EE EE EE  EE EE "],
 Arp="=@DIKID@=@DIKID@=@DIKID@=@DIKID@8?DFGFD?8?DFGFD?8?DFGFD?8?DFGFD?;BGIKIGB;BGIKIGB;BGIKIGB;BGIKIGB6=BDEDB=6=BDEDB=6=BDEDB=6=BDEDB=",
 Bassline=(XOR(Proc(C1,Cyc(ü*4,64)))/3+XOR(Proc(C2,Cyc(ü*4,64)))/3+XOR(Proc(C3,Cyc(ü*4,64)))/3),
r(SRise+Dec(ü*4,1)*FM(Proc(Mel1,Cyc(ü*4,64)),LFO(0.3,0,0.8,2),1)/2,12288,0.4)+
(DM(DP[Cyc(ü*4,64)])/2+DM(DP2[Cyc(ü*4,64)])/2)/2
)

F=(a,b)=>(t*2*2**(a/12))&b,
a=(s,d=1,f=-1)=>(A=[4,,,,,,,,-1,,-1,0,,,2*d,9*d],A[s]=2,A[f]=0,A[15&t>>12]-3),
f=a=>{throw a},
t&16383?F([-1,,,,-1,,,0,1,,,1,,,,,-8,,,,-8,,,-7,-6,,-6,,,,,,][31&t>>12]-12,128)/4+
F([a(-1,1,4),a(-1,1,4),a(-1,1,3),a(-1,NaN,4),a(3,1,6),a(-1,1,4),a(-1,1,3),a(-1,NaN,4)][7&t>>16],255)/4+(asin(sin(sqrt(t&16383)))/PI+.5)*128+(t&16384?random()*((-t>>6)&255)/8:0):
f(t&16384?"\n\u3000\u{1f383}\n囗口囗\n\u3000口":"\n\u3000\u{1f383}\n口囗口\n\u3000囗")

[code]

t?0:d=0,
lp = (inp,w) => { 
	if (w == 0) return inp
	out = inp + d
	d = out / (1+1/w)
	return d / w
},
r=(x,y=12288,z=0.5)=>(t?0:a=Array(y).fill(0),b=x%256+a.shift(),a.push(b*z),b),
Arp=a=>a.slice(0,min(a.length,1+((t>>10)&127))),
f=b=>lp(((t*b)&255)/256-.5,8+(t&131071)/1024)*(s=((-t&131071)/131072)),
jjj=c=>((((t*c)&128)/128)-.5)*s,
g=(d,l)=>d.map(l).reduce((a,b)=>a+b,0)/d.length,
(r(g(Arp(n=([[2,5/2,3,15/4],[4/3,2,3,11/3],[2,9/4,12/5,3,18/5],[2,8/3,32/9],[2,3,5/2,7/2],[8/7,12/7,2,3,24/7],[1,1.5,9/4,27/8],[4/3,5/3,2,8/3,10/3]][t>>17&7])),f),10240,.4))
+jjj(n[n.length-1])

t?0:d=0,
lp = (inp,w) => { 
	if (w == 0) return inp
	out = inp + d
	d = out / (1+1/w)
	return d / w
},
r=(x,y=12288,z=0.5)=>(t?0:a=Array(y).fill(0),b=x%256+a.shift(),a.push(b*z),b),
Arp=a=>a.slice(0,min(a.length,1+((t>>10)&127))),
f=b=>lp(((t*b)&255)/256-.5,8+(t&131071)/1024)*(s=((-t&131071)/131072)),
jjj=c=>((((t*c)&128)/128)-.5)*s,
g=(d,l)=>d.map(l).reduce((a,b)=>a+b,0)/d.length,
(r(g(Arp(n=([[2,5/2,3,15/4],[4/3,2,3,11/3],[2,9/4,12/5,3,18/5],[2,8/3,32/9],[2,3,5/2,7/2],[8/7,12/7,2,3,24/7],[1,1.5,9/4,27/8],[4/3,5/3,2,8/3,10/3]][t>>17&7])),f),10240,.4))
+jjj(n[n.length-1])

lp=(i,w)=>{t?0:d=0;if(w==0)return i;out=i+d;d=out/(1+1/w);return d/w},k=a=>{throw a},(s=((-t&131071)/131072)),r=(x,y=49152,z=0.5)=>(t?0:a=Array(y).fill(0),b=x%256+a.shift(),a.push(b*z),b),Arp=a=>a.slice(0,min(a.length,1+((t>>11)&63))),f=b=>lp(((t*b)&255)/256-.5,8+(t&131071)/1024)*s,
j=c=>((((t*c)&128)/128)-.5)/4,g=(d,l)=>d.map(l).reduce((a,b)=>a+b,0)/d.length,p=[(r(g(Arp(n=([[2,5/2,3,15/4],[4/3,2,3,11/3],[2,9/4,12/5,3,18/5],[2,8/3,32/9],[2,5/2,3,7/2],[8/7,12/7,2,3,24/7],[1,1.5,9/4,27/8],[4/3,5/3,2,8/3,10/3]][t>>17&7])),f),10240,.4)),j(n[n.length-1])],
t&131071?p:k("\n"+["B\\|","B(|)","B||/","B\\||/","B|||)","A|)","A","A\\|"][7&t>>17])

j=y=>{throw y},r=(x,y=12288,z=0.5)=>(t?0:a=Array(y).fill(0),b=x%256+a.shift(),a.push(b*z),b),f=a=>2**(a/12),d=(r(((t*f([14,17,21,10][3&t>>12])&128)/64-1)/(1+4*(15&(t>>14))),8192)/2+asin(sin(cbrt(t&4095)*5))/PI),t&4095?d:j(`\nU+${(t>>12).toString(16).padStart(4,`0`)}\n${String.fromCharCode(t>>12)}`)

j=y=>{throw y},r=(x,y=12288,z=0.5)=>(t?0:a=Array(y).fill(0),b=x%256+a.shift(),a.push(b*z),b),f=a=>2**(a/12),k=s=>String.fromCharCode(s+(t>>12)),d=(r(((t*f([14,17,21,10][3&t>>12])&128)/64-1)/(1+4*(15&(t>>14))),8192)/2+asin(sin(cbrt(t&4095)*5))/PI),t&4095?d:j(`\nU+${(t>>12).toString(16).padStart(4,`0`)}\n${"-".repeat(15)}v\n${Array.from({length:31},(_,i)=>k(i-15)).reduce((a,b)=>a+b)}`)

p=[1.5,1.8,2,1,1,2,1,1,1.6,1,1,1.5,1,1,1.2,1][(t>>12)%16]*[1,1,1.5,1.35][3&t>>17],f=a=>((0xAFEDC320>>(a*t))&1)*255,g=a=>f(p/16*a)/(1024+(t&4095))*1024,[g(.99),g(1.01)]

t%=786432,r=(x,y=12288,z=0.5)=>(t?0:a=Array(y).fill(0),b=x%256+a.shift(),a.push(b*z),b),pI=parseInt,A=r(sin(t/20480*2*PI*528*2**(pI("J HJC AC7 570   5 35A   5 35D   "[t>>12&31],36)/12))||0,6144)/2,(t&16384?(t&16383):(t&8191))?0:S=Array.from({length:s=int(81920/(528*2**((pI("8CJ 8CJ 6AH 6AD 8CJ 8CJ BFM BFI"[t>>13&31],36)||0)/12)))},()=>random()),S[t%s]=S[t%s]/2+S[(t+1)%s]/2,B=r(S[t%s]-.5),D={K:sin(cbrt(t&4095)*8)/(1+((t/256)&15))},D.S=D.K/2+(D.H=(random()-.5)*(-t>>4&255)/256),C=D["K SKH SK  SKS   "[t>>12&15]]||0,[B+A,B+C][t>>19&1]

f=a=>(t*2**(a/12)&255)>(4*((-t>>13&7)+1))?64:0,
g=a=>a.map(f).reduce((a,b)=>a&b),
g([[0,4,7,7],[0,3,7,7],[-1,3,6,6],[-1,2,6,6],[0,4,7,7],[0,5,7,7],[0,5,8,8],[0,2,7,7]][t>>16&7])