blob: 16ad4c3fee7999b7d0179fe59f3a835630e8942d (
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
|
#N canvas 24 39 983 666 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 210 graph;
#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 327 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 61 345 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 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 694 513 graph;
#X msg 125 298 fftsize 64;
#X text 309 425 initial arguments:;
#X text 10 0 tab_rifft;
#X text 93 -1 real inverse FTT with arrays;
#X text 37 147 list of 3 floats:;
#X msg 587 540 \; dst const 0;
#X obj 62 322 tab_rifft src_re src_im dst 64;
#X obj 24 94 tab_rifft src_re src_im dst 64;
#X text 49 158 1.) src_re-onset;
#X text 49 168 2.) src_im-onset;
#X text 49 178 3.) dst-onset;
#X msg 62 207 20 20 30;
#X msg 76 230 src_re src_re;
#X msg 89 252 src_im src_im;
#X msg 104 275 dst dst;
#X text 269 438 1.arg: <symbol> real source-name;
#X text 269 450 2.arg: <symbol> imag_source-name;
#X text 269 462 3.arg: <symbol> destination-name;
#X text 45 56 <bang> calculates a real inverse fourier transformation
of complex src-arrays to a real dst-array;
#X text 269 474 4.arg: <float> ifftsize;
#N canvas 0 22 450 300 (subpatch) 0;
#X array src 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 694 31 graph;
#X floatatom 479 40 5 0 63 0 - - -;
#N canvas 0 22 486 336 generate_a_dirac 0;
#X obj 61 62 clip 0 63;
#X obj 61 32 inlet;
#X msg 61 89 \; src const 0 \; src \$1 1;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X restore 479 59 pd generate_a_dirac;
#X floatatom 519 40 5 -32 32 0 - - -;
#N canvas 0 22 515 439 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;
#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 458 308 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 obj 39 333 tabwrite src;
#X obj 219 331 tabwrite src;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 1 1 22 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 22 0;
#X connect 7 0 17 0;
#X connect 7 1 5 1;
#X connect 8 0 15 0;
#X connect 8 1 19 0;
#X connect 9 0 10 0;
#X connect 9 1 21 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 18 0;
#X connect 14 1 13 1;
#X connect 15 0 20 0;
#X connect 16 0 21 0;
#X connect 17 0 1 0;
#X connect 18 0 9 0;
#X connect 19 0 7 0;
#X connect 20 0 14 0;
#X restore 519 79 pd generate_a_cos;
#X floatatom 560 40 5 -31 31 0 - - -;
#N canvas 0 22 507 431 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 132 t b f;
#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 obj 54 334 tabwrite src;
#X obj 246 337 tabwrite src;
#X connect 0 0 17 0;
#X connect 1 0 2 0;
#X connect 1 1 22 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 5 0 22 0;
#X connect 6 0 7 0;
#X connect 7 0 20 0;
#X connect 7 1 4 1;
#X connect 8 0 5 0;
#X connect 9 0 10 0;
#X connect 9 1 21 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 19 0;
#X connect 14 1 12 1;
#X connect 15 0 16 0;
#X connect 16 0 21 0;
#X connect 17 0 18 0;
#X connect 17 1 6 0;
#X connect 18 0 13 0;
#X connect 19 0 9 0;
#X connect 20 0 1 0;
#X restore 560 100 pd generate_a_sin;
#X obj 471 258 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 471 333 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 471 305 tab_rfft src src_re src_im 64;
#X msg 590 127 \; src const 0;
#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;
#X text 37 441 (c) Thomas Musil 2000 - 2009;
#X connect 2 0 13 0;
#X connect 6 0 12 0;
#X connect 12 0 4 0;
#X connect 13 0 3 0;
#X connect 17 0 12 0;
#X connect 18 0 12 0;
#X connect 19 0 12 0;
#X connect 20 0 12 0;
#X connect 27 0 28 0;
#X connect 29 0 30 0;
#X connect 31 0 32 0;
#X connect 33 0 35 0;
#X connect 35 0 34 0;
|
