//12.13.2018 LIVE CODING

//SINTE 1 - PEIXERA
(
Ndef(\ambient,{
	arg freq=59, mix=0.8, room=1, damp=0.1, amp=1, lpf=100 ;
	var sig, env,fq;
	fq=EnvGen.ar(Env([69,67,64,69],[4,4,4],curve:'hold'),Impulse.ar(1/12));
	sig=SinOsc.ar(fq.midicps)*LFPulse.ar(1/4,0,0.5);
	sig=LPF.ar(sig,lpf);
	sig=FreeVerb.ar(sig,mix,room,damp);
	Out.ar([0,1],sig*amp);
}).add
)

Ndef(\ambient).fadeTime=20;
Ndef(\ambient).set(\lpf,10000); //1000>>10000>100>>10000
Ndef(\ambient).set(\damp,0.1)//0.1>>1>>0.01>0.1
Ndef(\ambient).set(\room,1)//1>>0.1>>0.01>>1

Ndef(\ambient).set(\amp,1)


Ndef(\ambient).clear;




//SINTE 2 - PERCUSIO
(
Ndef(\perc,{
	arg amp=0.1;
	var sig;
	sig=SinOsc.ar(220,0,Pulse.ar(1,0.5,0.05)*amp);
	sig=CombC.ar(sig,0.2,0.8,SinOsc.ar(0.1,-pi/2,MouseX.kr(1,20,'exponential'),MouseY.kr(1,20,'exponential')));
	sig=Limiter.ar(sig,1);
	Out.ar([0,1],sig);
}).play;
)

Ndef(\perc).fadeTime=20;
Ndef(\perc).set(\amp,0.5) //(0.1>>1>>0)
Ndef(\perc).clear();


//SINTE 3 - AGUT BASE
//!!!Do not play for a while.
(
SynthDef(\baseAgut,{
	arg freq=300, rel=0.2, amp=1;
	var sig,env;
	sig=SinOsc.ar(freq,0,0.5);
	sig=sig*Line.kr(1,0,rel);
	sig=CombN.ar(sig,0.2,0.2,2);
	Out.ar(0,sig*amp);
}).add;
)


(
Tdef(\agutlent,{
	var freq=[69,67,64];
	var rel=[0.2,0.2,0.4];
	var gap=[1,1,2];
	var i=0;
	inf.do{
		3.do{
			Synth(\baseAgut).set(\freq,freq[i].midicps,\rel,rel[i]);
			gap[i].wait;
			i=i+1;
		};
		i=0;
}}).fork;
)

Synth(\baseAgut).set(\amp,0.1);


Tdef(\agutlent).clear




//SINTE 4 - MELODIA

(
SynthDef(\agutperc,{
	arg freq=1000, rel=0.1;
	var sig,env;
	sig=SinOsc.ar(freq,0,0.6);
	env=EnvGen.ar(Env([0,1,0],[0.001,rel]),doneAction:2);
	sig=sig*env;
	sig=Limiter.ar(sig,1);
	Out.ar(1,sig);
}).add
)


//Execute once
(
p=Pbind(
	\instrument,\agutperc,
	\freq, Pseq([69,69,67,71,0].midicps,inf),
	\rel, 0.1,
	\dur, Pseq([1/8,1/8,1/4,1/4,1/4].scramble,inf)//tempo
).play;
)


//STREAMING>>

//temps1
(
p.stream = Pbind(
	\instrument, \agutperc,
	\freq, Pseq([69,69,67,71,0].swap(1,4).midicps,inf),
	\rel, 0.1,//0.1 >> 2
	\dur, Pseq([1/8,1/8,1/4,1/4,1/4].scramble,inf)
).asStream;
)

//END
p.stop

// SINTE 5 - NOISE

//Noise
(
Ndef(\gra,{
	arg freq=400, events=100, amp=0.5;
	var sig;
	sig=Resonz.ar(SinOsc.ar*Dust.ar(events),freq,1,amp);
	Limiter.ar(sig,3);
	Out.ar([0,1],sig);
}).play;
)


Ndef(\gra).set(\freq,400); //400>>100>>10000>>400 (Seq)
Ndef(\gra).set(\events,100); //100>>400>>1000

