From bb04075ca94cfbb8391e3bbb0e693d2ebd079e95 Mon Sep 17 00:00:00 2001 From: musil Date: Sun, 1 Feb 2009 05:25:21 +0000 Subject: changed for 64 bit array access svn path=/trunk/externals/iem/iem_tab/; revision=10706 --- tab_cross_corr-help.pd | 123 ++++++++++++++++++++++++++++--------------------- 1 file changed, 71 insertions(+), 52 deletions(-) (limited to 'tab_cross_corr-help.pd') diff --git a/tab_cross_corr-help.pd b/tab_cross_corr-help.pd index d3d80b9..0670366 100644 --- a/tab_cross_corr-help.pd +++ b/tab_cross_corr-help.pd @@ -1,93 +1,112 @@ -#N canvas 42 76 736 530 10; +#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 0 466 316 init_tables 0; -#X obj 45 132 dsp; +#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 floatatom 45 174 5 0 0 0 - - -; -#X floatatom 58 156 5 0 0 0 - - -; -#X obj 229 151 noise~; +#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 228 234 tabwrite~ meas; +#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; -#X obj 133 182 z~ 60; -#X connect 0 0 2 0; -#X connect 0 1 3 0; +#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 connect 4 0 7 0; -#X connect 4 0 14 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 5 0 7 0; -#X connect 8 0 9 0; -#X connect 9 0 11 0; -#X connect 9 0 13 0; -#X connect 10 0 12 0; -#X connect 11 0 1 0; -#X connect 12 0 1 0; -#X connect 13 0 10 0; -#X connect 13 0 5 0; -#X connect 14 0 6 0; -#X restore 584 206 pd init_tables; -#X obj 584 161 loadbang; -#N canvas 0 0 450 300 graph1 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 443 20 graph; -#N canvas 0 0 450 300 graph1 0; +#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 443 134 graph; -#N canvas 0 0 450 300 graph1 0; +#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 443 247 graph; +#X restore 483 260 graph; #X text 94 459 IEM KUG; -#X text 78 447 musil; +#X text 73 447 musil; #X text 108 447 @; -#X text 114 447 iem.at; +#X text 116 447 iem.at; #X text 77 469 Graz \, Austria; -#X text 29 436 (c) Thomas Musil 2000 - 2006; -#X text 340 351 initial arguments:; +#X text 380 381 initial arguments:; #X text 12 7 tab_cross_corr; #X text 77 37 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 318 363 1.arg: source1-name; -#X text 318 375 2.arg: source2-name; -#X text 318 387 3.arg: destination-name; -#X text 318 399 4.arg: norming factor; -#X text 493 422 calculation in ms; -#X text 318 411 5.arg: delay time per destination sample; +#X text 358 393 1.arg: source1-name; +#X text 358 405 2.arg: source2-name; +#X text 358 417 3.arg: destination-name; +#X text 533 452 calculation in ms; +#X text 358 441 5.arg: 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 584 185 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +#X obj 636 290 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; -#X obj 55 70 tab_cross_corr ref meas cross_corr 0.02 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 connect 0 0 29 0; -#X connect 3 0 28 0; -#X connect 23 0 31 0; -#X connect 24 0 31 0; -#X connect 25 0 31 0; -#X connect 26 0 31 0; -#X connect 27 0 31 0; -#X connect 28 0 2 0; -#X connect 29 0 1 0; -#X connect 30 0 31 0; +#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: 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; -- cgit v1.2.1