f=(t%65536/3>>7&63)/(70+(cos(t*PI/65536/3)+.94)*200)/3+.01,a=i=>i&&(t*2**(([0,4,7,11][t&3]-'0075'[t>>16&3])/12)+f*i*7)%256/100+a(i-1),(a(100)/128-1)*-cbrt(t%8192-13E3)/32*min(1,abs(asin(sin(t*PI/8192)))*48),
//NEW CODE STARTS BELOW, Original by Decent-Manager-6169
M=(a(100)/128-1)*-cbrt(t%8192-13E3)/32*min(1,abs(asin(sin(t*PI/8192)))*48)*2,
SINL=sin((a(1)-1)*((t>>13&63)+15)/8),
SINR=sin((a(1)-1.5)*((t>>13&63)+15)/8),
dr=min(1,max(-1,sin(t/256/('4475'[t>>16&3]/5))/((t>>10&31)+1)*8)),sn=
(sin(t/128/('4475'[t>>16&3]/5))+
sin(t*random())/((t>>8&31)+.5))/((t>>10&31)+1)*3,
sn2=
(sin(t/128/('4475'[t>>16&3]/5))+
sin(t*random())/((t>>10&31)+.5))/((t>>8&31)+1)*3,
sn3=
(sin(t/128/('4475'[t>>16&3]/5))+
sin(t*random())/((t>>10&31)+.5))/((t>>10&31)+1)*3,
sn4=
(sin(t/128/('4475'[t>>16&3]/5))+
sin(t*random())/((t>>10&31)+.5))/((t>>10&31)+1)*3,
drsn=[dr,sn3][t>>15&1],
drsn2=[dr,sn4][t>>15&1],
SO=[[SINL,SINR],
[M/(t>>12&127)*128,-M/(t>>12&127)*128,],
[M+dr+sn,-M+dr+sn2],
[M+dr+sn,-M+dr+sn2],
[sin(min(.1,max(-.1,(M)))*8*((t/8192&7)+1)),sin(min(.1,max(-.1,(-M)))*8*((t/8192&7)+1))]
,
[sin(min(.1,max(-.1,(M)))*8*((t/8192&7)+1))+drsn,sin(min(.1,max(-.1,(-M)))*8*((t/8192&7)+1))+drsn2]
,[sin(min(.1,max(-.1,(M)))*8*((t/8192&7)+1))+drsn,sin(min(.1,max(-.1,(-M)))*8*((t/8192&7)+1))+drsn2],
[sin(M*(3+sin(t*PI/8192))),sin(M*(2+sin(t*PI/8192)))],
[sin(M*(3+sin(t*PI/8192)))+drsn,sin(M*(2+sin(t*PI/8192)))+drsn2]],
SO[(t>>19)%SO.length]

BPM=160,SR=48000,T=t/15*BPM/SR*4096,an=(x,y)=>x<0?y-abs(x%y):x%y,n=(T>>19&7)<=6&&(T>>19&7)>=1?((T>>19&7)<=5&&(T>>19&7)>=2?PI/5:PI/5.12):E/4.6,magik=2**(1/12),c=T=>((((vTemp=t=>(t*n*magik**([8,0,-7,5,0,-7,8,0,-7,5,0,-7,8,0,5,-7,10,0,-7,5,0,-11,10,1,-7,7,3,-2,10,3,-2,7,12,0,-7,8,0,-7,12,0,-7,8,0,-7,12,0,8,-7,12,0,-7,8,0,-7,12,0,10,1,3,7,-2,3,5,7,8,-4,-11,5,-4,-11,8,-4,-7,5,-4,-11,10,-4,5,-7,7,-2,-9,3,-2,-9,7,-2,-9,3,-9,-2,8,7,5,10,12,0,-7,8,0,-7,12,0,-7,8,0,-7,12,0,8,-7,12,0,-7,8,0,-7,12,0,10,1,3,7,-2,3,5,7,][T>>12&127])))(t)*[1+(t&T>>13&1),5-(t&T>>11&7)][t&1]&127)-(64-(T>>7&48))&128)%256-(~T>>7&48))/256*[1.0002,1.0003][t&1]**(-T%4096)/2+(((vTemp(t)^vTemp(t)*5)/2&127)-(64-(T>>7&48))&128)/256*[1.0002,1.0003][t&1]**(-T%4096)/2,c2=T=>(((t/2*n*magik**(an(an(T>>12&63^(T>>12&63)-5,15)-(T>>17&2),15)/7*12+.24|0)&127)-(64-(T>>7&48)*1.1)&128)%256-(T>>7&48))*(1-T/4096%1/1.2)/256,filter=x=>sqrt(abs(x))*sign(x),kick=T=>3*sin(cbrt(tempv=T*4&(2**14/[1,,H=t/1.5&1,,S=((T>>19&3)!=3?1:sin(t*E>>4)*sin(t>>4)),,H,1,1,,H,,S,2,1,H,1,,H,,S,,H,,1,1,2,1,2,1,13,19][T>>12&31])-1)*3.5),bass=T=>t*magik**[5,5,7,3,5,5,5,3,1,1,3,3,-2,-2,-2,1][15&T>>15]*n,h=T=>t*magik**[0,7,7,10,5,5,7,3,3,5,2,2,3,2,0,5][15&T>>12^2]/1.5*2*n,b=T=>((bass(T)^bass(T)*2.5)/256%1-(bass(T)^bass(T)*2.5)/128%1)*filter((bass(T)/128+(T>>13&5)*E)%1-.5)+!!(T>>19&3)*(bass(T)^bass(T)*((T>>19&3^1)+2)+T/128)/512/(2**((T>>19&3)>=1))/(1+((T>>19^1&3)==3))%1-.5,HH=T=>an((h(T)/16%8-4)*(1-T/4096/'2211444122224441'[T>>12&15]%1),2+(T/524288%1)*1.5)-1-(T/524288%1)/1.5,max(min((c(T)*24+c2(T)*18+kick(T)*4*!!(T>>19&2)+b(T)*5+.5*sign(HH(T))/max(min(abs(HH(T)),.3),.1)/2)*(~T&2097152?min(T%4194304/524288,1):max(min(8-T%4194904/524288,1),0))/5*(~T>>13&1&T>>20^1?1:abs(T/4096%1-1)*2),1),-1)