//AMP
Ndef(\gra).set(\amp,3)

//END
Ndef(\gra).clear


//SINTE 6 - OCELLS

(
SynthDef(\ocell,{
	arg amp=1, pan=0, freq=1000;
	var sig, env;
	sig=SinOsc.ar((freq+EnvGen.ar(Env([0,10000,0],[0.001,1]))),0,0.1)*EnvGen.ar(Env([0,1,0],[0.001,1]),doneAction:2);
	Out.ar(0,Pan2.ar(sig*amp,pan));
}).add;
)


//Execute just once
(
z=Pbind(
	\instrument,\ocell,
	\freq, Pseq(Array.rand(1000,2000,3000),inf),
	\pan, Pseq(Array.rand(100,-1,1),inf),
	//\pan, {inf.do{[-1,1].choose}}.fork,
	\amp, 3,
	\dur, Pseq(Array.rand(1000,1,2),inf)
).play;
)


//STREAMING>>
(
z.stream=Pbind(
	\instrument,\ocell,
	\freq, Pseq(Array.rand(100,2000,3000),inf),//(1-100 rand, 100-3000 freq, 3000-20000 FREQ)
	\pan, Pseq(Array.rand(100,-1,1),inf),
	\amp, 3, //1-3
	\dur, Pseq(Array.rand(100,0.01,0.4),inf)//(1-100 rand, 0.01-1temps, 0.01-2TEMPS)
).asStream;
)

//STOP
z.stop //stops sequence. will reset before resume


// SINTE 7 - BELL

(
SynthDef(\bell,{
	arg freq=400;
	var sig, env;
	sig={Mix(SinOsc.ar(freq*[0.5,1,1.19,1.56,2,2.51,2.66,3.01,4.1],0,0.1*[0.25,1,0.8,0.5,0.9,0.4,0.3,0.6,0.1]))};
	env=EnvGen.ar(Env([0,1,0],[0.01,5],-3),doneAction:2);
	Out.ar([0,1],sig*env);
}).play;
)

//Execute just once
(
y=Pbind(
	\instrument, \bell,
	\freq, Pseq(Array.rand(4,63,76).midicps,inf),
	\dur, Pseq(3*[1,1,1],inf)
).play;
)


//Streaming
(
y.stream=Pbind(
	\instrument, \bell,
	\freq, Pseq(Array.rand(5,63,76).mirror1.midicps,inf),//(100 completely random,63,76)// (2,// .mirror1
	\dur, Pseq(3*[1,1,1],inf) //change tempo 3* >>2* >> (0.3* max)
	//\dur, Pseq(Array.rand(5,0.5,1),inf) //random time intervals
).asStream;
)

//stop
y.stop

Live Coding 13.12.2018

(
SynthDef(\melody,{
	arg a=0.001, r=8, freq=80; //jugar amb canvi de release
	var sig, env;
	env=EnvGen.ar(Env.perc(a,r,1,-10),doneAction:2);
	sig=SinOsc.ar(freq,0,0.1);
	Out.ar([0,1],sig*env);
}).add;


Pbindef(\b, \instrument, \melody,
	\root, [2,10],//chords
	\degree,
	Pseq(
		[1,1,1,1, 4,7,1,3, 1,2,3,1, 5,4,8,6;
		 1,2,3,4, 1,3,1,4, 1,2,3,6, 5,4,8,6;
		 2,2,2,2, 4,7,1,3, 2,3,1,1, 10,4,8,6;
	     2,3,1,1, 0,3,0,4, 2,3,1,1, 12,4,8,7;
	],inf),
	\octave, 4, //permet cambiar doctaa
	\dur,0.4,
	\r, 4,
).play
)

2019.03.03 Pbindef Melody

//LIVE CODING HANGAR 2019.O3.28
//drone inici
(
SynthDef(\a,{
	arg freq=60, lpf=600;
	var sig, am, env;
	am=SinOsc.kr(0.1,0,0.03,0.07);//am
	sig=SinOsc.ar(freq.midicps,0,am);//sig
	sig=Pan2.ar(sig,SinOsc.kr(0.1,0,0.8));//pan
	env=EnvGen.kr(Env([0,1,1,0],[30,5,10]),doneAction:2);//env
	Out.ar(0,sig*env)
}).play
)

