#N canvas 1193 322 270 150 10; #X obj 46 120 outlet~; #N canvas 776 547 365 190 @hv_obj 0; #X obj 12 31 inlet~; #N canvas 1097 522 303 331 zeros 0; #X obj 12 217 czero~; #X obj 12 273 czero~; #X obj 12 299 outlet~; #X obj 75 299 outlet~; #X obj 12 31 inlet~; #X obj 47 122 *~ -1; #X obj 47 143 *~ 0.5; #X obj 132 58 *~; #X obj 132 92 -~; #X obj 187 78 *~ 4; #X obj 187 57 *~; #X obj 132 113 abs~; #X obj 132 155 *~ 0.5; #X obj 132 176 /~; #N canvas 773 235 262 212 location 0; #X obj 12 12 inlet~; #X obj 62 12 inlet~; #X obj 207 12 inlet~; #X obj 12 174 outlet~; #X obj 72 174 outlet~; #X obj 132 174 outlet~; #X obj 192 174 outlet~; #N canvas 725 189 180 137 gte 0; #X obj 117 12 inlet~; #X obj 12 12 inlet~; #X obj 12 100 outlet~; #N canvas 758 270 144 76 @hv_obj 0; #X obj 62 12 inlet~; #X obj 12 12 inlet~; #X obj 12 34 outlet~; #X connect 1 0 2 0; #X restore 12 78 pd @hv_obj __and~f; #X obj 117 56 sig~ 1; #N canvas 945 362 136 178 @hv_obj 0; #X obj 12 56 -~; #X obj 12 78 clip~ -1e-37 0; #X obj 12 12 inlet~; #X obj 62 12 inlet~; #X obj 12 144 outlet~; #X obj 12 122 *~ 1e+37; #X obj 12 34 min~; #X obj 12 100 +~ 1e-37; #X connect 0 0 1 0; #X connect 1 0 7 0; #X connect 2 0 6 0; #X connect 3 0 6 1; #X connect 3 0 0 1; #X connect 5 0 4 0; #X connect 6 0 0 0; #X connect 7 0 5 0; #X restore 12 34 pd @hv_obj __gte~f; #X connect 0 0 5 1; #X connect 1 0 5 0; #X connect 3 0 2 0; #X connect 4 0 3 1; #X connect 5 0 3 0; #X restore 62 49 pd gte; #N canvas 845 375 187 138 lte 0; #X obj 117 12 inlet~; #X obj 12 12 inlet~; #X obj 12 100 outlet~; #N canvas 467 216 140 82 @hv_obj 0; #X obj 72 12 inlet~; #X obj 12 12 inlet~; #X obj 12 39 outlet~; #X connect 1 0 2 0; #X restore 12 78 pd @hv_obj __and~f; #X obj 117 56 sig~ 1; #N canvas 715 101 137 184 @hv_obj 0; #X obj 12 56 -~; #X obj 12 78 clip~ -1e-37 0; #X obj 12 12 inlet~; #X obj 62 12 inlet~; #X obj 12 144 outlet~; #X obj 12 122 *~ 1e+37; #X obj 12 34 min~; #X obj 12 100 +~ 1e-37; #X connect 0 0 1 0; #X connect 1 0 7 0; #X connect 2 0 6 0; #X connect 2 0 0 1; #X connect 3 0 6 1; #X connect 5 0 4 0; #X connect 6 0 0 0; #X connect 7 0 5 0; #X restore 12 34 pd @hv_obj __lte~f; #X connect 0 0 5 1; #X connect 1 0 5 0; #X connect 3 0 2 0; #X connect 4 0 3 1; #X connect 5 0 3 0; #X restore 127 49 pd lte; #X obj 12 152 +~; #X obj 160 22 sig~ 0; #X obj 147 125 *~; #X obj 192 125 *~; #X obj 132 152 -~; #X obj 192 152 *~ -1; #X connect 0 0 9 0; #X connect 0 0 13 0; #X connect 1 0 7 0; #X connect 1 0 8 0; #X connect 2 0 11 1; #X connect 2 0 12 1; #X connect 7 0 11 0; #X connect 8 0 12 0; #X connect 9 0 3 0; #X connect 10 0 7 1; #X connect 10 0 8 1; #X connect 11 0 9 1; #X connect 11 0 13 1; #X connect 12 0 4 0; #X connect 12 0 14 0; #X connect 13 0 5 0; #X connect 14 0 6 0; #X restore 34 190 pd location; #X obj 132 134 sqrt~; #X obj 47 164 /~; #X obj 252 203 inlet; #X text 62 11 b0; #X text 132 11 b1; #X text 202 11 b2; #X obj 202 31 inlet~; #X obj 132 31 inlet~; #X obj 62 31 inlet~; #X text 252 183 clear; #X connect 0 0 1 0; #X connect 0 1 1 1; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 4 0 0 0; #X connect 5 0 6 0; #X connect 6 0 16 0; #X connect 7 0 8 0; #X connect 8 0 11 0; #X connect 8 0 14 1; #X connect 9 0 8 1; #X connect 10 0 9 0; #X connect 11 0 15 0; #X connect 12 0 13 0; #X connect 13 0 14 2; #X connect 14 0 0 2; #X connect 14 1 0 3; #X connect 14 2 1 2; #X connect 14 3 1 3; #X connect 15 0 12 0; #X connect 16 0 14 0; #X connect 17 0 0 0; #X connect 17 0 1 0; #X connect 21 0 10 1; #X connect 22 0 5 0; #X connect 22 0 7 1; #X connect 22 0 7 0; #X connect 23 0 10 0; #X connect 23 0 13 1; #X connect 23 0 16 1; #X restore 12 89 pd zeros; #X obj 12 52 *~; #N canvas 1083 390 288 282 poles 0; #X obj 12 181 cpole~; #X obj 12 228 cpole~; #X obj 12 249 outlet~; #X obj 12 31 inlet~; #X obj 62 31 inlet~; #N canvas 739 258 279 198 location 0; #X obj 12 12 inlet~; #X obj 127 12 inlet~; #X obj 222 49 inlet~; #X obj 12 155 outlet~; #X obj 62 155 outlet~; #X obj 112 155 outlet~; #X obj 172 155 outlet~; #N canvas 796 341 183 142 gte 0; #X obj 117 12 inlet~; #X obj 12 12 inlet~; #X obj 12 100 outlet~; #N canvas 679 326 140 75 @hv_obj 0; #X obj 72 12 inlet~; #X obj 12 12 inlet~; #X obj 12 34 outlet~; #X connect 1 0 2 0; #X restore 12 78 pd @hv_obj __and~f; #X obj 117 56 sig~ 1; #N canvas 754 439 132 184 @hv_obj 0; #X obj 12 56 -~; #X obj 12 78 clip~ -1e-37 0; #X obj 12 12 inlet~; #X obj 62 12 inlet~; #X obj 12 144 outlet~; #X obj 12 122 *~ 1e+37; #X obj 12 34 min~; #X obj 12 100 +~ 1e-37; #X connect 0 0 1 0; #X connect 1 0 7 0; #X connect 2 0 6 0; #X connect 3 0 6 1; #X connect 3 0 0 1; #X connect 5 0 4 0; #X connect 6 0 0 0; #X connect 7 0 5 0; #X restore 12 34 pd @hv_obj __gte~f; #X connect 0 0 5 1; #X connect 1 0 5 0; #X connect 3 0 2 0; #X connect 4 0 3 1; #X connect 5 0 3 0; #X restore 127 39 pd gte; #N canvas 816 493 187 138 lte 0; #X obj 117 12 inlet~; #X obj 12 12 inlet~; #X obj 12 100 outlet~; #N canvas 467 216 142 76 @hv_obj 0; #X obj 72 12 inlet~; #X obj 12 12 inlet~; #X obj 12 34 outlet~; #X connect 1 0 2 0; #X restore 12 78 pd @hv_obj __and~f; #X obj 117 56 sig~ 1; #N canvas 715 101 131 178 @hv_obj 0; #X obj 12 56 -~; #X obj 12 78 clip~ -1e-37 0; #X obj 12 12 inlet~; #X obj 62 12 inlet~; #X obj 12 144 outlet~; #X obj 12 122 *~ 1e+37; #X obj 12 34 min~; #X obj 12 100 +~ 1e-37; #X connect 0 0 1 0; #X connect 1 0 7 0; #X connect 2 0 6 0; #X connect 2 0 0 1; #X connect 3 0 6 1; #X connect 5 0 4 0; #X connect 6 0 0 0; #X connect 7 0 5 0; #X restore 12 34 pd @hv_obj __lte~f; #X connect 0 0 5 1; #X connect 1 0 5 0; #X connect 3 0 2 0; #X connect 4 0 3 1; #X connect 5 0 3 0; #X restore 172 39 pd lte; #X obj 12 83 +~; #X obj 205 12 sig~ 0; #X obj 127 66 *~; #X obj 172 66 *~; #X obj 112 133 -~; #X obj 172 133 *~ -1; #X connect 0 0 9 0; #X connect 0 0 13 0; #X connect 1 0 7 0; #X connect 1 0 8 0; #X connect 2 0 11 1; #X connect 2 0 12 1; #X connect 7 0 11 0; #X connect 8 0 12 0; #X connect 9 0 3 0; #X connect 10 0 7 1; #X connect 10 0 8 1; #X connect 11 0 9 1; #X connect 11 0 13 1; #X connect 12 0 4 0; #X connect 12 0 14 0; #X connect 13 0 5 0; #X connect 14 0 6 0; #X restore 34 155 pd location; #X obj 72 78 *~ 0.5; #X obj 122 57 *~; #X obj 122 78 +~; #X obj 182 64 *~ 4; #X obj 122 99 abs~; #X obj 122 141 *~ 0.5; #X obj 122 120 sqrt~; #X obj 232 167 inlet; #X text 182 11 a2; #X text 122 11 a1; #X obj 122 31 inlet~; #X obj 182 31 inlet~; #X text 232 147 clear; #X connect 0 0 1 0; #X connect 0 1 1 1; #X connect 1 0 2 0; #X connect 3 0 0 0; #X connect 4 0 0 1; #X connect 5 0 0 2; #X connect 5 1 0 3; #X connect 5 2 1 2; #X connect 5 3 1 3; #X connect 6 0 5 0; #X connect 7 0 8 0; #X connect 8 0 5 1; #X connect 8 0 10 0; #X connect 9 0 8 1; #X connect 10 0 12 0; #X connect 11 0 5 2; #X connect 12 0 11 0; #X connect 13 0 0 0; #X connect 13 0 1 0; #X connect 16 0 6 0; #X connect 16 0 7 0; #X connect 16 0 7 1; #X connect 17 0 9 0; #X restore 12 133 pd poles; #X obj 12 159 outlet~; #X obj 212 119 *~ -1; #X obj 262 119 *~ -1; #X obj 312 75 inlet; #X obj 62 31 inlet~; #X obj 112 31 inlet~; #X obj 162 31 inlet~; #X obj 212 31 inlet~; #X obj 262 31 inlet~; #X text 62 11 b0; #X text 112 11 b1; #X text 162 11 b2; #X text 212 11 a1; #X text 262 11 a2; #X text 312 55 clear; #X connect 0 0 2 0; #X connect 1 0 3 0; #X connect 1 1 3 1; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 5 0 3 2; #X connect 6 0 3 3; #X connect 7 0 1 4; #X connect 7 0 3 4; #X connect 8 0 2 1; #X connect 8 0 1 1; #X connect 9 0 1 2; #X connect 10 0 1 3; #X connect 11 0 5 0; #X connect 12 0 6 0; #X restore 46 99 pd @hv_obj biquad; #X obj 12 31 inlet~; #N canvas 394 259 700 360 bandpass1.coeffs 0; #X obj 283 73 sig~ 1; #X obj 283 95 /~; #X obj 283 117 *~; #X obj 283 139 *~ 0.5; #X obj 12 240 sig~ 1; #X obj 12 262 /~; #X obj 122 276 *~; #X obj 262 276 *~; #X obj 347 276 *~; #X obj 362 210 *~ -2; #X obj 432 210 sig~ 1; #X obj 432 232 -~; #X obj 417 276 *~; #X text 363 141 w0 = 2*pi*f0*Fs; #X text 363 161 alpha = sin(w0)/(2*Q); #X text 392 51 H(z) = -----------------------------------------; #X text 392 11 Audio-Cookbook:; #X text 392 91 http://musicdsp.org/files/Audio-EQ-Cookbook.txt; #X text 434 66 1 + (a1/a0)*z^(-1) + (a2/a0)*z^(-2); #X text 434 36 (b0/a0) + (b1/a0)*z^(-1) + (b2/a0)*z^(-2); #X obj 192 276 sig~ 0; #X text 488 207 a0 = 1 + alpha; #X text 488 287 b1 = 0; #X text 488 247 a2 = 1 - alpha; #X text 488 227 a1 = -2*cos(w0); #X text 488 267 b0 = sin(w0)/2 = Q*alpha; #X text 488 307 b2 = -sin(w0)/2 = -Q*alpha; #X text 477 187 BPF: (constant skirt gain); #X obj 137 242 *~ 0.5; #X obj 277 232 *~ -0.5; #X obj 62 248 +~ 1; #X obj 298 51 max~ 0.1; #X obj 37 89 *~ 6.28319; #X obj 37 68 /~ 44100; #X obj 137 103 expr~ sin($v1); #X obj 37 196 expr~ cos($v1); #X obj 37 47 clip~ 20 20000; #X obj 130 33 loadbang; #X obj 130 54 samplerate~; #X obj 37 26 inlet~; #X obj 298 29 inlet~; #X text 122 318 b0; #X text 192 318 b1; #X text 262 318 b2; #X text 347 318 a1; #X text 417 318 a2; #X obj 122 298 outlet~; #X obj 192 298 outlet~; #X obj 262 298 outlet~; #X obj 347 298 outlet~; #X obj 417 298 outlet~; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 11 1; #X connect 3 0 30 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 5 0 7 0; #X connect 5 0 8 0; #X connect 5 0 12 0; #X connect 6 0 46 0; #X connect 7 0 48 0; #X connect 8 0 49 0; #X connect 9 0 8 1; #X connect 10 0 11 0; #X connect 11 0 12 1; #X connect 12 0 50 0; #X connect 20 0 47 0; #X connect 28 0 6 1; #X connect 29 0 7 1; #X connect 30 0 5 1; #X connect 31 0 1 1; #X connect 32 0 35 0; #X connect 32 0 34 0; #X connect 33 0 32 0; #X connect 34 0 2 1; #X connect 34 0 28 0; #X connect 34 0 29 0; #X connect 35 0 9 0; #X connect 36 0 33 0; #X connect 37 0 38 0; #X connect 38 0 33 1; #X connect 39 0 36 0; #X connect 40 0 31 0; #X restore 62 53 pd bandpass1.coeffs; #X obj 173 31 inlet~; #X obj 62 31 inlet~; #X obj 220 64 inlet; #X msg 220 85 clear; #X text 62 11 frequency; #X text 173 11 q; #X text 220 44 clear; #X connect 1 0 0 0; #X connect 2 0 1 0; #X connect 3 0 1 1; #X connect 3 1 1 2; #X connect 3 2 1 3; #X connect 3 3 1 4; #X connect 3 4 1 5; #X connect 4 0 3 1; #X connect 5 0 3 0; #X connect 6 0 7 0; #X connect 7 0 1 6;