changed for 64 bit array access

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

1 files changed, 110 insertions, 96 deletions

diff --git a/tab_conv-help.pd b/tab_conv-help.pd
index e3c6145..ff985fd 100644
--- a/tab_conv-help.pd
+++ b/tab_conv-help.pd
@@ -1,96 +1,110 @@
-#N canvas 52 27 959 534 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 703 524 init_tables 0;

-#X obj 45 132 dsp;

-#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 168 162 noise~;

-#X obj 114 193 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 228 152 dirac~;

-#X obj 134 234 tabwrite~ in;

-#X obj 228 235 tabwrite~ filt;

-#X obj 229 180 *~ 10;

-#X obj 228 208 bpq2~ 1000 10 100;

-#X connect 0 0 2 0;

-#X connect 0 1 3 0;

-#X connect 1 0 0 0;

-#X connect 4 0 13 0;

-#X connect 5 0 13 0;

-#X connect 5 0 14 0;

-#X connect 6 0 7 0;

-#X connect 7 0 9 0;

-#X connect 7 0 11 0;

-#X connect 8 0 10 0;

-#X connect 9 0 1 0;

-#X connect 10 0 1 0;

-#X connect 11 0 8 0;

-#X connect 11 0 5 0;

-#X connect 11 0 12 0;

-#X connect 12 0 15 0;

-#X connect 15 0 16 0;

-#X connect 16 0 14 0;

-#X restore 779 202 pd init_tables;

-#X obj 779 157 loadbang;

-#N canvas 0 0 450 300 graph1 0;

-#X array in 800 float 0;

-#X coords 0 1 799 -1 199 100 1;

-#X restore 443 20 graph;

-#N canvas 0 0 450 300 graph1 0;

-#X array filt 200 float 0;

-#X coords 0 0.1 199 -0.1 199 100 1;

-#X restore 443 134 graph;

-#N canvas 0 0 450 300 graph1 0;

-#X array out 1000 float 0;

-#X coords 0 1 999 -1 199 100 1;

-#X restore 443 247 graph;

-#X text 94 459 IEM KUG;

-#X text 78 447 musil;

-#X text 108 447 @;

-#X text 114 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 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 msg 63 318 bang;

-#X msg 135 361 dst cross_corr;

-#X msg 124 340 src2 meas;

-#X msg 109 319 src1 ref;

-#X obj 779 181 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1

--1;

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

-#X obj 55 70 tab_conv in filt out;

-#X msg 60 225 10 10 10 500 190;

-#X text 100 9 WORK IN PROGRESS;

-#X connect 0 0 30 0;

-#X connect 3 0 26 0;

-#X connect 22 0 27 0;

-#X connect 23 0 27 0;

-#X connect 24 0 27 0;

-#X connect 25 0 27 0;

-#X connect 26 0 2 0;

-#X connect 30 0 1 0;

-#X connect 31 0 27 0;

+#N canvas 53 28 963 538 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 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 273 pd init_tables;
+#X obj 678 228 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 20 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 214 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 377 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 248 360 initial arguments:;
+#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 226 372 1.arg: <symbol> source1-name;
+#X text 226 384 2.arg: <symbol> source2-name;
+#X text 226 396 3.arg: <symbol> destination-name;
+#X msg 77 297 bang;
+#X obj 678 252 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 62 155 !! array length of src1 > array length of src2 !!;
+#X text 12 7 tab_conv;
+#X obj 55 70 tab_conv in filt out;
+#X text 100 9 WORK IN PROGRESS;
+#X text 29 436 (c) Thomas Musil 2000 - 2009;
+#X msg 109 319 src1 in;
+#X msg 124 340 src2 filt;
+#X msg 135 361 dst out;
+#X obj 63 389 tab_conv in filt out;
+#X msg 54 246 0 0 0 800 200;
+#X connect 0 0 22 0;
+#X connect 3 0 19 0;
+#X connect 18 0 28 0;
+#X connect 19 0 2 0;
+#X connect 22 0 1 0;
+#X connect 25 0 28 0;
+#X connect 26 0 28 0;
+#X connect 27 0 28 0;
+#X connect 29 0 28 0;