// SCSCC-40 "Bonus Level"
// - - - - - - - - - - - - - - - - - - - - - -

play{a={LFNoise0.kr(1/2)};x=12*_!4;Splay.ar(ar(z=LFSaw,a!4/4+65*kr(f=Select,z.kr(a.round(1/4)!4)+1*8,f.kr(k=a+1*4,[0,2,4,5,7,9,11,12])+f.kr(k,[d=x+.x[0,4,7,11],m=x+.x[0,3,7,10],m,d,d,m,m,d])).midiratio)**abs(z.kr(1+a!4)*8+1)/5)}

#SuperCollider #sc256 #sctoot

// SCSCC-38 "Index"
// - - - - - - - - - - - -

play{x=LFSaw;z=x ar:_;Splay.ar(LeakDC.ar(CombC.ar(z.(1<<_!3/4*98*c=Index.ar((7*_!4+.x(5*_!4)).as(LocalBuf),Stepper.ar(t=z.(-7),0,z.(_+0s!3/3).abs*16,z.(_+0s!3/pi).abs*16)).midiratio)*t.max/2)),sin(c.sum))}

#SuperCollider #sctoot #sc256 #arpeggio #melody

// SCSCC #32
// Baum

play{Splay.ar(CombC.ar(o=PitchShift.ar(z=Formlet.ar(HPZ1.ar(f=Index.ar((12*_!6+.x(5*_!4++19)).as(LocalBuf),round(ar(q=QuadC,1)+1/2*30,ceil(q.ar(1b)+1*12)))).abs*q.ar,55*f.midiratio,0s2).sin,1,(8+f).log,0s,0s)+z)/6+o/4)}

#SuperCollider #scToot #sc256

// SCSCC #31
// a11wlk01.wav Ultra

// Ensemble

play{Splay.ar(LeakDC.ar(BLowShelf.ar(CompanderD.ar(GrainBuf.ar(2,ar(z=LFSaw,f=66*m={ar(l=LFDNoise1,22!8,1/77,1)},(..7)/4-1),4pi*m/f,read(Buffer,s,ExampleFiles.child),[10,6,15,9]/10/.x[1,2]*m,l.ar(1/99!8)+(m**h=0.7)/2,4,l.ar(h!8)/1s),*h!5)/4,666,1,-9)))}

// Solo

play{Splay.ar(LeakDC.ar(BLowShelf.ar(CompanderD.ar(GrainBuf.ar(2,ar(z=LFSaw,f=66*m={ar(l=LFDNoise1,22!8,1/77,1)},p=(..7)/4-1),4pi*m/f,read(Buffer,s,ExampleFiles.child),m,z.ar(1/99,1)+(m**h=0.7)/2,4,p),*h!5)/4,666,1,-7)))}

#SuperCollider #sc256 #a11wlk01.wav #ScToot

// SCSCC-19 "Nervous Arpeggios" 138 bytes
// - - - - - - - - - -

play{sum(1/8<ar(q=CuspL,c=[7/3,1.78,3/2,1]*.x[1,2])[9..0]*fold2(LeakDC.ar(((t=Sweep.ar*8e3)*c&(q.ar(c)+1*64))|(t>>(2*_!3+4))%256)/8))/8!2}

#SuperCollider #sc140 #sctoot

// SCSCC-17 "251 bytes of Acedemic Jazz"
// - - - - - - - - - - - - - - - - - - - - - - - - - - - -

play{a=[TIRand.kr(45,73,t=TDuty.kr(d=ar(q=CuspL,7)+1s/2))]++TChoose.kr(t,{|n|[[[67,67,58]@n]++[84,98,100,106],9*[5,5,9,9,7],-6*[5,9,8,7,12]]}!3);e=ar(Env.perc(0s8,0s),0,t)**2;2-e*sum(Formant.ar(*a.midicps*(ar(q,237)/33+1)))/22*lag2(Trig1.kr(t,d/2))!2}

You need more academic jazz in your life.

#SuperCollider #sc256 #sctoot #FailedSaxomophone

// SCSCC-16 "Jellfish/Wormhole"
// - - - - - - - - - - - - - -

play{o=c=[1e-4,0]+66;{o=ar(z=SinOsc,o+c,z.ar(1/c,z.ar(c+r=o[1,0]/99)*3*p=[-4pi,4pi]))*z.ar(r*o+c,p)}!3;o};s.scope.size_(555).style_(2)

// This one is a bit loud so watch out.

#SuperCollider #Lissajous #sc140 #sctweet #sctoot

// SCSCC-15 "Birds"
// - - - - - - - - - - - - - - - -

play{r=ar(TRand,0,256,Dust ar:1);1/3*ar(LFCub,33*b=((t=Sweep.ar*(r).sin*1e3%r)&r)|(t>>r))*(b>48)!2}

#SuperCollider #sctweet #sctoot #sc140

@draco variation, raga
<pre>
({var freq; freq = Duty.kr(Dseq(Dconst(4, 0.6666), inf),0,
Dseq([1, 16/15, 5/4, 4/3, 3/2, 8/5, 15/8, 8/5, 4/3, 3/2, 15/16, 5/4,1] * 220, inf)); FreeVerb.ar(BLowPass4.ar(
DynKlank.ar(`[[1, 3, 5, 7, 11] * freq,[1, 0.5, 0.33333, 0.25, 0.2].normalize,[1, 0.5, 0.3333, 0.25, 0.2]], Impulse.ar([1.01, 1]),1.0,0.0,Env([0.75, 2, 0.5], [12, 24], \welch, 1, 0).kr),
Env([600, 4800, 2400, 1200, 600],[8, 12, 12, 24],\sin,3,0).kr,0.5),0.33,0.75,0.75,0.5)}.play;
)
</pre> #sctoot
#SuperCollider #sctoot
({var freq; freq = Duty.kr(Dseq(Dconst(4, 0.6666), inf),0,Dseq([1, 6/5, 5/4, 4/3, 3/2] * 220, inf)); FreeVerb.ar(BLowPass4.ar(DynKlank.ar(`[[1, 3, 5, 7, 11] * freq,[1, 0.5, 0.33333, 0.25, 0.2].normalize,[1, 0.5, 0.3333, 0.25, 0.2]],Impulse.ar([1.01, 1]),1.0,0.0,Env([0.75, 2, 0.5], [12, 24], \welch, 1, 0).kr),Env([600, 4800, 2400, 1200, 600],[8, 12, 12, 24],\sin,3,0).kr,0.5),0.33,0.75,0.75,0.5)}.play;)