/
pp.graindelay-onegrain.pd
323 lines (323 loc) · 7.39 KB
/
pp.graindelay-onegrain.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
321
322
323
#N canvas 225 136 663 502 10;
#X obj 209 40 inlet~;
#N canvas 462 107 724 558 delread 0;
#X obj 183 511 *~;
#X obj 184 570 outlet~;
#X obj 43 57 inlet~;
#X obj 136 54 inlet trigger;
#X obj 136 330 f;
#X obj 151 305 max 1;
#X obj 456 289 random;
#X obj 276 447 +~;
#X obj 456 400 +;
#X obj 276 421 vline~;
#X obj 136 388 vline~;
#X obj 135 428 tabread4~ \$2-window;
#X obj 151 263 r \$2-grainsize;
#X obj 502 289 r \$2-random-delay;
#X obj 471 378 r \$2-delay;
#X obj 151 284 abs;
#X obj 536 109 r \$2-grainsize;
#X obj 497 154 del 100;
#X obj 530 174 loadbang;
#X msg 530 211 0;
#X obj 530 244 switch~;
#N canvas 608 386 450 300 set 0;
#X obj 123 67 inlet;
#X obj 186 128 array size \$2-window;
#X obj 186 59 r \$2-env-set;
#X obj 353 105 symbol;
#X obj 186 80 t b a;
#X obj 186 149 - 3;
#X obj 123 224 outlet;
#X obj 353 225 outlet;
#X msg 123 203 1 \, \$2 \$1;
#X obj 123 176 pack 0 1022;
#X connect 0 0 9 0;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 1 1;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 4 1 3 0;
#X connect 5 0 9 1;
#X connect 8 0 6 0;
#X connect 9 0 8 0;
#X restore 136 361 pd set;
#X msg 196 386 set \$1;
#X obj 135 451 clip~ 0 1;
#X obj 536 130 abs;
#N canvas 2 54 450 495 rampgen 0;
#X obj 83 405 outlet;
#X obj 83 22 inlet;
#X obj 98 133 r \$2-grainsize;
#N canvas 153 292 386 402 forward 0;
#X obj 30 33 inlet;
#X obj 193 35 inlet;
#X obj 80 327 outlet;
#X obj 101 162 *;
#X obj 116 114 * 0.01;
#X obj 116 135 expr 1-pow(2 \, $f1/12);
#X obj 101 185 abs;
#X msg 80 284 0 \, \$2 \$1;
#X msg 159 284 \$2 \, 0 \$1;
#X obj 80 211 pack;
#X obj 80 236 list prepend 0;
#X obj 80 257 route 0 1;
#X obj 161 214 > 0;
#X obj 193 60 t f f;
#X obj 30 91 t f f;
#X text 68 32 abs. grainsize;
#X text 231 34 grainpitch;
#X connect 0 0 14 0;
#X connect 1 0 13 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 3 1;
#X connect 6 0 9 1;
#X connect 7 0 2 0;
#X connect 8 0 2 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 7 0;
#X connect 11 1 8 0;
#X connect 12 0 10 1;
#X connect 13 0 4 0;
#X connect 13 1 12 0;
#X connect 14 0 9 0;
#X connect 14 1 3 0;
#X restore 83 337 pd forward;
#N canvas 456 229 386 402 backward 0;
#X obj 30 33 inlet;
#X obj 193 35 inlet;
#X obj 80 327 outlet;
#X obj 193 69 * 0.01;
#X obj 126 201 abs;
#X obj 80 211 pack;
#X text 68 32 abs. grainsize;
#X text 231 34 grainpitch;
#X msg 80 263 0 \, \$2 \$1;
#X obj 126 179 +;
#X obj 30 91 t f f f;
#X obj 193 93 expr pow(2 \, $f1/12);
#X obj 141 149 *;
#X connect 0 0 10 0;
#X connect 1 0 3 0;
#X connect 3 0 11 0;
#X connect 4 0 5 1;
#X connect 5 0 8 0;
#X connect 8 0 2 0;
#X connect 9 0 4 0;
#X connect 10 0 5 0;
#X connect 10 1 9 0;
#X connect 10 2 12 0;
#X connect 11 0 12 1;
#X connect 12 0 9 1;
#X restore 201 340 pd backward;
#X obj 83 259 list prepend 0;
#X obj 83 280 route 0 1;
#X obj 164 237 < 0;
#X obj 290 132 r \$2-grainpitch;
#X obj 264 134 f;
#X text 119 24 trigger;
#X obj 83 155 f;
#X obj 83 189 t f f;
#X obj 83 212 abs;
#X obj 83 235 max 1;
#X obj 83 45 t b b;
#X connect 1 0 15 0;
#X connect 2 0 11 1;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 6 1 4 0;
#X connect 7 0 5 1;
#X connect 8 0 9 1;
#X connect 9 0 4 1;
#X connect 9 0 3 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 1 7 0;
#X connect 13 0 14 0;
#X connect 14 0 5 0;
#X connect 15 0 11 0;
#X connect 15 1 9 0;
#X restore 276 355 pd rampgen;
#X obj 136 75 t b b b b b;
#X msg 480 209 1;
#X obj 275 471 delread4~ \$0-del;
#X connect 0 0 1 0;
#X connect 3 0 26 0;
#X connect 4 0 21 0;
#X connect 5 0 4 1;
#X connect 6 0 8 0;
#X connect 7 0 28 0;
#X connect 8 0 7 1;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 15 0;
#X connect 13 0 6 1;
#X connect 14 0 8 1;
#X connect 15 0 5 0;
#X connect 16 0 24 0;
#X connect 17 0 19 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 21 0 10 0;
#X connect 21 1 22 0;
#X connect 22 0 11 0;
#X connect 23 0 0 0;
#X connect 24 0 17 1;
#X connect 25 0 9 0;
#X connect 26 0 4 0;
#X connect 26 1 25 0;
#X connect 26 2 6 0;
#X connect 26 3 27 0;
#X connect 26 4 17 0;
#X connect 27 0 20 0;
#X connect 28 0 0 1;
#X restore 210 168 pd delread;
#X obj 209 440 outlet~;
#X obj 94 40 inlet trigger;
#X obj 209 409 *~;
#X obj 276 413 *~;
#X obj 277 441 outlet~;
#X obj 210 351 *~ 1;
#X obj 282 276 f;
#X obj 310 275 r \$2-grainamp;
#N canvas 3 57 511 300 filter 0;
#X obj 143 88 inlet~;
#X obj 142 198 outlet~;
#X obj 168 130 r \$2-filter-bypass;
#N canvas 569 178 450 300 sub 0;
#X obj 246 28 inlet~;
#X obj 246 186 outlet~;
#X obj 260 85 f;
#X obj 317 113 f;
#X obj 278 66 r \$2-freq;
#X obj 335 92 r \$2-q;
#X obj 247 130 vcf~;
#X obj 260 105 sig~;
#X obj 355 11 inlet;
#X obj 81 77 switch~ 0;
#X obj 81 28 r \$2-filter-bypass;
#X obj 81 50 == 0;
#X connect 0 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 6 2;
#X connect 4 0 2 1;
#X connect 5 0 3 1;
#X connect 6 0 1 0;
#X connect 7 0 6 1;
#X connect 8 0 3 0;
#X connect 8 0 2 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X restore 203 157 pd sub;
#X obj 236 83 inlet;
#X obj 143 151 *~ 1;
#X connect 0 0 3 0;
#X connect 0 0 5 0;
#X connect 2 0 5 1;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 5 0 1 0;
#X restore 209 257 pd filter;
#N canvas 882 497 330 259 panorama 0;
#X obj 30 30 inlet;
#X obj 30 164 outlet;
#X obj 261 164 outlet;
#X obj 62 61 r \$2-grainpan;
#X obj 30 60 f;
#X obj 30 141 * 0.7071;
#X obj 261 141 * 0.7071;
#X obj 30 84 * 0.125;
#X obj 30 107 expr cos($f1*6.28319)-sin($f1*6.28319) \; cos($f1*6.28319)+sin($f1*6.28319)
;
#X connect 0 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 7 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 8 1 6 0;
#X restore 421 315 pd panorama;
#X obj 307 85 t b b b b b;
#N canvas 407 171 785 401 feedback 0;
#X obj 118 40 inlet~;
#X obj 267 181 inlet;
#X obj 153 260 == 0;
#X obj 282 210 r \$2-xfeed;
#X obj 118 260 *~ 1;
#X obj 252 262 *~;
#X obj 267 235 f;
#X obj 369 139 loadbang;
#X obj 369 160 f \$1;
#X obj 369 202 mod 32;
#X obj 369 223 makefilename %d-\$2-feedback;
#X text 309 293 throw to next grain;
#X obj 369 181 + 1;
#X obj 117 117 *~;
#X obj 132 69 r \$2-feedback;
#X obj 169 116 r \$2-damping;
#X obj 118 140 lop~ 8000;
#X obj 132 92 / 100;
#X obj 252 292 throw~;
#X msg 369 246 set \$1;
#X obj 117 290 throw~ \$0-feedback;
#X connect 0 0 13 0;
#X connect 1 0 6 0;
#X connect 2 0 4 1;
#X connect 3 0 6 1;
#X connect 4 0 20 0;
#X connect 5 0 18 0;
#X connect 6 0 2 0;
#X connect 6 0 5 1;
#X connect 7 0 8 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 19 0;
#X connect 12 0 9 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 16 1;
#X connect 16 0 4 0;
#X connect 16 0 5 0;
#X connect 17 0 13 1;
#X connect 19 0 18 0;
#X restore 242 213 pd feedback;
#X f 13;
#N canvas 739 168 590 386 delwrite 0;
#X obj 64 179 inlet~;
#X obj 66 295 outlet~;
#X obj 65 260 delwrite~ \$0-del 6000;
#X text 273 172 receive feedback from this grain;
#X text 276 120 receive feedback from prev. grain;
#X obj 260 138 catch~ \$1-\$2-feedback;
#X obj 261 189 catch~ \$0-feedback;
#X connect 0 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 2 0;
#X restore 209 109 pd delwrite;
#X connect 0 0 14 0;
#X connect 1 0 10 0;
#X connect 1 0 13 0;
#X connect 3 0 12 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 7 0 4 0;
#X connect 7 0 5 0;
#X connect 8 0 7 1;
#X connect 9 0 8 1;
#X connect 10 0 7 0;
#X connect 11 0 4 1;
#X connect 11 1 5 1;
#X connect 12 0 1 1;
#X connect 12 1 10 1;
#X connect 12 2 8 0;
#X connect 12 3 13 1;
#X connect 12 4 11 0;
#X connect 14 0 1 0;