• API
• FAQ
• Tools
• Archive
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
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);