blob: 50299927b2af62f8870c8cfff040098d13c1a37e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
#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: <symbol> real_source1-name;
#X text 353 431 2.arg: <symbol> imag_source1-name;
#X text 353 443 3.arg: <symbol> real_source2-name;
#X text 354 454 4.arg: <symbol> imag_source2-name;
#X text 354 466 5.arg: <symbol> real_destination-name;
#X text 354 477 6.arg: <symbol> 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 <bang> 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;
|
