// LiveCoding by RudeCode /w visuals by b00leant


n=NdefMixer(s);
Ndef.clear;


// 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("/cuboView", 1);
Ndef(\wind,~windNoise).play;
)

//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("/cuboRotateX", 30);
//Ndef(\yu,~yuppa).play;
~yuppa.play;
)


// II° part





(
SynthDef(\onSal, {
    arg carfreq=300, modfreq=550, envdur=8;
    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);
)

(
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;
b.sendMsg("/cuboTraslaX", 30);
)
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; ~yuppa.free;
b.sendMsg("/piramideView", 1);
)



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


(
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("/piramideRotateX", 30);
)
//Evaluate this to get different permutations
(
~k2 = Pbind(\instrument,\bplay,\buf,d["sk"][0],\dur,Pbjorklund2(3,8)/4,\amp,0.35,\rate,Pseq([1,1.8],inf)*4);
~k2.play;
)




// III° Part


(

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

    Out.ar(out, diskin)

        }).send(s);

)

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

(
r = Synth.new("looper", [\bufnum,f.bufnum], s);
b.sendMsg("/piramideTraslaY", 30);
)

(
r.free;
f.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;
b.sendMsg("/sferaView", 1);
b.sendMsg("/cuboView", 0);
)

(
~k.stop;
~intro1.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;
~intro1.set(\ts,3);
)

(
~intro1.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;

(
~intro1.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;
)

(
~intro1.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;
~k2 = Pbind(\instrument,\bplay,\buf,d["sk"][0],\dur,1,\amp,0.5);
~k2.play;
)

// IV°

~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;
~k = Pbind(\instrument,\bplay,\buf,d["sk"][0],\dur,1,\amp,0.8);
~k.play;
b.sendMsg("/sferaTraslaX", 30);
)

~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;




///// simple bass 4 new track

(
~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 //
/////////////

// Ndef

Ndef(\wind,~windNoise).stop;

~yuppa.free;

// Synth

~coin.free;
~filterYuppa.free;
~intro1.free;

~h.free;
~h2.free;
~t.free;
~k.free;
~k2.free;
~bass1.free;

~oh.free;
~sd.free;
~synth.free;
~filterSd.free;
~verbSd.free;
~verbh.free;
~bass.free;
~filter.free;




(
p.clear;
Server.hardFreeAll;
)

b.sendMsg("/cuboView", 1);
b.sendMsg("/piramideView", 1);
b.sendMsg("/sferaView", 1);

b.sendMsg("/cuboRotateX", 30);
b.sendMsg("/piramideRotateX", 30);
b.sendMsg("/sferaRotateX", 30);

b.sendMsg("/cuboTraslaX", 30);
b.sendMsg("/piramideTraslaX", 30);
b.sendMsg("/sferaTraslaX", 30);