one line aho

gistfile1.sc

Tempo.bpm=155;SynthDef("hh1",{|out=20,amp=1,rate=1|var src;src=RLPF.ar(Pan2.ar(ClipNoise.ar(0.2)),LFNoise2.ar(0.1,3000,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.05),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,1200,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(7020,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.3|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/2,0,4),SinOsc.ar((note).midicps,SinOsc.ar(note.midicps*2)))}),LFNoise2.kr(0.5,23,90).midicps,0.3)*EnvGen.ar(Env.perc(0.5,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,SinOsc.ar(freq/12,0,LFNoise1.ar(0.3,1,6))*EnvGen.ar(Env.adsr(0.01,0.2,0.2,0.1,3,-4)),SinOsc.ar(freq/16,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.6,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.25,{[0.04.rand,0.02.rand]+0.01},4.8)});Out.ar(0,a)}).store;s.sendMsg("/s_new","rev",3,1,1);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+24,inf),\amp,Prand([0.1,0.07],inf),\velo,Prand([0.5,0.6,0.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+24,inf),\amp,0.1,\velo,Prand([1.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([0.3,0.4,0.4,0.8],inf)),Pbind(\instrument,\kicks,\dur,1,\amp,1),Pbind(\instrument,\hh1,\dur,0.25,\amp,Pseq([0,0,1,1],inf)),Pbind(\instrument,\hh2,\dur,0.5,\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))]));Pdef(\tr2).play;