>>15775
//\\ INTERSTELLAR AHH BEAT REMIX FULL VER V2 //\\ REMIX BY IDMKN //\\ ORIGINAL BY SHONCI //\\ TOTAL LINES USED: 64 //\\ TOTAL CHARACTERS: 3253 //\\
base=44100,
c=t*base/48e3*0.75,
bpm = t*(135/7.5*2**9)/48e3,
C= c*1.01,
Cc = c*1.07,
D = c*1.14,
Dd = c*1.22,
E = c*1.28,
F = c*1.35,
Ff = c*1.44,
G = c*1.52,
Gg = c*1.61,
A = c*1.71,
Aa = c*1.82,
B = c*1.92,
MEL1=[E,E,E,E,A,A,A,A,G,G,G,G,E,E,B/2,C,A/2,A/2,A/2,A/2,A/2,A/2,C,C,A,A,A,A,C*2,C*2,B,C*2][bpm>>12&31],MELHI=MEL1*2,
MEL2=[D,E,A/2,C,D,E,A,A][bpm>>15&7],
ARP=[[D/4,D/2,F/2,E,C,A/2][(bpm>>10)%6],[E/4,E/2,G/2,E,D,B/2][(bpm>>10)%6],[D/4,D/2,F/2,E,C,A/2][(bpm>>10)%6],[A/4,A/2,E/2,E,B/2,G/2][(bpm>>10)%6]][bpm>>15&3]*2,
SYN1=((MEL1*4^MEL1*2)%256/2+(MEL1*8^MEL1*4)%256/2)/128-1,
SYN1HI=((MELHI*4^MELHI*2)%256/2+(MELHI*8^MELHI*4)%256/2)/128-1,
PAD=sin(sin(MEL2*PI/256)*5)**3,
SYN3=(sin(sin(sin(ARP*PI/256)*5)*3)*(sin(sin(ARP*PI/256)*1)*2)*2)*(1-(bpm%1024/1536)),
SYN2HI=(ARP*2%256/512+ARP*2%255/512+ARP*2%257/512-.5)*(1-(bpm%1024/2048))*1.5,
BASS=atan(sin(sin([D,E,A,C*2,D,E,A,E*2][bpm>>15&7]*PI/512)*2)/2)/2,
CHORD1=(([D,E,G,A][bpm>>15&3]*2%256/512)+([F,E,F,G][bpm>>15&3]*2%256/512)+([A,G,A,E*2][bpm>>15&3]*2%256/512)+([C*2,D*2,C*2,B][bpm>>15&3]*2%256/512)-1),
CHORD2=(([D,E,G,A][bpm>>15&3])%256/2+([F,G,A,B][bpm>>15&3])%256/2+([A,B,C*2,D*2][bpm>>15&3]*2)%256/2+([C*2,D*2,E*2,G*2][bpm>>15&3]*2)%256/2)-256,
SUPERSAW=((CHORD2%254/256/2)+(CHORD2%255/256/2)+(CHORD2%256/256/2)+(CHORD2%257/256/2)+(CHORD2%258/256/2))/3,
KICK=atan(sin(cbrt(bpm%2048*('1001001000100100'[bpm>>11&15]))*8)*2)+.5,
HIHAT=random()*(0.995**(bpm%2048))-.5+random()*(0.99**(bpm%1024)/2),
SNARE=(sin(sqrt((bpm%8192)*30)+(sin(bpm^t>>3)*2&1))*1+random()-.5)*2*(0.9991**(bpm%8192))*(1&bpm>>13),
//\\ TIME FOR STEREO UNISON //\\
detune1=MEL1*1.001,uni1=((detune1*4^detune1*2)%256/2+(detune1*8^detune1*4)%256/2)/128-1,
detune2=MEL2*1.001,uni2=sin(sin(detune2*PI/256)*5)**3,
detune3=ARP*1.001,uni3=(sin(sin(sin(detune3*PI/256)*5)*3)*(sin(sin(detune3*PI/256)*1)*2)*2)*(1-(bpm%1024/1536))/2,
uni4=atan(sin(sin([D,E,A,C*2,D,E,A,A][bpm>>15&7]*1.001*PI/512))*(1-([D,E,A,C*2,D,E,A,A][bpm>>15&7]*1.001/4/256%1)*2)/2)/2,
uni5=(([D,E,G,A][bpm>>15&3]*1.001*2%256/512)+([F,E,F,G][bpm>>15&3]*2%256/512)+([A,G,A,E*2][bpm>>15&3]*1.001*2%256/512)+([C*2,D*2,C*2,B][bpm>>15&3]*1.001*2%256/512)-1),
uni6=((1.001*[D,E,G,A][bpm>>15&3])%256/2+(1.001*[F,G,A,B][bpm>>15&3])%256/2+(1.001*[A,B,C*2,D*2][bpm>>15&3]*2)%256/2+(1.001*[C*2,D*2,E*2,G*2][bpm>>15&3]*2)%256/2)-256,
uni7=((1.001*CHORD2%254/256/2)+(1.001*CHORD2%255/256/2)+(1.001*CHORD2%256/256/2)+(1.001*CHORD2%257/256/2)+(1.001*CHORD2%258/256/2))/3,
uni8=(1.001*ARP*2%256/512+ARP*1.001*2%255/512+ARP*1.001*2%257/512-.5)*(1-(bpm%1024/2048))*1.5,
uni9=((MELHI*1.001*4^MELHI*2*1.001)%256/2+(MELHI*8*1.001^MELHI*4*1.001)%256/2)/128-1,
//\\FINAL RESULT //\\
[atan(((SYN1+BASS)/2*(bpm<512*240))+(CHORD1*(bpm>512*240)*(bpm<512*256))+((SYN1HI+BASS+PAD+SYN2HI+SYN3)/2)*(bpm>512*256)*(bpm<512*496)+(SYN1HI+BASS+PAD+SYN2HI+SUPERSAW+CHORD1+KICK+SNARE+HIHAT*2)/2*(bpm>512*512))/1.5,atan(((uni1+uni4)/2*(bpm<512*240))+(CHORD1%255*(bpm>512*240)*(bpm<512*256))+((uni9+uni4+uni2+uni8+uni3)/2)*(bpm>512*256)*(bpm<512*496)+(uni9+uni4+uni3+uni8+SUPERSAW%255+uni5+KICK+SNARE+HIHAT*2)/2*(bpm>512*512))/1.5]