«weiweiwei» by laichihsia

on 26 Mar'13 12: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;
)
raw 892 chars (focus & ctrl+a+c to copy)
reception
comments