changed for 64 bit array access

svn path=/trunk/externals/iem/iem_tab/; revision=10706

1 files changed, 71 insertions, 52 deletions

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 <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 318 363 1.arg: <symbol> source1-name;
-#X text 318 375 2.arg: <symbol> source2-name;
-#X text 318 387 3.arg: <symbol> destination-name;
-#X text 318 399 4.arg: <float> norming factor;
-#X text 493 422 calculation in ms;
-#X text 318 411 5.arg: <float> delay time per destination sample;
+#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 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: <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;