-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathimprov_voice_grn.pd
226 lines (226 loc) · 6.16 KB
/
improv_voice_grn.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
#N canvas 669 360 1276 1040 12;
#X obj 16 50 dkezgrnchopM~ \$0-snd 125 1;
#X obj 454 194 dkezdistortM~;
#X obj 300 278 dkezvuM~;
#X obj 44 455 dkezspectdelayM~ 1024 40000 1 1;
#X obj 42 367 dkezspectgateM~ 1024;
#X obj 401 382 loadbang;
#X msg 401 406 1;
#X obj 448 516 dkezbitcrushM~;
#X obj 430 842 dkezvolM~;
#X obj 457 253 dkezringmodM~;
#X obj 451 585 dkezdelaylopM~ 5000;
#X obj 436 915 dkezpanM~;
#X obj 427 976 throw~ \$0-improv_procL;
#X obj 609 984 throw~ \$0-improv_procR;
#X obj 451 720 dkezstutterM~ 5000;
#X obj 661 281 catch~ \$0-improv_procL;
#X obj 842 271 catch~ \$0-improv_procR;
#X obj 697 422 dkvancomp~ 512;
#X obj 860 423 dkvancomp~ 512;
#X obj 724 483 dkezvolS~;
#X msg 1028 426 factor_hi 10;
#X obj 1095 377 loadbang;
#X obj 717 564 throw~ dkimprovstation_voiceL;
#X obj 924 557 throw~ dkimprovstation_voiceR;
#X obj 785 617 dkezvuS~;
#X msg 378 50 set dkimprovstation_rec1;
#X msg 377 23 set dkimprovstation_rec0;
#X obj 637 675 loadbang;
#X msg 637 699 1;
#N canvas 232 391 317 197 \$0-improv_loop_arrays 0;
#X obj 38 29 array define \$0-loop0 882000;
#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 restore 959 623 pd \$0-improv_loop_arrays;
#X obj 750 134 catch~ \$0-improv_loopL;
#X obj 942 134 catch~ \$0-improv_loopR;
#X obj 650 835 s~ \$0-improv_procSUM;
#X obj 412 89 dkezarrayM~ \$0-snd;
#X obj 641 27 r dkimprovstation_1b;
#X obj 641 62 bng 45 250 50 0 empty empty sync 0 -7 0 15 -262144 -1
-1;
#X obj 225 13 r dkimprovstation_4b;
#X obj 486 339 dkezpshiftM~;
#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 945 652 pd \$0-improv_loopstation;
#X obj 451 765 dkezvcfM~ 18000 5 5 1;
#X connect 0 0 4 0;
#X connect 0 0 2 0;
#X connect 1 0 9 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 4 3;
#X connect 6 0 3 2;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 9 0 37 0;
#X connect 10 0 14 0;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 14 0 39 0;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 19 0;
#X connect 18 0 19 1;
#X connect 19 0 22 0;
#X connect 19 0 24 0;
#X connect 19 1 23 0;
#X connect 19 1 24 1;
#X connect 20 0 17 1;
#X connect 20 0 18 1;
#X connect 21 0 20 0;
#X connect 25 0 0 4;
#X connect 26 0 0 4;
#X connect 27 0 28 0;
#X connect 28 0 10 2;
#X connect 28 0 9 3;
#X connect 30 0 17 0;
#X connect 31 0 18 0;
#X connect 34 0 35 0;
#X connect 36 0 0 3;
#X connect 37 0 7 0;
#X connect 39 0 8 0;
#X connect 39 0 32 0;