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
|
//third party FFT UGens
//sick lincoln remembers complex analysis courses
PV_ConformalMap : PV_ChainUGen {
*new { arg buffer, areal = 0.0, aimag = 0.0;
^this.multiNew('control', buffer, areal, aimag)
}
}
//in and kernel are both audio rate changing signals
Convolution : UGen {
*ar { arg in, kernel, framesize=512,mul = 1.0, add = 0.0;
^this.multiNew('audio', in, kernel, framesize).madd(mul, add);
}
}
//fixed kernel convolver with fix by nescivi to update the kernel on receipt of a trigger message
Convolution2 : UGen {
*ar { arg in, kernel, trigger = 0, framesize=2048,mul = 1.0, add = 0.0;
^this.multiNew('audio', in, kernel, trigger, framesize).madd(mul, add);
}
}
//fixed kernel convolver with linear crossfade
Convolution2L : UGen {
*ar { arg in, kernel, trigger = 0, framesize=2048, crossfade=1, mul = 1.0, add = 0.0;
^this.multiNew('audio', in, kernel, trigger, framesize, crossfade).madd(mul, add);
}
}
//fixed kernel stereo convolver with linear crossfade
StereoConvolution2L : MultiOutUGen {
*ar { arg in, kernelL, kernelR, trigger=0, framesize=2048, crossfade=1, mul = 1.0, add = 0.0;
^this.multiNew('audio', in, kernelL, kernelR, trigger, framesize, crossfade).madd(mul, add);
}
init { arg ... theInputs;
inputs = theInputs;
channels = [
OutputProxy(rate, this, 0),
OutputProxy(rate, this, 1)
];
^channels
}
}
//time based convolution by nescivi
Convolution3 : UGen {
*ar { arg in, kernel, trigger=0, framesize=2048, mul = 1.0, add = 0.0;
^this.multiNew('audio', in, kernel, trigger, framesize).madd(mul, add);
}
*kr { arg in, kernel, trigger=0, framesize=2048, mul = 1.0, add = 0.0;
^this.multiNew('control', in, kernel, trigger, framesize).madd(mul, add);
}
}
//jensen andersen inspired FFT feature detector
PV_JensenAndersen : PV_ChainUGen {
*ar { arg buffer, propsc=0.25, prophfe=0.25, prophfc=0.25, propsf=0.25, threshold=1.0, waittime=0.04;
^this.multiNew('audio', buffer, propsc, prophfe, prophfc, propsf, threshold, waittime);
}
}
PV_HainsworthFoote : PV_ChainUGen {
*ar { arg buffer, proph=0.0, propf=0.0, threshold=1.0, waittime=0.04;
^this.multiNew('audio', buffer, proph, propf, threshold, waittime);
}
}
//not FFT but useful for time domain onset detection
RunningSum : UGen {
*ar { arg in, numsamp=40;
^this.multiNew('audio', in, numsamp);
}
*kr { arg in, numsamp=40;
^this.multiNew('control', in, numsamp);
}
*rms { arg in, numsamp=40;
^(RunningSum.ar(in.squared,numsamp)*(numsamp.reciprocal)).sqrt;
}
}
|