/////////////fondo

~fade={XLine.kr(0.01,1,30)};//fade in
~fade=1
~fade={XLine.kr(1,0.01,30)};//fade out

Ndef(\fondo,{PinkNoise.ar(0.04)*LFNoise2.ar(0.1,0.2,0.4)*SinOsc.ar(0.1,0,0.6,1)*~fade!2}).play

Ndef(\fondo).stop

//////////////////piano reverb
(
SynthDef(\piano,{
	arg freq=67,rel=10;
	var sig, env;
	sig=SinOsc.ar(freq.midicps,0,0.1);
	5.do{|i| sig=sig+(CombN.ar(sig,0.4*i,delaytime:0.30,decaytime:10)*(1/(i+1)))};//delaytime 0.30->0.25, decaytime 10-100
	sig=Limiter.ar(sig,0.5);
	env=EnvGen.ar(Env([0,1,0.5,0],[0.01,0.1,rel]),doneAction:2);
	Out.ar([0,1],sig*env);
}).add
)


Pbindef(\seq,\instrument,\piano,\dur, Pseq([0.5,6],inf),\rel,Pseq([2,4],inf),\freq,Pseq([60,67],inf)).play

2019.03.28 Live Coding Hangar

///////////////////////////////////
//2019.04.25 FROM SCRATCH HANGAR //
///////////////////////////////////


//IMPRO

Pbindef(\er,\freq,100,\dur, Pseq([4],inf)).play;
Pbindef(\ew,\freq,200,\dur, Pseq([1,0.5,1,2]*2,inf)).play;
Pbindef(\ev,\freq,300,\dur, Pseq([1,0.5,0.5,2].mirror/4,inf)).play;

Pbindef(\du,\instrument,\hh,\dur, Pseq([4],inf)).play;
Pbindef(\dh,\instrument,\sn,\dur, Pseq([1,1,1,0.5,0.5],inf)).play;
Pbindef(\dy,\instrument,\sn_gh1,\dur, Pseq([1,1,0.5,0.5,1],inf)).play;


---------------------------------------------------
//PREPAIRED SYNTHS

(
SynthDef(\hh, {|freq=20, dur=0.1, amp=1|
				var sig, env;
				sig=SinOsc.ar(Array.rand(10,1000,17000),0,amp/10).mean;
				sig=sig+RHPF.ar(WhiteNoise.ar(amp/8),1000);
				sig=Pan2.ar(sig,0);
				env=EnvGen.kr(Env.perc(0,dur),doneAction:2);
				Out.ar(0,sig*env);
				}).add;


SynthDef(\sn,{|gate=1, rel1=0.4, rel2=0.283, amp=1.2|
	var filtWhite = LPF.ar(WhiteNoise.ar(1), 7040, 1),sen;
	sen=((SinOsc.ar(330,0,0.25) * EnvGen.ar(Env.perc(0.0005,0.055), gate))
			+(SinOsc.ar(185,0,0.25) * EnvGen.ar(Env.perc(0.0005,0.075), gate))
			+(filtWhite * EnvGen.ar(Env.perc(0.0005,rel1), gate) * 0.2)
			+(HPF.ar(filtWhite, 523, 1) * EnvGen.ar(Env.perc(0.0005,rel2), gate) * 0.2)
			) * amp;
			DetectSilence.ar(sen,doneAction:2);
			sen=Pan2.ar(sen,0);
			Out.ar(0,sen)
			}).add;


SynthDef(\sn_gh1,{|gate=1, rel1=0.4, rel2=0.05, amp=1.2|
	var filtWhite = LPF.ar(WhiteNoise.ar(1), 7040, 1),sen;
	sen=((SinOsc.ar(330,0,0.25) * EnvGen.ar(Env.perc(0.0005,0.055), gate))
			+(SinOsc.ar(185,0,0.25) * EnvGen.ar(Env.perc(0.0005,0.075), gate))
			+(filtWhite * EnvGen.ar(Env.perc(0.0005,rel1), gate) * 0.2)
			+(HPF.ar(filtWhite, 523, 1) * EnvGen.ar(Env.perc(0.0005,rel2), gate) * 0.2)
			) * amp;
			DetectSilence.ar(sen,doneAction:2);
			sen=Pan2.ar(sen,0);
	Out.ar(0,HPF.ar(sen,1000))
			}).add;
)

