-
Notifications
You must be signed in to change notification settings - Fork 0
/
gran2.pd
executable file
·359 lines (359 loc) · 8.69 KB
/
gran2.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
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
#N canvas 466 85 812 394 10;
#N canvas 0 0 450 300 (subpatch) 0;
#X array sample 194574 float 2;
#X coords 0 1 194574 -1 750 140 1 0 0;
#X restore 34 32 graph;
#X obj 36 346 dac~;
#X obj 37 177 hsl 750 15 0 194574 0 0 pos pos empty -2 -8 0 10 -262130
-1 -1 0 1;
#N canvas 18 53 450 300 load 0;
#X obj 32 72 soundfiler;
#X msg 32 52 read -resize holger.wav sample;
#X obj 32 31 loadbang;
#X obj 32 96 print sample-ct;
#X msg 89 207 \; pos range \$1 \$2;
#X obj 88 181 pack 0 f;
#X obj 85 148 t b f;
#X obj 219 180 pack 0 f;
#X obj 216 147 t b f;
#X obj 318 51 loadbang;
#X obj 319 112 s grainsize;
#X obj 353 173 s speed;
#X msg 353 151 1;
#N canvas 228 635 339 289 setwindow 0;
#X obj 57 22 loadbang;
#X obj 57 234 tabwrite~ window;
#X obj 84 162 osc~;
#X msg 109 119 0;
#X obj 160 94 samplerate~;
#X obj 84 191 *~ -0.5;
#X obj 81 211 +~ 0.5;
#X obj 161 121 / 1024;
#X text 175 18 1024 points;
#X obj 86 53 t b b b;
#X connect 0 0 9 0;
#X connect 2 0 5 0;
#X connect 3 0 2 1;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 1 0;
#X connect 9 1 3 0;
#X connect 9 2 4 0;
#X restore 136 265 pd setwindow;
#X msg 320 84 50;
#X msg 220 206 \; endpos range \$1 \$2;
#X obj 36 263 s samplect;
#X connect 0 0 3 0;
#X connect 0 0 6 0;
#X connect 0 0 8 0;
#X connect 0 0 16 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 6 1 5 1;
#X connect 7 0 15 0;
#X connect 8 0 7 0;
#X connect 8 1 7 1;
#X connect 9 0 14 0;
#X connect 9 0 12 0;
#X connect 12 0 11 0;
#X connect 14 0 10 0;
#X restore 731 10 pd load;
#X obj 37 194 hsl 750 15 0 194574 0 0 empty endpos empty -2 -8 0 10
-262144 -1 -1 924 1;
#X obj 151 234 nbx 9 14 0 194574 0 0 pos pos empty 0 -8 0 10 -262130
-1 -1 0 256;
#X text 150 284 grain length (ms);
#X obj 43 236 bng 25 250 50 0 once empty empty 17 7 0 10 -204786 -1
-1;
#X text 150 320 speed;
#X obj 152 268 nbx 9 14 0 194574 0 0 empty endpos empty 0 -8 0 10 -262144
-1 -1 2400 256;
#X text 150 252 end position;
#N canvas 466 409 309 439 playback 0;
#X obj -48 342 tabread4~ sample;
#X obj 48 404 outlet~;
#X obj 48 381 *~;
#X obj 116 345 tabread4~ window;
#X obj -46 71 phasor~;
#X obj -48 311 +~;
#N canvas 92 158 457 385 calc_freq 0;
#X obj 136 29 r grainsize;
#X text 219 31 in ms;
#X obj 177 312 outlet;
#X obj 210 182 r speed;
#X obj 177 256 *;
#X obj 211 203 t b f;
#X obj 136 57 / 1000;
#X text 185 58 to sec.;
#X obj 136 86 t b f;
#X obj 142 138 /;
#X floatatom 154 162 5 0 0 0 - - -;
#X floatatom 206 95 5 0 0 0 - - -;
#X msg 127 110 1;
#X text 195 162 Hz;
#X obj 142 190 t b f;
#X obj 177 231 f;
#X text 208 258 scale factor;
#X floatatom 187 281 5 0 0 0 - - -;
#X text 227 281 result Hz;
#X connect 0 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 17 0;
#X connect 4 0 2 0;
#X connect 5 0 15 0;
#X connect 5 1 4 1;
#X connect 6 0 8 0;
#X connect 6 0 11 0;
#X connect 8 0 12 0;
#X connect 8 1 9 1;
#X connect 9 0 10 0;
#X connect 9 0 14 0;
#X connect 12 0 9 0;
#X connect 14 0 15 0;
#X connect 14 1 15 1;
#X connect 15 0 4 0;
#X restore -46 20 pd calc_freq;
#X floatatom -33 44 5 0 0 0 - - -;
#X obj -47 209 *~;
#N canvas 141 574 311 310 calc_range 0;
#X obj 74 29 r grainsize;
#X obj 114 110 samplerate~;
#X floatatom 127 134 5 0 0 0 - - -;
#X obj 114 155 / 1000;
#X text 164 155 s/ms;
#X obj 74 180 *;
#X floatatom 86 61 5 0 0 0 - - -;
#X text 157 31 in ms;
#X obj 74 85 t f b;
#X floatatom 92 205 5 0 0 0 - - -;
#X obj 74 227 outlet;
#X text 131 204 samples;
#X connect 0 0 6 0;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 1 0 3 0;
#X connect 3 0 5 1;
#X connect 5 0 9 0;
#X connect 5 0 10 0;
#X connect 8 0 5 0;
#X connect 8 1 1 0;
#X restore -11 172 pd calc_range;
#X floatatom -6 194 5 0 0 0 - - -;
#X text 32 193 samples;
#X text 7 43 Hz;
#X obj 59 227 r pos;
#X obj 115 222 *~ 1024;
#X text 128 324 window;
#X obj -46 119 *~;
#X obj -28 95 r loop;
#X obj 124 379 r once;
#N canvas 793 363 450 463 once 0;
#X obj 139 378 outlet~;
#X obj 65 21 inlet;
#X obj 80 314 tabread4~ sample;
#X obj 80 287 vline~;
#X msg 80 262 \$1 \$2;
#X obj 82 235 pack f f;
#X obj 124 40 r pos;
#X obj 106 73 f;
#X obj 252 194 r grainsize;
#X obj 234 227 f;
#X obj 81 95 r endpos;
#X obj 68 124 f;
#X obj 128 205 r grainsize;
#X obj 66 47 t b b;
#X obj 209 315 tabread4~ window;
#X obj 208 289 vline~;
#X msg 210 262 0 \, 1024 \$1;
#X obj 139 356 *~;
#X connect 1 0 13 0;
#X connect 2 0 17 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 7 1;
#X connect 7 0 3 0;
#X connect 8 0 9 1;
#X connect 9 0 16 0;
#X connect 10 0 11 1;
#X connect 11 0 5 0;
#X connect 12 0 5 1;
#X connect 13 0 11 0;
#X connect 13 0 9 0;
#X connect 13 1 7 0;
#X connect 14 0 17 1;
#X connect 15 0 14 0;
#X connect 16 0 15 0;
#X connect 17 0 0 0;
#X restore 124 403 pd once;
#N canvas 907 53 368 269 scrub_comp 0;
#X obj 154 17 inlet;
#X obj 77 19 inlet~;
#X obj 85 144 outlet~;
#X obj 85 112 samphold~;
#X obj 153 53 sig~;
#X text 27 180 ensures that position;
#X text 29 196 updates happen in phase \, even when;
#X text 35 211 scrubbing;
#X connect 0 0 4 0;
#X connect 1 0 3 1;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X restore -29 256 pd scrub_comp;
#N canvas 147 533 450 300 playscrub 0;
#X obj 160 86 r samplect;
#X obj 139 117 f;
#X obj 167 224 line;
#X obj 169 249 s pos;
#X obj 101 53 r playscrub;
#X obj 140 153 t f b;
#X msg 175 182 0;
#X msg 100 192 \$1 4500;
#X connect 0 0 1 1;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 4 0 1 0;
#X connect 5 0 7 0;
#X connect 5 1 6 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X restore 110 61 pd playscrub;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 16 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 6 0 4 0;
#X connect 8 0 5 0;
#X connect 9 0 10 0;
#X connect 9 0 8 1;
#X connect 13 0 20 1;
#X connect 14 0 3 0;
#X connect 16 0 14 0;
#X connect 16 0 20 0;
#X connect 16 0 8 0;
#X connect 17 0 16 1;
#X connect 18 0 19 0;
#X connect 19 0 1 0;
#X connect 20 0 5 1;
#X restore 39 318 pd playback;
#X obj 152 302 nbx 5 14 1 500 0 0 grainsize grainsize empty 0 -8 0
10 -262130 -1 -1 50 256;
#X obj 83 237 tgl 25 0 loop empty empty 17 7 0 10 -261234 -1 -1 0 1
;
#X text 147 215 start position;
#N canvas 0 0 450 300 (subpatch) 0;
#X array window 1024 float 0;
#X coords 0 1 1023 0 250 100 1 0 0;
#X restore 533 234 graph;
#N canvas 609 450 488 483 showgrain 0;
#X obj 20 362 tabplay~ sample;
#X obj 117 452 tabwrite~ grain;
#X obj 32 31 r endpos;
#X obj 193 30 r pos;
#X obj 171 171 f;
#X obj 110 300 pack f f;
#X msg 20 342 \$1 \$2;
#X obj 152 195 -;
#X floatatom 222 212 5 0 0 0 - - -;
#X msg 194 280 \; grain resize \$1;
#X obj 39 58 t b f;
#X obj 72 109 f;
#X obj 38 82 delay 50;
#X obj 194 72 t f f;
#X obj 110 141 t b b f b;
#X obj 89 239 f;
#X obj 144 412 *~;
#X obj 337 385 osc~;
#X msg 339 336 0;
#X obj 380 332 samplerate~;
#X obj 336 408 *~ -0.5;
#X obj 337 431 +~ 0.5;
#X obj 381 359 / 1024;
#X obj 160 229 t f f f;
#X obj 326 247 t b f;
#X floatatom 398 384 5 0 0 0 - - -;
#X connect 0 0 16 0;
#X connect 2 0 10 0;
#X connect 3 0 13 0;
#X connect 4 0 7 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 7 0 23 0;
#X connect 10 0 12 0;
#X connect 10 1 11 1;
#X connect 11 0 14 0;
#X connect 12 0 11 0;
#X connect 13 0 15 1;
#X connect 13 1 4 1;
#X connect 14 0 15 0;
#X connect 14 1 1 0;
#X connect 14 2 7 0;
#X connect 14 3 4 0;
#X connect 15 0 5 0;
#X connect 16 0 1 0;
#X connect 17 0 20 0;
#X connect 18 0 17 1;
#X connect 19 0 22 0;
#X connect 20 0 21 0;
#X connect 21 0 16 1;
#X connect 22 0 17 0;
#X connect 22 0 25 0;
#X connect 23 0 5 1;
#X connect 23 1 9 0;
#X connect 23 2 24 0;
#X connect 24 0 18 0;
#X connect 24 0 19 0;
#X connect 24 1 22 1;
#X restore 279 338 pd showgrain;
#X text 0 177 drag;
#X text 79 220 loop;
#X obj 152 336 nbx 5 14 0.2 3 0 0 speed speed empty 0 -8 0 10 -262130
-1 -1 1 256;
#X obj 155 353 hsl 50 10 0.2 3 0 0 speed speed empty -2 -8 0 10 -262130
-1 -1 1400 1;
#N canvas 0 0 450 300 (subpatch) 0;
#X array grain 2400 float 0;
#X coords 0 1 2399 -1 250 100 1 0 0;
#X restore 279 234 graph;
#N canvas 5 53 450 300 update_end 0;
#X obj 113 55 r pos;
#X obj 171 36 r grainsize;
#X obj 237 93 samplerate~;
#X floatatom 250 117 5 0 0 0 - - -;
#X obj 237 138 / 1000;
#X text 289 117 s/ms;
#X obj 194 171 *;
#X obj 113 188 +;
#X floatatom 194 195 5 0 0 0 - - -;
#X floatatom 183 68 5 0 0 0 - - -;
#X obj 144 139 f;
#X obj 113 211 s endpos;
#X obj 171 92 t b f b;
#X connect 0 0 7 0;
#X connect 0 0 10 1;
#X connect 1 0 9 0;
#X connect 1 0 12 0;
#X connect 2 0 3 0;
#X connect 2 0 4 0;
#X connect 4 0 6 1;
#X connect 6 0 7 1;
#X connect 6 0 8 0;
#X connect 7 0 11 0;
#X connect 10 0 7 0;
#X connect 12 0 10 0;
#X connect 12 1 6 0;
#X connect 12 2 2 0;
#X restore 370 338 pd update_end;
#X text 39 220 once;
#X obj 45 280 bng 25 250 50 0 playscrub empty empty 17 7 0 10 -204800
-1 -1;
#X text 41 264 scrub;
#X connect 11 0 1 0;
#X connect 11 0 1 1;