blob: c7cf1d4c040ed8d1d077c9c5c1479465993d9a4e (
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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
|
#N canvas 37 27 949 628 10;
#N canvas 0 0 450 300 graph1 0;
#X array src 100 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0;
#X coords 0 1 99 -1 300 140 1;
#X restore 534 10 graph;
#N canvas 0 0 450 300 graph1 0;
#X array dst_re 100 float 0;
#X coords 0 1 99 -1 300 140 1;
#X restore 534 155 graph;
#X obj 61 31 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 62 583 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 35 387 list of 3 floats:;
#X text 47 398 src-onset;
#X text 391 515 1.arg: <symbol> source-name;
#X text 90 29 <bang> copy from zero-onset to zero-onset;
#X text 130 40 the minimum-size of arrays;
#X msg 99 470 src src;
#N canvas 0 0 450 300 graph1 0;
#X array dst_im 100 float 0;
#X coords 0 1 99 -1 300 140 1;
#X restore 534 299 graph;
#X obj 397 142 tab_const src;
#N canvas 98 77 891 552 fft~ 0;
#N canvas 0 0 450 300 graph1 0;
#X array src9 67 float 1;
#A 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0;
#X coords 0 1 66 -1 260 140 1;
#X restore 480 -8 graph;
#N canvas 0 0 450 300 graph1 0;
#X array dst_re9 65 float 0;
#X coords 0 1 64 -1 260 140 1;
#X restore 480 166 graph;
#N canvas 0 0 450 300 graph1 0;
#X array dst_im9 65 float 0;
#X coords 0 1 64 -1 260 140 1;
#X restore 479 314 graph;
#X obj 152 -8 tabreceive~ src9;
#X obj 152 18 rfft~;
#X obj 160 78 tabsend~ dst_re9;
#X obj 183 52 tabsend~ dst_im9;
#X msg 19 402 \; src9 sinesum 64 0 0 0 0 1 \; src9 cosinesum 64 0 0
0 0 0 0 0 1;
#X msg 11 327 \; src9 sinesum 64 0 1;
#X msg 168 333 \; src9 cosinesum 64 0 0 1;
#X obj 42 -7 for++ 0 63 1;
#X obj 42 16 t f f;
#X obj 42 51 / 32;
#X obj 42 72 * 3.14159;
#X obj 42 123 sin;
#X obj 42 166 tabwrite src9;
#X msg 29 194 \; src9 const 0;
#X obj 42 -27 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 42 97 * 5;
#X msg 31 239 \; src9 const 1;
#X obj 339 7 for++ 0 63 1;
#X obj 339 30 t f f;
#X obj 339 65 / 32;
#X obj 339 86 * 3.14159;
#X obj 339 161 tabwrite src9;
#X obj 339 -13 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 339 137 cos;
#X obj 339 111 * 8.3;
#X obj 42 145 / 32;
#X msg 183 238 \$1 1 1;
#X obj 183 215 t f b;
#X obj 183 194 clip 0 31;
#X floatatom 183 170 5 0 31 0 - - -;
#X obj 208 274 tab_const src9;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 15 1;
#X connect 12 0 13 0;
#X connect 13 0 18 0;
#X connect 14 0 28 0;
#X connect 17 0 10 0;
#X connect 18 0 14 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 21 1 24 1;
#X connect 22 0 23 0;
#X connect 23 0 27 0;
#X connect 25 0 20 0;
#X connect 26 0 24 0;
#X connect 27 0 26 0;
#X connect 28 0 15 0;
#X connect 29 0 33 0;
#X connect 30 0 29 0;
#X connect 30 1 33 0;
#X connect 31 0 30 0;
#X connect 32 0 31 0;
#X restore 293 433 pd fft~;
#X obj 124 139 for++ 0 63 1;
#X obj 124 162 t f f;
#X obj 124 197 / 32;
#X obj 124 218 * 3.14159;
#X obj 124 269 sin;
#X obj 124 119 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 124 243 * 5;
#X msg 122 349 \; src const 0;
#X obj 124 323 tabwrite src;
#X msg 244 355 \; src const 1;
#X obj 242 127 for++ 0 63 1;
#X obj 242 150 t f f;
#X obj 242 185 / 32;
#X obj 242 206 * 3.14159;
#X obj 242 107 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 242 257 cos;
#X obj 242 305 tabwrite src;
#X text 392 528 2.arg: <symbol> real_destination-name;
#X text 393 542 3.arg: <symbol> imag_destination-name;
#X text 394 557 4.arg: <float> fft-size;
#X text 47 407 dst_re-onset;
#X text 47 417 dst_im-onset;
#X msg 111 494 dst_re dst_re;
#X msg 152 517 dst_im dst_im;
#X msg 242 527 fftsize 64;
#X msg 372 106 \$1 1 1;
#X obj 372 83 t f b;
#X obj 372 62 clip 0 31;
#X floatatom 372 38 5 0 31 0 - - -;
#X obj 124 293 / 32;
#X obj 242 231 * 8;
#X obj 242 282 / 32;
#X msg 362 281 \; src const \$1;
#X obj 362 253 /;
#X msg 362 221 1 32;
#X msg 194 449 \; dst_re const 0 \; dst_im const 0;
#X msg 63 445 20 30 30;
#X obj 62 560 tab_rfft src dst_re dst_im 64;
#X obj 61 78 tab_rfft src dst_re dst_im 64;
#X connect 2 0 52 0;
#X connect 10 0 51 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 1 22 1;
#X connect 16 0 17 0;
#X connect 17 0 20 0;
#X connect 18 0 43 0;
#X connect 19 0 14 0;
#X connect 20 0 18 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 25 1 30 1;
#X connect 26 0 27 0;
#X connect 27 0 44 0;
#X connect 28 0 24 0;
#X connect 29 0 45 0;
#X connect 36 0 51 0;
#X connect 37 0 51 0;
#X connect 38 0 51 0;
#X connect 39 0 12 0;
#X connect 40 0 39 0;
#X connect 40 1 12 0;
#X connect 41 0 40 0;
#X connect 42 0 41 0;
#X connect 43 0 22 0;
#X connect 44 0 29 0;
#X connect 45 0 30 0;
#X connect 47 0 46 0;
#X connect 48 0 47 0;
#X connect 50 0 51 0;
#X connect 51 0 4 0;
#X connect 52 0 3 0;
|