2019.04.25 Live Coding Hangar Pbind

///LIVE CODING FOR 4a Escapada de Cultura i Creació Digitals
//CODE LANG (SCLANG /SUPERCOLLIDER)

///////////////////////
///SINTHDEF 1 AMBIENT//
///////////////////////

(
SynthDef(\ambient,{
	arg f1=0,f2=0,f3=0, add=2, amp;
	var sig, env;
	amp=0.1; //ENTRAR GRADUAL FINS 0.9. BAIXAR A 0.3 QUAN ENTRI SINTE 2+3
	sig=Mix(SinOsc.ar([f1,f2,f3].midicps,0,0.1));
	env=EnvGen.kr(Env([0,1,0],[3,5]),doneAction:2);
	Out.ar([0,1],sig*env*amp);
}).add
)

(
a=Pbindef(\k,\instrument,\ambient,
	\f1, Pseq([60, 67, 64, 55,  60, 67, 64, 55,  60, 67, 64, 55], inf),
	\f2, Pseq([00, 00, 00, 00,  64, 62, 60, 59,  64, 62, 52, 59], inf),
	\f3, Pseq([00, 00, 00, 00,  00, 00, 00, 00,  67, 55, 60, 62], inf),
	\dur, 4
)
)

a.play
a.stop


//////////////////////
//MELODIA I PERCUSIO//
//////////////////////


(
SynthDef(\arpegi,{
	arg amp,freq=60;
	var sig, env;
	amp=0.1; 
	sig=SinOsc.ar(freq.midicps,0,0.1);
	env=EnvGen.kr(Env([0,1,0.5,0],[0.01,0.1,0.1]),doneAction:2);
	Out.ar([0,1],sig*env*amp);
}).add;



SynthDef(\llarga,{
	arg amp,freq,sustain;
	var sig,env;
	amp=0.1; 
	sig=SinOsc.ar([freq,(freq+0.5)].midicps,0,0.1);
	env=EnvGen.kr(Env([0,1,1,0],[1,sustain,1]),doneAction:2);
	Out.ar([0,1],sig*env*amp);
}).add;


SynthDef(\bd,{
	arg out=0,gate=1,f=24,trig=1,vol=0.1; //cambiar f 24 28 31 // 36 40 43
	var sen, env;
	sen=SinOsc.ar(f.midicps,0,1)!2;
	env =EnvGen.kr(Env.perc(0,0.40),gate,doneAction:2);
	Out.ar(out,sen*env*trig*vol)
}).add;


SynthDef(\hh_lp, {
	arg freq=20, dur=0.1, trig=1, x=1, vol=0.1;
	var sig, env;
	sig=SinOsc.ar(Array.rand(10,1000,17000),0,x/10).mean;
	sig=sig+RHPF.ar(WhiteNoise.ar(x/8),1000);
	sig=LPF.ar(sig,2000);
	sig=Pan2.ar(sig,0);
	env=EnvGen.kr(Env.perc(0,dur),doneAction:2);
	Out.ar(0,sig*env*trig*vol);
	}).add;
)




(
	b=Pbindef(\arpegi,\instrument,\arpegi,
	\freq,Pseq([
		60,64,67,52,55,52,
		60,64,67,52,55,52,

		59,63,65,51,
		59,63,65,51
	],inf),
	\dur,0.2);

	c=Pbindef(\melody_slow,\instrument,\llarga,
	\freq,Pseq([60,59,60],inf),
	\sustain,Pseq([2.2,1.8,2.2],inf),
	\dur,Pseq([3.2,2.8,3.2],inf));



	d=Pbindef(\bassdrum,\instrument,\bd,
	\trig,Pseq([
		0,1,0,1,0,1,
		0,1,0,1,1,1,

		0,1,0,1,0,1,
		0,1,0,1,0,1
	],inf),
	\dur,0.2);

	e=Pbindef(\hh_lowpass,\instrument,\hh_lp,
	\trig,Pseq([
		1,0,1,0,1,1,
		0,1,0,0,1,1,

		1,0,1,0,1,1,
		0,1,0,0,0,0,
	],inf),
	\dur,0.2);
)


