/
pp.fft-block~.pd
283 lines (283 loc) · 6.71 KB
/
pp.fft-block~.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
#N canvas 252 91 778 519 10;
#X obj 398 93 inlet;
#X obj 100 115 cnv 15 136 26 empty empty empty 20 12 0 14 -1 -66577
0;
#X obj 101 116 cnv 15 134 24 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 106 129 hradio 10 1 0 7 \$0-bl \$0-blr Blocksize:1024 0 -8 2
10 -228856 -1 -1 2;
#X obj 186 129 hradio 10 1 0 4 \$0-ov \$0-ovr Overlap:4 0 -8 2 10 -228856
-1 -1 1;
#N canvas 562 99 636 488 stuff 0;
#X obj 44 79 expr pow(2 \, $f1);
#X obj 44 60 + 8;
#X obj 197 56 + 1;
#X obj 197 79 expr pow(2 \, $f1);
#X obj 197 35 r \$0-ov;
#X obj 44 40 r \$0-bl;
#X msg 56 103 label Blocksize:\$1;
#X obj 56 124 s \$0-blr;
#X msg 202 100 label Overlap:\$1;
#X obj 202 121 s \$0-ovr;
#X obj 44 273 outlet;
#X msg 44 231 set \$1 1 1;
#X msg 321 305 2;
#X msg 375 305 1;
#X obj 346 105 loadbang;
#X obj 346 155 f \$1;
#X obj 432 157 f \$2;
#X obj 346 177 sel 0;
#X obj 432 178 sel 0;
#X obj 349 244 - 8;
#X obj 422 270 - 1;
#X obj 321 326 s \$0-blr;
#X obj 375 327 s \$0-ovr;
#X obj 349 223 expr rint(ln($f1)/ln(2));
#X obj 422 249 expr rint(ln($f1)/ln(2));
#X connect 0 0 6 0;
#X connect 0 0 11 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 8 0;
#X connect 4 0 2 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 8 0 9 0;
#X connect 11 0 10 0;
#X connect 12 0 21 0;
#X connect 13 0 22 0;
#X connect 14 0 15 0;
#X connect 14 0 16 0;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 12 0;
#X connect 17 1 23 0;
#X connect 18 0 13 0;
#X connect 18 1 24 0;
#X connect 19 0 21 0;
#X connect 20 0 22 0;
#X connect 23 0 19 0;
#X connect 24 0 20 0;
#X restore 396 147 pd stuff;
#X obj 396 168 block~ 1024;
#N canvas 3 54 573 461 outlet-message 0;
#X obj 237 341 list trim;
#X msg 157 339 addcomma;
#X msg 93 346 set;
#X obj 237 318 list prepend add2;
#X obj 237 426 outlet;
#X msg 190 216 blocksize \$1 \, overlap \$2 \,;
#X obj 145 57 expr pow(2 \, $f1);
#X obj 145 38 + 8;
#X obj 298 34 + 1;
#X obj 298 57 expr pow(2 \, $f1);
#X obj 298 13 r \$0-ov;
#X obj 145 18 r \$0-bl;
#X obj 252 87 t b f;
#X obj 159 111 del 0;
#X obj 145 78 t b f;
#X obj 159 131 f 1024;
#X obj 161 149 pack 1024 4;
#X obj 161 171 t b a b;
#X obj 190 254 t b a a;
#N canvas 497 319 297 264 save 0;
#X obj 48 16 inlet;
#N canvas 690 259 481 384 collect 0;
#X obj 47 60 inlet;
#X obj 47 274 outlet;
#X obj 98 180 list;
#X obj 166 181 t l;
#X obj 47 225 list;
#X obj 98 139 list append |;
#X obj 47 126 del 0;
#X obj 47 82 t b a;
#X text 119 75 hacky thing... replaycing " \, " with "|";
#X connect 0 0 7 0;
#X connect 2 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 2 1;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 2 1;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X restore 48 38 pd collect;
#X obj 117 16 r \$0-save;
#X obj 27 130 text set \$0-savestates;
#X obj 27 104 list;
#X obj 117 62 t b f;
#X obj 117 39 clip 0 20;
#X connect 0 0 1 0;
#X connect 1 0 4 1;
#X connect 2 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 3 1;
#X connect 6 0 5 0;
#X restore 242 284 pd save;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 18 0;
#X connect 6 0 14 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 12 0;
#X connect 10 0 8 0;
#X connect 11 0 7 0;
#X connect 12 0 13 0;
#X connect 12 1 16 1;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 14 1 15 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 4 0;
#X connect 17 1 5 0;
#X connect 17 2 2 0;
#X connect 18 0 1 0;
#X connect 18 1 3 0;
#X connect 18 2 19 0;
#X restore 396 230 pd outlet-message;
#N canvas 436 249 450 300 in 0;
#X obj 76 17 inlet;
#X obj 76 102 route blocksize overlap;
#X obj 76 187 - 8;
#X obj 149 213 - 1;
#X obj 76 261 s \$0-blr;
#X obj 149 263 s \$0-ovr;
#X obj 76 134 log 2;
#X obj 157 136 log 2;
#X obj 76 166 expr rint($f1);
#X obj 149 192 expr rint($f1);
#N canvas 698 546 200 251 route 0;
#X obj 20 20 inlet;
#X obj 30 60 route save recall;
#X obj 30 85 route float;
#X obj 97 111 route float;
#X obj 30 136 s \$0-save;
#X obj 30 108 i;
#X obj 98 133 i;
#X obj 98 161 s \$0-recall;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X restore 94 44 pd route save-recall;
#N canvas 362 125 450 479 recall 0;
#X obj 49 145 outlet;
#N canvas 3 54 450 600 listsplit 0;
#X obj 158 23 inlet;
#X obj 220 87 list length;
#X obj 220 113 until;
#X obj 182 150 f;
#X obj 278 150 + 1;
#X msg 265 111 0;
#X obj 182 226 list store;
#X msg 182 202 get \$1 1;
#X obj 154 367 list split;
#X obj 222 342 f;
#X obj 154 334 list;
#X obj 98 124 list;
#X obj 182 389 list split 1;
#X obj 154 274 t bang bang bang;
#X obj 182 179 t f f;
#X obj 158 48 t l l l b;
#X obj 154 473 outlet;
#X obj 154 440 list trim;
#X obj 163 248 sel |;
#X text 275 197 hacky split list at "|";
#X connect 0 0 15 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 14 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 18 0;
#X connect 7 0 6 0;
#X connect 8 0 17 0;
#X connect 8 1 12 0;
#X connect 9 0 8 1;
#X connect 10 0 8 0;
#X connect 11 0 15 0;
#X connect 12 1 11 0;
#X connect 13 0 10 0;
#X connect 13 1 9 0;
#X connect 13 2 2 1;
#X connect 14 0 7 0;
#X connect 14 1 9 1;
#X connect 15 0 1 0;
#X connect 15 1 10 1;
#X connect 15 2 6 1;
#X connect 15 3 5 0;
#X connect 17 0 16 0;
#X connect 18 0 13 0;
#X restore 49 117 pd listsplit;
#X obj 49 24 r \$0-recall;
#X obj 49 54 pipe 1;
#X obj 221 409 text fromlist \$0-savestates;
#X obj 49 77 text get \$0-savestates;
#X msg 253 246 21;
#X obj 253 269 until;
#X obj 253 292 f;
#X obj 300 295 + 1;
#X obj 253 315 t b f;
#X obj 253 367 text set \$0-savestates;
#X obj 221 114 text tolist \$0-savestates;
#X msg 253 342 list empty_slot;
#X obj 221 160 t a b;
#X obj 151 166 loadbang;
#X obj 221 137 savestate;
#X obj 221 33 text define \$0-savestates;
#X obj 151 189 del 0;
#X msg 298 199 0;
#X obj 253 220 spigot 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 13 0;
#X connect 10 1 11 1;
#X connect 12 0 16 0;
#X connect 13 0 11 0;
#X connect 14 0 4 0;
#X connect 14 1 19 0;
#X connect 15 0 18 0;
#X connect 16 0 14 0;
#X connect 16 1 12 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 6 0;
#X restore 108 71 pd recall;
#X connect 0 0 1 0;
#X connect 0 0 10 0;
#X connect 1 0 6 0;
#X connect 1 1 7 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 2 0;
#X connect 9 0 3 0;
#X connect 11 0 1 0;
#X restore 398 117 pd in;
#X obj 396 252 outlet;
#X obj 301 111 inlet~;
#X obj 301 132 outlet~;
#X text 588 466 philipp schmalfuß \, 2018;
#X connect 0 0 8 0;
#X connect 5 0 6 0;
#X connect 7 0 9 0;
#X connect 10 0 11 0;
#X coords 0 -1 1 1 136 44 1 100 100;