theseanco

Live Coding - 13th January - Produced code

Jan 22nd, 2015
213
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.49 KB | None | 0 0
  1. Synth.new(\bufrec,[\bufnum,b]);
  2. Synth.new(\buflayer,[\bufnum,e]);
  3.  
  4. ~crack = {Pan2.ar(Warp1.ar(1,b,SinOsc.kr(SinOsc.kr(0.0001,0,0.02)),mul:0.8))}
  5. ~crack2 = {Pan2.ar(Warp1.ar(1,b,SinOsc.kr(0.05),mul:0.8),SinOsc.kr(0.3),1)}
  6. ~crack.play
  7. ~crack2.play
  8.  
  9. ~spal.play
  10.  
  11.  
  12. ~crack3 = {Pan2.ar(Warp1.ar(1,b,LFNoise1.kr(0.1),0.8,0.8,mul:0.8),LFNoise1.kr(0.2))}
  13. ~crack3.play
  14.  
  15. ~dron = Pbind(\instrument,\vplay,\buf,e,\atk,Pwhite(0.5,2),\rel,Pwhite(1,3.3),\dur,Pwhite(0.3,4),\amp,Pwhite(0.1,0.7))
  16. ~dron.play(6,2)
  17.  
  18. ~aa = Task({
  19. inf.do({
  20. rrand(1,50).do{{Pan2.ar(PlayBuf.ar(1,d[\p][rrand(0,20)],rrand(0.1,5.1),doneAction:2)*0.1,0)}.play;};
  21. rrand(1,50).wait;
  22. });
  23. });
  24.  
  25. ~verb = {Out.ar(0,GVerb.ar(InFeedback.ar(6,2),20,5,mul:0.3))}
  26.  
  27. ~crack.stop(10)
  28. ~crack2.stop(10)
  29.  
  30. ~kicks = Pbind(\instrument,\bplay,\buf,Prand(d[\k],inf),\amp,0.8,\dur,Pseq([0.25,0.75]))
  31. ~kicks.play
  32.  
  33. ~hats2 = Pbind(\instrument,\bplay,\buf,Prand(d[\h],inf),\dur,Pwrand([0.25,0.5],[0.8,0.2],inf),\amp,0.7,\pan,Pwhite(-1.0,1.0))
  34. ~percs = Pbind(\instrument,\bplay,\buf,Prand(d[\p],inf),\dur,Pwrand([0.25,0.5],[0.8,0.2],inf),\amp,0.7,\pan,Pwhite(-1.0,1.0))
  35. ~hats2.play
  36.  
  37.  
  38. ~percs.play
  39.  
  40.  
  41. p.activeProxies
  42.  
  43. ~crack.end(10)
  44. ~crack2.end(10)
  45.  
  46. ~toms = Pbind(\instrument,\bplay,\buf,Pwrand(d[\t],[0.5,Array.fill(10,0.05)].flat,inf),\dur,Pwrand([0.25,0.5,1],[1.7,0.15,0.15],inf),\amp,0.8)
  47. ~toms.play
  48. ~toms.set(\rate,~mod)
  49.  
  50.  
  51. Pwrand(d[\t],[Array.fill(9,0.05),9])
  52.  
  53. ~mod = {LFNoise1.ar(0.1).unipolar}.asStream
  54.  
  55. ~kicks.stop
  56.  
  57.  
  58. ~percs.end(5)
Add Comment
Please, Sign In to add comment