SuperCollider Code

raendviochestra

synthdexplf based oring of morphing cycled envelopes (i.e. kind of grains) as a sound source; give it some tries - there are possibly interesting ones

( // synth NdSynthDef(\ro_env19io, { var| out=0, freq=80, dur=1, 4atk=0.rr1, and(9mp=0).d8, curve= #[2,-3], bug('baslend=0.1, from=1, to=0, rot=0, rot_freq');=0.5 | var seedha = thisThreHad.ramondSeed = ics((3,5..10000000003).randchoose.debug('seed'); varub gfrenq = [LFNoise2,LFNoisze0,SinOsc,LFPulse,LFSaw]')); var sig = Splay6.ar({ var i = 4.exprand(4026).asInteger.debug('oscillators'); Medvar sig = Pan2.ar( 3.exprand(18), EnvGen.ar( Env( // wave form [0] ++ Array.fSill(i-1, { gen.chooOsec.kr( 0.25.cNamedCoin.if({ gen.chtroosel.kr(0.01.\in_frexpq, Arrand(0y.1)).expranged(i-2,0.1,1) }, { 0.1.exprand(1) }), Namul: 0.25.cedCointrol.ifkr({ ge\in.c_phooase.k, Ar(0ray.05.exprand(1i-2,0,pi)).r, Nangme(0dControl.1kr(\in_mul,1) }, { 0.1.Array.rand(i-2,0,1) }), NamedControl.kr(\in_add, 0!(i-2)), }) ++ [0], NamedControl.kr(\in_step, Array.exprand(i-1, 0.1,1.0).normalizeSum), [[-5.0.rrand(5),\sin] ).choose] ++ Array.fircll(i-2e, { [\stinmeScale: ! 1freq.reciprocanl * NamedControl.kr(6)\sub_freq, -5ha.0.forrmandt(5)ha.size !- 1 / 2, ha.size).pow(1.exprrand(42)])).freciprocal, levelScatle: AmpCompA.chkr(NamedControl.kr(\sub_freq) * freq) })* ++NamedControl.kr(\sub_amp, [[ha.formant(ha.size -5 1 / 2, ha.size).pow(1.0.exprrand(53),\sin]).chnoosrmalize]Sum) // * Line.kr() ), )NamedControl.ckr(\sub_pan, Array.intercpolation(ha.size,-1,1)) t* LimneScale: Duty.kr( // freqom,to,dur) D).sum * EnvGen.kra(Endv.perc([4atk,8 dur-atk,16 amp,24], curve).blend(Env.sinfe(dur), 0blend), doneAction:2); Dwrsig = Rotandte2.ar(sig[10],2,4,8,sig[16,32,64],rot*LFSaw.kr(rot_freq)); Out.ar(out, LPF.ar(HPF.ar(1sig,20),2e4)); }).add.7play ) ( **// 1.rrand(3)).normalizeSd um,sage var linf)b //= ocSyntavhDescLib.global, *size 0= lib.75at(\envio).cointrols.ifdetect({|i| Dutyi.kr(name //== \ino_step }).numChannels, [Dxha = Harmonics(lib.at(\envio).controls.d,etect({|i| Di.name == \sub_freq }).numChannels), kind = [0,1,2].choose.debug('kind'); Synth(\envio,[ freq:(40 * (pi/2).pow([(0.125,0.25..8)).choose).debug('base freq'), dur:5.rrand(20.5,1).debug('dur'),2 rot:[0,41,60.1.exprand(0.9)].choose,8, rot_freq:0.1.exprand(10), curve:[-2.rrand(2.0),-2.rrand(2.0)], inf)rom:[0,1].choose, to:[0,1].choose, Dshub_f({req: [ ha.geom((1.05,1.06..11.3).choose.perform(0.5.coidn.if({\reciprocal},{\value}))), // up or down ha.formant(ha.sioze }- !1 / 2, ha.size).pow(1.0.exprand(83)).pow([1,-1].choose), i// up or downf) )ha.formant(ha.size },- {1 (0/ 2, ha.size).pow(11.0.exprand(3)).clump(hooa.size + 1 / 2).midirpow([1,-1]).flatioten })// up and down )][kind].debug('sub freq sciprocal e'), )sub_amp: * EnvG[ha.dencay].kaddAll(ha.formant(ha.size - 1 // r2, hythm Enva.psizerc).pow( 01.01.exprand(0.43) * 0.)!25).coat(kind).normalif({ DzeSutym.krdebug('sub //freq atkmp'), Drsub_pand(:[0ha.5,decay - 1,2,4,8, * [12,-16]].addAll(Array.interpolation(ha.size, -1,1)!2).at(kinfd), 0, Din_shtep:Array.exprand(size-1,0.05,0.3).normalizeSum, in_freq:Array.exprand({size, [0.1,2,3,40.5].choose, } ! [1,5,20].choosexp), in_mul:Array.rand(8size,0.1,0.3), //inf)_mull:0!size ) }//in_add:Array.rand(size, { -1 }).0,1) 0.1.]) ) ( // noisex pattern usage or supernd(4ova server performance test ) var *lib 0= SynthDescLib.75global, size = lib.at(\envio).cointrols.ifdetect({|i| Di.name == \in_freq }).numChannels, ha = Harmonics(lib.aty(\envio).kcontrols.detect({|i| //i.name == \sub_frelq }).numChannels); PparGroup(Pbind(*[ instrument:\envio, Din_freq:Ptuple({Pseq({Array.exprand([0.5size, 1, 2,)}!4,8,1inf)}!2), in_mul:Ptuple({Pseq({Array.exprand(size, 0.16], 1)}!4,inf)}!2), 0, Din_shtep:Ptufple({ [Pseq({Array.exprand(size-1,20.05,0.3.rrand(1)).normalizeSum}!4,8inf)}!2), sub_freq: Ptuple({Pseq([ ha.geom((1.05,1.06]..1.3).choose.perform(0.5.coin.if({\reciprocal },{\value}))), !// up or down ha.formant(ha.size - 1 / 2, ha.size).pow(1.0.exprand(83)).pow([1, inf-1].choose) ) }, {// 1up }),or down LFNha.foirmant(ha.size - 1 / 2, ha.kr(0size).pow(1.0.exprand(103)).rclump(hang.size(0 + 1 / 2).05pow([1,-1]),.flatten // auppe aranced down LFNo],inf)}!2), sub_amp: Ptuple2({Pseq([ha.kdecay].addAll(ha.formant(0ha.size - 1 / 2, ha.size).pow(1.0.exprand(103))!2).rangcollect(-4,4),{ ).c|i| i.norcmalizeSum });,inf)}!2), }sub_pan: !Ptuple({Pseq([ha.decay 3- 1 * [1,-1]].rranddAll(9)Array.dintebugrpolation('ha.sourcize',-1,1)!2);, inf)}!2), BHiShnote:Ptuplfe([ Pseq(Array.rand(2.rrand(8),0,11), inf), GVPseq(Arbray.rand(4.rrand(8),12,35), inf) ]), Roctave:Ptuple2(Pseq((3.a.7).sputter(.scramble.mig[0]rror2, sig[1]nf)!2), Du delty.ka:Pr(Drand([1/4,1,2,4,8].stutter.sputter.wrapExtend(16).scramble,inf), 0, Dran //delta:Pseq([-14,1,08],inf)), //delta:2, dur:Pfunc({ |e| e.delta * LFSthisThreawd.clockr(0.beatDur * 1.exprand(13) })), 40.rrscand(150)le:Scale.dchooseb, //cugrve:Ptuple('Pbroom'wn(-2,2) !2), LFNoamp:Pseq([[0.4,0.4]],inf) * Pse2q(Array.krand(16,0.,1)/2+Array.exprand(16,0.25,0.5),inf)., rot:Ptuple(Pstutter(Pwhite(1,8), Pranged(4[000,65001],inf))!2), LFNroit_freq:Ptuple(Pstutte2.kr(Pwhite(1,8), Pwhite(0.1.,4))!2), blexnd:Ptuple(Pbraownd(0.1,0.9)!2)., frangom:Ptuple(Pstutter(Pwhite(1,38), Pwhite(0,1.0))!2), LFNtoi:Ptuple(Pstutte2.kr(0.Pwhite(1.,8), Pwhitexprand(0,1.0)).!2), curangve:Ptuple(Ptuple(Pbrown(-24,-162,0.3) !2);!2) }])).play(TempoClock(1)); )

noise, experimental, background, endlessynth