blob: 7a2fff0a1e84c61354ccd6a155e23e0ad13b8f30 (
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
|
#N canvas 18 36 1204 616 10;
#X obj 55 56 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 55 97 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#N canvas 0 22 711 532 init_tables 0;
#X obj 45 113 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 133 200 noise~;
#X obj 104 144 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 149 15 inlet;
#X obj 149 37 t b;
#X obj 188 99 del 100;
#X msg 53 82 1;
#X msg 188 122 0;
#X obj 167 64 del 100;
#X obj 134 234 tabwrite~ in;
#X obj 228 235 tabwrite~ filt;
#X obj 229 180 *~ 10;
#N canvas 0 22 238 185 dsp 0;
#X msg 28 63 \; pd dsp \$1;
#X obj 28 34 inlet;
#X connect 1 0 0 0;
#X restore 45 132 pd dsp;
#N canvas 448 145 458 308 dirac~ 0;
#X obj 75 23 inlet;
#X obj 75 96 sig~;
#X obj 75 121 biquad~ 0 0 1 -1 0;
#X obj 75 143 clip~ 0 1;
#X obj 75 169 outlet~;
#X obj 110 48 del 2;
#X msg 75 49 1;
#X msg 111 69 0;
#X connect 0 0 5 0;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 5 0 7 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;
#X restore 229 155 pd dirac~;
#X obj 229 209 bp~ 1000 10;
#X connect 0 0 12 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 2 0 10 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 5 0;
#X connect 8 0 2 0;
#X connect 8 0 13 0;
#X connect 11 0 14 0;
#X connect 13 0 11 0;
#X connect 14 0 10 0;
#X restore 678 278 pd init_tables;
#X obj 678 233 loadbang;
#N canvas 0 22 450 300 (subpatch) 0;
#X array in 800 float 0;
#X coords 0 1 799 -1 399 100 1;
#X restore 483 25 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array filt 200 float 0;
#X coords 0 0.1 199 -0.1 99 100 1;
#X restore 483 219 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array out 800 float 0;
#X coords 0 1 799 -1 399 100 1;
#X restore 483 382 graph;
#X text 94 464 IEM KUG;
#X text 73 452 musil;
#X text 108 452 @;
#X text 116 452 iem.at;
#X text 77 474 Graz \, Austria;
#X text 248 365 initial arguments:;
#X text 78 97 (the number of samples which were correlated are: the
positive minimum of the difference (src1-src2) and dst array lengths)
;
#X text 226 377 1.arg: <symbol> source1-name;
#X text 226 389 2.arg: <symbol> source2-name;
#X text 226 401 3.arg: <symbol> destination-name;
#X msg 77 302 bang;
#X obj 678 257 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 12 12 tab_conv;
#X obj 55 75 tab_conv in filt out;
#X text 29 441 (c) Thomas Musil 2000 - 2009;
#X msg 109 324 src1 in;
#X msg 124 345 src2 filt;
#X msg 135 366 dst out;
#X obj 63 394 tab_conv in filt out;
#X msg 54 251 0 0 0 800 200;
#N canvas 0 22 450 300 (subpatch) 0;
#X array in2 16 float 2;
#X coords 0 1 16 -1 160 100 1;
#X restore 903 25 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array filt2 4 float 2;
#X coords 0 1 4 -1 40 100 1;
#X restore 903 151 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array out2 19 float 2;
#X coords 0 1 19 -1 190 100 1;
#X restore 903 282 graph;
#X obj 972 227 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 972 246 tab_conv in2 filt2 out2;
#X msg 971 139 \; filt2 0 0.9 0.7 0.5 0.3 \; in2 const 0 \; in2 1 0.9
\; in2 8 0.9 \; in2 14 -0.9;
#X text 162 250 not working yet;
#X text 25 158 !!! array length of src1 + array length of src2 - 1
;
#X text 391 158 >= array length of dst !!!;
#X text 78 39 <bang> convolutes the 2nd array "src2" with the 1st array
"src1" to the destination array "dst";
#X connect 0 0 20 0;
#X connect 3 0 18 0;
#X connect 17 0 25 0;
#X connect 18 0 2 0;
#X connect 20 0 1 0;
#X connect 22 0 25 0;
#X connect 23 0 25 0;
#X connect 24 0 25 0;
#X connect 26 0 25 0;
#X connect 30 0 31 0;
|
