-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathjblr.monome.row.pd
More file actions
346 lines (346 loc) · 8.46 KB
/
Copy pathjblr.monome.row.pd
File metadata and controls
346 lines (346 loc) · 8.46 KB
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
#N canvas 0 55 1366 682 10;
#X msg 744 20 \$2 \$1 \$3;
#X floatatom 177 375 5 0 0 0 - - -;
#N canvas 0 55 1366 682 looppoints 0;
#X obj 739 235 unpack;
#X obj 772 268 * 2;
#X obj 772 295 - 1;
#X obj 772 323 t b f;
#X obj 772 351 accum;
#X msg 856 841 min \$1;
#X msg 917 843 max \$1;
#X obj 635 91 inlet;
#X obj 491 930 outlet;
#X text 351 729 set play position;
#X msg 492 727 goto \$1;
#X obj 635 122 t a a;
#X text 283 693 send new start when single key is released;
#X obj 602 220 zl rev;
#X obj 602 254 route 1;
#X obj 773 397 sel 0;
#X text 818 350 accumulate current held keys (1 = press \, -1 = release)
;
#X obj 633 517 zl len;
#X obj 633 564 + 1;
#X obj 806 666 unpack 0 0;
#X obj 643 798 sel 0 1;
#X obj 606 493 t l l;
#X obj 633 540 != 1;
#X obj 805 696 >;
#X obj 768 638 t l l;
#X obj 808 728 + 1;
#X obj 857 802 unpack 0 0;
#X msg 603 855 dir 1;
#X msg 652 854 dir -1;
#X obj 1013 681 loadbang;
#X msg 1014 707 0;
#X obj 605 456 zl group 7;
#X text 690 462 changed from 15;
#X msg 1045 707 7;
#X text 1090 705 changed from 15;
#X obj 849 399 print ACCUM;
#X obj 823 473 cyclone/gate;
#X obj 633 597 cyclone/gate 2;
#X obj 855 768 cyclone/gate 2;
#X connect 0 1 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 15 0;
#X connect 4 0 35 0;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 11 0;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 11 1 0 0;
#X connect 13 0 14 0;
#X connect 14 0 31 0;
#X connect 15 0 31 0;
#X connect 17 0 22 0;
#X connect 18 0 37 0;
#X connect 19 0 23 0;
#X connect 19 1 23 1;
#X connect 20 0 27 0;
#X connect 20 1 28 0;
#X connect 21 0 37 1;
#X connect 21 1 17 0;
#X connect 22 0 18 0;
#X connect 23 0 20 0;
#X connect 23 0 25 0;
#X connect 24 0 38 1;
#X connect 24 1 19 0;
#X connect 25 0 38 0;
#X connect 26 0 5 0;
#X connect 26 1 6 0;
#X connect 27 0 8 0;
#X connect 28 0 8 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 30 0 5 0;
#X connect 31 0 21 0;
#X connect 31 0 24 0;
#X connect 33 0 6 0;
#X connect 37 0 10 0;
#X connect 38 0 26 0;
#X restore 744 150 pd looppoints;
#X floatatom 744 310 5 0 0 0 - - -;
#X floatatom 777 310 5 0 0 0 - - -;
#X obj 777 337 + 1;
#X floatatom 744 430 5 0 0 0 - - -;
#X floatatom 777 430 5 0 0 0 - - -;
#X obj 744 240 route min max goto dir;
#X floatatom 808 310 5 0 0 0 - - -;
#X floatatom 808 430 5 0 0 0 - - -;
#X obj 177 257 snapshot~;
#X obj 177 316 int;
#X obj 177 412 change;
#X text 811 18 y \, x \, state;
#X floatatom 840 311 5 0 0 0 - - -;
#X text 762 -23 x \, y \, state;
#X obj 744 -47 route /monome/grid/key;
#X obj 763 207 r pattern_record_\$1;
#X obj 744 -75 r monome.to.jblr;
#X obj 177 560 s jblr.to.monome;
#X obj 97 203 loadbang;
#X text 148 53 playhead position (sig \, 0-1);
#X text 17 231 refresh rate;
#X text 189 126 playhead sync to \, 1st argument to object;
#X text 808 78 which monome row \, 2nd argument to object;
#X msg 744 518 low \$1;
#X msg 777 544 high \$1;
#X msg 808 576 goto \$1;
#X msg 842 605 dir \$1;
#X text 869 641 send subloop points \, direction \, and 'goto' messages
to asscociated [jblr.play] object.;
#X text 125 66 -- from associated [jblr.play] object --;
#X obj 238 350 loadbang;
#N canvas 0 55 1366 682 monome-leds 1;
#X obj 473 38 inlet;
#X obj 473 531 outlet;
#N canvas 179 55 1184 679 (subpatch) 0;
#X obj 528 240 >;
#X obj 499 240 <;
#X obj 500 268 ||;
#X obj 427 44 inlet;
#X obj 438 489 outlet;
#X obj 426 129 route min max;
#X obj 430 320 sel 0 1;
#X obj 453 364 0;
#X obj 437 429 f;
#X obj 548 173 t b f f f;
#X obj 747 255 ==;
#X obj 740 55 inlet;
#X obj 741 327 sel 1;
#X obj 419 365 5;
#X text 777 360 changed from 15;
#X text 356 361 why 5?;
#X obj 740 362 15;
#X text 559 364 these are brightness stuff;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 5 0 1 1;
#X connect 5 1 0 1;
#X connect 5 2 9 0;
#X connect 6 0 13 0;
#X connect 6 1 7 0;
#X connect 7 0 8 1;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 9 1 10 0;
#X connect 9 2 1 0;
#X connect 9 3 0 0;
#X connect 10 0 12 0;
#X connect 11 0 10 1;
#X connect 12 0 16 0;
#X connect 13 0 8 1;
#X connect 16 0 8 1;
#X restore 787 259 pd;
#X obj 787 197 iter;
#X obj 769 307 zl group 100;
#X obj 474 358 zl join;
#X obj 473 96 t b f;
#X obj 768 141 t b b f;
#X obj 835 13 inlet;
#X obj 917 11 inlet;
#X msg 861 91 min \$1;
#X msg 917 92 max \$1;
#X obj 630 391 loadbang;
#X obj 630 420 del 100;
#X obj 474 448 zl reg;
#N canvas 342 55 1021 679 record-blink 0;
#X obj 52 338 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 52 373 metro 400;
#X obj 52 397 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 52 419 sel 0 1;
#X obj 383 315 0;
#X obj 71 448 outlet;
#X obj 53 718 outlet;
#X msg 419 316 set 1;
#X obj 383 289 t b;
#X obj 52 307 t b;
#X obj 53 24 inlet;
#X text 45 1 record start;
#X obj 52 244 rec;
#X obj 53 52 t a b;
#X obj 53 105 zl join;
#X obj 53 133 l2s _;
#X msg 92 81 recordstart;
#X text 361 -2 record start;
#X obj 377 53 t a b;
#X obj 377 106 zl join;
#X obj 377 134 l2s _;
#X text 82 243 dynamically receive recordstart bangs;
#X obj 383 245 rec;
#X msg 416 82 recordstop;
#X text 413 244 dynamically receive recordstop bangs;
#X obj 802 181 inlet;
#X msg 182 594 /monome/grid/led/level/row \$1 \$1 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0;
#X obj 52 662 zl reg;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 27 0;
#X connect 3 1 5 0;
#X connect 4 0 0 0;
#X connect 7 0 2 0;
#X connect 8 0 4 0;
#X connect 8 0 5 0;
#X connect 8 0 7 0;
#X connect 9 0 0 0;
#X connect 10 0 13 0;
#X connect 10 0 18 0;
#X connect 12 0 9 0;
#X connect 13 0 14 0;
#X connect 13 1 16 0;
#X connect 14 0 15 0;
#X connect 15 0 12 0;
#X connect 16 0 14 1;
#X connect 18 0 19 0;
#X connect 18 1 23 0;
#X connect 19 0 20 0;
#X connect 20 0 22 0;
#X connect 22 0 8 0;
#X connect 23 0 19 1;
#X connect 25 0 26 0;
#X connect 26 0 27 1;
#X connect 27 0 6 0;
#X restore 372 417 pd record-blink;
#X obj 473 68 float;
#X obj 835 37 t b f;
#X obj 918 32 t b f;
#X msg 478 220 /monome/grid/led/level/row 0;
#X obj 476 318 zl join;
#X obj 1230 191 inlet;
#X text 1280 189 monome row to control;
#X obj 1490 192 inlet;
#X text 1425 160 which buffer is playhead playing back?;
#X msg 182 594 /monome/grid/led/level/row 0 0 4 4 4 4 4 4 4 4;
#X text 827 255 brighness here;
#X msg 787 168 0 1 2 3 4 5 6 7;
#X msg 630 452 0 0 0 0 0 0 0 0;
#X connect 0 0 16 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 5 1;
#X connect 5 0 14 0;
#X connect 6 0 19 0;
#X connect 6 1 7 0;
#X connect 7 0 4 0;
#X connect 7 1 27 0;
#X connect 7 2 2 1;
#X connect 8 0 17 0;
#X connect 9 0 18 0;
#X connect 10 0 2 0;
#X connect 11 0 2 0;
#X connect 12 0 13 0;
#X connect 13 0 28 0;
#X connect 14 0 1 0;
#X connect 15 0 1 0;
#X connect 15 1 14 0;
#X connect 16 0 6 0;
#X connect 17 0 16 0;
#X connect 17 1 10 0;
#X connect 18 0 16 0;
#X connect 18 1 11 0;
#X connect 19 0 20 0;
#X connect 20 0 5 0;
#X connect 21 0 20 1;
#X connect 21 0 15 1;
#X connect 23 0 15 0;
#X connect 25 0 1 0;
#X connect 27 0 3 0;
#X connect 28 0 1 0;
#X restore 177 530 pd monome-leds;
#X text 303 376 which row?;
#X obj 238 376 zl reg \$1;
#X obj 744 79 route \$1;
#X obj 922 389 p \$1_loopdir -1 1 1;
#X obj 745 653 s to.jblr.play.\$2;
#X obj 178 99 catch~ \$2_playhead;
#X obj 259 404 r \$2_dyn_buffer;
#X text 361 404 which buffer [jblr.record] is playhead reading?;
#X obj 271 430 loadbang;
#X obj 271 456 zl reg \$2;
#X obj 97 230 metro 1;
#X obj 808 380 / 8;
#X obj 777 380 / 8;
#X obj 744 380 / 8;
#X text 811 401 changed from 16;
#X obj 922 343 p \$1_loopmin 0 7;
#X obj 923 367 p \$1_loopmax 0 7;
#X obj 177 287 * 8;
#X obj 122 557 print;
#X connect 0 0 36 0;
#X connect 1 0 13 0;
#X connect 2 0 8 0;
#X connect 3 0 33 1;
#X connect 3 0 47 0;
#X connect 3 0 49 0;
#X connect 4 0 5 0;
#X connect 4 0 33 2;
#X connect 4 0 50 0;
#X connect 5 0 46 0;
#X connect 6 0 26 0;
#X connect 7 0 27 0;
#X connect 8 0 3 0;
#X connect 8 1 4 0;
#X connect 8 2 9 0;
#X connect 8 3 15 0;
#X connect 9 0 45 0;
#X connect 10 0 28 0;
#X connect 11 0 51 0;
#X connect 12 0 1 0;
#X connect 13 0 33 0;
#X connect 15 0 29 0;
#X connect 15 0 37 0;
#X connect 17 0 0 0;
#X connect 18 0 8 0;
#X connect 19 0 17 0;
#X connect 21 0 44 0;
#X connect 26 0 38 0;
#X connect 27 0 38 0;
#X connect 28 0 38 0;
#X connect 29 0 38 0;
#X connect 32 0 35 0;
#X connect 33 0 20 0;
#X connect 35 0 33 3;
#X connect 36 0 2 0;
#X connect 37 0 15 0;
#X connect 39 0 11 0;
#X connect 40 0 33 4;
#X connect 42 0 43 0;
#X connect 43 0 33 4;
#X connect 44 0 11 0;
#X connect 45 0 10 0;
#X connect 46 0 7 0;
#X connect 47 0 6 0;
#X connect 49 0 3 0;
#X connect 50 0 4 0;
#X connect 51 0 12 0;