Diff from Granular electromaton by William Mox Drossard (08 Aug'12 10:33) to Re: Granular electromaton variation by Bruno Ruviaro (31 Oct'16 23:47)

name
Re: Granular electromaton variation
description
HiA to vall SCaddricats, This is my first postn here, hopef yoGranu'llar enjoy it. Rhythmilec autromaton withby soWilliame nice *hMopex sDro* effects.sard
code
// variation of http://sccode.org/1-4QN#c688 ( Server.local.waitForBoot({ ( z.free; z = Buffer.alloc(s, 512, 1); z.sine1(1.0 / [1, 2, 3, 4], true, true, true); fork( { loop { SynthDef("g1",{ arg out=0, bufnum=0, dur=1, rate=1, pos=0, sdens=1, edens=1; var env, trig, dens, snd; dens = Line.kr(sdens,edens,dur); var trig = [LFNoise0,SinOsc,Impulse,LFPulse,LFSaw].choose; trig = trig.ar(Line.kr(sdens,edens,dur)); //var env = EnvGen.kr(Env.perc(0.0001. attackTime: rrand(0.1, 1), releaseTime: dur * rrand(0.5, 1), curve: -1).kr; snd = GraindBuf.ar(2)),trig,1/doneAcns,bufnum,ratie,pon:2s)*env; snd = [LPF, vHPF].choose.ar e( inv: = EsnvGd, frenq: LFNoise2.kr(Erranvd(0.pe5, 4)).rcange(10.0, 1001.0) ); snd = FreeVerb.ar( in: snd(, mix: 0.4, room: 0.9, damp: 0.9, mul: 1 ) * Env.linen(0, dur*(+1, 1, 0.5).krrand(4))),doneAction: 2); snd = OuLimiter.ar(out,snd); GrainB Ouft.ar(2,trig,1/dens,boufnum,rate,po s)*envd); ) }).add(); [1,2,4,8,16,32].choose.postln.wait; } } ).fork; a = Pbind( \instrument, \g1, \dur, Pseq([ Pseq([0.25, 0.1],32 8), Pseq([0.25, 0.125, 0.125],32 8), Pseq([0.125, 0.1],32 8) ],inf), \sdens, Pseq([9000,1000,500]/10, inf), \edens,Prand([ Pseq([9000,1000,500]/10,4), Pseq([1, 2], 1) ],inf), \rate, Pfuncwhite({-10.0.rrand(, 10)}), \pos,Pfuncwhite({1.0.rand}0, 1), \bufnum,z.bufnum ); b = Pbind( \instrument,\g1, \dur,Pseq([4, 5, 6],inf), \sdens,Pseq([90001,1000,500]/100,inf), \edens,Prand([ Pseq([9000,1000,500]/10, 1), Pseq([1, 0.1], 3) ],inf), \rate, Pfuncwhite({-10.0.rrand(10, 3)}), \pos,Pfuncwhite({-10.0.rrand(, 10)}), \bufnum,z.bufnum ); c = Pbind( \instrument,\g1, \dur,Pseqrand([41/32, Rest(4)],inf), \sdens,Pseq([9000,1000,500,25],inf), \edens,Prand([ Pseq([9000,1000,500,25],1), Pseq([1],4) ],inf), \rate, Pfuncwhite({-2, -100.0.rrand(100)}), \pos,Pfuncwhite({-10., 10.rrand(10)}), \bufnum,z.bufnum ); a =a.play; b =b.play; c =c.play; ) }); )
category tags
texture, code fork, microtiming, rhythm, grains, granulator
ancestors
1-4QN