aho-0

gistfile1.sc

(
SynthDef("hh1",{|out=20,amp=1,rate=1|var src;
src=RLPF.ar(Pan2.ar(ClipNoise.ar(0.2)),LFNoise2.ar(0.1,6000,9000),0.3)*EnvGen.ar(Env.perc(0.01,0.07,amp,-6),doneAction:2);
Out.ar(20,src)
}).store;


SynthDef("snr",{|out=20,amp=1,rate=1,src,src2|
src=RHPF.ar(ClipNoise.ar(0.03),LFNoise2.ar(1,700,800),0.3)*EnvGen.ar(Env.perc(0.00,0.125,amp,-3),doneAction:2);
src2=SinOsc.ar(120,0,0.3)*EnvGen.ar(Env.perc(0.00,0.26,amp,-12),doneAction:2);Out.ar(out,(src+src2).dup);
}).store;


SynthDef("hh2",{|out=20,amp=1,rate=1|var src,src2;
src=RLPF.ar(ClipNoise.ar(0.15),LFNoise2.ar(1,900,9700),0.8)*EnvGen.ar(Env.perc(0.00,0.125,amp,2),doneAction:2);
src2=RLPF.ar(BrownNoise.ar(0.35),945)*EnvGen.ar(Env.perc(0.00,0.2,amp,-12),doneAction:2);
Out.ar(out,Pan2.ar(src+src2,LFNoise2.ar(1)));
}).store;


SynthDef("kicks",{|amp|var out;
out=SinOsc.ar(XLine.kr(2020,50,0.02),pi/4,amp).dup*EnvGen.ar(Env.perc(0.03,0.25,0.65,-6),doneAction:2);
Out.ar(0,out.softclip);}).store;
SynthDef("snr1",{|out,amp,rate=1|Out.ar(out,Pan2.ar(PlayBuf.ar(1,3,rate,1.0,0.0,0),0.25)*EnvGen.ar(Env.perc(0.01,1,1,2),doneAction:2,levelScale:amp);)
}).store;


SynthDef("bass",{|amp,note=1,velo=0.5|
a=Pan2.ar(Mix.fill(7,{SinOsc.ar((note+[0,-12,0,12].choose).midicps*([1,0.99,1.01,101].choose)+LFNoise1.ar(0.6,12),SinOsc.ar(note.midicps),SinOsc.ar(note.midicps,Pulse.ar(note.midicps,0.2)))}).distort,0.02)*EnvGen.ar(Env.perc(0.0,velo,1,-2),doneAction:2,levelScale:amp);
Out.ar(10,a)
}).store;


SynthDef("bass2",{|amp=0.8,note=1,velo=0.4|
a=RLPF.ar(Mix.fill(5,{SinOsc.ar((note+[0,5,7,12].choose).midicps+LFNoise1.ar(0.3,0.13),SinOsc.ar(note.midicps/12,0,4),SinOsc.ar((note).midicps/3,SinOsc.ar(note.midicps*2)))}),LFNoise2.kr(0.5,23,90).midicps,0.3)*EnvGen.ar(Env.perc(0.0,4,0.15,12),doneAction:2,levelScale:amp);
a=Pan2.ar(a,LFNoise2.ar(0.1));Out.ar(20,a)
}).store;


SynthDef("bass3",{|freq,gate=1,out=0|var src;
src=Pan2.ar(SinOsc.ar(freq*3,SinOsc.ar(freq/5,0,LFNoise1.ar(0.3,1,6))*EnvGen.ar(Env.adsr(0.0,0.2,0.2,0.1,3,-4)),SinOsc.ar(freq/6,0,0.3))+SinOsc.ar(freq*2,SinOsc.ar(freq,0,LFNoise2.ar(4,42,3)),0.3),LFNoise1.ar(2))*EnvGen.ar(Env.adsr(0.0,0.8,0.2,0.02,1,6),gate,doneAction:2);
Out.ar(10,RLPF.ar((src*260).softclip*0.2,MouseY.kr(7000,10),0.4));
}).store;


SynthDef("mel2",{|amp=0.8,note=1,velo=0.4|
a=RLPF.ar(Mix.fill(7,{SinOsc.ar((note+[0,5,7,12,-12,24].choose).midicps+LFNoise1.ar(0.6,0.03),0,SinOsc.ar((note).midicps*2,SinOsc.ar(note.midicps,0,0.05)))}),LFNoise2.kr(4,23,86).midicps,0.3)*EnvGen.ar(Env.perc(0.0,0.1,1,2),doneAction:2,levelScale:amp);
a=Pan2.ar(a,LFNoise2.ar(3));
Out.ar(10,a)
}).store;


SynthDef("bass4",{|freq,gate=1,out=0|var src;
src=SinOsc.ar([freq,freq*0.99],SinOsc.ar(freq,0,LFNoise1.ar(2,1,6))*EnvGen.ar(Env.adsr(0.01,0.04,0.02,0.1,1,-4)),SinOsc.ar(freq*2,0,0.3))+SinOsc.ar(freq/17,SinOsc.ar(freq,0.8,LFNoise2.ar(1,42,3)),0.3)*EnvGen.ar(Env.adsr(0.0,0.6,0.2,0.02,1,6),gate,doneAction:2);
Out.ar(10,LPF.ar((src*12).softclip*0.2,MouseX.kr(10,9800)));
}).store;



SynthDef("rev",{
Buffer.alloc(s,44100,2,bufnum:10);
a=PingPong.ar(10,In.ar([10,11]),0.225,0.3,1);
a=a+In.ar([20,21]);
4.do({a=AllpassC.ar(a,0.2,{[0.04.rand,0.02.rand]+0.01},4.8)});
Out.ar(0,a)}
).store;



Pdef(\tr2,Ppar([

Pbind(\instrument,\mel2,\dur,Pseq([0.25,0.5,0.25,0.75,0.75,0.5,0.25,0.25,0.5,0.5,0.75,0.5,0.5],inf),\note,Prand([[5,0],\,[12,5],\,[-7,0],[7,5],0,[-12,5],15,\]+76+12,inf),\amp,Prand([0.15,0.1],inf),\velo,Prand([0.5,1,0.8,1.2,0.6,0.4,0.8]/6,inf)),

Pbind(\instrument,\bass,\dur,Pseq([0.75,0.5,0.25,0.75,0.25,0.5,0.25,0.25,0.5,0.25,0.25,0.25,0.5],inf),\note,Prand([5,-5,7,15,-7,5,0,-12,0,-12,5,7,0,12,-12,12,-12]+76,inf),\amp,Prand([0.1,0.07],inf),\velo,Prand([2.5,1.3,3.4,0.8]/2,inf)),

Pbind(\instrument,\bass2,\dur,Pseq([4],inf),\note,Pseq([[5,0],-7,[7,-5],[12,5],[9,0],-12,[12,-7],[5,7]]+76+12,inf),\amp,0.1,\velo,Prand([1.3,2.4,0.4,3],inf)),

Pbind(\instrument,\bass3,\dur,Pseq([0.25],inf),\midinote,Pseq([Pseq([-5,0,7,15],4),Pseq([0,-5,7,15]+5,4),Pseq([-12,3,-7,15]+7,4),Pseq([-5,10,0,15]+12,4)]+40,inf),\amp,Prand([0.2,0.1],inf),\legato,Prand([2.3,0.4,0.4,1.2],inf)),

Pbind(\instrument,\kicks,\dur,1,\amp,1),

Pbind(\instrument,\hh1,\dur,0.25,\amp,Pseq([0.3,0,1,1],inf)),

Pbind(\instrument,\hh2,\dur,0.25,\amp,Pseq([0,0,0.8,0],inf)),Pbind(\instrument,\snr,\dur,0.5,\amp,Pseq([0,0,1,0],inf)),


Pbind(\instrument,\bass4,\dur,0.25,\midinote,Pseq([Pseq([-5,0,7,15],4),Pseq([0,-5,7,15]+5,4),Prand([-12,3,-7,15]+7,4),Pseq([-5,10,0,15]+12,4)]+76-12,inf),\amp,Prand([0.2,0.1],inf),\legato,Pseq([1,0.3,0.4,1.4,1],inf))

]));
Tempo.bpm=130;
s.sendMsg("/s_new","rev",3,1,1);Pdef(\tr2).play;
)
Pdef(\tr2).stop;s.sendMsg("/n_free",3);