(t-(t^t>>5)+t*(t>>14&14)&255)/4+(100*((t<<2|t>>5|t^63)&(t<<10|t>>11))&255)/4+(((1024/(t%4096))*256)&255)/2

(t-(t^t>>5)+t*(t>>14&14)&255)/6+(100*((t<<2|t>>5|t^63)&(t<<10|t>>11))&255)/6+((((1024/(t%4096))*256)&255)/3)+((t+(t&t^t>>6)-t*(t>>9&(t%16?2:6)&t>>9))&255)/6+(((t>>2)*(t>>5)|t>>5)&255)/6

x=t&t>>12,y=t/4096,z=!(~t>>13&15),(y/x%1==y%x/x)*(y/2**!z%1)**.5*127+(50*(t%2**(13-z))**.5&128)

(4*(x=t>>6^t>>13)^t)+t>>(y=t>>11)%8|t%32^y<<x-t/3.12524|y<<6

t?0:v=Array(r=48e3).fill(0),f=floor,s=f(t/12e3),m=sin(t/((25+f(t/192e3)%4)-s%16))+v.shift(),b=sin((s%4?1e2:1e4)/(t%12e3)),n=!(f(t/6e3)%2)*(random()*((t/48e3%1)-1))/2,v.push(m/3),(m+b+(f(t/r)%2)*n)/3

sin(t/([25,25,22,23][0|t/48e3%4]-(0|t/12e3%2)))*(t/6e3%1-1)-sin(t/1e5)/1.5-1

#include<stdio.h>
#include<stdlib.h>
#include<math.h>

#define r 48000

//Set output length (in seconds) here!
#define time_seconds 30

int main(){
  double t;
  double out;
  double a[r]={0};

  FILE *f = fopen("bb.raw","wb");

  while(t<(r*time_seconds)){
    out=sin(t/(25-floor(fmod(t/12000,16))))/3+a[(int)fmod(t,r)];
    a[(int)fmod(t,r)]=out/1.4;
    fwrite(&out,sizeof(double),1,f);
    t++;
  }
  fclose(f);
  return 0;
}

(t>>9&6?0:9001/(t%4096)-t/9&8?-1:0)^t>>4&t*(3&t/(1+(t>>14)%8)^t>>(t>>9&8?19:20)*(t>>11))

-----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

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

max(0,min(128,(b=-t*1.0595**('0010010030705503'[t>>13&15]-12+3*(t>>18&1))&255,c=b**3>>5,sin(b*(.2+sin(t/6E6))*.2)*c+c)*(-t&8191)>>18))-((sqrt(t&8183)<<6&64)*(t>>15&1^t>>13)-(t&15))*(1048576<t)+(t&16383)*(-t>>3&511)/7E4*random()*(524288<t)

SAMPLE_RATE

10*(t>>6|t|t>>(t>>16))+(7&t>>11)*5*t&t>>4|t*(5|t>>13&3)>>(~t>>11&1)&128|t*(t>>11&t>>13)*(~t>>9&3)&127

5*t&t>>4|t*(4|t>>13&3)>>(~t>>11&1)&128|t*(t>>11&t>>13)*(~t>>9&3)&127

t%25-(t>>2|15*t|t%227)-t>>3|(t>>5&1333*(t<<5)|(t>>3)%1)/(t%18|t%1280)

~t>>3&(t>>11&1?5:4-(t>>12&1))*t&(t>>7)+t*(4|t>>13&3)>>(~t>>11&1)&128|t*(t>>11&t>>13)*(~t>>9&3)&127>>(t>>(t>>12&15))>>t

pico

ejoi

biza

ufuva

//rem!x (44 khz)
p=v=>2**(v/12),z=12*(t>>18&1),(((t>>3&t>>8)^(t>>8&t>>7))&127)+(64*abs(sin(t/50*p([0,3,7,12,,19,,7][t>>11+(t>>13&3^t>>14&1)&7]+z))))+(sin(3e4/(t&16383))*20+32)+((sin(t*t)*20)&-t>>8&31)

(((t/2*2**([5,8,12,15,19,15,12,8][t>>13&7]/12)*(t&262144?1:6/5)&128)+(t*(t&262144?1:6/5)&127&t>>8)*(t>1048575))*max(0,min(1,16-((t&1048575)/65536)))^(random()*128&~t>>8)*(t>2097151))*(t<4194304)

t/2/(1+(t>>17&7))**2&111&t>>12?t>>9:t>>7

t/2/(1+(t>>17&7))**2&111&t>>12?t>>9:t>>7