// LiveCoding by RudeCode /w visuals by b00leant

//OSC - R E C I V E
(
OSCdef(\osc1,
    {arg msg, time, addr, recvPort;
        msg.postln; //displays the received OSC messages on the windows post
        /*synth*/.set(\/*arg*/, msg/*.lincurve(0,10,110,146)*/);
}, '/foo', recvPort:57120); // the path of the OSC address of this object
)

// OSC  - S E N D

b = NetAddr.new("192.168.1.25", 8000);

b.sendMsg("/cubo", 1);

///////////////////////////////////////////////
//////////////////////////////////////////////


//Load setup file to get examples working
("C:/Users/Mauro/Desktop/howto_co34pt_liveCode-master/Setup/Setup.scd").load;

p.clock.tempo = 120/60;

~windNoise={Pan2.ar(Gendy4.ar(0,initCPs:1))};

(
b = NetAddr.new("192.168.1.25", 8000);
b.sendMsg("/cubo", 1);
Ndef(\wind,~windNoise).play;
)

(
~coin=SynthDef("tCoin", { arg out=0, prob=0.08;
    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)})
    )
}).add;
)


~coin.set(\prob, 0.5); //0.01 - 0.05 - 0.5



//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};

(
b.sendMsg("/cubo", 15);
Ndef(\yu,~yuppa).play;
)




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





// II° part


Ndef(\wind).stop(3);

~filterYuppa.free;




(
SynthDef(\onSal, {
    arg carfreq=50, modfreq=55, envdur=64;
    var sig;
    sig=PMOsc.ar(carfreq, modfreq, Line.ar(0,20,envdur,doneAction:2 )!2, 0, 0.02);
    Out.ar(0, sig);
}).add;
)



(
~windNoise.free(4);
~intro1= Pbind(\instrument, \onSal ,\dur,24);
~intro1.set(\carfreq,300);
~intro1.set(\modfreq,550);
~intro1.set(\envddur,8);
)

(
p.fadeTime = 4;
~intro1= Pbind(\instrument, \bpfsaw , \rel,0.05, \ts,1,\dur,Pseq([0.5,Pseq([1],inf)],inf),\freq, [110,150,180], \amp, 0.4);
~intro1.play;
)
p.fadeTime=0;
~intro1.set(\ts,0.1);



~h = Pbind(\instrument,\bplay,\buf,d["ch"][3],\dur,Pwhite(0.25,0.75).round(0.25),\amp,Pwhite(0.2,0.5));

~h2 = Pbind(\instrument,\bplay,\buf,d["ch"][3],\dur,Pwhite(0.25,0.75).round(0.25),\amp,Pwhite(0.2,1),\rate,Pseq([1,2],inf)*2);

(
~intro1.free(3);~h.play;~h2.play; Ndef(\yu,~yuppa).free;
b.sendMsg("/cubo", 2);
)



(
~t = Pbind(\instrument,\bplay,\buf,d["t"][0],\dur,Pseq([1,1,1,0.5],inf),\amp,0.5,\rate,1.5);
~t.play;
b.sendMsg("/sfera", 0);
)


(
p.clock.tempo = 2;
~k = Pbind(\instrument,\bplay,\buf,d["sk"][0],\dur,Pbjorklund2(3,8)/4,\amp,0.5,\rate,Pseq([1,1.2],inf));
~k.play;
b.sendMsg("/sfera", 2);
)
//kicks at a different pitch. Evaluate this a few times to get different permutations
(
~k2 = Pbind(\instrument,\bplay,\buf,d["sk"][0],\dur,Pbjorklund2(3,8)/4,\amp,0.5,\rate,Pseq([1,1.8],inf)*4);
~k2.play;
)




// III° Part



p.clock.tempo = 140/60;

(

        SynthDef("looper",{ arg out=0,bufnum, vol=0.8;
    var diskin;
    diskin = (DiskIn.ar( 2, bufnum, 1))*vol;

    Out.ar(out, diskin)

        }).send(s);

)

(
b = Buffer.cueSoundFile(s,"C:/Users/Mauro/Desktop/LiveCoding/Code/CODICE/AUDIOSAMPLE/IntroLake.wav"
, 0, 2);
)

r = Synth.new("looper", [\bufnum,b.bufnum], s);