b.play;//1:arpegi
c.play;//2:melody slow
d.play;//3:bd
e.play;//4:hh_lowpass


b.stop;//1:arpegi
c.stop;//2:melody slow
d.stop;//3:bd
e.stop;//4:hh_lowpass


///////////
///ESCALA//
///////////


(
SynthDef(\scale,{
	arg vol,freq=60,off=2;
	var sig, env;
	vol=0.3;
	sig=SinOsc.ar(([freq+off,freq+off+SinOsc.ar(1,0,0.5)]).midicps,0,0.1);
	env=EnvGen.kr(Env([0,1,0.5,0],[0.01,0.2,1]),doneAction:2);
	Out.ar([0,1],sig*env*vol);
}).add
)

(
f=Pbindef(\escala,\instrument,\scale,
	\freq,Pseq([60,55,64],inf),
	\off, Pseq((0!40)++(2!10)++(4!10)++(5!10)++(3!10),inf),
	\dur,0.2)
)
f.play
f.stop


///////////
//DRONE 1//
///////////

//*N1: drone 1 densitat de - >> + >> - densitat(10>7>5>2>1>0.7>10>0.7>10>100 Deixar a 10.
(
g=Tdef(\g,{
	inf.do{//ficar amp=0 per aturar
		{Pan2.ar(SinOsc.ar([60,48,36, 64,52,40, 67,55,43].choose.midicps,0,mul:0.1),[-1,0,1].choose)*EnvGen.kr(Env([0,1,0],[5,5]),doneAction:2)*SinOsc.ar(Rand(0.1,1),0,z=Rand(0.0,0),1-z)}.play;
		10.wait;//anar cambiant la densitat de 0.7 a 10 //stop=100000...wait;
}}).fork;
)

g.stop;

/////////////
//SOROLLETS//
/////////////

//*N2: anar executant
{Limiter.ar(Pan2.ar(Blip.ar(LFNoise0.ar(1,10,0),10,0.1),TChoose.kr(Impulse.kr(1,0,1),[-1,1])),0.5)*EnvGen.kr(Env([1,1,0],[10],curve:\step),doneAction:2)}.play



h=Ndef(\h,{Pan2.ar(Blip.ar(SinOsc.ar(30,0,1),80,0.1),-1)}).play
i=Ndef(\i,{Pan2.ar(Blip.ar(SinOsc.ar(40,0,1),1,0.1),1)}).play
j=Ndef(\j,{Pan2.ar(Blip.ar(SinOsc.ar(100,0,1),80,0.1),SinOsc.ar(10,0,1))}).play
k=Ndef(\k,{Pan2.ar(Blip.ar(SinOsc.ar(860,0,1),100,0.1),-1)}).play
l=Ndef(\l,{Pan2.ar(Blip.ar(SinOsc.ar(40,0,1),1000,0.1),1)}).play
m=Ndef(\m,{Blip.ar(SinOsc.ar(60,0,1),1000,0.1)!2}).play

h.stop;

20190504 ESC live coding

//FROM SCRATCH FROM SCRATCH

(Tdef(\i,{inf.do{
	(freq:([100,200,400]+000).choose,dur:2).play;
		1.wait
	};
}).fork;
)

2019.06.17 - Rzm1

//RZM 2


Ndef(\a).play;
Ndef(\a).fadeTime=10;
Ndef.clear(10);


Ndef(\a, {SinOsc.ar([200,201],0,0.1)});

Ndef(\a, {SinOsc.ar([300,302],0,0.1)});

Ndef(\a, {SinOsc.ar([100,200,400].choose*[1,rrand(1,1.01)],0,0.1)});


(
Tdef(\t,{
	inf.do{
		Ndef(\a, {SinOsc.ar([100,200,400].choose*[1,rrand(1,1.01)],0,0.1)});
		10.wait;
	}
}).fork;
)




