Hackpact.Mx

. . . make and document something new everyday, for one month
Inicio Proyectos     Contacto Ligas

Dosi's.HechameLTaMale

 
   
31 Julio 2011

//código SuperCollider

///Este es el Mero por favor... escuchen esta maravilla no es que sea mio pero esta muy canijo...


{SinOsc.ar}.play



s.record;
s.stoprRecording;

reproducir muestra

descargar código

ElUtlimoElMas ErguitasDe TodosLosHPdeTodos

30 Julio 2011
   
29 Julio 2011

//código SuperCollider

s.boot;

Tdef(\add).stop;Ndef.clear(7);
(
Tdef(\add,{
inf.do{
(
Ndef('z',{a=Array;b=LFDNoise3;l=Crackle;Limiter.ar(CombN.ar(Decay.ar( {Klank.ar(`[a.rand(12,130,170).postln+450,a.rand(5,0.05,0.1)],l.kr(0.5) ,freqscale:l.kr([1, 0.1])*b.kr(2.1))}*b.kr([1.1, 1.2]/l.ar.abs), b.kr(0.1).range(1e-3,2e-2)),b.kr.abs/l.kr, TExpRand.kr(1e-3, 0.4, Impulse.kr([3, 7]*l.kr+b.kr))), 0.9, 0.03)}/3).play;
);
[4, 5.3, 0.5, 3.86].choose.wait
}
}).play;
Ndef('z').fadeTime=12.0;
)

s.record;
s.stopRecording;

reproducir muestra

descargar código

29.YaNoSeQuePonerle

28 Julio 2011

//código SuperCollider

play{a=Crackle;a.ar((2)*5e-4*a.kr(Impulse.kr([7.1,4.3]/LFNoise2.kr(12.3),0.0002,1/4)))}

 
27 Julio 2011

//código SuperCollider

s.reboot;

a = NodeProxy(s, \audio, 2).ajuits;
a.fadeTime=12;
(
x=Pxrand([4, 8, 0.7, 2, 1], inf).asStream;
Tdef('alo',{
loop{
(
a[0]={|a1= 1, b1=1, freq1=1400, freq2=250 |
b=Ringz.ar(
PMOsc.ar(
Array.fill(a1, {|i|FSinOsc.ar((i + 1) * freq1 + 40.rand, i * 2/pi, 0.1)} * 7 ),
Array.fill(b1, {|i|VarSaw.ar((i + 1) * freq2 + 50.rand, 0.1, 1)} * 5),
LFDNoise0.kr(10.2, 2, 5).range(0.0001, 0.7)),
LFPulse.kr(0.1, 0.1, 3, 3)*[0.1, 0.2],
LFNoise0.kr([14.3, 8.1], 0.1, 3),
1.5/pi, 0.7).atan.distort;
FreeVerb.ar(
Compander.ar(b, b, 1, 1, 1/2, 0.1, 0.4),
0.3, 0.7, 0.01)
} *1;
);
x.next.wait;
}
}).play
)

a.play;
a.clear(5);

s.record;
s.stopRecording;

reproducir muestra

descargar código

27.NodeProxy.ajuits

26 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot; s.latency=0.01)

p.fadeTime=3.4;

~sale.play;
NodeProxy.audio(s, 2)

(
a=Pxrand([4, 8, 0.7, 2, 1], inf).asStream;
Tdef(\reload,{

inf.do{
(
~entre={
//también => AllpassL.ar()
CombL.ar(
VarSaw.kr([0.2, 0.8]/LFNoise0.kr(17), LFTri.kr(0.1).range(0.1, 1), LFNoise2.kr(0.01).range(0.1, 1)) *
Mix(
Array.fill(
7,
{|i|FSinOsc.ar((i+3 * 50.rand).postln + 100, i * pi/2, i * TExpRand.kr(2e-4, 0.01, SinOsc.kr([8, 12])) * LFDNoise0.kr(12.7.rand).range(2, 5)) * 2}
)) *
Gendy3.kr(
5,
0.020,
TRand.ar(1e-3, 0.1, Impulse.kr(12.4),
TRand.ar(1e-2, 0.1, Impulse.kr(18.4)),
200 * 3/4),
300,
0.3,
LFNoise1.kr(1.3).range(0, 1),
LFNoise1.kr(0.3).range(0, 1)),
0.7,
TExpRand.kr(1e-4, 0.1, SinOsc.kr([4, 12]) * LFDNoise0.kr(12.7.rand)),
2).distort
}/2
);
a.next.wait;
};
}
).play.quant_(0);
);
Tdef(\reload).stop;

~sale=~entre;

p.clear(8);

s.record;
s.stopRecording;

reproducir muestras

26.pue'ahi

25 Julio 2011

//código SuperCollider

/////Ascii= [ ; , l, k, j, h, g, f]

p=ProxySpace.push(s.boot;s.latency=0.01;)

p.fadeTime=1.2;

~mc.play;
NodeProxy.audio(s, 2);

a=Buffer.alloc(s, s.sampleRate * 2, 1);
b=Buffer.alloc(s, s.sampleRate * 1, 1);
c=Buffer.alloc(s, s.sampleRate * 3, 1);
d=Buffer.alloc(s, s.sampleRate * 8, 1);
f=Buffer.alloc(s, s.sampleRate * 27, 1);
g=Buffer.alloc(s, s.sampleRate * 3, 1);
h=Buffer.alloc(s, s.sampleRate * 5, 1);

a.free;
b.free;
c.free;
d.free;
f.free;
g.free;

~rec1={RecordBuf.ar(SoundIn.ar(1), h.bufnum, loop: 0, doneAction:2)};

 

(
w=SCWindow("paQUEescribas", Rect(400,200,300,500)).front;
w.view.keyDownAction={|view, char, modifiers, unicode, keycode|
                            [char, keycode].postln;
                            };

~env1={Pan2.ar(SinOsc.ar([80, 120]) * PlayBuf.ar(1, a.bufnum, trigger: KeyState.kr(38, 0, 1, 0.001), loop: 1), -0.3) * 0.4};

~env2={Pan2.ar(PlayBuf.ar(1, b.bufnum, trigger: KeyState.kr(40, 0, 1, 0.001), startPos:0, loop: 1), 0)};

~env3={Pan2.ar(PlayBuf.ar(1, c.bufnum, trigger: KeyState.kr(37, 0, 1, 0.001), startPos:5000, loop: 1), 0)};

~env2={Splay.ar(FreeVerb.ar(PitchShift.ar(PlayBuf.ar(1, c.bufnum, trigger: KeyState.kr(37, 0, 1, 0.001), startPos: 5000, loop: 1), 1, Demand.kr(Impulse.kr(2), 0, Dseq([ 0.3, 0.5], inf)), 0, 1), 0.3, 0.9, 0.01), 0.8)};

~env4={Splay.ar(FreeVerb.ar(VarSaw.ar(Demand.kr(Impulse.kr(TRand.kr(4, 12, Impulse.kr(8))), 0, Dxrand([550/3, 0, 150/2, 0, 350 * 16, 0, 550], inf))) * PitchShift.ar(PlayBuf.ar(1, d.bufnum, trigger: KeyState.kr(41, 0, 1, 0.001), startPos: 5000, loop: 1), 1, 0.5, 0, 0.1), 0.3, 0.5, 0.1), 1) * 2};

~env5={Pan2.ar(PlayBuf.ar(1, f.bufnum, trigger: KeyState.kr(4, 0, 1, 0.001),startPos: d.numFrames.rand), 0) * 2};
,
~env6={Pan2.ar(PlayBuf.ar(1, g.bufnum, trigger: KeyState.kr(5, 0, 1, 0.001)),[-1, -0.5, 0, 0.5].choose) * 2};

~env7={Pan2.ar(PlayBuf.ar(1, h.bufnum, trigger: KeyState.kr(3, 0, 1, 0.001)),[1, 0.5].choose) *1.5};
ffffffggh
)

~mc= ~env2 + ~env6 + ~env5 + ~env7 + ~env3

p.clear(10);

 

s.record;
s.stopRecording;

reproducir muestra

descargar código

25.ViajarAlMundo

24 Julio 2011

//código SuperCollider


////inspirado en Bathaun Bozkurt tweet, con audio de http://webhamster.com/

p=ProxySpace.push(s.boot;)
p.fadeTime=4.5;

~ipa.play;

(
b=Buffer.read(s, "sounds/theHamsterDance.aiff");
b.query;
b.numFrames;

~ueuu={Limiter.ar(
Splay.ar(
AllpassC.ar(
PitchShift.ar(
LFPulse.ar([5, 2, 3]).cosh *
PlayBuf.ar(2,
b.bufnum,
TRand.ar(0.27, 0.3, Impulse.ar(0.7)).round(0.2, 0.5),
startPos:BufFrames.kr(b.bufnum + TDuty.ar(TRand.ar(0.002, 1, LFPulse.ar(0.4)))),
loop:1),
1,
2,
0,
0.3),
TRand.ar(1e-3, 1.2, SinOsc.ar(0.1)),
TRand.ar(1e-6, 0.1, LFPulse.ar([0.3, 2])),
2),
0.8),
0.7, 0.01)};
)
~ipa=~ueuu;

p.clear(3);

s.record;
s.stopRecording

reproducir muestra

descargar código

24.El DiabloContenton...

23 Julio 2011

//código SuperCollider

s.reboot;

p=ProxySpace.push(s.boot;)

p.fadeTime=10;

s.record;

~aun.play;

(
~tal={Limiter.ar(
FreeVerb.ar(
Splay.ar(Array.fill(
1,
{|i| i=(i+1);
BPF.ar(
SyncSaw.ar(Demand.kr(Dust2.kr(TRand.kr( 0.1, 1, Impulse.kr(2))),
0,
Dswitch1([
Dseq((63..72).midicps* [1.2, 0.5, 1.03, 1].scramble, 3),
Dseq((63..72).midicps*0.2, 4),
Dseq((63..72).midicps * 1.2, 2),
Dseq((63..72).midicps/2.2, 2)], Dxrand((0..3), inf))
), Demand.kr(Dust2.kr(TRand.kr( 0.1, 1, Impulse.kr(2))),
0,
Dseq((63..72).midicps* [2.2, 2.5, 2.03, 2].scramble, 3))),
i + LFPulse.kr([15.2 + LFNoise2.kr(0.2, 5), 5.7, 24 + LFDNoise3.kr(2.2), 2, 0.1]**LFNoise1.kr(0.4)).range(i*2, 70) +
Demand.kr(Dust2.kr(TRand.kr( 4, 14, LFNoise2.kr(22))),
0,
Dser([Dseq((63..72).midicps * [1.2, 0.5, 1.03, 1].scramble, 3),
Dseq((63..72).midicps*0.2, 4),
Dseq((63..72).midicps * 1.2, 2),
Dseq((63..72).midicps/1.2, 2)], inf)
),
i * LFNoise1.kr([0.2, 2.7, 1, 2, 1]*LFNoise2.kr(3.3)).range(0.1, 0.00001),
i * LFNoise1.kr(1.4).range(0.05, 1))})
, 0.8, 1, 0),
0.5, 0.9, 0.1),
0.1, 0.03)
};
)

~aun= ~tal;
NodeProxy.audio(s, 2)

p.clear(4);

s.stopRecording;

reproducir muestra

descargar código

23.MelodISsSTE

22 Julio 2011

//código SuperCollider

s.reboot;

p=ProxySpace.push(s.boot;)

p.fadeTime=7;

~carn.play;

(
~al={Limiter.ar(
FreeVerb.ar(
Splay.ar(Array.fill(
2,
{|i| i=(i+1);
BPF.ar(
BrownNoise.ar(0.6, 1/3),
i * LFNoise0.kr([15.2 * LFDNoise0.kr(0.2, 5), 5.7, 24 * LFDNoise3.kr(2.2), 2, 0.1]**LFNoise1.kr(0.4)).range(i*20, 70) +
Demand.kr(Impulse.kr(TRand.kr( 2, 14, Dust2.kr(2))),0, Dxrand([Dseq("J.S.Bach".ascii.midicps/[1.2, 2.5, 1.03, 1].scramble, 3), Dseq("Haydn".ascii/1.2, 4), Dseq("lachenmaNn".scramble.ascii(2/6), 2), Dseq("Heachamelatamala".scramble.ascii.midicps/1.3)].scramble)),
i * LFNoise1.kr([5.2, 2.7, 13, 2, 1]**LFPulse.kr(0.3)).range(0.001, 0.00001),
i * LFNoise1.kr(1.4).range(0.001, 3))})
, 0.8, 1, 0),
0.3, 0.7, 0.1),
0.5, 0.1)
};
)

(

~carn= ~al;
p.clear(6)

s.record;
s.stopRecording;

reproducir muestra

descargar código

22.PrestameTuPeine

21 Julio 2011

//código SuperCollider

/////No sono así pero asi me gustaría que hubiera sonado....Pa la próxima... se pone bueno /////////eso...ajuits

p=ProxySpace.push(s.boot;)

p.fadeTime=5.3;

~ele.play;

~sele1={Limiter.ar(BPF.ar(WhiteNoise.ar([0.1, 0.2]/LFDNoise0.kr(0.02)* 5), FSinOsc.kr(3.1 **LFPulse.kr([0.1, 0.2]) ), [11.15, 0.01]**LFPulse.kr([0.02, 12, 23, 21]), 1), 0.1, 0.1)}

~sele2={Limiter.ar(PF.ar(WhiteNoise.ar([0.2, 0.1]/LFDNoise0.kr(0.02) * 11), FSinOsc.kr(3.1 ), [11.15, 0.01]**LFPulse.kr([0.02, 12, 23, 21]), 1), 0.1, 0.001)* 4}

~ele=~sele2//+~sele2

p.clear(5);

s.record;
s.stopRecording;

reproducir muestra

descargar código

21.LiveCoding

20 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot; s.latency= 0.01;)

p.fadeTime= 4.2;

~alele.play;

~entrele1={Limiter.ar(FreeVerb.ar(BRF.ar(WhiteNoise.ar([0.2, 0.3]/LFDNoise0.kr(0.02) * 2) ,FSinOsc.ar(3.1), 0.02**LFTri.kr([1, 0.1]), 0.2), 0.3, 0.5, 0.001), 0.5, 0.5)};

~entrele2={Limiter.ar(BPF.ar(PinkNoise.ar(0.2**LFDNoise0.kr(12.02) + 500), FSinOsc.ar(3.1)+ LFPulse.kr([3,1.2]/LFNoise0.kr(12.3)).range(150, 2500/2), 0.0002**LFSaw.kr([0.1, 0.2]), 0.2), 0.1, 0.001)};

~entrele3={Limiter.ar(RLPF.ar(GrayNoise.ar([0.2, 0.3]/LFDNoise0.kr(0.02) * 3), FSinOsc.ar(1.1**LFNoise0.kr(12.3, 1/4)).range(47, 80), 0.2, 0.2), 0.2, 0.001)};

~alele= ~entrele2 + ~entrele1 + ~entrele3;

~alele.stop;

p.clear(6);

s.record;
s.stopRecording;

reproducir muestra

descargar código

20.Improv2

19 Julio 2011

//código SuperCollider

s.reboot;

p=ProxySpace.push(s.boot; s.latency=0.01;)

p.fadeTime=13.2;

~salele.play;

~jalele3={Limiter.ar(FreeVerb.ar(RLPF.ar(GrayNoise.ar([0.7, 0.6]**LFTri.kr(12.02) * 500), Dust2.kr(20.1) + LFPulse.kr(23.23/LFDNoise3.kr(13.4)).range(700, 2752), [0.0001, 0.0001]**LFPulse.kr([21.2, 34.1, 0.2]), 1), 0.3, 0.7, 0.01), 0.3, 0.01)};

~salele=~jalele3;

p.clear(4);

s.record;
s.stopRecording;

reproducir muestra

descargar código

19.Impro20

18 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot;)

p.fadeTime=13.3;

~salele.play;

~heli={BPF.ar(FreeVerb.ar(FreqShift.ar(BrownNoise.ar([0.1, 0.3]/LFNoise0.kr(4.03/LFDNoise0.kr(4.3)).range(0.3, 1)**LFTri.kr([7.3, 9.1], 0.7/pi, 2, 3/4)), LFPulse.ar(12.43, 0.7/pi* LFNoise0.kr(1), 2, 3/4), 0.4, 0.2), 0.3, 0.7, 0.001), LFDNoise0.kr(4.3/LFTri.kr([3/4, 2/3 ], 1/2)).range(90, 1050), 1.9**SinOsc.kr([0.1, 0.5]), 0.2) * 0.7}

~salele=~heli;

s.record;
s.stopRecording;

reproducir muestra

descargar código

18.ElicopterMan

17 Julio 2011

//código SuperCollider

s.reboot;

(
{var q = {LFNoise0.kr(0.66)**66.6},
freq = {[
LFNoise1.kr(0.666)/66,
LFNoise0.kr(6.66)**16.66,
LFDNoise0.kr(0.0666) + Demand.kr(Impulse.kr(7), 0, Dxrand([100, 66, 170, 180, 90], inf)),
LFDNoise1.kr(66.66)+Demand.kr(Impulse.kr(14), 0, Dxrand([6e2, 5e2, 3e2], inf)),
]};
Limiter.ar(
Compander.ar(
Resonz.ar(
LFSaw.ar([6.6/3, 6.66].midicps)/BrownNoise.kr(4.6)/LFTri.kr([1.4, 1.31]), freq, q + 0.0666, 1/4, 2), q, 0.8, 0.9, 1/5, 0.002, 0.02)
, 0.7, 0.1)/5
!2}.play
)
s.queryAllNodes;
s.sendMsg("/n_free", 1)

s.record;
s.stopRecording;

reproducir muestra

descargar código

17.ElDemonioDelLatas

16 Julio 2011

//código SuperCollider

s.reboot;

(
play{LocalOut.ar(a=
//FreeVerb.ar(
Resonz.ar(
LocalIn.ar(2)
*
0.7
+
LFTri.ar(
[12.02, 6]
+
LFSaw.kr(
5.20
**
FSinOsc.kr(1.4)/4)/130)
**
SyncSaw.kr(
[20.02, 40],
0.8, 1.5
**
LFNoise0.kr(12.3) * 1
/12,
LFSaw.kr([1.2, 2])
),
Demand.kr(Impulse.kr(TRand.kr(0.2, 8, Dust.kr(11.3))), 0, Dxrand([43, 56, 78, 34, 65, 52, 32].scramble.midicps, inf))
, 0.02, 1/2, 1/16)
//, 0.2, 0.5, 1)
);
[a+a].mean/14
}
)


s.record;
s.stopRecording;

s.queryAllNodes;
s.sendMsg("/n_free", 1001);

reproducir muestra

descargar código

16.AúnC

15 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot;s.latency=0.01);

p.fadeTime=7.2;

~entrale1={Pluck.ar(Saw.ar([4.3, 5.2]), Dust.kr(TExpRand.ar(4, 8, Impulse.kr(0.1))),20.reciprocal,Demand.kr(Impulse.kr([8.1, 3]), 0, Dxrand([130, 200, 500, 1500, 100], inf)).reciprocal, coef: 0.70343)* 0.01 }

~entrale3={MoogFF.ar(LFSaw.ar([179, 160]*LFNoise0.kr(0.03).range(1, 6), Impulse.kr(8)/LFNoise1.kr(32.2)), Demand.kr(Impulse.kr(8)/LFNoise0.kr(15.2) * 2, 0, Dwhite(80, 500, 500, inf)), 3.9) * 0.1};

~entrale2={Blip.ar([1.07, 1.05] + Demand.kr(Impulse.kr([4.5,4.1]), 0, Dxrand([0.5, 0.02, 0.05, 0.02, 0.5], inf), 15 )) * 0.1}

/LFNoise0.kr(3.2).range(0.0001, 0.5)...Solo pal final...ajuits

~entrale3.free;
~salele.play;
~salele= ~entrale2 + ~entrale3
~salele.clear(5);

s.record;
s.stopRecording;

reproducir muestra

descargar código

15.prepareC

14 Julio 2011

//código SuperCollider

s.boot;
(
~a = NodeProxy(s);
~b = NodeProxy(s);

~out=Ptpar([0.0, Pbind(\type,\set, \id, ~a={|freq=200, dur1=2|x=Pluck.ar(LFTri.ar(1) * LFNoise1.kr(2), Impulse.kr(dur1), freq.reciprocal, freq.reciprocal, 10, coef: LFGauss.kr(3.02, 0.479, 0.879)); FreeVerb.ar(x, LFNoise1.ar(3.3).range(0.3, 0.5), 0.7, 0.01, 25)!2}.play, \freq, Pseq([Pseq("Holaslo".scramble.ascii,2), Pseq("VatoLoco".scramble.ascii * 2,4), Pseq("LaOnda".scramble.ascii * 3,2)], inf), \dur,Prand([1/4, 1/5, 1/2, 1/6, 1/6]/2, inf)),

1.7,

Pbind(\type,\set, \id, ~b={|freq=100|Pan2.ar(VarSaw.kr(LFDNoise1.ar(4).range(0.2, 0.6))*Pluck.ar(GrayNoise.ar(0.1), Dust.kr(3.2), freq.reciprocal, freq.reciprocal, 10, coef: LFGauss.kr(2.02, 0.79, 0.879)),SinOsc.kr(0.02, pi/2, 1, 0.5)) }.play, \freq, Pxrand([Pseq("PAPAYOIS".scramble.ascii,2), Pseq("VatoLoco".scramble.ascii *1.5,4), Pseq("LaOnda".scramble.ascii, 2)], inf), \dur,Prand([1/14, 1/15, 1/12, 1/16, 1/16], inf))

]).play;
)
~out.stop;

~a.free;
~b.free;

 

s.record;
s.stopRecording;

reproducir muestra

descargar código

14.TaBajotuBajo

13 Julio 2011

//código SuperCollider

s.reboot;


Pbind(\type, \set, \id, {|freq, gate |n=FreeVerb.ar(LFTri.kr([2 + LFNoise0.kr(0.2), 1.01]) +VarSaw.ar(freq+[0,1], 0.2, 0.5, 0.1), 0.7, 1, 2) }.play.nodeID ,\midinote, Pxrand([Pseq("J.S.Bach".ascii/[1.2, 2.5, 1.03, 1].scramble, 3), Pseq("Haydn".ascii/1.2, 4), Pseq("lachenmaNn".scramble.ascii(2/6), 2), Pseq("Heachamelatamala".scramble.ascii/1.3)].scramble),\dur,Prand([1/4, 1/5, 1/2, 1/6, 1/6]/2, inf) ).play

s.prepareForRecord;
s.record;
s.stopRecording;

reproducir muestras

descargar código

13.TresEstatements

12 Julio 2011

//código SuperCollider

s.reboot;
(
Ndef('a',{a=SinOsc.ar(Latch.ar(
VarSaw.ar((113)!2),
Impulse.ar([8,12, 1]))+0.1*1e2, PMOsc.ar(LFTri.kr((5)!2) * 2, 100, 2.2*pi, LFNoise1.kr(0.2) ), SinOsc.kr(0.02).range(0.01, 1.5))/7;a= GVerb.ar(a, 1, 0.2)/5; a+a.mean}).play
)

Ndef('a').fadeTime=7.2;
Ndef()

{SinOsc.ar}.play

s.prepareForRecord;
s.record;
s.stopRecording;

reproducir muestra

descargar código

12.Fagyruchis

11 Julio 2011

//código SuperCollider

s.reboot;

Ndef('x').fadeTime=5;
(
Ndef('x',{
x=Ndef('x').ar * 1;
a= x + 0.3 + SinOsc.kr(2.1);
b=VarSaw.kr(12.2, LFNoise0.kr(4.1).range(0.1, 1));
a=HenonL.ar(
Duty.ar(
//SinOsc.kr(14) +
//LFTri.kr(6.1) +
Dseq([14.1, 12.44, 12.7, 14.35], inf),
0,
Dseq([150.01, 600, 750.01, 900], inf)+ x + a + b) + 1e2,
LFNoise0.kr([8.1, 4.01]).range([[0.35, 4],[0.35, 3.25]]),
LFNoise1.kr(0.1).range(0.01,0.34));
a=Splay.ar(a, 1, 0.5, 0.1);
a/a.mean(3.3)}).play
)

Ndef('x').clear;

Para que aloquea otro nodo si es que se pedorrea!!
//{SinOsc.ar *0.2!2}.play//

reproducir muestra

descargar código

11.KaosVs86

10 Julio 2011

//código SuperCollider

s.reboot;

(
Ndef('x',{x=Ndef('x').ar ;a=FreeVerb.ar(Formant.ar(
Saw.ar([1.5, 2.01 ], 0.2, 0.9) +2x+ LFNoise0.ar([2.02, 1.03]).range([120, 1575], [160, 200]) + SinOsc.ar(Demand.kr(Impulse.kr(4), 0, Dseq([1200, 1400, 1400, 1800], inf), 0.5, 5)),
VarSaw.ar([0.2, 0.4, 0.5], Pulse.kr(0.1, 0.3).range(0.1, 4), 1, 4.9),
Duty.ar(
Impulse.kr(3.0/LFNoise0.kr(1.1)), 0, Dseq([0.1, 0.5, 0.7, 0.5], 13))), 0.1, 0.5, 0.1);a/a.mean(-120.9)}).play;
)

s.prepareForRecord;
s.record;
s.stopRecording;

reproducir muestra

descargar código

10.TechnoSoundNdef

9 Julio 2011

//código SuperCollider

s.reboot;

//////////
(
SynthDef(\nathaniel,{|gate 1, out 0, mit 20, groom 10, fNum1 1e3, fNum2 1e3 , blip #[0.1, 0.2], harm 110|
var sig1, sig2, env;

c=LocalBuf(1e2, 2).clear;
b=LocalBuf(1e3, 2).clear;
x= BufDelayN.ar(GVerb.ar(BufRd.ar(2, c, Phasor.ar(0,1, LFTri.ar(12.5).range(0.1, 1), 1e3)) * 0.8, 20, 10), 2.5,1.5, 0.1);
env=EnvGen.kr(Env.asr(0.3, 0.8, 18), gate, doneAction:2);
y=BufWr.ar(Blip.ar([0.1, 0.2], 110)/4 + 2x , c , LFNoise1.ar(0.1) + 5 * MouseX.kr(1e2,1e10, 1));
sig2= BufWr.ar(Blip.ar(blip, harm)/3 + 2x , b , LFNoise1.ar(12.7) + 5 * MouseX.kr(1e2,1e7, 1));
sig1 = GVerb.ar(BufRd.ar(2, b, Phasor.ar(0,1, LFTri.ar(12.5).range(0.1, 1), fNum2)) * 0.8, mit, groom);
Out.ar(out, env * [sig1+sig1].mean);
Out.ar(out, env * [x+x].mean)

}).send(s);
)

x=Synth(\nathaniel);
(
x.set(\gate,0);
b.free;
c.free;
)
x.set(\fNum2, 1e3);
x.set(\blip, [5.2, 7.1]);
x.set(\harm, 10);
x.set(\mit, 0);
x.set(\groom, 0.0);
x.free;

s.queryAllNodes;
s.sendMsg("/n_free", 1002);

reproducir muestra

descargar código

9.GraciasNathaniel

8 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot; s.latency=0.01;)

p.fadeTime=5.3;

b=Buffer.read(s, "sounds/Iscream-IceCream.aiff");
b.query;
b.numFrames;

(

~trig1={|frec=1|Dust.kr(frec)};
~trig2={|frec=1|GrayNoise.kr(frec)};
~trig3={|frec=1|LFNoise0.kr(frec)};
~trig4={|frec=1|Impulse.kr(frec)};
~trig5={|frec=1|LFPulse.kr(frec)};

(
~buf1={|rate=0.90|

PlayBuf.ar(1,
b.bufnum,
rate,
[~trig1, ~trig2, ~trig3, ~trig4, ~trig5].scramble.choose,
MouseButton.kr( b.numFrames.rand, b.numFrames.rand),
loop:1) *
LFGauss.kr(0.01, 0.3).range(0.01, 0.8)
// Spring.ar()
// LFNoise1.kr(20.02).range(0.005, 0.5)

};
);
(
~buf2={|rate= 0.93|

PlayBuf.ar(1,
b.bufnum,
LFGauss.kr(31.1, 0.9).range(-0.7, 1),
//rate,
[~trig1, ~trig2, ~trig3, ~trig4, ~trig5].scramble.choose,
MouseButton.kr( b.numFrames.rand, b.numFrames.rand),
loop:1) *
LFGauss.kr(100.05, 10.3).range(0.01, 0.8)
//LFNoise1.kr(18.2).range(0.01, 1)
}
);
(
~buf3={|rate= -0.85|
PlayBuf.ar(1,
b.bufnum,
LFGauss.kr(31.1, 0.9).range(-0.05, 0.8),
//rate,
[~trig1, ~trig2, ~trig3, ~trig4, ~trig5].scramble.choose,
MouseButton.kr( b.numFrames.rand, b.numFrames.rand),
loop:1) *
LFGauss.kr(10.1, 0.3).range(0.001, 0.8)
//LFNoise1.kr(17.2).range(0.01, 0.5)
};
);
(
~buf4={|rate= -0.87|
PlayBuf.ar(1,
b.bufnum,
LFGauss.kr(31.1, 0.3).range(-0.05, 0.8),
// rate,
[~trig1, ~trig2, ~trig3, ~trig4, ~trig5].scramble.choose,
MouseButton.kr( b.numFrames.rand, b.numFrames.rand),
loop:1) *
LFGauss.kr(21.1, 0.3).range(0.05, 0.8)
//LFNoise1.kr(22.7).range(0.01, 0.5)
};
);
(
~buf5={|rate= -0.92|

PlayBuf.ar(1,
b.bufnum,
LFGauss.kr(10.1, 0.3).range(1, 0.8),
//rate,
[~trig1, ~trig2, ~trig3, ~trig4, ~trig5].scramble.choose,
b.numFrames.rand,
loop:1) *
LFGauss.kr(100.1, 10.3).range(0.5, 1)
// LFNoise1.kr(23.01).range(0.01, 0.5)
};
);

~trig1.set(\frec, 13.1);
~trig2.set(\frec,4.08);
~trig3.set(\frec,110.1);
~trig4.set(\frec,40.71);
~trig5.set(\frec, 10.51);
(
~pan={Splay.ar([
~buf1.ar,
~buf2.ar,
~buf3.ar,
~buf4.ar,
// ~buf5.ar
].scramble,
0.8,
1.0.rand,
0.0.rand)}
)
)

~salida.play;
~salida=~pan;
~salida=0;

s.prepareForRecord;
s.record;
s.stopRecording;

reproducir muestra

descargar buffer

Iscream-IceCream

 

descargar código

8.UnAjuitsForMartina

7 Julio 2011

/código SuperCollider

s.reboot;
p=ProxySpace.push(s.boot; s.latency= 0.01;)

p.fadeTime= 2.5;

~salida.play

b=Buffer.read(s,"sounds/Iscream-IceCream.aiff");
(
Tdef(\pos,{
inf.do{
~entr1= {Rotate2.ar(
PlayBuf.ar(
1, b.bufnum,
BPF.kr(
BrownNoise.kr(0.1).range(0.7, 1.2),
LFPulse.kr(0.01, 0, 0.7, 0.01).range(5000, 12000) * 0.1,
LFGauss.kr(0.01, 0.9, 0.1)).range(0.001, 0.05) +
LFPulse.kr(Demand.kr(Pulse.kr(0.1),
0,
Dxrand([11, 5, 7], inf)),
0.1),
0,
BufFrames.kr(b.bufnum) * rrand(0.0, 1.0),
loop:1) *
LFNoise1.kr(0.2).range(0.05, 0.5),
PlayBuf.ar(
1, b.bufnum,
RHPF.kr(
PinkNoise.kr(0.1).range(0.7, 1),
LFPulse.kr(1.1, 0, 0.7, 0.01).range(5000, 12000) * 0.1,
LFGauss.kr(0.01, 0.9, 0.9)).range(0.001, 0.002) +
LFPulse.kr(Demand.kr(Impulse.kr(0.3),
0,
Dxrand([11, 31, 7], inf)),
0.1),
//0,
//BufFrames.kr(b.bufnum).postln * rrand(0.0, 1.0),
loop:1) *
LFNoise1.kr(0.3).range(0.05, 0.5),
SinOsc.kr(LFPulse.kr([0.05, 0.01])).range([-1, 0.8],[ -0.2, 1]))
};
12.wait;
}
}
)
)
Tdef(\pos).play;

~salida=~entr1;

b.query

~p.clear(3);
b.free;

s.queryAllNodes;
s.sendMsg("/n_free", 1);

reproducir muestra

descargar código

7.I_Scream

6 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot; s.latency=0.01;);
p.fadeTime=17.2;

~sale.play;

(
(
a= Array.geom(125, 11.15, 0.21).sin.stutter.abs.scramble.normalizeSum;
b= Array.series(14, 12.3, 0.41).stutter.abs.scramble.normalizeSum;
c= Array.series(27, 11.4, 0.1).reverse.sin.abs.scramble.normalizeSum;
);
(
~salio1={|frec|Demand.ar(
SinOsc.ar(
LFPulse.kr(3.2).range(1.1, 2))
* LFTri.ar(LFNoise0.kr(0.1).range(2480, 4170), SinOsc.kr(10.1).range(0.2, 4), SinOsc.kr(3.7).range(0.6, 1), 0.1),
0,
Dseq( [Drand(a, 1), Dseq(b, 1), Dseq(c, 1)].scramble, inf)
+ Resonz.ar(LFNoise2.ar(5150), BrownNoise.kr(2, LFNoise0.kr(24).range(0, 12.5)).range(5000, 10000), 0.0005, 1)
* SinOsc.kr([0.1, 0.3])
) * LFNoise1.kr(1.7).range(1, 7)};
);

~salio2={|frec= 13545, choos= 4|Demand.ar(SinOsc.ar(frec * 2+ 147.rand) + LFTri.ar(frec/2, SinOsc.kr(0.1).range(0.1, 1), 0.1 , 0.1), 0, Dseq( [Dseq(a, 1), Drand(b, 1), Dseq(c, 1)].scramble, inf)) * 0.2!2};

~salio3={ Compander.ar(Ringz.ar(LFNoise0.ar(10.1, SinOsc.kr([21200, 2130])), SinOsc.kr([LFGauss.kr(50, 10, 2000), FSinOsc.kr(1700)], 0.1, 0.1)), 0.7, 0.07, 0.02, 0.01)!2};

~salio4={ Limiter.ar(Ringz.ar(LFNoise0.ar(1.2, Pulse.kr(11.1) * PinkNoise.kr([7.4, 1.3])), SinOsc.kr([MouseX.kr(130, 5100), FSinOsc.kr(600)], 0.5, 0.1)), 0.3, 0.0001)!2};

~salio={PMOsc.ar( Mix( Array.fill(14,{SinOsc.ar(MouseX.kr(1120, 1500), 2pi.rand, 1)})),~salio2 /*(~salio1 * 22)*/ , MouseY.kr(0, 20), pi, 0.1) }

)

~sale= ~salio2 * ~salio3 //+ ~salio4//~salio1 + ~salio3 + ~salio4 + ~salio2// * (~salio2 + ~salio4) //+ ((~salio3 + ~salio4) * 0.1)//~salio2.set(\frec, 0.011)//
~sale=0;
~p.stop
p.clear(7);

s.queryAllNodes;
s.sendMsg("/n_free", 1);

s.prepareForRecord;
s.record;
s.stopRecording;

reproducir muestra

descargar código

6.ContraDemandandando_ar

5 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot; s.latency=0.01);
p.fadeTime=5.5;

~uta.play;

(
~uto={Pan2.ar(BPF.ar(Limiter.ar(Compander.ar(BLowPass4.ar(GrayNoise.ar(0.7), Demand.kr(Dust.kr(2), 0, Dxrand([100, 22, Dseq([200, 1185, 195], 1), 90, 155] + 200,inf)), Demand.kr(Dust.kr(3),0, Dseq([0.0, 0.02], inf))), SinOsc.ar(2300, 0, BLowPass4.ar(GrayNoise.ar(0.7), Demand.kr(Dust.kr(7), 0, Dxrand([100, 22, Dseq([101, 145, 95], 2), 90, 55],inf)), Demand.kr(Dust.kr(3),0, Dseq([0.0, 0.02], inf))), 0.3, 0.1), 0.4, 0.7, 0.5, 0.1), 0.5, 0.01), XLine.kr(20, 1000, 9 ), 0.03, 1 ),SinOsc.kr(3/4).range(0, 1), 1 )};
)

(
~uto2={Pan2.ar(Limiter.ar(Compander.ar(SinOsc.ar(0.1, 0, BLowPass4.ar(GrayNoise.ar(2), Demand.kr(Dust.kr(2), 0, Dxrand([100, 22, Dseq([200, 185, 195], 1), 90, 55] * 200,inf)), Demand.kr(Dust.kr(3),0, Dseq([0.0, 0.02], inf))), 0.3, 0.1), SinOsc.ar(2300, 0, BLowPass4.ar(GrayNoise.ar(0.7), Demand.kr(Dust.kr(7), 0, Dxrand([100, 22, Dseq([101, 145, 95], 2), 90, 55],inf)), Demand.kr(Dust.kr(3),0, Dseq([0.0, 0.02], inf))), 0.3, 0.1), 0.1, MouseY.kr(0.01,1), 0.7, 0.1), 0.1, 0.01), LFNoise0.kr(3/4).range(-0.3, -1), 1)};
)
~verb={FreeVerb.ar(Compander.ar(SinOsc.ar(LFGauss.kr(2).range(2, 9), ~uto, BLowPass4.ar(GrayNoise.ar(0.7), 2000, LFNoise2.kr(2/4).range(0.0, 0.0002)).clip(0.3), 0.1, 0.2, 0.9)), 0.7, 0.6, 0.01)};
)
~p={Pan2.ar(Formant.ar(BrownNoise.kr(17). range(118, 378 * 2), FSinOsc.kr(130, 120), 4, 7), LFNoise2.kr(2))};

~uta= ~uto2 ;

p.clear(8)

s.prepareForRecord;
s.record;
s.stopRecording;

reproducir muestra

descargar código

5.FiltratePorLaBandita

4 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot);
p.fadeTime=7;
~sale.play
b = Buffer.alloc(s, 256, 1, { |buf| buf.chebyMsg([1, 0.2, 0.9, 0.7, 1])});

(
~senal={Limiter.ar(Pan2.ar(
Decay.ar(
SinOsc.ar(
RHPF.ar(
LFSaw.ar(123, 1),
LFNoise0.kr(15).range(0.1, 0.15),
0.1),
0.9, 0.9),
0.01, 0.5),
FSinOsc.ar(13))
,0.4, 0.7)

+
( SinOsc.kr(
LFNoise0.kr(14).range(160, 1150),
pi/2,
SinOsc.kr(14)).clip(0.9)

*
FreeVerb.ar(
Shaper.ar(
b,
[
LFSaw.ar(LFNoise2.kr(23).range(12, 245)).distort(0.4),
LFSaw.ar(LFNoise2.kr(17).range(12, 145/2)).distort(0.2)],
0.1),
0.5, 0.1, 0.01))};
)

~sale= ~senal;
~sale=0;

s.queryAllNodes;
s.sendMsg("/n_free", 1016)

 

p.free;
p.clear;
p.pop;

s.prepareForRecord;
s.record;
s.stopRecording;

reproducir muestra

descargar código

HackPact.4

3 Julio 2011

//Sobre un ejemplo del PMOsc [ungen]...

//Utilizo el ProxySpace para jugar con mas libertad pero en realidad no es LiveCoding//
//Aguas por que si pika derrepente gacho...

p=ProxySpace.push(s.boot);

p.fadeTime=4;
~out.play;

~pulso={LFPulse.ar(190.0.rand + 1110.rand, Array.fill(2, Rand(0, 1.0), LFNoise0.kr(5).range(0,1)), 0.01)}
(e = Env.linen(2, [5, 10, 8].choose, [1, 2, 3].choose, 0.1.rand);
~carrier={Mix(
Array.fill(
6,
~pulso
)) * EnvGen.kr(e)
!2}
);
~out=~carrier;
~out=~modula;
~out=~array + ~carrier;
~array={Mix(Array.fill( 20,~modula))}

(e = Env.linen(2, [5, 10, 8].choose, [1, 2, 3].choose, 0.2.rand);

~modula={|t_trig, frec = 1200.0, rand =50, frec1 = 1000.0, rand1 = 20|

EnvGen.ar(e) *
PMOsc.ar(Mix(
Array.fill(
6,
{LFPulse.ar(frec + rand.rand, Array.fill(2, Rand(0, 1.0),
LFNoise0.kr(0.7).range(0,1)), 0.1)}
)
),
Mix(Array.fill(6, frec1 + rand1.rand)),
Line.kr(0.0, 10.0.rand, FSinOsc.kr(0.1)),0 , 0.1)}
);

~modula.xset(\frec,1130.0);
~modula.xset(\rand, 11.0);
~modula.xset(\frec1, 100.0);
~modula.xset(\rand1, 1350.0);



s.prepareForRecord;
s.record;
s.stopRecording;

reproducir muestra

descargar código

Arrayllalos

2 Julio 2011

...comentario del artista:

Esa gente bonita del hackpackt ruego de la manera mas atenta que no escuhen mi segunda participación, digo si les daba la gana escucharla, con audifonos por que si esta medio machinas las alturas de las Frecuentes...

///Sobre una abtracsción de Pd...

Lo Initutolo... "No me salio el ShepardTony...jijuau"

//código SuperCollider

///Counter modulo 10000///

(~counter= 10000;

Tdef(\counter1,{
inf.do{ ~counter % 10000;
~counter = ~counter -2;
if (~counter < 0, {~counter = 10000});
1.do{~counter;
0.03.wait
}
}

})
)
Tdef(\counter1).play;

s.reboot;
(
SynthDef(\shepard1,{|gate 1, out 0 amp 0.5 freq pan 0|
var env, senal, senal2;

senal= SinOsc.ar(freq, 0, amp);
env= EnvGen.kr(Env.asr(0.1, 1, 1), gate, doneAction:2);

Out.ar(out, Pan2.ar(senal2 * env, pan))
}).send(s);
)
x=Synth(\shepard1, addAction:\addToHead);

)
(
Tdef(\bajale,{ Tdef(\counter1).play;

inf.do{
1.do{x.set(\freq, (((~counter.postln % 10000 * 0.0002 -1) * 120) + 60).midicps.postln);
//if()
0.001.wait;};

1.do{x.set(\freq, (((~counter % 10000 + 500 * 0.0002 -1) * 120) + 60).midicps);
0.002.wait;};

1.do{x.set(\freq, (((~counter % 10000 + 1000 * 0.0002 -1) * 120) + 60).midicps);
0.003.wait;};

1.do{x.set(\freq, (((~counter % 10000 + 1500 * 0.0002 -1) * 120) + 60).midicps);
0.004.wait;};

1.do{x.set(\freq, (((~counter % 10000 + 2000 * 0.0002 -1) * 120) + 60).midicps);
0.005.wait;};

1.do{x.set(\freq, (((~counter % 10000 + 2500 * 0.0002 -1) * 120) + 60).midicps);
0.006.wait;};

1.do{x.set(\freq, (((~counter % 10000 + 3000 * 0.0002 -1) * 120) + 60).midicps);
0.007.wait;};

1.do{x.set(\freq, (((~counter % 10000 + 3500 * 0.0002 -1) * 120) + 60).midicps);
0.008.wait;};

1.do{x.set(\freq, (((~counter % 10000 + 4000 * 0.0002 -1) * 120) + 60).midicps);
0.009.wait;};

1.do{x.set(\freq, (((~counter % 10000 + 4500 * 0.0002 -1) * 120) + 60).midicps);
0.001.wait;};

1.do{x.set(\freq, (((~counter % 10000 + 5000 * 0.0002 -1) * 120) + 60).midicps);
0.0011.wait;};

1.do{x.set(\freq, (((~counter % 10000 + 5500 * 0.0002 -1) * 120) + 60).midicps);
0.0012.wait;};
}
})
)
Tdef(\bajale).play
Tdef(\bajale).stop

(((~counter + 1000 * 0.0002) -1 * 120) + 60).midicps


s.prepareForRecord;
s.record;
s.stop;

reproducir muestra

descargar código

MiSherpardDistone

1 Julio 2011

//código SuperCollider

s.boot
(
(
SynthDef(\unoS, { |gate=1, impulso=5, suma=200 amp=0.6, soide=200, indice=4|

var sin, env1, env2, env, pan;

sin= Saw.ar( impulso, 0.1);
//sin= LFSaw.ar( 5, 0.1);
sin= RHPF.ar( sin, MouseX.kr(2, 200, 1), MouseY.kr(0.01, 0.5, 1));
env1= EnvGen.kr( Env.perc( MouseY.kr( 0.01, 0.5), 1), Impulse.kr(5));
sin= SinOsc.ar(sin * soide + MouseX.kr(399, 402, 1), env1);
env2= EnvGen.kr( Env.perc( Impulse.kr( MouseX.kr( 0.1, 10, 1))));
pan= /*LFNoise2.kr( MouseX.kr( 0.5, 7, 1), 0.3);*/
SinOsc.kr(0.1, SinOsc.kr(indice, LFTri.kr(0.5)));
env= EnvGen.kr( Env.asr( 0.3, 1, 2), gate, doneAction:2);

Out.ar( 0, Pan2.ar( sin * env, pan, amp))
}).send(s)
);
(
SynthDef(\dosS, { |gate=1, impulso=5, q=0.01, amp=0.3, cOff=200|

var sin, env1, env2, env, lfn;

sin= Saw.ar(impulso, 0.1);
//sin= LFSaw.ar( 5, 0.1);
sin= RHPF.ar( sin, MouseX.kr(2, cOff, 1), q);
env1= EnvGen.kr( Env.perc( MouseY.kr( 0.01, 0.5), 1), Impulse.kr(5));
sin= SinOsc.ar(sin * MouseX.kr(200, 10000) + MouseY.kr(2, 1000), env1);
env2= EnvGen.kr( Env.perc( Impulse.kr( MouseX.kr( 0.1, 10, 1))));
lfn= LFNoise2.kr( MouseX.kr( 0.5, 7, 1), amp);
env= EnvGen.kr( Env.asr( 0.3, 1, 0.7), gate, doneAction:2);

Out.ar( 0, Pan2.ar( sin * env, env2, lfn))
}).send(s)
);
(
SynthDef(\tresS, { |gate=1, impulso=15, suma=200, amp=0.3, freq=0.5, cOff=220|

var sin, env1, env2, env, lfn;

sin= Saw.ar( impulso, 0.1);
//sin= LFSaw.ar( 5, 0.1);
sin= RHPF.ar( sin, MouseX.kr(2, cOff, 1), MouseY.kr(0.01, 0.5, 1));
env1= EnvGen.kr( Env.perc( MouseY.kr( 0.01, 0.5), 1), Impulse.kr(5));
sin= SinOsc.ar(sin * 10000, env1, SinOsc.kr(MouseY.kr(2, 200)));
env2= EnvGen.kr( Env.perc( Impulse.kr( MouseX.kr( 0.1, 10, 1))));
lfn= LFNoise2.kr( MouseX.kr( freq, 7, 1), amp);
env= EnvGen.kr( Env.asr( 0.3, 1, 2), gate, doneAction:2);

Out.ar( 0, Pan2.ar( sin * env, env2, lfn))
}).send(s)
);
(
SynthDef(\cuatroS, { |gate=1, impulso2=5 impulso=5, suma=200, q=0.1, amp=0.3|

var sin, env1, env2, env, lfn;

//sin= Saw.ar( impulso, 0.1);
sin= LFSaw.ar( impulso, 0.1);
sin= RHPF.ar( sin, MouseX.kr(2, suma, 1), q);
env1= EnvGen.kr( Env.perc( MouseY.kr( 0.01, 0.5), 1), Impulse.kr(impulso2));
sin= SinOsc.ar(sin * 2000, env1);
env2= EnvGen.kr( Env.perc( Impulse.kr( MouseX.kr( 0.1, 10, 1))));
lfn= LFNoise2.kr( MouseX.kr( 0.5, 7, 1), amp);
env= EnvGen.kr( Env.asr( 0.3, 1, 2), gate, doneAction:2);

Out.ar( 0, Pan2.ar( sin * env, env2, lfn, lfn))
}).send(s)
);

(
SynthDef(\cincoS, { |gate=1, impulso=20 cOff= 2, q= 0.01, amp= 0.3, impulso2=100|

var sin, env1, env2, env, lfn;

sin= Saw.ar( impulso, 0.1);
//sin= LFSaw.ar( 5, 0.1);
sin= RHPF.ar( sin, cOff, q);
sin= SinOsc.ar(sin * MouseX.kr(0.5, 10000) + 1000, SinOsc.kr(impulso2));
lfn= LFNoise2.kr( MouseX.kr( 0.5, 7, 1), amp);
env= EnvGen.kr( Env.asr( 0.3, 1, 2), gate, doneAction:2);

Out.ar( 0, Pan2.ar( sin * env, lfn, lfn))
}).send(s)
);

(
SynthDef(\seisS, { |gate=1, impulso=5, suma=200, q=0.1, amp=0.3, impulso2=5, indice=4|

var sin, env1, env2, env, lfn;

sin= Saw.ar( impulso, 0.1);
//sin= LFSaw.ar( 5, 0.1);
sin= RHPF.ar( sin, MouseX.kr(2, suma, 1), MouseY.kr(0.01, 0.5, 1));
env1= EnvGen.kr( Env.perc( MouseY.kr( 0.01, 0.5), 1), Impulse.kr(impulso2));
sin= SinOsc.ar(sin * 1000, env1);
env2=LFTri.kr(0.1, SinOsc.kr(indice, LFTri.kr(indice)));
lfn= LFNoise2.kr( MouseX.kr( 0.5, 7, 1), amp);
env= EnvGen.kr( Env.asr( 0.3, 1, 2), gate, doneAction:2);
Out.ar( 0, Pan2.ar( sin * env, env2, lfn))
}).send(s)
)
)
t=Synth(\unoS);
t.set(\impulso, 1.1, \amp, 0.1, \soide, 1450, \indice, 10)
t.set(\gate, 0);

u=Synth(\dosS);
u.set(\impulso, 0.3, \amp, 0.09, \cOff, 50, \q, 0.005);
u.set(\gate, 0);

v=Synth(\tresS);
v.set(\impulso, 0.2, \amp, 0.6, \freq, 110, \cOff, 50000);
v.set(\gate, 0);

x=Synth(\cuatroS);
x.set(\impulso,1114, \amp, 0.09, \impulso2, 3, \q, 0.5, \suma, 1140);
x.set(\gate, 0);

y=Synth(\cincoS);
y.set(\impulso, 3, \amp, 0.1, \impulso2, 0.03, \cOff, 0.0001);
y.set(\gate, 0);

z=Synth(\seisS);
z.set(\impulso, 0.5, \amp, 0.70, \suma, 1730, \impulso2, 3, \indice, 0.5 );
z.set(\gate, 0);

s.prepareForRecord;
s.record;
s.stop;

reproducir muestra 01

reproducir muestra 02

descargar código

Sodi_Hackpact01