#N canvas 132 30 862 634 10; #N canvas 0 22 450 300 (subpatch) 0; #X array re1 100 float 0; #X coords 0 1 99 -1 100 40 1; #X restore 481 29 graph; #X obj 61 43 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 61 106 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 54 439 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #N canvas 0 22 450 300 (subpatch) 0; #X array im1 100 float 0; #X coords 0 1 99 -1 100 40 1; #X restore 481 71 graph; #N canvas 0 22 450 300 (subpatch) 0; #X array re2 100 float 0; #X coords 0 1 99 -1 100 40 1; #X restore 606 29 graph; #N canvas 0 22 450 300 (subpatch) 0; #X array im2 100 float 0; #X coords 0 1 99 -1 100 40 1; #X restore 606 71 graph; #N canvas 0 22 450 300 (subpatch) 0; #X array re3 100 float 0; #X coords 0 1 99 -1 100 40 1; #X restore 735 28 graph; #N canvas 0 22 450 300 (subpatch) 0; #X array im3 100 float 0; #X coords 0 1 99 -1 100 40 1; #X restore 735 70 graph; #X msg 710 152 \; re1 const 0.9 \; im1 const 0.6 \; re2 const 0.7 \; im2 const -0.8; #X obj 61 78 tab_complex_mul re1 im1 re2 im2 re3 im3; #X obj 662 472 tabread re3; #X obj 745 472 tabread im3; #X msg 711 439 2; #X floatatom 662 495 5 0 0 0 - - -; #X floatatom 745 496 5 0 0 0 - - -; #X obj 692 350 *; #X obj 715 350 *; #X obj 760 350 *; #X obj 783 350 *; #X obj 767 372 +; #X obj 698 372 -; #X msg 692 304 0.9 0.7; #X msg 715 328 0.6 -0.8; #X floatatom 699 395 5 0 0 0 - - -; #X msg 760 305 0.9 -0.8; #X msg 777 329 0.6 0.7; #X floatatom 767 394 5 0 0 0 - - -; #X obj 54 418 tab_complex_mul re1 im1 re2 im2 re3 im3; #X msg 74 258 src1_re re1; #X msg 191 368 dst_re re3; #X msg 232 391 dst_im im3; #X msg 91 284 src1_im im1; #X msg 143 309 src2_re re2; #X msg 161 335 src2_im im2; #X msg 40 234 0 0 0 0 0 0 64; #X text 84 146 list of 7 floats:; #X text 353 419 1.arg: real_source1-name; #X text 353 431 2.arg: imag_source1-name; #X text 353 443 3.arg: real_source2-name; #X text 354 454 4.arg: imag_source2-name; #X text 354 466 5.arg: real_destination-name; #X text 354 477 6.arg: imag_destination-name; #X obj 728 281 t b b b b; #X obj 728 257 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 710 131 loadbang; #X text 87 537 IEM KUG; #X text 66 525 musil; #X text 101 525 @; #X text 109 525 iem.at; #X text 70 547 Graz \, Austria; #X text 12 7 tab_complex_mul; #X text 375 407 initial arguments:; #X text 115 99 (the number of samples which were multiplied are:; #X text 105 155 1.) src1_re-onset; #X text 105 165 2.) src1_im-onset; #X text 105 175 3.) src2_re-onset; #X text 105 185 4.) src2_im-onset; #X text 105 195 5.) dst_re-onset; #X text 105 205 6.) dst_im-onset; #X text 105 215 7.) number of samples to multiply; #X text 81 39 multiply the complex src1-arrays with the complex src2-arrays to complex dst-array; #X text 128 113 the minimum of the 6 array lengths); #X text 22 514 (c) Thomas Musil 2000 - 2009; #X connect 1 0 10 0; #X connect 10 0 2 0; #X connect 11 0 14 0; #X connect 12 0 15 0; #X connect 13 0 11 0; #X connect 13 0 12 0; #X connect 16 0 21 0; #X connect 17 0 21 1; #X connect 18 0 20 0; #X connect 19 0 20 1; #X connect 20 0 27 0; #X connect 21 0 24 0; #X connect 22 0 16 0; #X connect 23 0 17 0; #X connect 25 0 18 0; #X connect 26 0 19 0; #X connect 28 0 3 0; #X connect 29 0 28 0; #X connect 30 0 28 0; #X connect 31 0 28 0; #X connect 32 0 28 0; #X connect 33 0 28 0; #X connect 34 0 28 0; #X connect 35 0 28 0; #X connect 43 0 22 0; #X connect 43 1 23 0; #X connect 43 2 25 0; #X connect 43 3 26 0; #X connect 44 0 43 0; #X connect 45 0 9 0;