-
Notifications
You must be signed in to change notification settings - Fork 9
/
Copy pathpp.fft-partconv-st-part.pd
320 lines (320 loc) · 7.46 KB
/
pp.fft-partconv-st-part.pd
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
#N canvas 66 57 1299 710 10;
#X obj 187 414 *~;
#X obj 142 414 *~;
#X obj 143 166 inlet~;
#X obj 183 486 rifft~;
#X obj 184 683 outlet~;
#X obj 262 415 *~;
#X obj 291 415 *~;
#X obj 142 442 -~;
#X obj 261 444 +~;
#X obj 62 78 inlet;
#X obj 309 301 *~;
#X obj 308 333 rfft~;
#X obj 142 323 rfft~;
#X obj 246 482 r \$0-blocksize;
#X msg 246 501 1 \$1;
#X obj 246 522 /;
#X obj 182 521 *~;
#X obj 142 296 *~;
#X obj 204 570 f \$1;
#X obj 204 591 mod 2;
#X obj 204 611 == 0;
#X obj 183 640 *~ 1;
#X obj 204 550 r \$2-loadbang;
#X obj 309 95 bang~;
#X obj 309 173 f;
#X obj 309 196 pack 0 0;
#X obj 516 246 tabreceive~ \$0-square;
#X text 268 54 \$1 clone-instance \, \$2 parrent \$0 \, \$3 min blocksize
;
#X obj 545 413 *~;
#X obj 500 413 *~;
#X obj 501 165 inlet~;
#X obj 541 485 rifft~;
#X obj 542 682 outlet~;
#X obj 620 414 *~;
#X obj 649 414 *~;
#X obj 500 441 -~;
#X obj 619 443 +~;
#X obj 667 300 *~;
#X obj 666 332 rfft~;
#X obj 500 322 rfft~;
#X obj 604 481 r \$0-blocksize;
#X msg 604 500 1 \$1;
#X obj 604 521 /;
#X obj 540 520 *~;
#X obj 500 295 *~;
#X obj 562 569 f \$1;
#X obj 562 590 mod 2;
#X obj 562 610 == 0;
#X obj 541 639 *~ 1;
#X obj 562 549 r \$2-loadbang;
#X obj 667 172 f;
#X obj 667 195 pack 0 0;
#X obj 309 244 tabplay~ \$2-impulse-l;
#X obj 667 243 tabplay~ \$2-impulse-r;
#N canvas 3 54 450 300 \$0-delay-l 0;
#X obj 85 54 inlet~;
#X restore 93 567 pd \$0-delay-l;
#N canvas 3 50 450 300 \$0-delread-l 0;
#X obj 166 205 outlet~;
#X restore 222 640 pd \$0-delread-l;
#N canvas 150 296 645 383 make-delay-l 0;
#X obj 111 200 / 44.1;
#X obj 86 56 f \$1;
#X obj 111 176 * 0.5;
#X obj 201 186 / 1000;
#X obj 205 258 i;
#X obj 205 237 + 10;
#X obj 205 281 pack 0 \$0;
#X obj 81 123 spigot;
#X obj 114 102 mod 2;
#X obj 112 320 pack 0 \$0;
#X obj 111 221 t f f;
#X obj 86 77 t b f;
#X obj 111 154 f;
#X obj 174 15 r \$0-blocksize;
#X obj 174 35 t b f b;
#X obj 203 161 samplerate~;
#X obj 205 333 s pd-\$0-delay-l;
#X obj 132 385 s pd-\$0-delread-l;
#X msg 205 304 obj 100 100 delwrite~ \$2-d-l \$1 \, connect 0 0 1 0
;
#X msg 112 362 obj 100 100 delread~ \$2-d-l \$1 \, connect 1 0 0 0
;
#X connect 0 0 10 0;
#X connect 1 0 11 0;
#X connect 2 0 0 0;
#X connect 3 0 0 1;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 18 0;
#X connect 7 0 12 0;
#X connect 8 0 7 1;
#X connect 9 0 19 0;
#X connect 10 0 9 0;
#X connect 10 1 5 0;
#X connect 11 0 7 0;
#X connect 11 1 8 0;
#X connect 12 0 2 0;
#X connect 13 0 14 0;
#X connect 14 0 1 0;
#X connect 14 1 12 1;
#X connect 14 2 15 0;
#X connect 15 0 3 0;
#X connect 18 0 16 0;
#X connect 19 0 17 0;
#X restore 82 587 pd make-delay-l;
#N canvas 3 50 450 300 \$0-delay-r 0;
#X obj 85 54 inlet~;
#X restore 451 566 pd \$0-delay-r;
#N canvas 3 50 450 300 \$0-delread-r 0;
#X obj 166 205 outlet~;
#X restore 580 639 pd \$0-delread-r;
#N canvas 150 296 645 383 make-delay-r 0;
#X obj 111 200 / 44.1;
#X obj 86 56 f \$1;
#X obj 111 176 * 0.5;
#X obj 201 186 / 1000;
#X obj 205 258 i;
#X obj 205 237 + 10;
#X obj 205 281 pack 0 \$0;
#X obj 81 123 spigot;
#X obj 114 102 mod 2;
#X obj 112 320 pack 0 \$0;
#X obj 111 221 t f f;
#X obj 86 77 t b f;
#X obj 111 154 f;
#X obj 174 15 r \$0-blocksize;
#X obj 174 35 t b f b;
#X obj 203 161 samplerate~;
#X obj 205 333 s pd-\$0-delay-r;
#X obj 132 385 s pd-\$0-delread-r;
#X msg 205 304 obj 100 100 delwrite~ \$2-d-r \$1 \, connect 0 0 1 0
;
#X msg 112 362 obj 100 100 delread~ \$2-d-r \$1 \, connect 1 0 0 0
;
#X connect 0 0 10 0;
#X connect 1 0 11 0;
#X connect 2 0 0 0;
#X connect 3 0 0 1;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 18 0;
#X connect 7 0 12 0;
#X connect 8 0 7 1;
#X connect 9 0 19 0;
#X connect 10 0 9 0;
#X connect 10 1 5 0;
#X connect 11 0 7 0;
#X connect 11 1 8 0;
#X connect 12 0 2 0;
#X connect 13 0 14 0;
#X connect 14 0 1 0;
#X connect 14 1 12 1;
#X connect 14 2 15 0;
#X connect 15 0 3 0;
#X connect 18 0 16 0;
#X connect 19 0 17 0;
#X restore 438 589 pd make-delay-r;
#X obj 350 223 r \$2-set-imp-l;
#X obj 708 222 r \$2-set-imp-r;
#X obj 893 354 switch~;
#X obj 963 108 f \$1;
#X obj 963 151 / 2;
#X obj 963 172 i;
#X obj 963 129 + 0.5;
#X obj 971 276 s \$0-blocksize;
#X obj 963 196 + 8;
#X msg 860 235 1;
#X msg 893 310 set \$1 2;
#X obj 944 77 t b b b;
#X obj 963 217 min 20;
#X obj 963 241 expr pow(2 \, $f1);
#X text 1059 120 log base 2 \, ie 256 = 2^8;
#X obj 944 56 r \$2-loadbang;
#N canvas 411 266 367 299 square-window 0;
#X obj 54 198 table \$0-square;
#X obj 64 91 until;
#X obj 64 113 f;
#X obj 92 113 + 1;
#X obj 64 20 inlet;
#X obj 64 67 * 0.5;
#X msg 64 138 \$1 1;
#X obj 64 162 s \$0-square;
#X obj 64 43 t f f;
#X obj 134 59 array size \$0-square;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 3 0 2 1;
#X connect 4 0 8 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 8 0 5 0;
#X connect 8 1 9 0;
#X restore 894 442 pd square-window;
#X obj 894 418 r \$0-blocksize;
#N canvas 605 263 423 366 onset 0;
#X obj 67 47 inlet;
#X obj 217 251 +;
#X obj 189 216 t f f;
#X obj 189 301 outlet;
#X obj 203 158 expr (pow(2 \, $f1) - 1) * \$3, f 28;
#X obj 188 187 +;
#X obj 67 73 trigger float float, f 28;
#X obj 62 102 expr $f1 * (\$1 % 2) / 2 \; int(\$1 / 2);
#X obj 238 302 outlet;
#X connect 0 0 6 0;
#X connect 1 0 8 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 4 0 5 1;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 6 1 1 1;
#X connect 7 0 5 0;
#X connect 7 1 4 0;
#X restore 682 90 pd onset;
#X obj 682 66 r \$0-blocksize;
#X floatatom 696 124 8 0 0 0 - - -;
#X floatatom 755 123 8 0 0 0 - - -;
#X obj 1014 100 f \$3;
#X obj 1014 123 log 2;
#X connect 0 0 7 1;
#X connect 1 0 7 0;
#X connect 2 0 17 0;
#X connect 3 0 16 0;
#X connect 5 0 8 0;
#X connect 6 0 8 1;
#X connect 7 0 3 0;
#X connect 8 0 3 1;
#X connect 10 0 11 0;
#X connect 11 0 1 1;
#X connect 11 0 6 1;
#X connect 11 1 0 1;
#X connect 11 1 5 1;
#X connect 12 0 1 0;
#X connect 12 0 5 0;
#X connect 12 1 0 0;
#X connect 12 1 6 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 1;
#X connect 16 0 54 0;
#X connect 16 0 21 0;
#X connect 17 0 12 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 1;
#X connect 21 0 4 0;
#X connect 22 0 18 0;
#X connect 23 0 24 0;
#X connect 23 0 50 0;
#X connect 24 0 25 0;
#X connect 25 0 52 0;
#X connect 26 0 10 1;
#X connect 26 0 17 1;
#X connect 26 0 44 1;
#X connect 26 0 37 1;
#X connect 28 0 35 1;
#X connect 29 0 35 0;
#X connect 30 0 44 0;
#X connect 31 0 43 0;
#X connect 33 0 36 0;
#X connect 34 0 36 1;
#X connect 35 0 31 0;
#X connect 36 0 31 1;
#X connect 37 0 38 0;
#X connect 38 0 29 1;
#X connect 38 0 34 1;
#X connect 38 1 28 1;
#X connect 38 1 33 1;
#X connect 39 0 29 0;
#X connect 39 0 33 0;
#X connect 39 1 28 0;
#X connect 39 1 34 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 1;
#X connect 43 0 57 0;
#X connect 43 0 48 0;
#X connect 44 0 39 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 47 0 48 1;
#X connect 48 0 32 0;
#X connect 49 0 45 0;
#X connect 50 0 51 0;
#X connect 51 0 53 0;
#X connect 52 0 10 0;
#X connect 53 0 37 0;
#X connect 55 0 4 0;
#X connect 58 0 32 0;
#X connect 60 0 52 0;
#X connect 61 0 53 0;
#X connect 63 0 66 0;
#X connect 64 0 65 0;
#X connect 65 0 68 0;
#X connect 66 0 64 0;
#X connect 68 0 72 0;
#X connect 69 0 62 0;
#X connect 70 0 62 0;
#X connect 71 0 69 0;
#X connect 71 1 63 0;
#X connect 71 2 82 0;
#X connect 72 0 73 0;
#X connect 73 0 67 0;
#X connect 73 0 70 0;
#X connect 75 0 71 0;
#X connect 77 0 76 0;
#X connect 78 0 24 1;
#X connect 78 0 50 1;
#X connect 78 0 80 0;
#X connect 78 1 51 1;
#X connect 78 1 25 1;
#X connect 78 1 81 0;
#X connect 79 0 78 0;
#X connect 82 0 83 0;
#X connect 83 0 68 1;