-
Notifications
You must be signed in to change notification settings - Fork 4
/
simplesample.pd
349 lines (349 loc) · 9.44 KB
/
simplesample.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
#N canvas 447 548 751 442 10;
#N canvas 618 56 332 68 NETPD 0;
#N canvas 312 66 336 156 abslist 0;
#X msg 12 77 i2mx;
#X msg 15 11 simplesample-section;
#X msg 18 112 qseq3-instr-list;
#X msg 189 49 roman_helpers;
#X msg 16 42 untik-clock-consumer;
#X restore 12 34 pd abslist;
#X msg 12 8 version 0 1 0;
#X restore 10 14 pd NETPD 2 0;
#X obj 9 68 netpd_head \$1 simplesample;
#N canvas 1235 507 315 283 \$1-simplesample 0;
#X obj 4 16 cnv 15 303 30 empty empty empty 20 12 0 14 #e0e0e0 #404040 0;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0.sample 466 float 2;
#X coords 0 1 466 -1 233 30 1 0 0;
#X restore 19 16 graph;
#X obj 4 18 vsl 15 25 1 100 1 0 \$0.wave.scale \$0.bli empty 0 -9 0 10 #b8b8b8 #000000 #000000 0 1;
#X obj 255 16 hsl 50 14 0 127 0 0 \$0.load \$0.bli load -2 7 0 10 #bbbbd4 #bbbbd4 #000000 0 1;
#X obj 252 30 netpd-gui-dropdown \$0.clock.select 55 16 10 0 0 666 0 555 887;
#X obj 4 80 simplesample-section \$1 1 \$0;
#X obj 4 146 simplesample-section \$1 3 \$0;
#X obj 4 113 simplesample-section \$1 2 \$0;
#X obj 4 179 simplesample-section \$1 4 \$0;
#X obj 4 212 simplesample-section \$1 5 \$0;
#X obj 4 245 simplesample-section \$1 6 \$0;
#X obj 21 61 hsl 230 15 0 1 0 0 \$0.playback.cursor \$0.playback.cursor.r empty -2 -8 0 10 #d8fcd8 #d8fcd8 #000000 0 1;
#X obj 4 61 tgl 15 0 \$1-playback \$1-playback playback 20 8 0 10 #00fc04 #000000 #000000 0 1;
#X obj 21 46 hsl 230 15 0 1 0 0 \$0.record.cursor \$0.record.cursor.r empty -2 -8 0 10 #fce0e0 #fce0e0 #000000 0 1;
#X obj 4 46 bng 15 250 50 0 \$0.record \$0.bli record 20 8 0 10 #fc0400 #000000 #000000;
#X obj 252 46 nbx 5 15 1 99 0 0 \$1-adc \$1-adc adc -33 8 0 10 #b8b8b8 #000000 #000000 0 256;
#X obj 252 61 nbx 5 15 1 999 0 0 \$1-length \$1-length length -50 8 0 10 #b8b8b8 #000000 #000000 0 256;
#X restore 10 42 pd \$1-simplesample;
#X obj 14 293 i2mx \$1 simplesample;
#X obj 11 138 t a a;
#N canvas 292 126 337 368 playback 0;
#X obj 32 134 mod;
#X obj 32 158 sel 0;
#X obj 65 37 netpd_f \$1 playback 0;
#X obj 65 59 t a a;
#X obj 32 87 spigot;
#X obj 92 203 sel 0;
#X msg 92 226 stop;
#X obj 47 112 netpd_r \$1 length;
#X obj 32 11 inlet;
#X obj 32 288 outlet~;
#N canvas 841 412 484 300 gui-stuff 0;
#X obj 22 200 s \$0.playback.cursor.r;
#X msg 22 95 0 \, 1 \$1;
#X obj 22 18 inlet;
#X obj 22 72 f;
#X obj 135 68 sel 0;
#X msg 135 90 0;
#X obj 223 15 netpd_r \$1 playback;
#X obj 190 202 s \$0.playback.cursor.r;
#X msg 190 153 -1;
#X obj 190 117 spigot;
#X obj 234 117 sel 0;
#X obj 22 123 line 0 40;
#X msg 190 178 color 6 \$1 -1;
#X msg 234 151 6;
#X obj 37 41 r \$1.length(ms);
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 11 0;
#X connect 6 0 4 0;
#X connect 6 0 9 1;
#X connect 6 0 10 0;
#X connect 8 0 12 0;
#X connect 9 0 8 0;
#X connect 10 0 13 0;
#X connect 11 0 0 0;
#X connect 12 0 7 0;
#X connect 13 0 12 0;
#X connect 14 0 3 1;
#X restore 155 205 pd gui-stuff;
#X obj 160 134 r \$0.sample.status;
#X obj 160 156 route length;
#X obj 32 203 f;
#X msg 32 225 0 \$1;
#X obj 32 260 tabplay~ \$1-sample-table;
#X connect 0 0 1 0;
#X connect 1 0 10 0;
#X connect 1 0 13 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 3 1 5 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 15 0;
#X connect 7 0 0 1;
#X connect 8 0 4 0;
#X connect 11 0 12 0;
#X connect 12 0 13 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 9 0;
#X restore 11 176 pd playback;
#N canvas 597 158 747 607 recorder 0;
#X obj 44 4 inlet;
#X obj 157 33 r \$0.record;
#X obj 157 77 f;
#X obj 229 83 netpd_r \$1 length;
#X obj 157 124 div;
#X obj 157 166 *;
#X obj 157 146 + 1;
#X obj 44 26 t a a a;
#X msg 102 221 -1;
#X obj 44 222 sel -1;
#N canvas 833 201 484 300 gui-stuff 0;
#X msg 22 149 0 \, 1 \$1;
#X obj 22 18 inlet;
#X msg 190 153 -1;
#X obj 22 173 line 0 40;
#X msg 217 131 3;
#X msg 190 178 color 3 \$1 -1;
#X obj 190 202 s \$0.record.cursor.r;
#X obj 22 85 t a a;
#X obj 190 85 t b a;
#X obj 217 109 delay;
#X obj 22 200 s \$0.record.cursor.r;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 2 0 5 0;
#X connect 3 0 10 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 7 0 0 0;
#X connect 7 1 8 0;
#X connect 8 0 2 0;
#X connect 8 1 9 0;
#X connect 9 0 4 0;
#X restore 71 437 pd gui-stuff;
#X obj 251 460 netpd_f \$1 adc 1;
#X obj 251 507 adc~;
#X msg 251 484 set \$1;
#X obj 252 532 throw~ \$0.sample.audio;
#X obj 154 329 netpd_r \$1 length;
#X obj 154 405 *;
#X obj 166 378 t b a;
#X obj 44 388 f;
#X obj 44 410 t a a;
#X msg 44 470 startuntil \$1;
#X obj 44 513 s \$0.sample.in;
#N canvas 539 294 368 382 convert_ms_to_steps 0;
#X obj 44 90 /;
#X obj 44 126 t a a;
#X obj 71 147 int;
#X obj 44 165 -;
#X obj 44 190 *;
#X obj 59 67 t b a a;
#X obj 44 17 inlet;
#X obj 183 288 outlet;
#X text 89 294 delay(ms);
#X text 226 288 steps;
#X obj 44 293 outlet;
#X obj 74 231 pack f f;
#X msg 74 251 \$2 \$1;
#X obj 74 271 -;
#X obj 93 37 r \$0.tick_ms;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 2 0;
#X connect 2 0 3 1;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 0 10 0;
#X connect 5 0 0 0;
#X connect 5 1 0 1;
#X connect 5 2 4 1;
#X connect 5 2 11 1;
#X connect 6 0 0 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 14 0 5 0;
#X restore 219 164 pd convert_ms_to_steps;
#X obj 219 139 netpd-pref-get pd-audio-latency 1;
#X obj 44 283 delay;
#X obj 157 190 +;
#X obj 219 112 loadbang;
#X obj 335 213 t a b;
#X obj 335 258 * 0.001;
#X obj 335 279 *;
#X obj 362 237 samplerate~;
#X obj 387 18 table \$0.stopover 1.44e+06;
#X obj 455 324 soundfiler;
#X obj 455 276 list prepend \$0;
#X obj 455 250 openpanel;
#X msg 455 300 read \$2 \$1.stopover;
#X obj 455 347 b;
#X obj 455 393 list append;
#X obj 455 370 symbol \$0.stopover;
#X msg 455 416 loadtable \$1 0 \$2;
#X obj 455 440 s \$0.sample.in;
#X obj 455 200 r \$0.load;
#X obj 455 223 sel;
#X obj 483 223 t a;
#X obj 166 352 r \$0.tick_ms;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 5 1;
#X connect 4 0 6 0;
#X connect 5 0 25 0;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 7 1 2 1;
#X connect 8 0 9 1;
#X connect 9 0 8 0;
#X connect 9 0 24 0;
#X connect 11 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 15 0 16 0;
#X connect 16 0 18 1;
#X connect 16 0 27 0;
#X connect 17 0 16 0;
#X connect 17 1 16 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 19 1 10 0;
#X connect 20 0 21 0;
#X connect 22 0 24 1;
#X connect 22 1 25 1;
#X connect 23 0 22 0;
#X connect 24 0 18 0;
#X connect 25 0 9 1;
#X connect 26 0 23 0;
#X connect 27 0 28 0;
#X connect 27 1 30 0;
#X connect 28 0 29 0;
#X connect 29 0 37 1;
#X connect 30 0 29 1;
#X connect 32 0 36 0;
#X connect 33 0 35 0;
#X connect 34 0 33 0;
#X connect 35 0 32 0;
#X connect 36 0 38 0;
#X connect 37 0 39 0;
#X connect 38 0 37 0;
#X connect 39 0 40 0;
#X connect 41 0 42 0;
#X connect 42 0 34 0;
#X connect 42 1 43 0;
#X connect 43 0 42 1;
#X connect 44 0 17 0;
#X restore 188 177 pd recorder;
#N canvas 943 415 449 196 force_trigger_dsp 0;
#N canvas 0 240 256 177 \$0.deleteme 0;
#X restore 20 15 pd \$0.deleteme;
#X obj 27 58 loadbang;
#X obj 27 134 s pd-\$0.deleteme;
#X msg 27 87 obj 10 10 osc~ 200 \, obj 10 30 s~ 10002.blu \, connect 0 0 1 0 \, clear;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X restore 115 13 pd force_trigger_dsp;
#X obj 270 86 s \$1.length(ms);
#X obj 16 364 qseq3-instr-list \$1 simplesample sample1 sample2 sample3 sample4 sample5 sample6;
#X obj 11 221 throw~ \$1.ss.sumL;
#X obj 19 199 throw~ \$1.ss.sumR;
#X obj 14 247 catch~ \$1.ss.sumL;
#X obj 73 268 catch~ \$1.ss.sumR;
#N canvas 880 381 352 309 wavedisplay 0;
#X msg 134 231 scale \$1;
#X obj 134 205 r \$0.wave.scale;
#X obj 27 15 r \$0.sample.status;
#X obj 27 260 rh_wavedisplay \$1-sample-table \$0.sample;
#X msg 27 68 range 0 \$1;
#X obj 27 37 route length updated;
#X obj 100 66 unpack;
#X obj 100 88 t a a;
#X obj 127 112 +;
#X obj 100 134 pack;
#X msg 100 159 update \$1 \$2;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 2 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 6 0;
#X connect 6 0 7 0;
#X connect 6 1 8 1;
#X connect 7 0 9 0;
#X connect 7 1 8 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 10 0 3 0;
#X restore 188 203 pd wavedisplay;
#X obj 240 270 netpd_sample \$1 sample;
#X obj 240 299 s \$0.sample.status;
#X obj 240 243 r \$0.sample.in;
#X obj 270 18 r \$0.sample.status;
#X obj 270 40 route length;
#N canvas 0 44 303 187 samp2ms 0;
#X obj 20 23 inlet;
#X obj 20 151 outlet;
#X obj 20 52 t a b;
#X obj 47 76 samplerate~;
#X obj 20 100 /;
#X obj 20 124 * 1000;
#X connect 0 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 3 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X restore 270 63 pd samp2ms;
#X obj 368 245 catch~ \$0.sample.audio;
#X obj 272 120 netpd_f \$1 length 16;
#X obj 461 35 loadbang;
#X obj 461 58 del 0;
#X msg 461 81 get tempo;
#X obj 461 127 route pos tempo, f 23;
#X msg 528 149 \$2 \$1;
#X obj 528 172 route permin;
#X msg 528 195 60000 \$1;
#X obj 528 218 /;
#X obj 528 242 s \$0.tick_ms;
#X obj 461 161 s \$0.pos;
#X obj 11 107 r \$0.pos;
#X obj 461 104 untik-clock-consumer \$1 clock \$0.clock.select;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 5 0 10 0;
#X connect 5 0 11 0;
#X connect 12 0 3 0;
#X connect 13 0 3 1;
#X connect 15 0 16 0;
#X connect 17 0 15 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 8 0;
#X connect 21 0 15 1;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 34 0;
#X connect 26 0 32 0;
#X connect 26 1 27 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 33 0 4 0;
#X connect 34 0 26 0;