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_conv-help.pd | 206 +++++++++++++++++++++++++++++-------------------------- 1 file changed, 110 insertions(+), 96 deletions(-) (limited to 'tab_conv-help.pd') 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 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 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 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: source1-name; +#X text 226 384 2.arg: source2-name; +#X text 226 396 3.arg: 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; -- cgit v1.2.1