«weiweiwei» by laichihsia
on 26 Mar'13 17:18 in// no comment //
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
( // weiweiwei ++ no comment // SynthDef("allpassDelay", { | out=0 | var input ; input = In.ar(0, 2); 8.do({ input = AllpassC.ar(input, 0.04, { Rand(0.001,0.04) }.dup, Rand(0.5, 3.0) )}); ReplaceOut.ar(out, input); } ).play; SynthDef("weiweiwei", { | out=0, pitch=300, pan=0, decay=1, mix=0.3, room=0.7, damp=0.4, dur=5 | var signal, input; input = Amplitude.kr(SoundIn.ar(0))*0.8; signal = Pan2.ar( signal = Klank.ar(`[[pitch*1.2, pitch*1.5, pitch*2.9, pitch*2.2], [0.13, 0.08, 0.05, 0.11],[1.2, 1, 1.2, 0.5]], BrownNoise.ar(input)), 0); signal = PitchShift.ar(signal, 0.3, LinLin.kr(input, 0.001, 0.025, 0.5, 6), 0.5, 0.004); signal = FreeVerb.ar(signal, mix, room, damp); signal = SplayAz.ar(2, signal, spread: 0.5, center: (LFSaw.ar(dur.reciprocal * Rand(-1, 1).sign, Rand(0, 2)).range(0, 2))); Out.ar(out, Limiter.ar(signal, 0.7, 0.01)) }).play; )
reception
comments