HardCore kicks

just harshNoise trip!

//ejemplo sonoro: track: HxCkcks

:::click:descarga el audio:::
////escrito en Gedit sobre PureDyne 9.11
/////////////codigo:////////////////
s.boot;
s.quit;
s.scope;
FreqScope.new;
//
p=ProxySpace.push(s);
p.fadeTime=10//0.001
//p.pop
/////
~o.play
///
~bombo={Pan2.ar(Limiter.ar(LFTri.ar(Pulse.ar(Demand.kr(Impulse.kr(4),0,Dseq([1,2,3,4],inf)),0.5,60,65),0,0.9),0.25),[1,-1])};
~bombo1={Pan2.ar(Pulse.ar(Pulse.ar([2,4],Demand.kr(Impulse.kr(1),0,Drand([0.1,0.2,0.3,0.4,0.5],inf)),60,65),Demand.kr(Impulse.kr(1),0,Drand([0.1,0.2,0.3,0.4,0.5],inf)),0.15),[0.9,-0.8])};
~bombo2={Pulse.ar(Pulse.ar([2,4],Demand.kr(Impulse.kr(1),0,Drand([0.1,0.2,0.3,0.4,0.5],inf)),60,65),Demand.kr(Impulse.kr(1),0,Drand([0.1,0.2,0.3,0.4,0.5],inf)),0.15)};
~bombo3={Pan2.ar(Limiter.ar(Pulse.ar(/*Saw*/Pulse.ar(Demand.kr(Impulse.kr(Demand.kr(Impulse.kr(2),0,Drand([0.5,1,1.5,2,3,4,6,8],inf))),0,Dseq([1,2,3,4],inf)),Demand.kr(Impulse.kr(1),0,Drand([0.1,0.2,0.3,0.4,0.5],inf)),60,65),Demand.kr(Impulse.kr(1),0,Drand([0.1,0.2,0.3,0.4,0.5],inf)),0.5),0.15),[0.8,-0.7])};
~filtro={RLPF.ar(~bombo3.ar,Demand.kr(Impulse.kr(2),0,Dxrand([120,400,800,1600,3200,6400,12800],inf)),MouseY.kr(0.01,1),0.5)};//Demand.kr(Impulse.kr(2),0,Prand([50,100,200,400,800,1600,3200],inf))//;
~filtro1={RLPF.ar(~bombo3.ar,MouseX.kr(20,12000),MouseY.kr(0.01,1),0.5)};
~lata={|t_trig=0|EnvGen.ar(Env.perc(0.01,0.5),t_trig)*Pan2.ar(FreeVerb.ar(PinkNoise.ar(0.45),0.65,0.45,0.01),[1,-1])};
(
t=Pwrand([2,4,8],[0.13,0.13,0.73],inf).asStream;
r=Pxrand([1,1.5,2,2.5,3,3.5],inf).asStream;
v=Prand([5],inf).asStream;
Tdef(\tarsec,{
    inf.do{
        ~lata.set(\t_trig,1);
        ~vlata.set(\room,r.next.value.postln);
        ~vlata.set(\vtim,v.next.value.postln);
        t.next.wait;
          }
         })
);
~vlata={|room=5,vtim=6|GVerb.ar(~lata.ar,room,vtim,0.15,mul:0.85)};
~sint={|nota=48,t_trig=0,att,dec|EnvGen.ar(Env.perc(att,dec),t_trig)*Pulse.ar(nota.midicps,0.2,0.05)};
(
u=Pwrand([16,6,4,8],[0.05,0.15,0.2,0.6],inf).asStream;
n=Pseq([48,43,51,60],inf).asStream;
Tdef(\sintsec,{
    inf.do{
        ~sint.set(\t_trig,1);
        ~sint.set(\nota,n.next);
        ~sint.set(\att,0.9);
        ~sint.set(\dec,4);
        u.next.wait;
          }
         })
);
~vsint={GVerb.ar(~sint.ar,10,15,0.05,mul: 1.1)};
////////////control
Tdef(\tarsec).play;
Tdef(\sintsec).play;
~o=~vsint//~vlata;
~o=~bombo+~vsint//~vlata;
~o=~vsint+~vlata
~o=~bombo1+~vlata+~vsint;
~o=~bombo2+~vlata+~vsint;
~o=~bombo3//+~vlata+~vsint;
~o=~filtro1+~vlata;
~o=~filtro1+~vsint+~vlata;
~o=~filtro1+~bombo1+~vsint+~vlata//~filtro
~o=~vlata
~o=0;
Tdef(\tarsec).stop
Tdef(\sintsec).stop
//////////
s.record;
s.stopRecording;
s.meter;