-
Notifications
You must be signed in to change notification settings - Fork 17
/
trigSeq64_LP_Pro_Draft.pd
402 lines (402 loc) · 11.6 KB
/
trigSeq64_LP_Pro_Draft.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
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
#N canvas -8 -8 1904 1026 10;
#X text 13 2 Be sure to select your Launchpad as the first MIDI input
and output device in PD preferences, f 49;
#X obj 618 469 notein;
#X obj 956 113 ctlin;
#X obj 956 138 swap;
#X obj 955 238 pack f f;
#X obj 952 860 spigot;
#X obj 952 750 spigot;
#X text 953 91 Control Messages (Top Buttons);
#X text 993 898 Send Step;
#X text 1147 340 Mixer btn (111);
#X obj 1086 338 expr $f1;
#X text 1084 320 user (user 2) btn (110);
#X obj 951 652 spigot;
#X obj 1024 323 expr $f1;
#X text 1022 305 fx (user 1) btn (109);
#X obj 955 549 spigot;
#X text 1006 551 comment;
#X text 996 651 comment;
#X text 1000 753 comment;
#X obj 1006 532 expr if($f1 > 0 \, 1 \, 0);
#X obj 1006 635 expr if($f1 > 0 \, 1 \, 0);
#X obj 1003 733 expr if($f1 > 0 \, 1 \, 0);
#X obj 1292 399 expr if($f1>0 \, 1 \, 0);
#X obj 1149 358 expr $f1;
#X obj 1291 376 expr $f1;
#X obj 955 423 spigot;
#X obj 1013 403 expr if($f1 > 0 \, 1 \, 0);
#X obj 962 304 expr $f1;
#X text 960 287 inst session btn (108);
#X text 955 382 PAD: Jump Step (PLAYING step) (Hold inst session 108)
, f 55;
#X text 956 488 PAD: Select PLAY Length (Hold Fx User 1 109);
#X text 953 615 PAD: Select PLAY Pattern (Hold User 2 110);
#X text 950 712 PAD: Select *EDIT* Pattern (Hold Mixer 111);
#X text 993 911 Send step if ctrl btns not pressed;
#X obj 1012 832 expr if($f1 > 0 \, 0 \, 1);
#X obj 1384 421 expr if($f1>0 \, 1 \, 0);
#X obj 1292 442 expr ($f1+$f2)==2;
#X obj 1293 467 spigot;
#X obj 618 493 stripnote;
#X obj 1291 324 prepend sendtyped /tsseq/play/state/tog i;
#X obj 1291 488 prepend sendtyped /tsseq/mode/tog i;
#X obj 952 880 prepend sendtyped /tsseq/edit/step/tog i;
#X obj 1026 162 stripnote;
#X obj 1026 199 pack f f;
#X obj 1293 254 s OSC;
#X obj 952 904 s OSC;
#X obj 955 465 s OSC;
#X obj 953 595 s OSC;
#X obj 1291 509 s OSC;
#X obj 1291 346 s OSC;
#X obj 1048 807 loadbang;
#X obj 951 686 s OSC;
#X obj 951 798 s OSC;
#X obj 1293 717 s OSC;
#X obj 618 554 s press;
#X obj 952 834 r press;
#X obj 949 730 r press;
#X obj 951 632 r press;
#X obj 955 507 r press;
#X obj 955 402 r press;
#X text 1289 542 Right Side Buttons: Select *EDIT* Channel 1-8 (Hold
Mixer button for 9-16), f 47;
#X obj 1290 574 r sidebtns;
#X obj 1381 643 s edit_ch;
#X obj 1293 700 prepend sendtyped /tsseq/edit/ch i;
#X msg 1292 232 send /tsseq/play/reset, f 27;
#X obj 955 444 prepend sendtyped /tsseq/play/step i;
#X obj 955 574 prepend sendtyped /tsseq/play/len i;
#X obj 955 529 f;
#X obj 951 669 prepend sendtyped /tsseq/play/pat i;
#X obj 952 775 prepend sendtyped /tsseq/edit/pat i;
#X obj 1292 299 s OSC;
#X msg 1291 277 send /tsseq/edit/step/rnd, f 27;
#X obj 24 60 r OSC;
#X obj 99 38 import mrpeach;
#X obj 24 80 packOSC;
#X obj 24 186 udpsend;
#X msg 51 165 disconnect;
#X obj 269 85 udpreceive 7000;
#X obj 269 102 unpackOSC;
#X obj 269 119 routeOSC /tsseq;
#X text 238 307 PLAY status;
#N canvas 7 788 373 245 (subpatch) 0;
#X array active_steps 64 float 2 black black;
#X coords 0 1 64 -1 102 34 1;
#X restore 333 17 graph;
#X obj 166 290 expr if($f1 > 0 \, 60 \, 0);
#X obj 821 63 s color_play;
#X obj 822 17 loadbang;
#X msg 955 41 15;
#X obj 954 63 s color_step;
#X obj 954 17 loadbang;
#X msg 40 142 connect 127.0.0.1 7001;
#X obj 40 101 loadbang;
#X text 47 122 Outgoing OSC Port (to trigSeq64);
#X text 266 67 Incoming OSC Port (from trigSeq64);
#X obj 28 500 noteout;
#X obj 28 357 unpack f f, f 13;
#X obj 51 377 swap;
#X obj 51 413 tabwrite active_steps;
#X obj 28 337 pack f f;
#X obj 28 297 s2l /;
#X obj 28 277 unpack s f;
#X obj 28 257 routeOSC /step;
#X text 79 458 color;
#X obj 120 457 r color_step;
#X obj 47 480 expr if($f1 == 0 \, 0 \, $f2);
#X obj 606 237 tabread active_steps;
#X obj 664 199 f;
#X obj 632 426 noteout;
#X obj 662 171 t f f b;
#X obj 659 319 noteout;
#X obj 606 165 - 1;
#X obj 677 381 r color_play;
#X obj 632 401 pack f f;
#X obj 838 258 r color_step;
#X obj 691 277 expr if($f1 == 0 \, 0 \, $f2);
#X text 480 41 LaunchPadPro - Top Row is 81-88. Bottom Row is 11-18.
Translate Step 1-64 to Pro:;
#X text 617 578 LaunchPadPro - Top Row is 81-88. Bottom Row is 11-18.
Translate to Step 1-64:;
#X text 615 607 step = 8*(8 - LPP_row) + LPP_col, f 45;
#X text 613 623 LPP_row = int(note/10) yields 8 to 1, f 40;
#X obj 618 529 expr 8*(8 - int($f1/10)) + $f1%10;
#X text 613 638 LPP_col = note % 10 yields 1 to 8, f 40;
#X text 480 69 note = 10*LPP_row + LPP_col, f 40;
#X text 480 85 LPP_row = 8 - int((step-1)/8) should yield 8 to 1,
f 50;
#X text 480 104 LPP_col = (step-1)%8 + 1 should yield 1 to 8, f 48
;
#X obj 28 435 expr 10*(8 - int(($f1-1)/8)) + ($f1-1)%8 + 1;
#X text 1305 661 LaunchPadPro - RHS buttons are 89 \, 79 \, 69... 19
;
#X text 1304 677 So 89 -> Channel 1 \, 79 -> Channel 2 \, etc;
#X obj 1291 616 expr if($f2 > 0 \, $f1 + 8 \, $f1);
#X text 998 109 Top buttons 104-111 LPP: 91-98, f 21;
#X text 1088 198 Up/down/left/right: 104 - 107 (MK1) \, 91 - 94 (LPP)
, f 38;
#X obj 1027 226 route 91 92 93 94;
#X obj 955 262 route 91 92 93 94 95 96 97 98;
#X text 473 13 LAUNCH PAD PRO -------------------------------- Edit
for Launch Pad Pro (draft), f 48;
#X text 628 511 Launchpad Pad Note -> Step 1-64;
#X obj 425 428 s sidebtns;
#X obj 434 461 uzi 8;
#X obj 433 506 cup;
#X msg 451 484 0;
#X obj 386 495 f;
#X obj 369 444 t b b;
#X obj 360 533 r edit_ch;
#X obj 369 418 spigot;
#X obj 1096 178 s cc_only;
#X obj 336 262 r cc_only;
#X obj 343 335 t f f;
#X obj 402 394 expr ($f1 % 10 == 9) && $f1 > 9;
#X obj 353 287 loadbang;
#X msg 353 311 19;
#X obj 520 627 ctlout;
#X text 420 370 Right Side Buttons;
#X text 1334 298 random;
#X text 1330 252 reset;
#X text 1333 343 Play/Pause;
#X text 1350 376 Toggle Performance Mode;
#X text 1190 89 91 Up;
#X text 1190 102 92 Down;
#X text 1190 114 93 Left;
#X text 1190 127 94 Right;
#X text 1189 140 95 Session;
#X text 1188 152 96 Note;
#X text 1187 165 97 Device;
#X text 1187 179 98 User;
#X obj 28 317 f;
#X obj 360 560 expr if($f1 > 7 \, 15 \, 13);
#X obj 344 360 f;
#X obj 1291 594 expr 9-int($f1/10);
#X text 1408 592 channel = 9-int(cc/10), f 29;
#X obj 521 597 pack f f;
#X obj 314 570 f;
#X obj 314 547 t b f;
#X obj 433 529 expr $f1 * 10 + 19;
#X msg 521 574 0;
#X obj 521 552 t b f;
#X obj 334 385 f;
#X obj 371 470 delay 10;
#X obj 412 252 routeOSC /ch;
#X obj 424 287 s edit_ch;
#X obj 413 348 expr (8 - $f1) * 10 + 19;
#X obj 413 316 expr if($f1 > 8 \, $f1 - 8 \, $f1);
#X text 688 401 PLAYHEAD COLOR;
#X text 767 258 STEP COLOR, f 11;
#X text 642 339 PLAYHEAD;
#X text 732 237 ACTIVE STEPS;
#X text 854 41 PLAYHEAD COLOR;
#X text 984 38 ACTIVE STEP COLOR;
#X obj 166 310 ctlout 94;
#X floatatom 686 424 5 0 0 0 - - -, f 5;
#X floatatom 700 204 5 0 0 0 - - -, f 5;
#X floatatom 718 319 5 0 0 0 - - -, f 5;
#X obj 632 357 expr 10*(8 - int(($f1)/8)) + ($f1)%8 + 1;
#X obj 659 298 expr 10*(8 - int(($f1)/8)) + ($f1)%8 + 1;
#X obj 659 278 f;
#X obj 606 191 t f f;
#X obj 166 270 routeOSC /state;
#X obj 269 138 routeOSC /play /edit /clock;
#X obj 174 394 - 1;
#X obj 35 617 sel 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16;
#X msg 146 665 37;
#X msg 176 665 45;
#X obj 37 596 r edit_ch;
#X obj 29 719 s color_step, f 13;
#X text 270 663 CHANNEL COLORS;
#X msg 26 665 5;
#X msg 56 665 9;
#X msg 86 665 13;
#X msg 116 665 21;
#X msg 206 665 48;
#X msg 236 665 53;
#X msg 822 41 119;
#X connect 1 0 38 0;
#X connect 1 1 38 1;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 4 0;
#X connect 3 0 42 0;
#X connect 3 1 4 1;
#X connect 3 1 42 1;
#X connect 4 0 129 0;
#X connect 5 0 41 0;
#X connect 6 0 69 0;
#X connect 10 0 20 0;
#X connect 10 0 34 0;
#X connect 10 0 35 0;
#X connect 12 0 68 0;
#X connect 13 0 19 0;
#X connect 13 0 34 0;
#X connect 15 0 66 0;
#X connect 19 0 15 1;
#X connect 20 0 12 1;
#X connect 21 0 6 1;
#X connect 22 0 36 0;
#X connect 23 0 21 0;
#X connect 23 0 34 0;
#X connect 23 0 125 1;
#X connect 24 0 22 0;
#X connect 25 0 65 0;
#X connect 26 0 25 1;
#X connect 27 0 26 0;
#X connect 27 0 34 0;
#X connect 34 0 5 1;
#X connect 35 0 36 1;
#X connect 36 0 37 1;
#X connect 36 0 37 0;
#X connect 37 0 40 0;
#X connect 38 0 117 0;
#X connect 39 0 49 0;
#X connect 40 0 48 0;
#X connect 41 0 45 0;
#X connect 42 0 43 0;
#X connect 42 0 140 0;
#X connect 42 1 43 1;
#X connect 43 0 128 0;
#X connect 50 0 34 0;
#X connect 55 0 5 0;
#X connect 56 0 6 0;
#X connect 57 0 12 0;
#X connect 58 0 67 0;
#X connect 59 0 25 0;
#X connect 61 0 163 0;
#X connect 63 0 53 0;
#X connect 64 0 44 0;
#X connect 65 0 46 0;
#X connect 66 0 47 0;
#X connect 67 0 15 0;
#X connect 68 0 51 0;
#X connect 69 0 52 0;
#X connect 71 0 70 0;
#X connect 72 0 74 0;
#X connect 74 0 75 0;
#X connect 76 0 75 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 79 0 192 0;
#X connect 82 0 183 0;
#X connect 84 0 206 0;
#X connect 85 0 86 0;
#X connect 87 0 85 0;
#X connect 88 0 75 0;
#X connect 89 0 88 0;
#X connect 93 0 94 0;
#X connect 93 0 122 0;
#X connect 93 1 94 1;
#X connect 93 1 102 0;
#X connect 94 0 95 0;
#X connect 94 1 193 0;
#X connect 96 0 93 0;
#X connect 97 0 160 0;
#X connect 98 0 97 0;
#X connect 98 1 96 1;
#X connect 99 0 98 0;
#X connect 101 0 102 1;
#X connect 102 0 92 1;
#X connect 103 0 112 0;
#X connect 104 0 185 0;
#X connect 104 0 189 0;
#X connect 106 1 104 1;
#X connect 106 2 104 0;
#X connect 108 0 106 0;
#X connect 108 0 190 0;
#X connect 109 0 110 1;
#X connect 110 0 105 0;
#X connect 110 0 184 0;
#X connect 111 0 112 1;
#X connect 112 0 107 1;
#X connect 117 0 54 0;
#X connect 122 0 92 0;
#X connect 125 0 63 0;
#X connect 125 0 62 0;
#X connect 128 0 71 0;
#X connect 128 2 64 0;
#X connect 128 3 39 0;
#X connect 129 3 24 0;
#X connect 129 4 27 0;
#X connect 129 5 13 0;
#X connect 129 6 10 0;
#X connect 129 7 23 0;
#X connect 133 0 134 0;
#X connect 133 1 135 0;
#X connect 134 0 168 0;
#X connect 135 0 134 0;
#X connect 136 0 167 0;
#X connect 137 0 172 0;
#X connect 137 1 133 0;
#X connect 138 0 161 0;
#X connect 139 0 137 0;
#X connect 139 0 132 0;
#X connect 141 0 142 0;
#X connect 141 0 171 0;
#X connect 142 0 162 0;
#X connect 142 1 143 0;
#X connect 143 0 139 1;
#X connect 144 0 145 0;
#X connect 145 0 142 0;
#X connect 160 0 96 0;
#X connect 161 0 166 1;
#X connect 162 0 139 0;
#X connect 163 0 125 0;
#X connect 165 0 146 0;
#X connect 166 0 146 0;
#X connect 167 0 166 0;
#X connect 167 1 146 1;
#X connect 168 0 170 0;
#X connect 169 0 165 0;
#X connect 170 0 169 0;
#X connect 170 1 165 1;
#X connect 171 0 136 1;
#X connect 172 0 136 0;
#X connect 173 0 174 0;
#X connect 173 0 176 0;
#X connect 175 0 136 1;
#X connect 175 0 137 0;
#X connect 176 0 175 0;
#X connect 187 0 110 0;
#X connect 188 0 107 0;
#X connect 188 0 186 0;
#X connect 189 0 188 0;
#X connect 190 0 103 0;
#X connect 190 1 187 0;
#X connect 191 0 82 0;
#X connect 192 0 191 0;
#X connect 192 1 173 0;
#X connect 192 1 99 0;
#X connect 192 2 108 0;
#X connect 193 0 95 1;
#X connect 194 0 200 0;
#X connect 194 1 201 0;
#X connect 194 2 202 0;
#X connect 194 3 203 0;
#X connect 194 4 195 0;
#X connect 194 5 196 0;
#X connect 194 6 204 0;
#X connect 194 7 205 0;
#X connect 194 8 200 0;
#X connect 194 9 201 0;
#X connect 194 10 202 0;
#X connect 194 11 203 0;
#X connect 194 12 195 0;
#X connect 194 13 196 0;
#X connect 194 14 204 0;
#X connect 194 15 205 0;
#X connect 195 0 198 0;
#X connect 196 0 198 0;
#X connect 197 0 194 0;
#X connect 200 0 198 0;
#X connect 201 0 198 0;
#X connect 202 0 198 0;
#X connect 203 0 198 0;
#X connect 204 0 198 0;
#X connect 205 0 198 0;
#X connect 206 0 83 0;