(
r.free;
b.free;
~bass1= Pbind(\instrument, \ring1 ,\a,6,\d,2,\dur,1, \amp,0.4);
~bass1.play;

~k = Pbind(\instrument,\bplay,\buf,d["k"][0],\dur,1,\amp,0.5);
~k.play;
)

(
~k.stop;
~intro.set(\ts,0.2);
)


(
//~k.play;
~oh = Pbind(\instrument,\bplay,\buf,d["ch"][0],\dur,Pseq([0.5,Pseq([1],inf)],inf),\amp,1);
~oh.play;
)

(
~k.stop;
~intro.set(\ts,3);
)

(
~intro.set(\ts,0.2);
~k.play;
~h = Pbind(\instrument,\bplay,\buf,d["ch"][0],\dur,0.25,\amp,Pwhite(0.1,0.4));
~h.play;
)

~k.stop;

(
~intro.stop;
~sd = Pbind(\instrument,\bplay,\buf,d["s"][4],\dur,2,\amp,0.5);
~sd.play;
~bass1.set(\d,1);
~bass1.set(\amp, 0.35);
)

(
~k.stop;
~bass1.stop;
~h.stop;
~sd.stop;
)


(
~intro.stop;
~k = Pbind(\instrument,\bplay,\buf,d["k"][0],\dur,Pwhite(0.25,0.5).round(0.25), \amp, 0.5);
~k.play;
~bass1.set(\d,1);
~h.play;
~bass1.play
)


(
~k.stop;
~fx1.stop;
~k2 = Pbind(\instrument,\bplay,\buf,d["sk"][0],\dur,1,\amp,0.5);
~k2.play;
)

//// techno 4
~synth= Pbind(\instrument, \sinfb, \rel,0.5 ,\dur,Pseq([0.5,Pseq([1],inf)],inf),\freq, [110,150,180]);

(
~bass1.stop;
~synth.play;
)

~k2.stop;

(
~fx2.stop;
~gate.stop;
~k = Pbind(\instrument,\bplay,\buf,d["sk"][0],\dur,1,\amp,0.8);
~k.play;
)

~sd = Pbind(\instrument,\bplay,\buf,d["s"][4],\dur,2,\amp,0.5);
~sd.play;


~filterSd = {LPF.ar(~sd, 200 , 3.5)};
~filterSd.play;


~verbSd= {FreeVerb.ar(~sd,0.33,0.5,0.8)};
~verbSd.play;


(
~h = Pbind(\instrument,\bplay,\buf,d["ch"][0],\dur,0.5,\amp,Pwhite(0.1,0.3));
~h.play;
)


~verbh= {FreeVerb.ar(~h,0.60,0.5,1)};

// game game game
(
~k.stop;
~h.stop;
)


(
~k.play;
~verbh.play;
)
~verbh.stop;

(
{ | atk = 0.01, dur = 0.15, freq = 50, amp=0.8 |
    BPF.ar(LFSaw.ar(freq), freq, 2, mul: EnvGen.kr( Env.perc( atk, dur-atk, amp, 6 ), doneAction: 2 )) ! 2;
}.asSynthDef.name_("bass").add;
)


(
~bass = Pbind(
        \instrument, \bass,
        \delta, 1/4,
    //  \dur, Pkey(\delta) * Pfunc({ thisThread.clock.beatDur }),
    \dur, 0.08,
        \freq, Pseq([/*\r*/ 50,60,70].pyramid, inf),
        \amp,0.3
))

~bass.play;
~bass.set(\freq, 50);

~filter = {MoogFF.ar(~bass, 2000, 3.5)};

~filter.play;
~filter.stop;




///// basso semplice insieme alla sola cassa da qui si ricostiuisce una nuova traccia

(
~bass = Pbind(
        \instrument, \bass,
        \delta, 1/2, // !!!!!!!!!!!!!!!!!!

    \dur, 0.08,

        \amp,0.3
))



(
~h = Pbind(\instrument,\bplay,\buf,d["ch"][3],\dur,0.25,\amp,Pwhite(0.1,0.2));
~h.play;
)

(
~sd = Pbind(\instrument,\bplay,\buf,d["s"][4],\dur,2,\amp,0.5);
~sd.play;
)



~filter = {MoogFF.ar(~bass, 100, 3.5)};
~filter.play;
~filter.stop;


~h2.free;

//chiusura

(
p.clear;
Server.hardFreeAll;
)