// SCSCC-21 "Byte Beat Business"
// - - - - - - - - - - - - - - - - - -
play{ar(LeakDC,(((t=ar(Sweep,0,8e3))>>8%e=256)|(t/5&(t/2816%e)))|(t>>9%e|(t*2&(t/1792%16)))).clip2!2/22}
// SCSCC-21 "Byte Beat Business"
// - - - - - - - - - - - - - - - - - -
play{ar(LeakDC,(((t=ar(Sweep,0,8e3))>>8%e=256)|(t/5&(t/2816%e)))|(t>>9%e|(t*2&(t/1792%16)))).clip2!2/22}
// 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}
// 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.
// 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}
// SCSCC-10 "Eraser"
// - - - - - - - - - - - - - - - - - - - - - - - - -
fork{loop{play{ar(Env.perc,2)**9*LFTri.ar(ascii(a=(" |\\|/_"@6.rand).asString)*55)!2/9};Document.current.string_(a,512.rand,1);0s.wait}}
// SCSCC-6 "Classic a11wlk01.wav Warp" 138 bytes
play{ar(Splay,ar(Warp1,1,read(Buffer,s,ExampleFiles.child),r={ar(LFNoise2,1/25!10)+1/2},a=[1,2]*.x[6,7.2,8,9,10.8]/12,a/9,-1,3pi,0s,4,r))}
// SCSCC-5 "Printer Gone Mad" 138 bytes
play{t=Sweep.ar(0,r=9e3)%r;o=d={TRand.ar(0,256,t<1)};{o=o|((t/d/4)&d|((t/d)%o&d)|((o>d*(t*2&d|d))&(t*d&(t/d))))}!5;LeakDC.ar(o).fold2/9!2}
Shaved off 13 bytes:
fork{a="Hello, World! ".iter.cyc;loop{f=a.().post;play{LFTri.ar(midicps(f.ascii-32)!2)*ar(Env.perc,2)**8};wait(3.rand+1/8)}}
The #Cheerful #sc140 #HandClap special. Here is something to replace the π emoji with. 121 characters.
play{ar(BPF,ar(Env(l=0!9+[0,1],l[..6]++66/99,-4!7++ -17),0,TDuty.ar(Dseq(asDigits(168044,3)/5,inf)))*CuspL.ar,444*[4,7])}
BONUS:
Two bloated versions that did not sound as good as the one above. First, an old fashioned SynthDef style in 198 bytes and second a forked one in 175 characters that includes some typewriterstyle printing to the post window.
SynthDef(\SCSCClap,{Out.ar(\out.kr(0),ar(BPF,ar(Env(l=0!9+[0,1],l[..6]++66/99,-4!7++ -17),2,\trig.tr)*CuspL.ar,444*[4,7]))}).add;Pbind(\instrument,\SCSCClap,\dur,Pseq(asDigits(168044,3)/5,inf)).play
fork{c="#SuperCollider".iter.cyc;w=iter(0ss*asDigits(168044,3)).cyc;loop{c.().post;play{ar(BPF,ar(Env(l=0!9+[0,1],l[..6]++66/99,-4!7++ -17),2)*CuspL.ar,444*[4,7])};w.().wait}}
fork{a="Hello, World! ".ascii.iter.loop;loop{(f=a.next).asAscii.post;play{LFTri.ar(midicps(f-32)!2)*ar(Env.perc,2)**8};wait(3.rand+1/8)}}
#HelloWorld #SuperCollider #sc140
SC in SCSynth is for SizeCoding, C in SuperCollider is for Caring, the S for Sharing. 