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