///////////////////////
Ndef(\b).play;
Ndef(\b).fadeTime=10;

Ndef(\b,{HPF.ar(WhiteNoise.ar,LFNoise2.kr(1).range(1000,10000))!2})
Ndef(\b,{HPF.ar(WhiteNoise.ar,10000)!2})
Ndef(\b).clear(10);

2019.06.19 - Rzm2

//RZM 3

(
Tdef(\a,{
	inf.do{
		5.do{arg k;
			4.do{arg j;
				8.do{arg i=i+1;
					Ndef(\b,{(freq:((60+j).midicps*i+k)).play});
					1.wait;
			};
				//0.5.wait;
			};
			//0.1.wait;
		};
		2.wait;
	}
}).fork;
)

2019.06.20 - Rzm 3

//RZM 5

s.boot
().play

///////

(
SynthDef(\beats,{
	arg amp=1,freq=60,atk=2,rel=1,delaytime=0.4,beat=1;
	var sig,env;
	sig=SinOsc.ar([freq.midicps,freq.midicps+beat],0,0.1);
	env=EnvGen.kr(Env([0,1,0],[atk,rel]));
	sig=CombN.ar(sig*env,delaytime,delaytime,20)*EnvGen.kr(Env([0,1,0],[20,20],\step),doneAction:2);
	Out.ar([0,1],sig*amp);
}).add;

SynthDef(\delay,{
	arg amp=1,freq=60,atk=0.01,rel=1,delaytime=0.3;
	var sig,env;
	sig=SinOsc.ar(freq.midicps,0,0.1);
	env=EnvGen.kr(Env([0,1,0],[atk,rel]));
	sig=CombN.ar(sig*env,delaytime,delaytime,10)*EnvGen.kr(Env([0,1,0],[20,20],\step),doneAction:2);
	Out.ar([0,1],Pan2.ar(sig*amp,0));
}).add;
)


//62 66 69 61 66  RE MAJOR

p=ProxySpace.push(Server.local.boot);

(
~amp1={Line.kr(0.01,0.5,20)};
~amp2=0;
~delay2=0.3;
)



(
Pbindef(\Pbeats,//pbind1
	\instrument, \beats,
	\freq, Pseq((([62, 66, 69, 61])),inf),
	\dur, Pseq([2,3,1,4],inf),
	\amp, ~amp1
).play;

Pbindef(\Pdelay,//pbind2
	\instrument, \delay,
	\freq, Pseq((([62, 66, 69, 61])),inf),
	\dur, Pseq([2,3,1,4],inf),
	\amp, ~amp2,
	\delaytime, ~delay2,
).play;
)


/////control
(
~amp1={MouseX.kr(0.5,0.1)};
~amp2={MouseX.kr(0.1,1)};
)


~delay2={SinOsc.kr(0.1).range(0.3,0.33)};
~delay2={MouseY.kr(0.3,0.1)};//no va massa be
~delay2={SinOsc.kr(0.1).range(0.1,0.3)}; //esta guapo! desfasat



~delay2=0.1;
~delay2=0.5;
~delay2=1;


~amp1={Line.kr(0.5,0.0001,20)};
~amp2={Line.kr(0.5,0.0001,20)};



(
Pbindef(\Pbeats).stop;
Pbindef(\Pdelay).stop;
)




/////////////         ////////////////////////
///     /////        ////////.................
///    /////        ////  ////
///    /////       ////    ////
///////////        ////     ////
///               ////
///              ////
///              ////
///             ////

2019.06.22 - Rzm5

~~ALGORAVE 2019/07/19 
//(drummachine missing due to characters limit)
/////////////////
//DEFINE SYNTHS//
/////////////////

