SHARE
TWEET

Untitled

a guest Jan 9th, 2018 100 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. //Load setup file to get examples working
  3. ("/Setup/Setup02.scd").loadRelative;
  4. p.clock.tempo = 130/60;
  5.  
  6.  
  7. ~windNoise={Pan2.ar(Gendy4.ar(0,initCPs:1))};
  8. ~windNoise.free(2);
  9. Ndef(\a,~windNoise).play;
  10.  
  11.  
  12. (
  13. a = SynthDef("help-TCoin", { arg out=0, prob=0.5;
  14.     var trig;
  15.     trig = Impulse.ar(20, 0, SinOsc.kr(0.5,0,1,1));
  16.     Out.ar(out,
  17.         Mix.fill(3, {Ringz.ar(CoinGate.ar(prob, trig*0.5), #[1,1.5]*Rand(1000, 9000), 0.01)})
  18.     )
  19. }).play;
  20. )
  21.  
  22. a.set(\prob, 1.0);
  23. a.set(\prob, 0.0);
  24. a.set(\prob, 0.5); //0.01 - 0.05 - 0.5
  25.  
  26. a.free;
  27.  
  28. ///////////// triggerare windNoise prima di continuare
  29.  
  30.  
  31. //YUPPA by Nathaniel Virgo ('headcube')-140-character
  32. ~yuppa = {x=Saw.ar([50,50.1]);8.do{|i|f=2**(8-i);x=BRF.ar(AllpassN.ar(x,1,0.1/(12-i),2),80**TRand.ar(0,1,Impulse.ar(f/32,1/2)).lag(1/f)*80,2)};x};
  33.  
  34. (
  35.  
  36. Ndef(\x,~yuppa).play;
  37. )
  38.  
  39. Ndef(\x).stop(3);
  40. Ndef.clear(8);
  41.  
  42.  
  43. // Synth noisOne
  44.  
  45. (
  46. ~noisOne =  {
  47. var noise, filterfreq;
  48. noise = WhiteNoise.ar(0.05 ! 2)+ Dust2.ar(70 ! 2);
  49. filterfreq = LFNoise1.kr(3, 5500, 6000);
  50. Resonz.ar(noise * 5, filterfreq, 0.5) + (noise * 0.5);
  51. };
  52. )
  53.  
  54.  
  55. c=NdefMixer(s);
  56. Ndef(\n,~noisOne).play;
  57.  
  58.  
  59. //NOISE BETA
  60.  
  61. (
  62. Ndef(\noiseBeta,{
  63. arg vol=0.7;
  64. var n;
  65. n=15;
  66.  
  67. vol*
  68. Resonz.ar(
  69. Mix.fill(n,{
  70. var freq, numcps;
  71.  
  72. freq= rrand(330,460.3);
  73. numcps= rrand(2,20);
  74. Pan2.ar(Gendy1.ar(6.rand,6.rand,1.0.rand,1.0.rand,freq,Line.kr(freq,2*freq, 60, doneAction:2), 1.0.rand, 1.0.rand, numcps,
  75.     SinOsc.kr(exprand(0.02,0.2), 0, numcps/2, numcps/2), 0.5/(n.sqrt)), 1.0.rand2)
  76.     }), Line.kr (100,2000, 60, doneAction:2), Line.kr(0.01,1.0,60, doneAction:2))
  77. }
  78. )
  79. )
  80.  
  81. (
  82. Ndef(\n).stop(8);
  83. Ndef(\noiseBeta).play;
  84. Ndef(\noiseBeta).set(\vol,2);
  85. )
  86. Ndef.clear;
  87. // BAASTARDO
  88.  
  89.  
  90. Ndef(\baaStardo,{Pan2.ar(Gendy1.ar(1,1,1.0,1.0,30,100,0.3,0.05,5))*Trig.kr(Impulse.kr(100),0.15)})
  91.  
  92. Ndef(\baaStardo).play;
  93.  
  94.  
  95.  
  96. (
  97. Ndef(\baaStardo,{
  98.     arg molt=5; //farlo arrivare anche a 1000 e aggiungerci un Reverbero
  99.     Pan2.ar(Gendy1.ar(1,1,1.0,1.0,30,100,0.3,0.05,molt))})
  100. )
  101.  
  102.  
  103.  
  104. ///// da aggiunere ???
  105. //overkill
  106. (
  107. {
  108. var n;
  109. n=10;
  110.  
  111. Mix.fill(n,{
  112. var freq, numcps;
  113.  
  114. freq= rrand(130,160.3);
  115. numcps= rrand(2,20);
  116. Pan2.ar(Gendy4.ar(6.rand,6.rand,1.0.rand,1.0.rand,freq ,freq, 1.0.rand, 1.0.rand, numcps, SinOsc.kr(exprand(0.02,0.2), 0, numcps/2, numcps/2), 0.5/(n.sqrt)), 1.0.rand2)
  117. });
  118. }.play
  119. )
  120.  
  121.  
  122. //FILTER ~yuppa
  123. (
  124. z = {
  125.     BMoog.ar(
  126.         Ndef(\x),
  127.         MouseX.kr(20,20000,\exponential), // cutoff freq.
  128.         MouseY.kr(1.0, 0.0, \linear), // q
  129.         0, // mode - lowpass
  130.         0.25); // mul
  131. }.play)
  132. z.;
  133.  
  134. // Yuppa in SynthDef
  135. (
  136. ~yuppa =
  137. {
  138.     x=Saw.ar([50,50.1]);
  139.     8.do{|i|f=2**(8-i);x=BRF.ar(AllpassN.ar(x,1,0.1/(12-i),2),80**TRand.ar(0,1,Impulse.ar(f/32,1/2)).lag(1/f)*80,2)};
  140.     x
  141. };
  142. )
  143.  
  144. Ndef(\x,~yuppa).play;
  145.  
  146.  
  147.  
  148. (
  149. SynthDef(\tweet, {
  150.      var snd;
  151.      snd = Saw.ar([50, 50.1]);
  152.      8.do { |i|
  153.          var trig, ffreq;
  154.          snd = AllpassN.ar(snd, 1, 0.1 / (12 - i), 2);
  155.          trig = Impulse.ar(2 ** (8 - i) / 32, 1 / 2);
  156.          ffreq = 80 ** TRand.ar(1, 2, trig).lag((2 ** (8 -
  157. i)).reciprocal);
  158.          snd = BRF.ar(snd, ffreq, 2);
  159.      };
  160.      Out.ar(0, snd);
  161. }).add;
  162. )
  163. Synth(\tweet);
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top