blob: f3ce27c68358c601371bb2dff153829301f6e2d0 (
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
|
#N canvas 0 22 965 544 10;
#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 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 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_im 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 694 353 graph;
#X msg 89 252 dst_re dst_re;
#X msg 104 275 dst_im dst_im;
#X msg 125 298 fftsize 64;
#X floatatom 474 22 5 0 63 0 - - -;
#X msg 546 341 \; dst_re const 0 \; dst_im const 0;
#N canvas 0 22 482 332 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 474 41 pd generate_a_dirac;
#X floatatom 514 22 5 -32 32 0 - - -;
#N canvas 0 22 507 431 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 514 61 pd generate_a_cos;
#X floatatom 555 22 5 -31 31 0 - - -;
#N canvas 0 22 503 427 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 555 82 pd generate_a_sin;
#X text 309 355 initial arguments:;
#X msg 546 283 \; src const 0;
#X msg 76 230 src src;
#X msg 62 207 20 30 30;
#X text 49 158 1.) src-onset;
#X text 49 168 2.) dst_re-onset;
#X text 49 178 3.) dst_im-onset;
#X text 37 147 list of 3 floats:;
#X text 269 368 1.arg: <symbol> source-name;
#X text 269 380 2.arg: <symbol> real_destination-name;
#X text 269 392 3.arg: <symbol> imag_destination-name;
#X text 269 404 4.arg: <float> fftsize;
#X text 10 0 tab_rfft;
#X text 93 -1 real FTT with arrays;
#X text 45 56 <bang> calculates a real fourier transformation of a
real src-array to complex dst-arrays;
#X obj 24 94 tab_rfft src dst_re dst_im 64;
#X obj 62 322 tab_rfft src dst_re dst_im 64;
#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 31 0;
#X connect 6 0 32 0;
#X connect 7 0 32 0;
#X connect 8 0 32 0;
#X connect 9 0 11 0;
#X connect 12 0 13 0;
#X connect 14 0 15 0;
#X connect 18 0 32 0;
#X connect 19 0 32 0;
#X connect 31 0 3 0;
#X connect 32 0 4 0;
|