(
//--------------------------------------------------------------
//1.SOFT-BEEP

SynthDef(\soft,{arg freq=50, sup=0, ampsoft=1; var sig, env;
	sig=SinOsc.ar((freq+sup).midicps,0,0.1);
	env=EnvGen.kr(Env([0,1,0],[1,10],curve:0),doneAction:2);
	Out.ar([0,1],sig*env*ampsoft);
	}).add;

SynthDef(\beep,{arg freq=50,sup=0, ampbeep=1; var sig, env;
	sig=SinOsc.ar((freq+sup).midicps,0,0.2);
	env=EnvGen.kr(Env([0,1,0],[0.01,0.05],curve:5),doneAction:2);
	Out.ar([0,1],sig*env*ampbeep);
	}).add;


//4.ARPEGI

SynthDef(\arpegi,{arg freq=38, dur=0.1, amp=1, lpf=300, delay=0.1; var sig, env;
	sig=LPF.ar(Mix(Saw.ar([1,4,8,3]*freq.midicps+SinOsc.ar([1,3]*freq.midicps),[0.3,0.2,0.1,0.5])),lpf);
	env=EnvGen.kr(Env([0,1,0],[0.01,dur]));
	sig=CombN.ar(sig*env,delay,delay);
	sig=sig*EnvGen.kr(Env([0,1,1,0],[0.1,3,0.1],curve:'step'),doneAction:2);
	Out.ar([0,1],sig*amp);
}).add;

)

////////////////
//DEFINE TDEFS//
////////////////

(

//---------------------------------------------
//1.SOFT-BEEP
~ampsoft=0;
~ampbeep=0;
Tdef(\tsoftbeep,{
	inf.do{
		[0].do{|s|
			[50,54,50,59,57].do{|i|
				Synth(\soft).set(\freq,i,\sup,s,\ampsoft,~ampsoft);
				0.wait;
				40.do{|j|
					Synth(\beep).set(\freq,i,\sup,s,\ampbeep,~ampbeep*(((j+1)/40)*(1-((j+1)/40)))*4);//(i+[0,12].choose)
					0.125.wait;
				};
			2.wait;
}}}});



//----------------------------------------------
//3.PIANO

Tdef(\piano,{
	~pianofreq=[50,54,0,0,57,0];
	~pianodur=1;
	~pianoamp=0;
	inf.do{
		6.do{arg i; var freq=~pianofreq, dur=[1,3,0,0,2,0]+~pianodur;//anar sumant valors fins a 15 o baixarlos
			(freq:freq[i].midicps,dur:dur[i],amp:~pianoamp).play;
			1.wait;
}}});


//---------------------------------------------
//4.ARPEGI
Tdef(\tarpegi,{
	~arpfreq=[50,52,53,55,57,59,60,62];
	~arpamp=0;
	~arpdur=[1,1,1,1,1,1,1,2]*0.1;
	~arplpf=300;
	~arpdelay=0.1;
	~arppos=7;
	inf.do{
		([59,64,62,65,64]).do{|j|
			~arpfreq[~arppos]=j;
			3.do{
				8.do{arg i ;
					Synth(\arpegi).set(\freq,~arpfreq[i],\amp,~arpamp,\dur,~arpdur[i],\lpf,~arplpf,\delay,~arpdelay);
			(1/8).wait;
					};
			};
		};
}});

)



//////////////////
//PLAY ALL TDEFS//
//////////////////

(
//1.SOFT-BEEP
Tdef(\tsoftbeep).play;

//3.PIANO
Tdef(\piano).play;

//4.ARPEGI
Tdef(\tarpegi).play;
)



///////////
//CONTROL//
///////////

//1.soft-beep
~ampsoft=0.1;//1 ***FER MES SOLAPAMENT!!
~ampbeep=0.1;//1
//3.piano
~pianoamp=0.00;//0.1
~pianofreq=[50,54,0,0,57,0];//59
~pianodur=2;

//aqui falta un drone nota llarga
(
~m=0.5;
Ndef(\a,{Mix(SinOsc.ar(Array.rand(10,110*~m,110*~m+0.1)*[1,2,3,4,5,6],0,0.01))!2});
)
Ndef(\a).fadeTime=5;
Ndef(\a).play;
Ndef(\a).clear(10);
//4.arpegi
~arpamp=0.0;
~arpfreq=[50,52,53,55,57,59,60,62];//reverse, pyramid
~arpdur=[1,1,1,1,1,1,1,2]*0.1; //anar augmentant el 2 o el 0.1
~arpdelay=0.1;//molt sensible. baixant mola.
~arplpf=300;
~arppos=7;
//

Yago Raymond Llorens

Popular tracks