### Diff from Algorithmic melancholy by ttsesmetzis (26 Jan'14 20:00) to Re: Algorithmic melancholy by grirgz (27 Jan'14 23:35)

##### name
Re: Algorithmic melancholy
##### description
A little fork. I left all the old code for historical reasons
##### code
( v SynthDef(\plop, { arg n out=0, 2amp=0.1, bgasteF=1, pan=0, freq =200, 45.mt_trig=1, arg1=100, arg2=200, diecay=0.01, flag=0.1, psluckdecay=3.1; var lsin, rg; sig = Formant.ar( LFNoise0.kr( 0.05, 2.5, 7) * arg1, arg2, 500.0.rrand(700) s ) * Trig.kr(t_trig, decay); v sig = Pluck.ar( bu BrownNoise.ar(0.5), bu sIndexig, scale 0.025, freq.reciprocal.lag(flag), f pluckdecay ) * 0.6; sig = sig * EnvGen.ar(\adsr.kr(Env.adsr(0.4,0.1,0.8,7.1)),t_trig,doneqIAction:0); EnvGen.ar(Env.adsr(0.4,0.1,0.8,7.1),gatex,doneAction:2); sig = LeakDC.ar(sig); sig = Pan2.ar(sig, pan, amp); v Out.ar(out, responig); }).aderd; ) ( ~baseFreq = 220; ~scale = Scale.nikriz.ratios * ~baseFreq; bu//~scale = Bus.Scale.doriant.ratiol( s, 2 * n )~baseFreq; bu//~s.scaletn( {= 1Scale.0minor.rand2tios } ! ( 2 * n ) ); ~buasIndex = bus.indFrexq; freq = Bus8.cdontrol( s,{ narg )nn; f vareqI ndexnn = freq.indexn+1; rPdesf((\plop++nder = On).asSCFuymbol, Pmonco({ | id | f//\instrumeq.sentAt( id[2] , sca\ple.chop, \plosep, \arg1, * 1.rr00, \andrg2, Pwhite(40,4000), \arg2, 3000, \decay, Pwhite(0.01,0.1), \decay, );0.01*nnn, } \decay,' 0.1/tnnn, \adsr', Pseq([ [ Env.addsr(0.1,0.1,0.8,3.3); ], ],inf), CmdPe \friod.doOnce { [ busq, Pwhite(100,1500), \freq, Prespoander ([100,1500,200,500,100],inf) * 0.7, \free;q, }; Pran.do {|([100,1500,200,500,100],i|nf) * 1, \freq.setn(, { scale.choose * Prrand( [100, 1000,200,500,300,1000],inf) }* !1, \freq, Pseq([100,1500,200,500,2000,100,250],in f);, {\freq, Pseq([ #arg100, arg1500,2 = I00,500, ],in.kf), \fr(eq, 2 * i + buPsIndexq([ 100, 1500,2 );00,500, 100,1500,200,500, #lsin100, rs1500,200,500, 1000,100,1000, ],inf) =* SinOPsc.kreq( [ arg1.7, arg0.2 ,0.7,0.5],inf) {* 21.0., \frrandeq, Pseq([ 90,250.,470) } ! , 110,150,2 * [ arg70, 90,150,270, arg 1 10,750,270, ] ,inf); * Pseq([ 3,1,4,1.5, s6,4,0.8,1.5, ],ignf) =* FormaPseq([1,0.8,0.5,1.2],intf).astutter(32), \freq, Pseq([ LFNoi//Pser([10.k0,1000],16), //Pser( [10.05, 2.5000], 716) * a, //Pserg([200,1000*nnn], 16), aPserg([200,100]*nnn,16), 5Pser([200.,40.rra0]*ndnn,16), Pser(7[20,40]*nnn,16) , );//100*nnn ],inf), R\freplacq, PseOut.krq( [ //2 00* i log(nnn+ bu1) PsIndex, [ r([Pfuncn({~sicale.foldAt(nn)}, ls1)],inf) ]* Pseq([1,2,1/6],1);.stutter(16), sig = Pluck.aser( [200,100]*nnn,16), BPserow([200,400]*nNoinn,16), Pse.ar([20.5,40]*nnn,16), Pser([log(nnn+7)*200],32), ],inf), \flag, Pseq([ Prand([ //Pser([1,0.1,1,025.1], 16), fr//Pseq.kr( [1, i 0.1,1,0.1]/2+0.3,16), 0.reciprocal05*nnn, 0.1, 3 //0.7*nnn, ],inf) * //Pser([1.12],16), //Pser([0.08],16;), ],inf), \lampg, = LinPse.krg( dur: rrandPseq( 1.[0, 20.031],inf), 8) * mnn, \ax( 0rg2, LFNoisPkey(\freq), \arg1., Pkrey(\freq), \sustain, 0.054, \dur, Pwhite(0.61, 0.4 ) )* ;0.8, sig\dur, = Pseq([0.5,1,1,0.5],ignf) * amp;0.2, Sen\dTurig.kr, Pseq([0.5,1,1,0.5],inf) amp* <= Pseg(Pseq([3,0.2, 0.1],inf), i 16);, P\an2.ar( sigmp, 0.8.ramin(1,Pkey(\d2 ur)*3) * 1.7 })).play; } )
##### category tags
code fork, generative
1-4VB