-
Notifications
You must be signed in to change notification settings - Fork 0
/
1grain~.pd
290 lines (290 loc) · 7.27 KB
/
1grain~.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
#N canvas 187 24 553 581 10;
#X obj 49 470 outlet~;
#X obj 48 381 *~;
#X obj -46 71 phasor~;
#X obj -48 311 +~;
#N canvas 44 550 457 385 calc_freq 0;
#X text 240 32 in ms;
#X obj 177 312 outlet;
#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 - - -, f 5;
#X floatatom 206 95 5 0 0 0 - - -, f 5;
#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 - - -, f 5;
#X text 227 281 result Hz;
#X obj 211 182 r \$0-speed;
#X obj 136 29 r \$0-grainsize;
#X connect 2 0 15 0;
#X connect 2 0 1 0;
#X connect 3 0 13 0;
#X connect 3 1 2 1;
#X connect 4 0 6 0;
#X connect 4 0 9 0;
#X connect 6 0 10 0;
#X connect 6 1 7 1;
#X connect 7 0 8 0;
#X connect 7 0 12 0;
#X connect 10 0 7 0;
#X connect 12 0 13 0;
#X connect 12 1 13 1;
#X connect 13 0 2 0;
#X connect 17 0 3 0;
#X connect 18 0 4 0;
#X restore -46 20 pd calc_freq;
#X floatatom -33 44 5 0 0 0 - - -, f 5;
#N canvas 144 574 311 310 calc_range 0;
#X obj 114 110 samplerate~;
#X floatatom 127 134 5 0 0 0 - - -, f 5;
#X obj 114 155 / 1000;
#X text 164 155 s/ms;
#X obj 74 180 *;
#X floatatom 86 61 5 0 0 0 - - -, f 5;
#X text 177 34 in ms;
#X obj 74 85 t f b;
#X floatatom 92 205 5 0 0 0 - - -, f 5;
#X obj 74 227 outlet;
#X text 131 204 samples;
#X obj 74 29 r \$0-grainsize;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 2 0 4 1;
#X connect 4 0 8 0;
#X connect 4 0 9 0;
#X connect 7 0 4 0;
#X connect 7 1 0 0;
#X connect 11 0 5 0;
#X connect 11 0 7 0;
#X restore -11 172 pd calc_range;
#X floatatom -6 194 5 0 0 0 - - -, f 5;
#X text 32 193 samples;
#X text 7 43 Hz;
#X obj 115 222 *~ 1024;
#X text 128 324 window;
#X obj -46 119 *~;
#X obj -28 95 r loop;
#X obj -13 387 r once;
#N canvas 54 571 450 463 once 0;
#X obj 139 378 outlet~;
#X obj 65 21 inlet;
#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 234 227 f;
#X obj 81 95 r endpos;
#X obj 68 124 f;
#X obj 66 47 t b b;
#X obj 208 289 vline~;
#X msg 210 262 0 \, 1024 \$1;
#X obj 139 356 *~;
#X obj 252 194 r \$0-grainsize;
#X obj 128 205 r \$0-grainsize;
#X obj 80 314 tabread4~ \$0-sample;
#X obj 209 315 tabread4~ \$0-window;
#X obj 314 57 inlet;
#X msg 295 128 set \$1-sample;
#X msg 308 152 set \$1-window;
#X connect 1 0 10 0;
#X connect 2 0 16 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 6 1;
#X connect 6 0 2 0;
#X connect 7 0 12 0;
#X connect 8 0 9 1;
#X connect 9 0 4 0;
#X connect 10 0 9 0;
#X connect 10 0 7 0;
#X connect 10 1 6 0;
#X connect 11 0 17 0;
#X connect 12 0 11 0;
#X connect 13 0 0 0;
#X connect 14 0 7 1;
#X connect 15 0 4 1;
#X connect 16 0 13 0;
#X connect 17 0 13 1;
#X connect 18 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 16 0;
#X connect 20 0 17 0;
#X restore -13 411 pd once;
#X obj 191 21 cnv 15 83 165 empty empty empty 20 12 0 14 -212073 -66577
0;
#X text 202 23 speed;
#X obj 204 39 nbx 5 14 0.2 3 0 0 \$0-speed \$0-speed empty 0 -8 0 10
-262130 -1 -1 0.44 256;
#X obj 207 56 hsl 50 10 0.2 3 0 0 \$0-speed \$0-speed empty -2 -8 0
10 -212657 -1 -1 420 1;
#N canvas 306 546 450 300 load 0;
#X obj 80 28 loadbang;
#X obj 48 93 s \$0-speed;
#X obj 134 92 s \$0-grainsize;
#X obj 263 96 s \$0-enable;
#X msg 59 135 0;
#X obj 52 160 s \$0-offset;
#X msg 54 68 0.6;
#X msg 140 67 63;
#X msg 266 66 0;
#X connect 0 0 6 0;
#X connect 0 0 7 0;
#X connect 0 0 8 0;
#X connect 0 0 4 0;
#X connect 4 0 5 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 8 0 3 0;
#X restore 306 23 pd load;
#X obj 203 83 nbx 5 14 1 500 0 0 \$0-grainsize \$0-grainsize empty
0 -8 0 10 -262130 -1 -1 46.3789 256;
#X text 201 68 size (ms);
#X obj 201 166 tgl 15 0 \$0-enable \$0-enable empty 17 7 0 10 -262130
-1 -1 1 1;
#X text 218 166 enable;
#X obj 48 444 *~;
#X obj 68 420 r \$0-enable;
#X obj 205 100 hsl 50 10 1 500 0 0 \$0-grainsize \$0-grainsize empty
-2 -8 0 10 -212658 -1 -1 446 1;
#X obj 202 128 nbx 5 14 -10000 10000 0 0 \$0-offset \$0-offset empty
0 -8 0 10 -262130 -1 -1 2583.67 256;
#X obj 204 145 hsl 50 10 -10000 10000 0 0 \$0-offset \$0-offset empty
-2 -8 0 10 -204786 -1 -1 3083 1;
#N canvas 7 53 450 300 pos 0;
#X obj 99 26 r pos;
#X obj 194 28 r \$0-offset;
#X obj 194 101 f;
#X obj 105 139 +;
#X obj 104 198 outlet;
#X obj 103 92 f;
#X obj 101 54 t b f b;
#X obj 191 59 t b f f;
#X connect 0 0 6 0;
#X connect 1 0 7 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 5 0 3 0;
#X connect 6 0 5 0;
#X connect 6 1 5 1;
#X connect 6 2 2 0;
#X connect 7 0 5 0;
#X connect 7 1 2 1;
#X connect 7 2 3 1;
#X restore 41 256 pd pos;
#X text 200 113 offset;
#X obj 61 22 inlet;
#N canvas 6 53 638 390 params 0;
#X obj 79 30 inlet;
#X floatatom 86 94 5 0 0 0 - - -, f 5;
#X floatatom 170 95 5 0 0 0 - - -, f 5;
#X floatatom 274 100 5 0 0 0 - - -, f 5;
#X obj 60 139 s \$0-speed;
#X obj 144 141 s \$0-grainsize;
#X obj 256 145 s \$0-offset;
#X obj 330 145 s \$0-enable;
#X floatatom 334 101 5 0 0 0 - - -, f 5;
#X obj 517 147 s \$0-lfo-speed;
#X obj 76 70 route speed grainsize offset enable lfo-amount lfo-speed
;
#X obj 410 147 s \$0-lfo-amount;
#X connect 0 0 10 0;
#X connect 10 0 1 0;
#X connect 10 0 4 0;
#X connect 10 1 2 0;
#X connect 10 1 5 0;
#X connect 10 2 3 0;
#X connect 10 2 6 0;
#X connect 10 3 7 0;
#X connect 10 3 8 0;
#X connect 10 4 11 0;
#X connect 10 5 9 0;
#X restore 61 53 pd params;
#N canvas 908 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 -31 287 pd scrub_comp;
#X obj -47 209 nozip;
#X floatatom 110 453 5 0 0 0 - - -, f 5;
#X obj -48 342 tabread4~ \$1-sample;
#X obj 132 48 inlet;
#X obj 116 345 tabread4~ \$1-window;
#X obj 207 240 print;
#X msg 62 98 set \$1-sample;
#X msg 59 134 set \$1-window;
#X obj 297 218 lfo_tri;
#X obj 301 157 hsl 50 10 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 1800 1;
#X obj 258 238 f;
#X obj 309 336 +;
#X obj 304 240 t b f;
#X floatatom 242 299 5 0 0 0 - - -, f 5;
#X floatatom 309 391 5 0 0 0 - - -, f 5;
#X obj 366 309 jrange 0 127 0 1;
#X obj 328 284 *;
#X obj 276 414 s \$0-grainsize;
#X obj 297 192 jrange 0 127 0 2;
#X obj 327 311 * 2;
#X obj 381 276 r \$0-lfo-amount;
#X obj 306 131 r \$0-lfo-speed;
#X connect 1 0 25 0;
#X connect 2 0 12 0;
#X connect 3 0 37 0;
#X connect 4 0 5 0;
#X connect 4 0 2 0;
#X connect 6 0 7 0;
#X connect 6 0 35 1;
#X connect 10 0 39 0;
#X connect 12 0 10 0;
#X connect 12 0 34 0;
#X connect 12 0 35 0;
#X connect 13 0 12 1;
#X connect 14 0 15 0;
#X connect 15 0 25 0;
#X connect 21 0 45 0;
#X connect 25 0 0 0;
#X connect 26 0 25 1;
#X connect 26 0 36 0;
#X connect 30 0 34 1;
#X connect 32 0 33 0;
#X connect 34 0 3 1;
#X connect 35 0 3 0;
#X connect 37 0 1 0;
#X connect 38 0 41 0;
#X connect 38 0 42 0;
#X connect 39 0 1 1;
#X connect 41 0 40 0;
#X connect 41 0 37 0;
#X connect 42 0 39 0;
#X connect 43 0 47 0;
#X connect 44 0 53 0;
#X connect 45 0 48 0;
#X connect 45 0 46 0;
#X connect 46 0 49 0;
#X connect 46 0 52 0;
#X connect 47 0 45 0;
#X connect 47 1 51 0;
#X connect 50 0 51 1;
#X connect 51 0 54 0;
#X connect 53 0 43 0;
#X connect 54 0 46 1;
#X connect 55 0 50 0;
#X connect 56 0 44 0;
#X coords 0 -1 1 1 85 168 1 190 20;