#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;
