-
Notifications
You must be signed in to change notification settings - Fork 1
/
dkloopgrn~.pd
209 lines (209 loc) · 5.11 KB
/
dkloopgrn~.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
#N canvas 903 261 1537 1098 12;
#X obj 656 91 inlet;
#X obj 181 493 tabwrite~ \$1;
#X obj 243 240 inlet~;
#X obj 363 106 inlet;
#X text 345 148 play/rec;
#X obj 440 110 inlet;
#X text 444 152 off/on;
#X obj 363 224 f;
#X text 707 88 transport sync;
#X obj 498 21 loadbang, f 13;
#X obj 495 199 f;
#X obj 399 667 *~;
#X obj 369 260 change 0;
#X obj 200 408 *~;
#X msg 303 335 \$1 5;
#X obj 265 374 line~;
#X obj 690 502 line~;
#X msg 576 373 \$1 5;
#X obj 481 299 == 0;
#X obj 656 116 t b b b;
#X text 6 320 in1: sig~ \, in2: play/rec;
#X text -1 477 out~: sig;
#X obj 396 714 outlet~;
#X obj 362 295 t f f;
#X obj 576 322 * 0;
#X obj 495 224 t b f;
#X obj 105 143 tgl 30 0 empty empty rec 0 -7 0 15 -262144 -1 -1 0 1
;
#X obj 139 143 tgl 30 0 empty empty on 0 -7 0 15 -262144 -1 -1 0 1
;
#X text 8 253 arg1: sample array;
#X text 6 289 arg2: num grains;
#X obj 519 91 inlet;
#X text 568 92 rate;
#X text -3 377 in5: transport;
#X text 6 344 in3: off/on \, in4: rate;
#X obj 369 458 f;
#X obj 172 156 nbx 5 16 -1e+37 1e+37 0 0 empty empty rate 0 -8 0 15
-262144 -1 -1 1 256;
#X msg 355 64 1;
#X text 27 38 Derek Kwan 2017 \, gpl v 3;
#X obj 876 80 inlet;
#X text 931 80 messages;
#X text 935 139 offset = offset in beats;
#X obj 420 459 f;
#N canvas 1076 187 1156 871 \$0-dkloopgrn-syncer 0;
#X msg 183 366 1;
#X msg 238 358 0;
#X obj 176 479 spigot 0;
#X obj 107 7 inlet;
#X obj 241 175 inlet;
#X text 304 161 transport sync;
#X obj 92 525 outlet;
#X text 306 567 goal: sync playback to transport;
#X text 300 599 idea: only let transport sync bangs in when;
#X text 306 623 the loop is done playing;
#X text 219 539 when done \, allow transport to restart process;
#X obj 237 412 f;
#X obj 107 32 t f f;
#X obj 158 223 spigot;
#X text 168 133 only allow bangs in when playing;
#X obj 293 228 timer;
#X text 441 420 figure out recording time;
#X obj 363 412 f;
#X obj 19 530 outlet;
#X obj 53 166 t b b;
#X text 21 562 rec bang;
#X text 117 560 play bang;
#X text 447 443 minus 1 to make sure it falls before transport bang
;
#X msg 363 333 1;
#X obj 361 306 moses 1;
#X msg 55 466 stop;
#X obj 58 135 sel 1 0;
#X obj 124 165 t b b;
#X msg 56 242 stop;
#X obj 192 86 == 0;
#X obj 183 307 delay 1;
#X obj 622 139 inlet;
#X text 682 128 rate;
#X obj 622 164 abs;
#X obj 174 258 t b b b b;
#X text 267 266 query time;
#X obj 365 478 - 1;
#X obj 365 453 / 1;
#X connect 0 0 11 0;
#X connect 1 0 11 0;
#X connect 2 0 13 0;
#X connect 3 0 12 0;
#X connect 4 0 2 0;
#X connect 11 0 2 1;
#X connect 12 0 26 0;
#X connect 12 1 29 0;
#X connect 13 0 34 0;
#X connect 15 0 24 0;
#X connect 17 0 37 0;
#X connect 19 0 18 0;
#X connect 19 1 15 0;
#X connect 19 1 28 0;
#X connect 23 0 17 0;
#X connect 24 0 23 0;
#X connect 24 1 17 0;
#X connect 25 0 18 0;
#X connect 26 0 19 0;
#X connect 26 1 27 0;
#X connect 27 0 13 0;
#X connect 27 1 25 0;
#X connect 27 1 15 1;
#X connect 28 0 30 0;
#X connect 29 0 13 1;
#X connect 30 0 0 0;
#X connect 31 0 33 0;
#X connect 33 0 37 1;
#X connect 34 0 6 0;
#X connect 34 1 30 0;
#X connect 34 2 1 0;
#X connect 34 3 17 0;
#X connect 36 0 30 1;
#X connect 37 0 36 0;
#X restore 363 357 pd \$0-dkloopgrn-syncer;
#N canvas 443 651 965 788 \$0-dkloopgrn-offset 0;
#X obj 131 66 t b b;
#X obj 131 91 timer;
#X obj 130 150 * 0;
#X obj 122 222 t f b;
#X obj 164 267 samplerate~;
#X obj 130 175 / 1000;
#X obj 117 304 *;
#X obj 237 31 inlet;
#X text 289 27 beat offset;
#X obj 117 447 outlet;
#X obj 132 13 inlet;
#X text 188 5 transport;
#X obj 110 336 t f b;
#X obj 171 370 v \$0-dkloopgrn-arr_n;
#X obj 110 361 /;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 3 1 4 0;
#X connect 4 0 6 1;
#X connect 5 0 3 0;
#X connect 6 0 12 0;
#X connect 7 0 2 1;
#X connect 10 0 0 0;
#X connect 12 0 14 0;
#X connect 12 1 13 0;
#X connect 13 0 14 1;
#X connect 14 0 9 0;
#X restore 729 434 pd \$0-dkloopgrn-offset;
#X text 5 423 in6: messages;
#X obj 380 583 dkxgrn~ \$1 \$2;
#X text 32 12 dkloopgrn~: granular synced looper based on dkxgrn~;
#X obj 876 105 route offset reset;
#X msg 556 479 reset;
#X text 929 166 reset = reset array size;
#X obj 436 396 t b b b;
#X obj 388 509 dkphsrd~ \$1, f 19;
#X connect 0 0 19 0;
#X connect 2 0 13 0;
#X connect 3 0 26 0;
#X connect 5 0 27 0;
#X connect 7 0 12 0;
#X connect 9 0 12 0;
#X connect 9 0 36 0;
#X connect 10 0 25 0;
#X connect 11 0 22 0;
#X connect 12 0 23 0;
#X connect 13 0 1 0;
#X connect 14 0 15 0;
#X connect 15 0 13 1;
#X connect 16 0 11 1;
#X connect 17 0 16 0;
#X connect 18 0 24 0;
#X connect 19 0 7 0;
#X connect 19 1 10 0;
#X connect 19 2 42 1;
#X connect 19 2 43 0;
#X connect 23 0 42 0;
#X connect 23 1 18 0;
#X connect 23 1 14 0;
#X connect 24 0 17 0;
#X connect 25 0 24 0;
#X connect 25 1 24 1;
#X connect 26 0 7 1;
#X connect 27 0 10 1;
#X connect 27 0 45 1;
#X connect 30 0 35 0;
#X connect 34 0 51 0;
#X connect 35 0 34 1;
#X connect 35 0 42 2;
#X connect 36 0 35 0;
#X connect 38 0 47 0;
#X connect 41 0 51 1;
#X connect 42 0 1 0;
#X connect 42 1 50 0;
#X connect 43 0 41 1;
#X connect 45 0 11 0;
#X connect 47 0 43 1;
#X connect 47 1 48 0;
#X connect 48 0 51 4;
#X connect 50 0 34 0;
#X connect 50 1 41 0;
#X connect 50 2 51 4;
#X connect 51 0 45 0;
#X coords 0 -1 1 1 150 80 1 100 100;