blob: 867a9d4391d3044aeb7d37b3ba632fb334ce1ca8 (
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
|
#N canvas 125 49 971 642 10;
#X floatatom 4 133 5 0 0 0 - - -;
#X text 32 96 % cpu;
#X obj 4 93 dsp;
#X obj 4 73 tgl 15 0 empty empty dsp_ON/OFF 2 -8 0 10 -225271 -42246
-90881 1 1;
#X floatatom 183 494 7 0 0 0 - - -;
#X obj 112 373 dac~;
#X obj 112 347 gainvu~ 300;
#X obj 174 369 vu 15 120 empty empty 8 -8 0 10 -66577 -1 1 0;
#X obj 294 216 vsl 15 128 0 127 0 1 empty empty gain -7 -8 0 10 -225271
-42246 -90881 8400 1;
#X obj 113 95 noise~;
#X floatatom 173 512 7 0 0 0 - - -;
#X floatatom 17 113 5 0 0 0 - - -;
#X text 170 567 IEM KUG;
#X text 146 555 musil;
#X text 182 555 @;
#X text 190 555 iem.at;
#X text 153 577 Graz \, Austria;
#X floatatom 142 323 5 0 0 0 - - -;
#X msg 177 112 size 256;
#X msg 367 535 0 1 1 1;
#X msg 367 556 0 1 40 -1 80 1 120 -1 160 1;
#X msg 369 312 0 1 10 1 20 1 30 1 40 1 50 1 60 1 70 1 80 1;
#X obj 707 38 t b b;
#X msg 767 101 set;
#X msg 668 101 add2 \$1 \$2;
#X obj 707 18 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 176 137 order 384;
#X msg 366 342 matrix 9 2 0 1 10 1 20 1 30 1 40 1 50 1 60 1 70 1 80
1;
#X msg 363 371 matrix 2 9 0 1 10 1 20 1 30 1 40 1 50 1 60 1 70 1 80
1;
#X text 103 544 (c) Thomas Musil 2000 - 2010;
#X text 17 16 sparse_FIR~;
#X msg 370 581 0 0;
#X msg 370 502 0 -0.1 1 -0.18 2 -0.1 3 0.15 4 0.4 5 0.7 6 0.4 7 0.15
8 -0.1 9 -0.18 10 -0.1;
#X msg 510 126 0 0.04 1 0.04 2 0.04 3 0.04 4 0.04 5 0.04 6 0.04 7 0.04
8 0.04 9 0.04 10 0.04 11 0.04 12 0.04 13 0.04 14 0.04 15 0.04 16 0.04
17 0.04 18 0.04 19 0.04 20 0.04 21 0.04 22 0.04 23 0.04 24 0.04 25
0.04 26 0.04 27 0.04 28 0.04 29 0.04;
#X obj 668 81 pack 0 0.04;
#X obj 668 59 for++ 0 29;
#X text 366 217 A list of alternating index- and value- doubles will
change the coefficients of convolution. The number of pairs should
be less than the order of FIR.;
#X text 365 291 A matrix message will do the same.;
#X obj 568 93 loadbang;
#X text 134 16 convolve a signal with a coefficent list of non zero
index/value pairs. All values between the determined values will be
set to zero and won't be calculated (sparse).;
#X text 227 182 1.arg: <float> convolution-length (FIR order or size)
;
#X text 177 74 will change the max. order of FIR filter (or size).
;
#X text 366 263 Each pair or double begins with an index followed by
its value.;
#X obj 113 180 sparse_FIR~ 256;
#X msg 175 90 size 16;
#X connect 2 0 0 0;
#X connect 2 1 11 0;
#X connect 3 0 2 0;
#X connect 6 0 5 0;
#X connect 6 0 5 1;
#X connect 6 1 17 0;
#X connect 6 2 7 0;
#X connect 7 0 10 0;
#X connect 7 1 4 0;
#X connect 8 0 6 1;
#X connect 9 0 43 0;
#X connect 18 0 43 0;
#X connect 19 0 43 0;
#X connect 20 0 43 0;
#X connect 21 0 43 0;
#X connect 22 0 35 0;
#X connect 22 1 23 0;
#X connect 23 0 33 0;
#X connect 24 0 33 0;
#X connect 25 0 22 0;
#X connect 26 0 43 0;
#X connect 27 0 43 0;
#X connect 28 0 43 0;
#X connect 31 0 43 0;
#X connect 32 0 43 0;
#X connect 33 0 43 0;
#X connect 34 0 24 0;
#X connect 35 0 34 0;
#X connect 38 0 33 0;
#X connect 43 0 6 0;
#X connect 44 0 43 0;
|