sssssssssss

//Load setup file to get examples working
("/Setup/Setup02.scd").loadRelative;
p.clock.tempo = 130/60;


~windNoise={Pan2.ar(Gendy4.ar(0,initCPs:1))};
~windNoise.free(2);
Ndef(\a,~windNoise).play;


(
a = SynthDef("help-TCoin", { arg out=0, prob=0.5;
    var trig;
    trig = Impulse.ar(20, 0, SinOsc.kr(0.5,0,1,1));
    Out.ar(out,
        Mix.fill(3, {Ringz.ar(CoinGate.ar(prob, trig*0.5), #[1,1.5]*Rand(1000, 9000), 0.01)})
    )
}).play;
)

a.set(\prob, 1.0);
a.set(\prob, 0.0);
a.set(\prob, 0.5); //0.01 - 0.05 - 0.5

a.free;

///////////// triggerare windNoise prima di continuare


//YUPPA by Nathaniel Virgo ('headcube')-140-character
~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};

(

Ndef(\x,~yuppa).play;
)

Ndef(\x).stop(3);
Ndef.clear(8);


// Synth noisOne

(
~noisOne =  {
var noise, filterfreq;
noise = WhiteNoise.ar(0.05 ! 2)+ Dust2.ar(70 ! 2);
filterfreq = LFNoise1.kr(3, 5500, 6000);
Resonz.ar(noise * 5, filterfreq, 0.5) + (noise * 0.5);
};
)


c=NdefMixer(s);
Ndef(\n,~noisOne).play;


//NOISE BETA

(
Ndef(\noiseBeta,{
arg vol=0.7;
var n;
n=15;

vol*
Resonz.ar(
Mix.fill(n,{
var freq, numcps;

freq= rrand(330,460.3);
numcps= rrand(2,20);
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,
    SinOsc.kr(exprand(0.02,0.2), 0, numcps/2, numcps/2), 0.5/(n.sqrt)), 1.0.rand2)
    }), Line.kr (100,2000, 60, doneAction:2), Line.kr(0.01,1.0,60, doneAction:2))
}
)
)

(
Ndef(\n).stop(8);
Ndef(\noiseBeta).play;
Ndef(\noiseBeta).set(\vol,2);
)
Ndef.clear;
// BAASTARDO


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)})

Ndef(\baaStardo).play;



(
Ndef(\baaStardo,{
    arg molt=5; //farlo arrivare anche a 1000 e aggiungerci un Reverbero
    Pan2.ar(Gendy1.ar(1,1,1.0,1.0,30,100,0.3,0.05,molt))})
)








///// da aggiunere ???
//overkill
(
{
var n;
n=10;

Mix.fill(n,{
var freq, numcps;

freq= rrand(130,160.3);
numcps= rrand(2,20);
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)
});
}.play
)
















//FILTER ~yuppa
(
z = {
    BMoog.ar(
        Ndef(\x),
        MouseX.kr(20,20000,\exponential), // cutoff freq.
        MouseY.kr(1.0, 0.0, \linear), // q
        0, // mode - lowpass
        0.25); // mul
}.play)
z.;