blob: 112bfdf77d71f4db2f57d1d3be59eb67820e0d46 (
plain)
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
|
#N canvas 1309 248 577 450 10;
#X declare -lib cyclone;
#X text 15 35 Bandpass filter controllable by center frequency and
Q;
#X obj 32 382 dac~;
#X obj 32 343 *~ 0.2;
#X floatatom 160 294 0 0 0 0 - - -;
#X msg 133 227 200 \, 10000 4000;
#X obj 31 210 noise~;
#X text 36 226 input signal;
#X text 133 211 center freq;
#X text 88 250 gain;
#X text 172 325 optional arguments set values of gain \, center frequency
\, and Q (default 0 \, 0 \, 0.01);
#X text 88 182 list sets gain \, cf \, q (works unless there are any
signal inputs for filter parameters);
#X text 42 316 filtered output;
#X text 15 62 reson~ implements the following filter equation: y[n]
= gain * (x[n] - r * x[n-2]) + c1 * y[n-1] + c2 * y[n-2] \, where r
\, c1 \, and c2 are parameters calculated from the input center frequency
and Q. Q is the filter bandwidth divided by center frequency. Inputs
can be floats or signals. The specification is similar to the nres
unit generator in cmusic.;
#X obj 374 38 import cyclone;
#X obj 32 294 reson~ 1 200 23;
#X obj 133 250 Line~ 200;
#X floatatom 60 254 0 0 0 0 - - -;
#X text 158 276 Q: Try range of 1-100;
#X connect 2 0 1 0;
#X connect 2 0 1 1;
#X connect 3 0 14 3;
#X connect 4 0 15 0;
#X connect 5 0 14 0;
#X connect 14 0 2 0;
#X connect 15 0 14 2;
#X connect 16 0 14 1;
|
