blob: a954dd5c97dc927780a6ecdac538b46d55afef77 (
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
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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
#N canvas 1 53 762 520 10;
#X obj 170 445 dac~;
#X obj 7 369 phasor~;
#X floatatom 7 347 5 0 0 0 - - -;
#X obj 145 329 sig~;
#X obj 190 329 sig~;
#X obj 97 257 mtof;
#X obj 97 120 vsl 15 128 16 135 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 145 120 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 190 119 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 97 329 line~;
#X msg 97 306 \$1 100;
#X floatatom 200 281 5 0 0 0 - - -;
#X floatatom 155 281 5 0 0 0 - - -;
#X floatatom 97 281 7 0 0 0 - - -;
#X msg 361 123 low;
#X msg 361 147 high;
#X msg 361 171 band;
#X msg 361 195 notch;
#X msg 361 219 peak;
#X obj 7 303 loadbang;
#N canvas 4 20 608 388 hanning-table 0;
#X obj 92 206 phasor~;
#X obj 92 234 cos~;
#X obj 23 328 tabwrite~ hanning;
#X obj 30 252 -~;
#X obj 28 218 sig~ 1;
#X msg 37 180 0;
#X text 141 13 CALCULATE HANNING;
#X text 141 27 WINDOW TABLE;
#N canvas 0 0 450 300 (subpatch) 0;
#X array hanning 512 float 0;
#X coords 0 1 511 0 256 128 1;
#X restore 305 93 graph;
#X obj 93 171 sig~;
#X text 24 354 sample rate / window size;
#X msg 23 144 bang;
#X obj 66 269 sig~ 0.5;
#X obj 49 300 *~;
#X obj 67 96 samplerate~;
#X obj 25 53 t b f;
#X obj 25 8 loadbang;
#X msg 25 31 512;
#X obj 94 131 / 512;
#X connect 0 0 1 0;
#X connect 1 0 3 1;
#X connect 3 0 13 0;
#X connect 4 0 3 0;
#X connect 5 0 0 1;
#X connect 9 0 0 0;
#X connect 11 0 2 0;
#X connect 11 0 5 0;
#X connect 12 0 13 1;
#X connect 13 0 2 0;
#X connect 14 0 18 0;
#X connect 15 0 14 0;
#X connect 15 0 11 0;
#X connect 15 1 18 1;
#X connect 16 0 17 0;
#X connect 17 0 15 0;
#X connect 18 0 9 0;
#X restore 13 430 pd hanning-table;
#N canvas 10 112 328 354 fft-analysis 0;
#X obj 69 15 inlet~;
#X obj 43 74 rfft~;
#X obj 37 123 *~;
#X obj 81 124 *~;
#X obj 49 167 +~;
#X obj 49 196 sqrt~;
#X obj 27 297 tabsend~ response;
#X obj 171 209 block~ 512 2;
#X obj 182 61 tabreceive~ hanning;
#X obj 164 99 *~;
#X obj 69 36 /~ 8;
#X obj 51 249 clip~ 0 1;
#X connect 0 0 10 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 1 1 3 0;
#X connect 1 1 3 1;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 11 0;
#X connect 8 0 9 1;
#X connect 9 0 1 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X restore 216 421 pd fft-analysis;
#N canvas 0 0 450 300 (subpatch) 0;
#X array response 256 float 0;
#X coords 0 1 255 0 256 140 1;
#X restore 478 10 graph;
#X msg 7 325 110;
#X text 5 1 svf~ - state-variable filter;
#X text 146 99 q;
#X text 171 100 resonance;
#X text 67 100 frequency;
#X text 331 100 filter type;
#X obj 200 387 svf~ low;
#X text 8 28 A port of Steve Harris' LADSPA plugin;
#X text 6 45 (http://plugin.org.uk);
#X text 325 313 Notes:;
#X text 338 334 'q' controls the filter resonance. The resonance input
is for 'extra' resonance.. :);
#X text 400 171 <- keep q below 0.1;
#X text 339 370 The filters don't use the same scale for frequency.
Bandpass frequency seems to be in Hz. If the frequency is set too high
\, LOUD aliasing is produced.;
#X text 339 418 The bandpass filter is very sensitive to q - normal
range is 0 to 0.1.;
#N canvas 338 198 494 403 META 0;
#X text 12 245 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan
Wilkes for Pd version 0.42.;
#X text 12 205 LIBRARY external bsaylor;
#X text 12 5 KEYWORDS signal filter;
#X text 12 45 DESCRIPTION state-variable filter;
#X text 12 65 INLET_0 signal low high band notch peak;
#X text 12 105 INLET_2 signal;
#X text 12 85 INLET_1 signal;
#X text 12 125 OUTLET_0 signal;
#X text 12 145 OUTLET_1 signal;
#X text 12 165 OUTLET_2 signal;
#X text 12 185 OUTLET_3 signal;
#X text 12 25 LICENSE GPL v2;
#X text 12 225 AUTHOR Benjamin R. Saylor <bensaylor@fastmail.fm>;
#X restore 690 468 pd META;
#X connect 1 0 29 0;
#X connect 2 0 1 0;
#X connect 3 0 29 2;
#X connect 5 0 13 0;
#X connect 6 0 5 0;
#X connect 7 0 3 0;
#X connect 7 0 12 0;
#X connect 8 0 4 0;
#X connect 8 0 11 0;
#X connect 9 0 29 1;
#X connect 10 0 9 0;
#X connect 13 0 10 0;
#X connect 14 0 29 0;
#X connect 15 0 29 0;
#X connect 16 0 29 0;
#X connect 17 0 29 0;
#X connect 18 0 29 0;
#X connect 19 0 23 0;
#X connect 23 0 2 0;
#X connect 29 0 0 0;
#X connect 29 0 0 1;
#X connect 29 0 21 0;
|
