blob: 933bea740040942baaffca5b205e194bacef3536 (
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
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
|
#N canvas 29 22 965 544 10;
#N canvas 0 22 450 300 (subpatch) 0;
#X array src_re 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 694 10 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array dst_re 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 694 239 graph;
#X obj 24 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 24 122 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 62 371 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 dst_im 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 694 353 graph;
#X msg 103 276 dst_re dst_re;
#X msg 118 299 dst_im dst_im;
#X msg 139 322 fftsize 64;
#X floatatom 473 22 5 0 63 0 - - -;
#X msg 546 341 \; dst_re const 0 \; dst_im const 0;
#X text 10 0 tab_fft;
#X text 93 -1 complex FTT with arrays;
#X text 102 464 IEM KUG;
#X text 81 452 musil;
#X text 116 452 @;
#X text 124 452 iem.at;
#X text 85 474 Graz \, Austria;
#N canvas 0 22 474 324 generate_a_dirac 0;
#X obj 61 62 clip 0 63;
#X obj 61 32 inlet;
#X msg 60 103 \; src_re const 0 \; src_re \$1 1;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X restore 474 41 pd generate_a_dirac;
#X floatatom 514 22 5 -32 32 0 - - -;
#N canvas 0 22 531 484 generate_a_cos 0;
#X obj 120 18 inlet;
#X obj 219 176 t f f;
#X obj 219 211 / 32;
#X obj 219 232 * 3.14159;
#X obj 219 283 cos;
#X obj 219 257 * 8;
#X obj 219 308 / 32;
#X obj 219 127 t b f;
#X obj 219 331 tabwrite src_re;
#X obj 120 43 moses 0;
#X obj 39 178 t f f;
#X obj 39 213 / 32;
#X obj 39 234 * 3.14159;
#X obj 39 285 cos;
#X obj 39 259 * 8;
#X obj 39 129 t b f;
#X obj 39 333 tabwrite src_re;
#X obj 90 70 * -1;
#X obj 39 310 / -32;
#N canvas 193 158 454 304 counter 0;
#X obj 108 25 inlet;
#X obj 109 163 outlet;
#X obj 109 133 f;
#X obj 142 133 + 1;
#X obj 108 50 t b b;
#X msg 154 76 0;
#X msg 109 75 64;
#X obj 110 98 until;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 219 151 pd counter;
#N canvas 193 158 454 304 counter 0;
#X obj 108 25 inlet;
#X obj 109 163 outlet;
#X obj 109 133 f;
#X obj 142 133 + 1;
#X obj 108 50 t b b;
#X msg 154 76 0;
#X msg 109 75 64;
#X obj 110 98 until;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 38 154 pd counter;
#X obj 219 106 clip 0 32;
#X obj 39 108 clip 0 32;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 1 1 8 1;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 7 0 19 0;
#X connect 7 1 5 1;
#X connect 9 0 17 0;
#X connect 9 1 21 0;
#X connect 10 0 11 0;
#X connect 10 1 16 1;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 13 0 18 0;
#X connect 14 0 13 0;
#X connect 15 0 20 0;
#X connect 15 1 14 1;
#X connect 17 0 22 0;
#X connect 18 0 16 0;
#X connect 19 0 1 0;
#X connect 20 0 10 0;
#X connect 21 0 7 0;
#X connect 22 0 15 0;
#X restore 514 61 pd generate_a_cos;
#X floatatom 555 22 5 -31 31 0 - - -;
#N canvas 0 22 491 415 generate_a_sin 0;
#X obj 102 37 inlet;
#X obj 246 182 t f f;
#X obj 246 217 / 32;
#X obj 246 238 * 3.14159;
#X obj 246 263 * 8;
#X obj 246 314 / 32;
#X obj 246 112 clip 0 31;
#X obj 246 133 t b f;
#X obj 246 337 tabwrite src_re;
#X obj 246 289 sin;
#X obj 54 180 t f f;
#X obj 54 215 / 32;
#X obj 54 236 * 3.14159;
#X obj 54 261 * 8;
#X obj 54 110 clip 0 31;
#X obj 54 132 t b f;
#X obj 54 335 tabwrite src_re;
#X obj 54 287 sin;
#X obj 54 312 / -32;
#X obj 102 60 moses 0;
#X obj 54 88 * -1;
#N canvas 193 158 454 304 counter 0;
#X obj 108 25 inlet;
#X obj 109 163 outlet;
#X obj 109 133 f;
#X obj 142 133 + 1;
#X obj 108 50 t b b;
#X msg 154 76 0;
#X msg 109 75 64;
#X obj 110 98 until;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 54 156 pd counter;
#N canvas 193 158 454 304 counter 0;
#X obj 108 25 inlet;
#X obj 109 163 outlet;
#X obj 109 133 f;
#X obj 142 133 + 1;
#X obj 108 50 t b b;
#X msg 154 76 0;
#X msg 109 75 64;
#X obj 110 98 until;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 246 156 pd counter;
#X connect 0 0 19 0;
#X connect 1 0 2 0;
#X connect 1 1 8 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 22 0;
#X connect 7 1 4 1;
#X connect 9 0 5 0;
#X connect 10 0 11 0;
#X connect 10 1 16 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 17 0;
#X connect 14 0 15 0;
#X connect 15 0 21 0;
#X connect 15 1 13 1;
#X connect 17 0 18 0;
#X connect 18 0 16 0;
#X connect 19 0 20 0;
#X connect 19 1 6 0;
#X connect 20 0 14 0;
#X connect 21 0 10 0;
#X connect 22 0 1 0;
#X restore 555 82 pd generate_a_sin;
#X text 299 365 initial arguments:;
#X text 45 56 <bang> calculates a complex fourier transformation of
complex src-arrays to complex dst-arrays;
#X text 37 147 list of 4 floats:;
#X text 49 178 3.) dst_re-onset;
#X text 49 188 4.) dst_im-onset;
#X text 49 158 1.) src_re-onset;
#X text 49 168 2.) src_im-onset;
#X msg 62 207 20 20 30 30;
#X text 259 412 4.arg: <symbol> imag_destination-name;
#X text 259 400 3.arg: <symbol> real_destination-name;
#X text 259 389 2.arg: <symbol> imag_source-name;
#X text 259 378 1.arg: <symbol> real_source-name;
#X text 259 424 5.arg: <float> fftsize;
#N canvas 0 22 450 300 (subpatch) 0;
#X array src_im 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 694 124 graph;
#X obj 24 94 tab_fft src_re src_im dst_re dst_im 64;
#X msg 76 230 src_re src_re;
#X msg 90 253 src_im src_im;
#X obj 62 348 tab_fft src_re src_im dst_re dst_im 64;
#X msg 546 283 \; src_re const 0 \; src_im const 0;
#X floatatom 474 132 5 0 63 0 - - -;
#N canvas 0 22 478 328 generate_a_dirac 0;
#X obj 61 62 clip 0 63;
#X obj 61 32 inlet;
#X msg 62 88 \; src_im const 0 \; src_im \$1 1;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X restore 474 151 pd generate_a_dirac;
#X floatatom 514 132 5 -32 32 0 - - -;
#N canvas 0 22 495 419 generate_a_cos 0;
#X obj 120 18 inlet;
#X obj 219 176 t f f;
#X obj 219 211 / 32;
#X obj 219 232 * 3.14159;
#X obj 219 283 cos;
#X obj 219 257 * 8;
#X obj 219 308 / 32;
#X obj 219 127 t b f;
#X obj 120 43 moses 0;
#X obj 39 178 t f f;
#X obj 39 213 / 32;
#X obj 39 234 * 3.14159;
#X obj 39 285 cos;
#X obj 39 259 * 8;
#X obj 39 129 t b f;
#X obj 90 70 * -1;
#X obj 39 310 / -32;
#X obj 40 334 tabwrite src_im;
#X obj 220 331 tabwrite src_im;
#N canvas 193 158 454 304 counter 0;
#X obj 108 25 inlet;
#X obj 109 163 outlet;
#X obj 109 133 f;
#X obj 142 133 + 1;
#X obj 108 50 t b b;
#X msg 154 76 0;
#X msg 109 75 64;
#X obj 110 98 until;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 39 153 pd counter;
#N canvas 193 158 454 304 counter 0;
#X obj 108 25 inlet;
#X obj 109 163 outlet;
#X obj 109 133 f;
#X obj 142 133 + 1;
#X obj 108 50 t b b;
#X msg 154 76 0;
#X msg 109 75 64;
#X obj 110 98 until;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 219 153 pd counter;
#X obj 218 106 clip 0 32;
#X obj 39 108 clip 0 32;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 1 1 18 1;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 18 0;
#X connect 7 0 20 0;
#X connect 7 1 5 1;
#X connect 8 0 15 0;
#X connect 8 1 21 0;
#X connect 9 0 10 0;
#X connect 9 1 17 1;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 16 0;
#X connect 13 0 12 0;
#X connect 14 0 19 0;
#X connect 14 1 13 1;
#X connect 15 0 22 0;
#X connect 16 0 17 0;
#X connect 19 0 9 0;
#X connect 20 0 1 0;
#X connect 21 0 7 0;
#X connect 22 0 14 0;
#X restore 514 171 pd generate_a_cos;
#X floatatom 555 132 5 -31 31 0 - - -;
#N canvas 0 22 491 415 generate_a_sin 0;
#X obj 102 37 inlet;
#X obj 246 182 t f f;
#X obj 246 217 / 32;
#X obj 246 238 * 3.14159;
#X obj 246 263 * 8;
#X obj 246 314 / 32;
#X obj 246 112 clip 0 31;
#X obj 246 133 t b f;
#X obj 246 289 sin;
#X obj 54 180 t f f;
#X obj 54 215 / 32;
#X obj 54 236 * 3.14159;
#X obj 54 261 * 8;
#X obj 54 110 clip 0 31;
#X obj 54 131 t b f;
#X obj 54 287 sin;
#X obj 54 312 / -32;
#X obj 102 60 moses 0;
#X obj 54 88 * -1;
#X obj 246 337 tabwrite src_im;
#X obj 54 336 tabwrite src_im;
#N canvas 193 158 454 304 counter 0;
#X obj 108 25 inlet;
#X obj 109 163 outlet;
#X obj 109 133 f;
#X obj 142 133 + 1;
#X obj 108 50 t b b;
#X msg 154 76 0;
#X msg 109 75 64;
#X obj 110 98 until;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 54 156 pd counter;
#N canvas 193 158 454 304 counter 0;
#X obj 108 25 inlet;
#X obj 109 163 outlet;
#X obj 109 133 f;
#X obj 142 133 + 1;
#X obj 108 50 t b b;
#X msg 154 76 0;
#X msg 109 75 64;
#X obj 110 98 until;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 246 156 pd counter;
#X connect 0 0 17 0;
#X connect 1 0 2 0;
#X connect 1 1 19 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 5 0 19 0;
#X connect 6 0 7 0;
#X connect 7 0 22 0;
#X connect 7 1 4 1;
#X connect 8 0 5 0;
#X connect 9 0 10 0;
#X connect 9 1 20 1;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 15 0;
#X connect 13 0 14 0;
#X connect 14 0 21 0;
#X connect 14 1 12 1;
#X connect 15 0 16 0;
#X connect 16 0 20 0;
#X connect 17 0 18 0;
#X connect 17 1 6 0;
#X connect 18 0 13 0;
#X connect 21 0 9 0;
#X connect 22 0 1 0;
#X restore 555 192 pd generate_a_sin;
#X text 37 441 (c) Thomas Musil 2000 - 2009;
#X connect 2 0 37 0;
#X connect 6 0 40 0;
#X connect 7 0 40 0;
#X connect 8 0 40 0;
#X connect 9 0 18 0;
#X connect 19 0 20 0;
#X connect 21 0 22 0;
#X connect 30 0 40 0;
#X connect 37 0 3 0;
#X connect 38 0 40 0;
#X connect 39 0 40 0;
#X connect 40 0 4 0;
#X connect 42 0 43 0;
#X connect 44 0 45 0;
#X connect 46 0 47 0;
|
