/
pp.fft-partconv-part.pd
202 lines (202 loc) · 4.78 KB
/
pp.fft-partconv-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
#N canvas 208 112 978 710 10;
#X obj 207 349 *~;
#X obj 162 349 *~;
#X obj 163 101 inlet~;
#X obj 203 421 rifft~;
#X obj 204 618 outlet~;
#X obj 282 350 *~;
#X obj 311 350 *~;
#X obj 162 377 -~;
#X obj 281 379 +~;
#X obj 62 78 inlet;
#X obj 328 268 rfft~;
#X obj 162 258 rfft~;
#X obj 709 102 f \$1;
#X obj 709 144 / 2;
#X obj 709 165 i;
#X obj 709 123 + 0.5;
#X obj 709 259 s \$0-blocksize;
#X obj 709 189 + 8;
#X obj 266 415 r \$0-blocksize;
#X msg 266 436 1 \$1;
#X obj 266 457 /;
#X obj 202 456 *~;
#N canvas 3 52 450 300 \$0-delay 0;
#X obj 85 54 inlet~;
#X restore 108 504 pd \$0-delay;
#N canvas 150 296 645 383 make-delay 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 333 s pd-\$0-delay;
#X obj 205 281 pack 0 \$0;
#X obj 132 385 s pd-\$0-delread;
#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 msg 205 304 obj 100 100 delwrite~ \$2-d \$1 \, connect 0 0 1 0;
#X msg 112 362 obj 100 100 delread~ \$2-d \$1 \, connect 1 0 0 0;
#X connect 0 0 12 0;
#X connect 1 0 13 0;
#X connect 2 0 0 0;
#X connect 3 0 0 1;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 7 0 18 0;
#X connect 9 0 14 0;
#X connect 10 0 9 1;
#X connect 11 0 19 0;
#X connect 12 0 11 0;
#X connect 12 1 5 0;
#X connect 13 0 9 0;
#X connect 13 1 10 0;
#X connect 14 0 2 0;
#X connect 15 0 16 0;
#X connect 16 0 1 0;
#X connect 16 1 14 1;
#X connect 16 2 17 0;
#X connect 17 0 3 0;
#X connect 18 0 6 0;
#X connect 19 0 8 0;
#X restore 108 525 pd make-delay;
#X obj 162 217 *~;
#X obj 224 505 f \$1;
#X obj 224 526 mod 2;
#X obj 224 546 == 0;
#N canvas 3 52 450 300 \$0-delread 0;
#X obj 166 205 outlet~;
#X restore 108 557 pd \$0-delread;
#X msg 632 236 1;
#X msg 658 287 set \$1 2;
#X obj 690 71 t b b b;
#X obj 203 575 *~ 1;
#X obj 709 216 expr pow(2 \, $f1);
#X obj 690 50 r \$2-loadbang;
#X obj 224 485 r \$2-loadbang;
#X obj 315 58 bang~;
#X floatatom 443 68 10 0 0 0 - - -;
#X floatatom 375 68 10 0 0 0 - - -;
#X obj 178 173 tabreceive~ \$0-square;
#X obj 328 228 *~;
#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 723 430 pd square-window;
#X obj 723 406 r \$0-blocksize;
#X obj 774 121 f \$3;
#X obj 774 144 log 2;
#X floatatom 725 238 10 0 0 0 - - -;
#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 358 41 pd onset;
#X obj 358 17 r \$0-blocksize;
#X obj 343 89 f;
#X obj 343 112 pack 0 0;
#X obj 658 321 switch~ 0;
#X text 814 140 log base 2 \, e.g 256 = 2^8;
#X obj 343 160 tabplay~ \$2-impulse;
#X obj 384 137 r \$2-set-imp;
#X text 474 499 \$1 clone-instance \, \$2 parrent \$0 \, \$3 min blocksize
;
#X connect 0 0 7 1;
#X connect 1 0 7 0;
#X connect 2 0 24 0;
#X connect 3 0 21 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 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 15 0;
#X connect 13 0 14 0;
#X connect 14 0 17 0;
#X connect 15 0 13 0;
#X connect 17 0 33 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 21 0 32 0;
#X connect 24 0 11 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 32 1;
#X connect 28 0 4 0;
#X connect 29 0 50 0;
#X connect 30 0 50 0;
#X connect 31 0 29 0;
#X connect 31 1 12 0;
#X connect 31 2 43 0;
#X connect 32 0 4 0;
#X connect 33 0 16 0;
#X connect 33 0 30 0;
#X connect 33 0 45 0;
#X connect 34 0 31 0;
#X connect 35 0 25 0;
#X connect 36 0 48 0;
#X connect 39 0 24 1;
#X connect 39 0 40 0;
#X connect 40 0 10 0;
#X connect 42 0 41 0;
#X connect 43 0 44 0;
#X connect 44 0 17 1;
#X connect 46 0 38 0;
#X connect 46 0 48 1;
#X connect 46 1 37 0;
#X connect 46 1 49 1;
#X connect 47 0 46 0;
#X connect 48 0 49 0;
#X connect 49 0 52 0;
#X connect 52 0 40 1;
#X connect 53 0 52 0;