blob: b97e9a9e4f2a8b47cd318fbbb3342e88b4330804 (
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
|
#N canvas 0 26 712 482 10;
#X floatatom 367 358 0 0 0 0 - - -;
#X obj 250 348 noise~;
#X obj 250 415 *~ 0.05;
#X obj 250 448 dac~;
#X obj 84 149 sig~ 1;
#X text 231 151 Length (samps);
#X obj 516 56 loadbang;
#X msg 50 107 clear;
#X floatatom 209 149 0 0 0 0 - - -;
#X floatatom 160 120 0 0 0 0 - - -;
#X obj 516 83 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 480 212 405 395 genRamp 0;
#X obj 39 197 sel 0 1;
#X obj 81 254 i;
#X obj 39 146 sel 1;
#X msg 111 100 clear;
#X obj 120 206 * 1;
#X obj 120 180 expr ((127. - $f1) / 127.);
#X obj 98 124 - 1;
#X obj 39 75 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 81 282 pack 0 0;
#X text 116 151 exponential ramp down from 1 to 0;
#X text 147 249 makes 50% zeros \, 25% exponential downward ramp \,
25% random;
#X obj 39 99 Uzi 128;
#X obj 39 123 decide;
#X obj 39 174 decide;
#X obj 39 219 urn 128;
#X obj 39 53 inlet;
#X obj 81 316 outlet;
#X connect 0 0 14 0;
#X connect 0 1 1 0;
#X connect 1 0 8 0;
#X connect 2 0 13 0;
#X connect 3 0 14 0;
#X connect 4 0 8 1;
#X connect 5 0 4 0;
#X connect 5 0 4 1;
#X connect 6 0 1 1;
#X connect 6 0 5 0;
#X connect 7 0 3 0;
#X connect 7 0 11 0;
#X connect 8 0 16 0;
#X connect 11 0 12 0;
#X connect 11 2 6 0;
#X connect 12 0 2 0;
#X connect 13 0 0 0;
#X connect 14 0 8 0;
#X connect 15 0 7 0;
#X restore 516 108 pd genRamp;
#X text 42 88 clears input history only;
#X text 186 115 Offset (samps);
#X text 387 109 Generate new fir =>;
#X text 178 200 Initial args: buffer \, offset(samps) \, length(samps)
;
#X text 181 225 256 point max len;
#X text 8 275 integral of buffer from offset to offset + length;
#X text 399 357 number of samples in impulse;
#X obj 250 383 buffir~ fir_buf 0 10;
#X obj 50 200 buffir~ fir_buf 0 32;
#X obj 516 135 peek~ fir_buf;
#X obj 403 269 table fir_buf 128;
#X obj 50 229 Snapshot~ 100;
#X obj 52 253 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-262144 -1 -1 0 256;
#X text 15 19 a table based FIR convolution filter;
#X text 16 42 buffir~ is a table based FIR (finite impulse response)
filter. an input signal is convolved with n samples of a buffer. Currently
the maximum number of points is 256;
#X text 343 295 table is a 128-point downwards ramp with random values
here and there with amplitude from 1 to 0;
#N canvas 309 151 494 411 META 0;
#X text 12 195 HELP_PATCH_AUTHORS Christoph Kummerer. Revised by Jonathan
Wilkes for Pd-extended 0.42 to conform to the PDDP template.;
#X text 12 165 WEBSITE http://suita.chopin.edu.pl/~czaja/miXed/externs/cyclone.html
;
#X text 12 5 KEYWORDS signal filter array max_compatible;
#X text 12 45 DESCRIPTION a table based FIR convolution filter;
#X text 12 125 OUTLET_0 signal;
#X text 12 65 INLET_0 signal clear;
#X text 12 85 INLET_1 signal;
#X text 12 105 INLET_2 signal;
#X text 12 25 LICENSE SIBSD;
#X text 12 145 AUTHOR Krzysztof Czaja;
#X restore 663 461 pd META;
#X connect 0 0 19 2;
#X connect 1 0 19 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 4 0 20 0;
#X connect 6 0 10 0;
#X connect 7 0 20 0;
#X connect 8 0 20 2;
#X connect 9 0 20 1;
#X connect 10 0 11 0;
#X connect 11 0 21 0;
#X connect 19 0 2 0;
#X connect 20 0 23 0;
#X connect 23 0 24 0;
|
