-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathimprov_voice_keysndtrig2.pd
358 lines (358 loc) · 9.75 KB
/
improv_voice_keysndtrig2.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
#N struct 4942-tplate float x0 float y0 float id float label float
c;
#N canvas 272 136 1525 1115 12;
#X obj 891 129 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 890 162 metro 10;
#X obj 1026 98 loadbang;
#X obj 738 182 dkkeytonum 0 0 0;
#X obj 738 206 route 0;
#X obj 773 271 s \$0-key;
#X msg 738 230 bang;
#X msg 165 669 symbol ~/sounds;
#X obj 253 867 catch~ \$0-improv_procR;
#X obj 51 866 catch~ \$0-improv_procL;
#X obj 89 927 dkezvolS~;
#X obj 115 1050 throw~ dkimprovstation_voiceL;
#X obj 347 1045 throw~ dkimprovstation_voiceR;
#X obj 328 936 catch~ \$0-improv_procSUM;
#X obj 157 49 catch~ \$0-improv_procM;
#X obj 486 26 clone util/dksndtrig2-keyvoice 45 \$0;
#X obj 469 194 dkezdistortM~;
#X obj 367 40 dkezvuM~;
#X obj 37 193 dkezspectdelayM~ 1024 40000 1 1;
#X obj 120 96 dkezspectgateM~ 1024;
#X obj 361 223 loadbang;
#X msg 361 247 1;
#X obj 450 461 dkezbitcrushM~;
#X obj 458 529 dkezdelaylopM~ 5000;
#X obj 456 674 dkezstutterM~ 5000;
#X obj 454 327 dkezpshiftM~;
#X obj 457 253 dkezfreqshiftM~;
#X obj 695 454 r \$0-delT;
#X msg 695 478 ms \$1;
#X obj 802 452 r \$0-fb;
#X msg 802 476 fb \$1;
#X msg 40 617 symbol /home/dxk/Documents/Pd/hot_sacred/sounds/tv/;
#N canvas 232 391 317 197 \$0-improv_loop_arrays 0;
#X obj 45 68 array define \$0-loop1 882000;
#X obj 38 114 array define \$0-loop2 882000;
#X obj 45 153 array define \$0-loop3 882000;
#X obj 38 29 array define \$0-loop0 882000;
#X restore 492 63 pd \$0-improv_loop_arrays;
#X obj 127 842 catch~ \$0-improv_loopL;
#X obj 320 842 catch~ \$0-improv_loopR;
#X obj 784 596 r \$0-stut;
#X obj 662 581 r \$0-stutrate;
#X obj 890 212 dkxypad 5;
#X msg 1026 161 set 0 0.5 0.5 \, set 1 0.5 1 \, set 2 0.5 0.25 \, set
3 0.25 0.25 \, set 4 0 1;
#N canvas 837 269 1613 756 \$0-xyrouter 0;
#X obj 259 100 unpack f f;
#X floatatom 148 328 10 0 0 0 offset - #0-offset, f 10;
#X floatatom 147 356 10 0 0 0 rate - #0-rate, f 10;
#X obj 320 156 dkrange 0 1 -2 2;
#X obj 476 221 unpack f f;
#X floatatom 252 357 10 0 0 0 vol - #0-vol, f 10;
#X obj 467 256 dkrange 0 1 -1 1;
#X floatatom 254 329 10 0 0 0 pan - #0-pan, f 10;
#X obj 642 120 unpack f f;
#X floatatom 359 354 10 0 0 0 fb - #0-fb, f 10;
#X floatatom 361 329 10 0 0 0 delT - #0-delT, f 10;
#X obj 633 154 dkrange 0 1 10 1000;
#X obj 745 190 * 100;
#X obj 876 124 unpack f f;
#X floatatom 496 355 10 0 0 0 stut - #0-stut, f 10;
#X floatatom 498 330 10 0 0 0 stutrate - #0-stutrate, f 10;
#X obj 986 213 > 0.5;
#X obj 867 158 dkrange 0 1 5 20;
#X obj 268 63 route 0 1 2 3 4, f 109;
#X obj 1014 121 unpack f f, f 23;
#X floatatom 604 351 10 0 0 0 lop - #0-lop, f 10;
#X floatatom 606 326 10 0 0 0 q - #0-q, f 10;
#X obj 1005 155 dkrange 0 1 3 30;
#X obj 1178 163 dkrange 0 1 100 16500;
#X obj 267 31 inlet;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 3 0 2 0;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 6 0 7 0;
#X connect 8 0 11 0;
#X connect 8 1 12 0;
#X connect 11 0 10 0;
#X connect 12 0 9 0;
#X connect 13 0 17 0;
#X connect 13 1 16 0;
#X connect 16 0 14 0;
#X connect 17 0 15 0;
#X connect 18 0 0 0;
#X connect 18 1 4 0;
#X connect 18 2 8 0;
#X connect 18 3 13 0;
#X connect 18 4 19 0;
#X connect 19 0 22 0;
#X connect 19 1 23 0;
#X connect 22 0 21 0;
#X connect 23 0 20 0;
#X connect 24 0 18 0;
#X coords 0 -1 1 1 600 80 1 100 300;
#X restore 878 521 pd \$0-xyrouter;
#X obj 1026 122 t b b;
#N canvas 1165 274 1097 656 \$0-loader 0;
#X floatatom 190 125 5 0 44 0 snd - -, f 5;
#X obj 609 267 makefilename \$0-snd%d;
#X msg 589 522 read -resize -maxsize 4e+10 \$1 \$2;
#X obj 608 232 t f f;
#X obj 589 546 soundfiler;
#X obj 564 111 openpanel;
#X obj 564 135 t s b;
#X obj 659 151 loadbang;
#X obj 579 331 pack s s;
#X obj 106 124 bng 15 250 50 0 empty empty load 17 7 0 14 -262144 -1
-1;
#X obj 98 231 symbol;
#X obj 323 34 inlet;
#X text 374 39 path;
#X obj 112 44 inlet;
#X text 161 43 load;
#X obj 461 35 inlet;
#X text 512 35 num;
#X symbolatom 105 153 45 0 0 2 path - -, f 45;
#X obj 589 570 print size;
#X floatatom 266 123 5 0 0 0 max - -, f 5;
#X obj 784 168 loadbang;
#X obj 579 355 t l b;
#X obj 612 404 f;
#X obj 623 428 dkrunmax;
#X connect 0 0 3 0;
#X connect 1 0 8 1;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 3 1 22 1;
#X connect 4 0 18 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 6 1 0 0;
#X connect 7 0 0 0;
#X connect 8 0 21 0;
#X connect 9 0 10 0;
#X connect 10 0 5 0;
#X connect 11 0 17 0;
#X connect 13 0 9 0;
#X connect 15 0 0 0;
#X connect 17 0 10 1;
#X connect 20 0 23 1;
#X connect 21 0 2 0;
#X connect 21 1 22 0;
#X connect 22 0 23 0;
#X connect 23 0 19 0;
#X coords 0 -1 1 1 350 80 1 100 100;
#X restore 36 721 pd \$0-loader;
#X obj 169 637 loadbang;
#N canvas 720 218 1671 1084 \$0-improv_loopstation 0;
#X obj 86 228 dkezdistortM~;
#X obj 87 283 dkezfreqshiftM~;
#X obj 87 328 dkezpshiftM~;
#X obj 87 454 dkezdelaylopM~ 5000;
#X obj 105 769 dkezvolM~;
#X obj 105 832 dkezpanM~;
#X obj 472 258 dkezfreqshiftM~;
#X obj 472 303 dkezpshiftM~;
#X obj 472 450 dkezdelaylopM~ 5000;
#X obj 485 712 dkezvolM~;
#X obj 490 778 dkezpanM~;
#X obj 850 251 dkezfreqshiftM~;
#X obj 850 296 dkezpshiftM~;
#X obj 850 443 dkezdelaylopM~ 5000;
#X obj 838 727 dkezvolM~;
#X obj 838 790 dkezpanM~;
#X obj 1221 232 dkezfreqshiftM~;
#X obj 1221 277 dkezpshiftM~;
#X obj 1221 424 dkezdelaylopM~ 5000;
#X obj 1223 718 dkezvolM~;
#X obj 1221 773 dkezpanM~;
#X obj 255 460 loadbang;
#X msg 255 484 1;
#X obj 1033 433 loadbang;
#X msg 1033 457 1;
#X obj 471 203 dkezdistortM~;
#X obj 849 196 dkezdistortM~;
#X obj 1220 177 dkezdistortM~;
#X obj 257 34 r dkimprovstation_1b;
#X obj 363 63 r dkimprov_dur;
#X msg 363 87 syncdur \$1;
#X obj 583 38 r dkimprovstation_1b;
#X obj 745 38 r dkimprov_dur;
#X msg 745 62 syncdur \$1;
#X obj 962 31 r dkimprovstation_1b;
#X obj 1124 31 r dkimprov_dur;
#X msg 1124 55 syncdur \$1;
#X obj 1347 18 r dkimprovstation_1b;
#X obj 1497 20 r dkimprov_dur;
#X msg 1495 37 syncdur \$1;
#X obj 278 344 r dkimprovstation_1b;
#X obj 278 379 bng 45 250 50 0 empty empty sync 0 -7 0 15 -262144 -1
-1;
#X obj 10 26 r dkimprov_logidy;
#X obj 96 59 tgl 20 0 empty empty pedal_select 22 7 0 15 -262144 -1
-1 0 1;
#X obj 10 85 spigot 0;
#X obj 10 109 list split 1;
#X obj 10 133 sel 0 1 2;
#X obj 24 172 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 24 192 rec \$1;
#X obj 111 610 dkezstutterM~ 5000;
#X obj 111 655 dkezvcfM~ 0 5 5 1;
#X obj 488 603 dkezstutterM~ 5000;
#X obj 484 649 dkezvcfM~ 0 5 5 1;
#X obj 841 604 dkezstutterM~ 5000;
#X obj 841 649 dkezvcfM~ 0 5 5 1;
#X obj 1214 584 dkezstutterM~ 5000;
#X obj 1214 629 dkezvcfM~ 0 5 5 1;
#X obj 440 1021 throw~ \$0-improv_loopR;
#X obj 248 1021 throw~ \$0-improv_loopL;
#X obj 97 87 r~ \$0-improv_procSUM;
#X obj 89 120 dkezlooperM~ \$0-loop0 1 125;
#X obj 479 62 r~ \$0-improv_procSUM;
#X obj 471 95 dkezlooperM~ \$0-loop1 1 125;
#X obj 858 55 r~ \$0-improv_procSUM;
#X obj 850 88 dkezlooperM~ \$0-loop2 1 125;
#X obj 1230 28 r~ \$0-improv_procSUM;
#X obj 1231 65 dkezlooperM~ \$0-loop3 1 125;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 49 0;
#X connect 4 0 5 0;
#X connect 5 0 58 0;
#X connect 5 1 57 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 51 0;
#X connect 9 0 10 0;
#X connect 10 0 58 0;
#X connect 10 1 57 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 53 0;
#X connect 14 0 15 0;
#X connect 15 0 58 0;
#X connect 15 1 57 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 55 0;
#X connect 19 0 20 0;
#X connect 20 0 58 0;
#X connect 20 1 57 0;
#X connect 21 0 22 0;
#X connect 22 0 3 2;
#X connect 22 0 8 2;
#X connect 23 0 24 0;
#X connect 24 0 13 2;
#X connect 24 0 18 2;
#X connect 25 0 6 0;
#X connect 26 0 11 0;
#X connect 27 0 16 0;
#X connect 28 0 60 3;
#X connect 29 0 30 0;
#X connect 30 0 60 4;
#X connect 31 0 62 3;
#X connect 32 0 33 0;
#X connect 33 0 62 4;
#X connect 34 0 64 3;
#X connect 35 0 36 0;
#X connect 36 0 64 4;
#X connect 37 0 66 3;
#X connect 38 0 39 0;
#X connect 39 0 66 4;
#X connect 40 0 41 0;
#X connect 42 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 47 0 60 1;
#X connect 49 0 50 0;
#X connect 50 0 4 0;
#X connect 51 0 52 0;
#X connect 52 0 9 0;
#X connect 53 0 54 0;
#X connect 54 0 14 0;
#X connect 55 0 56 0;
#X connect 56 0 19 0;
#X connect 59 0 60 0;
#X connect 60 0 0 0;
#X connect 61 0 62 0;
#X connect 62 0 25 0;
#X connect 63 0 64 0;
#X connect 64 0 26 0;
#X connect 65 0 66 0;
#X connect 66 0 27 0;
#X restore 496 94 pd \$0-improv_loopstation;
#X obj 649 865 dkcospan~ 0;
#X obj 732 790 r \$0-pan;
#X obj 516 900 throw~ \$0-improv_procL;
#X obj 699 920 throw~ \$0-improv_procR;
#X obj 719 766 s~ \$0-improv_procSUM;
#X obj 462 734 dkezvcfM~ 18000 5 5 1;
#X obj 699 640 r \$0-lop;
#X msg 688 665 freq \$1;
#X obj 766 656 r \$0-q;
#X msg 774 696 q \$1;
#X connect 0 0 1 0;
#X connect 0 0 3 2;
#X connect 1 0 37 0;
#X connect 2 0 40 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 6 0 0 0;
#X connect 7 0 41 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 1 12 0;
#X connect 14 0 17 0;
#X connect 14 0 19 0;
#X connect 16 0 26 0;
#X connect 18 0 16 0;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 21 0 19 3;
#X connect 21 0 18 2;
#X connect 21 0 16 2;
#X connect 21 0 25 2;
#X connect 21 0 22 2;
#X connect 21 0 23 2;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 49 0;
#X connect 25 0 22 0;
#X connect 26 0 25 0;
#X connect 27 0 28 0;
#X connect 28 0 23 1;
#X connect 29 0 30 0;
#X connect 30 0 23 1;
#X connect 31 0 41 1;
#X connect 33 0 10 0;
#X connect 34 0 10 1;
#X connect 35 0 24 2;
#X connect 36 0 24 1;
#X connect 37 0 39 0;
#X connect 38 0 37 0;
#X connect 40 0 37 0;
#X connect 40 1 38 0;
#X connect 42 0 7 0;
#X connect 44 0 46 0;
#X connect 44 1 47 0;
#X connect 45 0 44 1;
#X connect 49 0 48 0;
#X connect 49 0 44 0;
#X connect 50 0 51 0;
#X connect 51 0 49 1;
#X connect 52 0 53 0;
#X connect 53 0 49 1;