1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
s.boot;
s.quit;
(
SynthDef("silenceFFT", {
var in, chain;
in = WhiteNoise.ar(0.01);
chain = FFT(0, in);
Out.ar(0, IFFT(chain));
}).add;
)
s.sendMsg("/b_alloc", 0, 2048, 1);
s.sendMsg("/s_new", "silenceFFT", 2002, 1, 0);
s.sendMsg("/n_free", 2002);
(
SynthDef("sineFFT", {
var in, chain;
in = SinOsc.ar(SinOsc.kr(SinOsc.kr(0.08,0,6,6.2).squared, 0, 100,800));
chain = FFT(0, in);
Out.ar(0, IFFT(chain));
}).add;
)
s.sendMsg("/b_alloc", 0, 2048, 1);
s.sendMsg("/s_new", "sineFFT", 2002, 1, 0);
s.sendMsg("/n_free", 2002);
(
SynthDef("magAbove", {
var in, chain;
in = SinOsc.ar(SinOsc.kr(SinOsc.kr(0.08,0,6,6.2).squared, 0, 100,800));
//in = WhiteNoise.ar(0.2);
chain = FFT(0, in);
chain = PV_MagAbove(chain, 310);
Out.ar(0, 0.5 * IFFT(chain));
}).add;
)
s.sendMsg("/b_alloc", 0, 2048, 1);
s.sendMsg("/s_new", "magAbove", 2002, 1, 0);
s.sendMsg("/s_trace", 2002)
s.sendMsg("/n_free", 2002);
(
SynthDef("brick", {
var in, chain;
in = {WhiteNoise.ar(0.2)}.dup;
chain = FFT(0, in);
chain = PV_BrickWall(chain, SinOsc.kr(0.1));
Out.ar(0, IFFT(chain));
}).add;
)
s.sendMsg("/b_alloc", 0, 2048, 1);
s.sendMsg("/s_new", "brick", 2002, 1, 0);
s.sendMsg("/s_trace", 2002)
s.sendMsg("/n_free", 2002);
(
SynthDef("randcomb", { arg bufnum=0;
var in, chain;
in = {WhiteNoise.ar(0.8)}.dup;
chain = FFT(bufnum, in);
chain = PV_RandComb(chain, 0.95, Impulse.kr(0.4));
Out.ar(0, IFFT(chain));
}).add;
)
s.sendMsg("/b_alloc", 1, 2048, 1);
s.sendMsg("/s_new", "randcomb", 2003, 1, 0, \bufnum, 1);
s.sendMsg("/s_trace", 2003)
s.sendMsg("/n_free", 2003);
(
SynthDef("rectcomb", { arg bufnum=0;
var in, chain;
in = {WhiteNoise.ar(0.2)}.dup;
chain = FFT(bufnum, in);
chain = PV_RectComb(chain, 8, LFTri.kr(0.097,0,0.4,0.5),
LFTri.kr(0.24,0,-0.5,0.5));
Out.ar(0, IFFT(chain));
}).add;
)
s.sendMsg("/b_alloc", 0, 2048, 1);
s.sendMsg("/s_new", "rectcomb", 2002, 1, 0, \bufnum, 1);
s.sendMsg("/s_trace", 2002)
s.sendMsg("/n_free", 2002);
s.quit;
|
