blob: 06703667639292fee92fc9fefb6a4ddc6b65ebb7 (
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
|
#N canvas 107 80 1053 581 10;
#X obj 55 51 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 55 92 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#N canvas 0 22 478 328 init_tables 0;
#X obj 45 113 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 239 151 noise~;
#X obj 114 193 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 134 234 tabwrite~ ref;
#X obj 238 234 tabwrite~ meas;
#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;
#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 139 pd dsp;
#N canvas 448 145 462 312 delay 0;
#X obj 75 169 outlet~;
#X obj 75 23 inlet~;
#N canvas 0 22 458 308 del1 0;
#X obj 75 169 outlet~;
#X obj 75 23 inlet~;
#X obj 105 101 delwrite~ \$0delz 5;
#X connect 1 0 2 0;
#X connect 1 0 0 0;
#X restore 75 66 pd del1;
#N canvas 0 22 458 308 del2 0;
#X obj 75 169 outlet~;
#X obj 75 23 inlet~;
#X obj 75 122 delread~ \$0delz 1.31;
#X connect 2 0 0 0;
#X restore 75 116 pd del2;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X restore 136 190 pd delay;
#X connect 0 0 11 0;
#X connect 1 0 4 0;
#X connect 1 0 12 0;
#X connect 2 0 3 0;
#X connect 2 0 4 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 6 0 10 0;
#X connect 7 0 9 0;
#X connect 8 0 0 0;
#X connect 9 0 0 0;
#X connect 10 0 7 0;
#X connect 10 0 2 0;
#X connect 12 0 3 0;
#X restore 636 311 pd init_tables;
#X obj 636 266 loadbang;
#N canvas 0 22 450 300 (subpatch) 0;
#X array ref 200 float 0;
#X coords 0 1 199 -1 199 100 1;
#X restore 483 20 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array meas 100 float 0;
#X coords 0 1 99 -1 99 100 1;
#X restore 541 140 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array cross_corr 100 float 0;
#X coords 0 1 99 -1 99 100 1;
#X restore 483 260 graph;
#X text 94 459 IEM KUG;
#X text 73 447 musil;
#X text 108 447 @;
#X text 116 447 iem.at;
#X text 77 469 Graz \, Austria;
#X text 380 381 initial arguments:;
#X text 12 7 tab_cross_corr;
#X text 77 37 <bang> correlates the 2nd array "measured" with the 1st
array "reference" to the destination array "cross_corr";
#X text 78 92 (the number of samples which were correlated are: the
positive minimum of the difference (src1-src2) and dst array lengths)
;
#X text 358 393 1.arg: <symbol> source1-name;
#X text 358 405 2.arg: <symbol> source2-name;
#X text 358 417 3.arg: <symbol> destination-name;
#X text 533 452 calculation in ms;
#X text 358 441 5.arg: <float> delay time per destination sample;
#X msg 63 257 bang;
#X msg 80 278 time 1;
#X msg 135 361 dst cross_corr;
#X msg 124 340 src2 meas;
#X msg 109 319 src1 ref;
#X obj 636 290 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 97 297 factor 0.02;
#X obj 63 389 tab_cross_corr ref meas cross_corr 0.02 1;
#X text 62 155 !! array length of src1 > array length of src2 !!;
#X text 29 436 (c) Thomas Musil 2000 - 2009;
#X obj 55 70 tab_cross_corr ref meas cross_corr 0.04 1;
#X text 358 429 4.arg: <float> scaling factor;
#X connect 0 0 31 0;
#X connect 3 0 26 0;
#X connect 21 0 28 0;
#X connect 22 0 28 0;
#X connect 23 0 28 0;
#X connect 24 0 28 0;
#X connect 25 0 28 0;
#X connect 26 0 2 0;
#X connect 27 0 28 0;
#X connect 31 0 1 0;
|
