blob: 9e38776242053e15bef89242782864377ac65db3 (
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
|
#N canvas 29 19 957 536 10;
#N canvas 0 0 450 300 graph1 0;
#X array src_re 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 674 10 graph;
#N canvas 0 0 450 300 graph1 0;
#X array dst_re 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 674 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 0 450 300 graph1 0;
#X array dst_im 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 674 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 474 22 5 0 63 0 - - -;
#X msg 546 341 \; dst_re const 0 \; dst_im const 0;
#X text 102 464 IEM KUG;
#X text 86 452 musil;
#X text 116 452 @;
#X text 122 452 iem.at;
#X text 85 474 Graz \, Austria;
#X text 37 441 (c) Thomas Musil 2000 - 2006;
#N canvas 0 0 470 320 generate_a_dirac 0;
#X msg 61 106 \$1 1 1;
#X obj 61 83 t f b;
#X obj 61 62 clip 0 63;
#X obj 61 32 inlet;
#X obj 86 142 tab_const src_re;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 1 1 4 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X restore 474 41 pd generate_a_dirac;
#X floatatom 514 22 5 -31 31 0 - - -;
#N canvas 0 0 487 411 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 106 clip 0 31;
#X obj 219 127 t b f;
#X obj 219 153 for++ 0 63;
#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 108 clip 0 31;
#X obj 39 129 t b f;
#X obj 39 155 for++ 0 63;
#X obj 39 333 tabwrite src_re;
#X obj 90 70 * -1;
#X obj 39 310 * -1;
#X connect 0 0 10 0;
#X connect 1 0 2 0;
#X connect 1 1 9 1;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 1 5 1;
#X connect 8 0 1 0;
#X connect 10 0 20 0;
#X connect 10 1 6 0;
#X connect 11 0 12 0;
#X connect 11 1 19 1;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 14 0 21 0;
#X connect 15 0 14 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 17 1 15 1;
#X connect 18 0 11 0;
#X connect 20 0 16 0;
#X connect 21 0 19 0;
#X restore 514 61 pd generate_a_cos;
#X floatatom 555 22 5 -31 31 0 - - -;
#N canvas 0 0 487 411 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 112 clip 0 31;
#X obj 246 133 t b f;
#X obj 246 159 for++ 0 63;
#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 131 t b f;
#X obj 54 157 for++ 0 63;
#X obj 54 335 tabwrite src_re;
#X obj 54 287 sin;
#X obj 102 60 moses 0;
#X obj 54 88 * -1;
#X obj 54 312 * -1;
#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 6 0;
#X connect 6 0 7 0;
#X connect 6 1 4 1;
#X connect 7 0 1 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 17 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 18 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 1 13 1;
#X connect 16 0 10 0;
#X connect 18 0 21 0;
#X connect 19 0 20 0;
#X connect 19 1 5 0;
#X connect 20 0 14 0;
#X connect 21 0 17 0;
#X restore 555 82 pd generate_a_sin;
#X text 309 355 initial arguments:;
#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 269 402 4.arg: <symbol> imag_destination-name;
#X text 269 390 3.arg: <symbol> real_destination-name;
#X text 269 379 2.arg: <symbol> imag_source-name;
#X text 269 368 1.arg: <symbol> real_source-name;
#X text 269 414 5.arg: <float> fftsize;
#N canvas 0 0 450 300 graph1 0;
#X array src_im 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 674 124 graph;
#X msg 76 230 src_re src_re;
#X msg 90 253 src_im src_im;
#X msg 546 283 \; src_re const 0 \; src_im const 0;
#X floatatom 474 132 5 0 63 0 - - -;
#N canvas 0 0 470 320 generate_a_dirac 0;
#X msg 61 106 \$1 1 1;
#X obj 61 83 t f b;
#X obj 61 62 clip 0 63;
#X obj 61 32 inlet;
#X obj 86 142 tab_const src_im;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 1 1 4 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X restore 474 151 pd generate_a_dirac;
#X floatatom 514 132 5 -31 31 0 - - -;
#N canvas 0 0 487 411 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 106 clip 0 31;
#X obj 219 127 t b f;
#X obj 219 153 for++ 0 63;
#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 108 clip 0 31;
#X obj 39 129 t b f;
#X obj 39 155 for++ 0 63;
#X obj 90 70 * -1;
#X obj 40 334 tabwrite src_im;
#X obj 220 331 tabwrite src_im;
#X obj 39 310 * -1;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 1 1 20 1;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 20 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 1 5 1;
#X connect 8 0 1 0;
#X connect 9 0 18 0;
#X connect 9 1 6 0;
#X connect 10 0 11 0;
#X connect 10 1 19 1;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 13 0 21 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 1 14 1;
#X connect 17 0 10 0;
#X connect 18 0 15 0;
#X connect 21 0 19 0;
#X restore 514 171 pd generate_a_cos;
#X floatatom 555 132 5 -31 31 0 - - -;
#N canvas 0 0 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 112 clip 0 31;
#X obj 246 133 t b f;
#X obj 246 159 for++ 0 63;
#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 157 for++ 0 63;
#X obj 54 287 sin;
#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;
#X obj 54 312 * -1;
#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 6 0;
#X connect 6 0 7 0;
#X connect 6 1 4 1;
#X connect 7 0 1 0;
#X connect 8 0 19 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 16 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 14 1 12 1;
#X connect 15 0 9 0;
#X connect 16 0 21 0;
#X connect 17 0 18 0;
#X connect 17 1 5 0;
#X connect 18 0 13 0;
#X connect 21 0 20 0;
#X restore 555 192 pd generate_a_sin;
#X text 10 0 tab_ifft;
#X text 93 -1 complex inverse FTT with arrays;
#X text 45 56 <bang> calculates a complex inverse fourier transformation
of complex src-arrays to complex dst-arrays;
#X obj 24 94 tab_ifft src_re src_im dst_re dst_im 64;
#X obj 62 348 tab_ifft src_re src_im dst_re dst_im 64;
#X connect 2 0 47 0;
#X connect 6 0 48 0;
#X connect 7 0 48 0;
#X connect 8 0 48 0;
#X connect 9 0 17 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 28 0 48 0;
#X connect 35 0 48 0;
#X connect 36 0 48 0;
#X connect 38 0 39 0;
#X connect 40 0 41 0;
#X connect 42 0 43 0;
#X connect 47 0 3 0;
#X connect 48 0 4 0;
|
