-
Notifications
You must be signed in to change notification settings - Fork 11
Expand file tree
/
Copy pathpp.fft-partconv-st-part.pd
More file actions
307 lines (307 loc) · 7.26 KB
/
pp.fft-partconv-st-part.pd
File metadata and controls
307 lines (307 loc) · 7.26 KB
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
#N canvas 197 95 1187 816 10;
#X obj 182 455 *~;
#X obj 137 455 *~;
#X obj 138 207 inlet~;
#X obj 178 527 rifft~;
#X obj 179 724 outlet~;
#X obj 257 456 *~;
#X obj 286 456 *~;
#X obj 137 483 -~;
#X obj 256 485 +~;
#X obj 304 342 *~;
#X obj 303 374 rfft~;
#X obj 137 364 rfft~;
#X obj 241 523 r \$0-blocksize;
#X msg 241 542 1 \$1;
#X obj 241 563 /;
#X obj 177 562 *~;
#X obj 137 337 *~;
#X obj 511 287 tabreceive~ \$0-square;
#X obj 540 454 *~;
#X obj 495 454 *~;
#X obj 496 206 inlet~;
#X obj 536 526 rifft~;
#X obj 537 723 outlet~;
#X obj 615 455 *~;
#X obj 644 455 *~;
#X obj 495 482 -~;
#X obj 614 484 +~;
#X obj 662 341 *~;
#X obj 661 373 rfft~;
#X obj 495 363 rfft~;
#X obj 599 522 r \$0-blocksize;
#X msg 599 541 1 \$1;
#X obj 599 562 /;
#X obj 535 561 *~;
#X obj 495 336 *~;
#X obj 304 285 tabplay~ \$2-impulse-l;
#X obj 662 284 tabplay~ \$2-impulse-r;
#N canvas 3 54 450 300 \$0-delay-l 0;
#X obj 85 54 inlet~;
#X restore 88 608 pd \$0-delay-l;
#N canvas 3 50 450 300 \$0-delread-l 0;
#X obj 166 205 outlet~;
#X restore 75 681 pd \$0-delread-l;
#N canvas 176 275 581 528 make-delay-l 0;
#X obj 125 285 / 44.1;
#X obj 100 141 f \$1;
#X obj 125 261 * 0.5;
#X obj 215 271 / 1000;
#X obj 219 343 i;
#X obj 219 322 + 10;
#X obj 219 366 pack 0 \$0;
#X obj 95 208 spigot;
#X obj 128 187 mod 2;
#X obj 126 405 pack 0 \$0;
#X obj 125 306 t f f;
#X obj 100 162 t b f;
#X obj 125 239 f;
#X obj 188 120 t b f b;
#X obj 217 246 samplerate~;
#X obj 219 418 s pd-\$0-delay-l;
#X obj 146 470 s pd-\$0-delread-l;
#X msg 219 389 obj 100 100 delwrite~ \$2-d-l \$1 \, connect 0 0 1 0;
#X msg 126 447 obj 100 100 delread~ \$2-d-l \$1 \, connect 1 0 0 0;
#X obj 188 27 r \$0-blocksize;
#X obj 188 99 spigot 1;
#X obj 188 49 t b f;
#X msg 233 75 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 17 0;
#X connect 7 0 12 0;
#X connect 8 0 7 1;
#X connect 9 0 18 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 1 0;
#X connect 13 1 12 1;
#X connect 13 2 14 0;
#X connect 14 0 3 0;
#X connect 17 0 15 0;
#X connect 18 0 16 0;
#X connect 19 0 21 0;
#X connect 20 0 13 0;
#X connect 21 0 22 0;
#X connect 21 1 20 0;
#X connect 22 0 20 1;
#X restore 77 628 pd make-delay-l;
#N canvas 3 50 450 300 \$0-delay-r 0;
#X obj 85 54 inlet~;
#X restore 446 607 pd \$0-delay-r;
#N canvas 3 50 450 300 \$0-delread-r 0;
#X obj 166 205 outlet~;
#X restore 434 676 pd \$0-delread-r;
#N canvas 165 218 645 507 make-delay-r 0;
#X obj 151 263 / 44.1;
#X obj 126 119 f \$1;
#X obj 151 239 * 0.5;
#X obj 241 249 / 1000;
#X obj 245 321 i;
#X obj 245 300 + 10;
#X obj 245 344 pack 0 \$0;
#X obj 121 186 spigot;
#X obj 154 165 mod 2;
#X obj 152 383 pack 0 \$0;
#X obj 151 284 t f f;
#X obj 126 140 t b f;
#X obj 151 217 f;
#X obj 214 98 t b f b;
#X obj 243 224 samplerate~;
#X obj 245 396 s pd-\$0-delay-r;
#X obj 172 448 s pd-\$0-delread-r;
#X msg 245 367 obj 100 100 delwrite~ \$2-d-r \$1 \, connect 0 0 1 0;
#X msg 152 425 obj 100 100 delread~ \$2-d-r \$1 \, connect 1 0 0 0;
#X obj 214 -1 r \$0-blocksize;
#X obj 214 71 spigot 1;
#X obj 214 21 t b f;
#X msg 259 47 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 17 0;
#X connect 7 0 12 0;
#X connect 8 0 7 1;
#X connect 9 0 18 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 1 0;
#X connect 13 1 12 1;
#X connect 13 2 14 0;
#X connect 14 0 3 0;
#X connect 17 0 15 0;
#X connect 18 0 16 0;
#X connect 19 0 21 0;
#X connect 20 0 13 0;
#X connect 21 0 22 0;
#X connect 21 1 20 0;
#X connect 22 0 20 1;
#X restore 433 630 pd make-delay-r;
#X obj 345 264 r \$2-set-imp-l;
#X obj 703 263 r \$2-set-imp-r;
#N canvas 411 266 367 299 square-window 0;
#X obj 64 129 until;
#X obj 64 155 f;
#X obj 92 155 + 1;
#X obj 64 20 inlet;
#X obj 64 105 * 0.5;
#X msg 64 181 \$1 1;
#X obj 64 205 s \$0-square;
#X obj 172 114 array size \$0-square;
#X obj 127 117 f 0;
#X obj 65 252 array define \$0-square;
#X obj 64 43 t f b f b;
#X msg 183 67 const 0;
#X obj 183 90 s \$0-square;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 0 5 0;
#X connect 2 0 1 1;
#X connect 3 0 10 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 8 0 1 1;
#X connect 10 0 4 0;
#X connect 10 1 8 0;
#X connect 10 2 7 0;
#X connect 10 3 11 0;
#X connect 11 0 12 0;
#X restore 888 532 pd square-window;
#X obj 888 507 r \$0-blocksize;
#X text 142 99 \$1 clone-instance \, \$2 parrent \$0;
#X obj 481 178 s \$0-blocksize;
#X obj 634 140 bang~;
#X obj 662 171 f;
#X obj 662 194 pack 0 0, f 36;
#X obj 508 155 switch~ 0;
#X msg 508 134 set \$1 2 \, 1;
#X obj 481 108 t f f;
#X obj 481 56 route \$1;
#X obj 481 33 r \$2-clone-data;
#X obj 481 80 unpack f f f, f 66;
#X listbox 710 123 20 0 0 0 - - - 0;
#X listbox 896 122 20 0 0 0 - - - 0;
#X listbox 543 106 20 0 0 0 - - - 0;
#N canvas 0 0 450 300 through 0;
#X obj 278 75 f \$1;
#X obj 278 96 mod 2;
#X obj 278 116 == 0;
#X obj 278 139 switch~;
#X obj 140 45 inlet~;
#X obj 140 68 outlet~;
#X obj 278 20 r \$0-blocksize;
#X floatatom 239 134 5 0 0 0 - - - 0;
#X obj 278 43 t b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 7 0;
#X connect 4 0 5 0;
#X connect 6 0 8 0;
#X connect 8 0 0 0;
#X restore 178 650 pd through;
#N canvas 0 0 450 300 through 0;
#X obj 278 75 f \$1;
#X obj 278 96 mod 2;
#X obj 278 116 == 0;
#X obj 278 139 switch~;
#X obj 140 45 inlet~;
#X obj 140 68 outlet~;
#X obj 278 20 r \$0-blocksize;
#X floatatom 239 134 5 0 0 0 - - - 0;
#X obj 278 43 t b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 7 0;
#X connect 4 0 5 0;
#X connect 6 0 8 0;
#X connect 8 0 0 0;
#X restore 536 649 pd through;
#X connect 0 0 7 1;
#X connect 1 0 7 0;
#X connect 2 0 16 0;
#X connect 3 0 15 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 9 0 10 0;
#X connect 10 0 1 1;
#X connect 10 0 6 1;
#X connect 10 1 0 1;
#X connect 10 1 5 1;
#X connect 11 0 1 0;
#X connect 11 0 5 0;
#X connect 11 1 0 0;
#X connect 11 1 6 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 1;
#X connect 15 0 37 0;
#X connect 15 0 61 0;
#X connect 16 0 11 0;
#X connect 17 0 9 1;
#X connect 17 0 16 1;
#X connect 17 0 34 1;
#X connect 17 0 27 1;
#X connect 18 0 25 1;
#X connect 19 0 25 0;
#X connect 20 0 34 0;
#X connect 21 0 33 0;
#X connect 23 0 26 0;
#X connect 24 0 26 1;
#X connect 25 0 21 0;
#X connect 26 0 21 1;
#X connect 27 0 28 0;
#X connect 28 0 19 1;
#X connect 28 0 24 1;
#X connect 28 1 18 1;
#X connect 28 1 23 1;
#X connect 29 0 19 0;
#X connect 29 0 23 0;
#X connect 29 1 18 0;
#X connect 29 1 24 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 33 1;
#X connect 33 0 40 0;
#X connect 33 0 62 0;
#X connect 34 0 29 0;
#X connect 35 0 9 0;
#X connect 36 0 27 0;
#X connect 38 0 4 0;
#X connect 41 0 22 0;
#X connect 43 0 35 0;
#X connect 44 0 36 0;
#X connect 46 0 45 0;
#X connect 49 0 50 0;
#X connect 50 0 51 0;
#X connect 51 0 36 0;
#X connect 51 0 35 0;
#X connect 53 0 52 0;
#X connect 54 0 48 0;
#X connect 54 1 53 0;
#X connect 55 0 57 0;
#X connect 56 0 55 0;
#X connect 57 0 54 0;
#X connect 57 0 60 0;
#X connect 57 1 50 1;
#X connect 57 1 58 0;
#X connect 57 2 51 1;
#X connect 57 2 59 0;
#X connect 61 0 4 0;
#X connect 62 0 22 0;