-
Notifications
You must be signed in to change notification settings - Fork 1
/
Korg NTS-1.pd
559 lines (559 loc) · 16.2 KB
/
Korg NTS-1.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
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
#N canvas 286 131 1004 613 12;
#X obj 0 0 cnv 15 1000 600 empty empty empty 20 12 0 14 #c4fcfc #404040
0;
#N canvas 872 213 473 430 load-patch 0;
#X obj 164 57 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 164 184 openpanel;
#X msg 164 217 read \$1;
#X obj 164 363 qlist;
#X obj 91 289 pipe 500;
#X msg 91 315 bang;
#X obj 91 265 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 0 0 cnv 30 30 30 empty empty empty 20 12 0 14 #00fc04 #404040
0;
#X obj 0 0 bng 30 250 50 0 \$0-load-patch-s \$0-load-patch-r empty
17 7 0 10 #00fc04 #000000 #000000;
#X obj 164 26 r \$0-load-patch-s;
#X obj 164 156 makefilename %s/data;
#X obj 275 299 s patch-name;
#X obj 207 258 lib/parse-file-path;
#X obj 164 126 pdcontrol;
#X msg 164 98 dir;
#X connect 0 0 14 0;
#X connect 1 0 2 0;
#X connect 1 0 12 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 4 0;
#X connect 9 0 0 0;
#X connect 10 0 1 0;
#X connect 12 2 11 0;
#X connect 13 0 10 0;
#X connect 14 0 13 0;
#X coords 0 -1 1 1 30 30 2 0 0;
#X restore 826 125 pd load-patch;
#X text 863 131 Load Patch;
#N canvas 312 241 511 422 save-patch 0;
#X obj 70 56 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 70 81 t b b b;
#X msg 116 110 clear;
#X obj 70 236 savepanel;
#X msg 70 329 write \$1;
#X obj 70 371 qlist;
#X obj 272 53 until;
#X obj 272 24 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 272 119 + 1;
#X msg 272 212 \; \$1 bang;
#X obj 270 294 pack f s;
#X obj 272 183 t s s;
#X msg 270 325 add \$2 \$1;
#X obj 0 0 cnv 30 30 30 empty empty empty 20 12 0 14 #00fc04 #404040
0;
#X obj 0 0 bng 30 250 50 0 \$0-save-patch-s \$0-save-patch-r empty
17 7 0 10 #00fc04 #000000 #000000;
#X obj 272 147 makefilename parm-%02d-r;
#X obj 270 263 r parm-nn-s;
#X obj 70 22 r \$0-save-patch-s;
#X obj 70 194 makefilename %s/data;
#X obj 164 303 s patch-name;
#X obj 272 86 lib/upto 26;
#X obj 96 273 lib/parse-file-path;
#X obj 70 161 pdcontrol;
#X msg 70 133 dir;
#X connect 0 0 1 0;
#X connect 1 0 23 0;
#X connect 1 1 7 0;
#X connect 1 2 2 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 3 0 21 0;
#X connect 4 0 5 0;
#X connect 6 0 20 0;
#X connect 7 0 6 0;
#X connect 8 0 15 0;
#X connect 10 0 12 0;
#X connect 11 0 9 0;
#X connect 11 1 10 1;
#X connect 12 0 5 0;
#X connect 15 0 11 0;
#X connect 16 0 10 0;
#X connect 17 0 0 0;
#X connect 18 0 3 0;
#X connect 20 0 8 0;
#X connect 20 1 6 1;
#X connect 21 2 19 0;
#X connect 22 0 18 0;
#X connect 23 0 22 0;
#X coords 0 -1 1 1 30 30 2 0 0;
#X restore 826 163 pd save-patch;
#X text 863 168 Save Patch;
#N canvas 247 194 302 410 reset-patch 0;
#X obj 0 0 cnv 30 30 30 empty empty empty 20 12 0 14 #00fc04 #404040
0;
#X obj 0 0 bng 30 250 50 0 \$0-reset-patch-s \$0-reset-patch-r empty
17 7 0 10 #00fc04 #000000 #000000;
#X obj 67 91 until;
#X obj 67 150 + 1;
#X obj 67 178 makefilename parm-%02d-r;
#X obj 67 48 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 67 218 t s b;
#X obj 99 245 int 0;
#X obj 67 277 pack s f;
#X msg 67 321 \; \$1 \$2;
#X obj 67 18 r \$0-reset-patch-s;
#X obj 165 119 s patch-name;
#X obj 165 90 symbol empty;
#X obj 67 117 lib/upto 26;
#X connect 2 0 13 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 5 0 12 0;
#X connect 6 0 8 0;
#X connect 6 1 7 0;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 10 0 5 0;
#X connect 12 0 11 0;
#X connect 13 0 3 0;
#X connect 13 1 2 1;
#X coords 0 -1 1 1 30 30 2 0 0;
#X restore 826 201 pd reset-patch;
#X text 863 206 Reset Patch;
#N canvas 211 386 364 257 patch-name 0;
#X obj 0 0 cnv 15 160 60 \$0-noop \$0-patch-name empty 6 36 0 14 #c4fcfc
#404040 0;
#X obj 19 91 r patch-name;
#X text 4 6 PATCH:;
#X obj 19 163 s \$0-patch-name;
#X msg 19 120 label \$1;
#X obj 122 91 loadbang;
#X msg 122 120 label empty;
#X connect 1 0 4 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X coords 0 -1 1 1 160 60 2 0 0;
#X restore 822 324 pd patch-name;
#N canvas 523 270 357 279 banner 0;
#X obj 0 0 cnv 15 300 30 \$0-noop-s \$0-banner-r Korg\ NTS-1\ Control\ Panel
6 14 0 20 #c4fcfc #404040 0;
#X obj 40 58 loadbang;
#X obj 40 91 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 40 120 symbol Korg\ NTS-1\ Control\ Panel;
#X obj 40 186 s \$0-banner-r;
#X msg 40 153 label \$1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 5 0 4 0;
#X coords 0 -1 1 1 300 30 2 0 0;
#X restore 273 18 pd banner;
#X obj 8 55 lib/mod-type \$0;
#X obj 402 59 lib/osc-type \$0;
#X obj 2 214 lib/filter-type \$0;
#X obj 400 214 lib/delay-type \$0;
#X obj 0 418 lib/eg-type \$0;
#X obj 400 415 lib/reverb-type \$0;
#N canvas 888 58 407 690 randomize 0;
#X obj 67 91 until;
#X obj 67 150 + 1;
#X obj 67 48 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 165 119 s patch-name;
#X obj 165 90 symbol empty;
#X obj 67 117 lib/upto 26;
#X obj 67 18 r \$0-randomize-s;
#X obj 10 10 cnv 15 30 30 empty empty empty 20 12 0 14 #dcdcdc #404040
0;
#X obj 10 10 bng 30 250 50 0 \$0-randomize-s \$0-randomize-r empty
17 7 0 10 #00fc04 #000000 #000000;
#X obj 67 180 select 1 4 9 14 18 23;
#N canvas 0 50 286 300 gen-random 0;
#X obj 34 18 inlet;
#X obj 133 18 inlet;
#X floatatom 34 47 5 0 0 0 - - - 0;
#X floatatom 133 47 5 0 0 0 - - - 0;
#X obj 34 92 makefilename parm-%02d-r;
#X obj 34 132 t s b;
#X obj 34 201 pack s f;
#X msg 34 235 \; \$1 \$2;
#X obj 66 163 random 128;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 8 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 1 8 0;
#X connect 6 0 7 0;
#X connect 8 0 6 1;
#X restore 273 644 pd gen-random;
#X obj 211 212 t f b;
#X obj 187 243 t b b, f 6;
#X obj 243 243 i 128;
#X obj 163 302 t b b, f 6;
#X obj 226 273 i 6;
#X obj 187 273 i 23;
#X obj 202 332 i 5;
#X obj 163 332 i 18;
#X obj 139 361 t b b, f 6;
#X obj 178 391 i 6;
#X obj 139 391 i 14;
#X obj 115 423 t b b, f 6;
#X obj 115 453 i 9;
#X obj 154 453 i 7;
#X obj 91 486 t b b, f 6;
#X obj 91 516 i 4;
#X obj 130 516 i 5;
#X obj 67 548 t b b, f 6;
#X obj 106 578 i 5;
#X obj 67 578 i 1;
#X connect 0 0 5 0;
#X connect 1 0 9 0;
#X connect 2 0 0 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 5 1 0 1;
#X connect 6 0 2 0;
#X connect 9 0 28 0;
#X connect 9 1 25 0;
#X connect 9 2 22 0;
#X connect 9 3 19 0;
#X connect 9 4 14 0;
#X connect 9 5 12 0;
#X connect 9 6 11 0;
#X connect 11 0 10 0;
#X connect 11 1 13 0;
#X connect 12 0 16 0;
#X connect 12 1 15 0;
#X connect 13 0 10 1;
#X connect 14 0 18 0;
#X connect 14 1 17 0;
#X connect 15 0 10 1;
#X connect 16 0 10 0;
#X connect 17 0 10 1;
#X connect 18 0 10 0;
#X connect 19 0 21 0;
#X connect 19 1 20 0;
#X connect 20 0 10 1;
#X connect 21 0 10 0;
#X connect 22 0 23 0;
#X connect 22 1 24 0;
#X connect 23 0 10 0;
#X connect 24 0 10 1;
#X connect 25 0 26 0;
#X connect 25 1 27 0;
#X connect 26 0 10 0;
#X connect 27 0 10 1;
#X connect 28 0 30 0;
#X connect 28 1 29 0;
#X connect 29 0 10 1;
#X connect 30 0 10 0;
#X coords 0 -1 1 1 30 30 2 10 10;
#X restore 826 239 pd randomize;
#X text 863 244 Randomize;
#X obj 819 386 lib/monitor;
#N canvas 33 39 359 145 setup 0;
#X obj 10 10 cnv 15 30 30 empty empty empty 20 12 0 14 #dcdcdc #404040
0;
#X obj 10 10 bng 30 250 50 0 \$0-open-setup-s \$0-open-setup-r empty
17 7 0 10 #00fc04 #000000 #000000;
#X obj 89 15 r \$0-open-setup-s;
#X msg 89 81 \; pd-midi vis \$1;
#N canvas 547 172 816 513 midi 0;
#X obj 0 0 cnv 15 800 500 empty empty empty 20 12 0 14 #c4fcfc #404040
0;
#X obj 585 67 ctlin;
#X floatatom 617 97 2 0 0 1 CHAN - - 0;
#X floatatom 601 122 4 0 0 1 CC - - 0;
#X floatatom 585 147 4 0 0 1 VALUE - - 0;
#X obj 10 232 lib/remap-mod-type;
#X obj 10 281 lib/remap-mod-time;
#X obj 10 330 lib/remap-mod-depth;
#X obj 104 281 lib/remap-osc-shape;
#X obj 104 330 lib/remap-osc-alt;
#X obj 103 379 lib/remap-lfo-rate;
#X obj 103 428 lib/remap-lfo-depth;
#X obj 197 281 lib/remap-cutoff;
#X obj 197 330 lib/remap-resonance;
#X obj 197 379 lib/remap-sweep-depth;
#X obj 197 428 lib/remap-sweep-rate;
#X obj 306 281 lib/remap-delay-time;
#X obj 306 330 lib/remap-delay-depth;
#X obj 306 379 lib/remap-delay-mix;
#X obj 415 281 lib/remap-attack;
#X obj 415 330 lib/remap-release;
#X obj 415 379 lib/remap-tremolo-rate;
#X obj 415 428 lib/remap-tremolo-depth;
#X obj 530 281 lib/remap-reverb-time;
#X obj 530 330 lib/remap-reverb-depth;
#X obj 530 379 lib/remap-reverb-mix;
#X obj 103 232 lib/remap-osc-type;
#X obj 196 232 lib/remap-filter-type;
#X obj 307 232 lib/remap-delay-type;
#X obj 416 232 lib/remap-eg-type;
#X obj 531 232 lib/remap-reverb-type;
#X text 19 202 Enter incoming CC values sent by your controller below:
;
#X text 288 24 Load Config;
#X text 288 65 Save Config;
#X text 288 105 Reset Config;
#X obj 250 20 lib/load-config;
#X obj 250 59 lib/save-config;
#X obj 250 98 lib/reset-config;
#X obj 647 232 lib/remap-arp-pattern;
#X obj 647 281 lib/remap-arp-length;
#X obj 647 330 lib/remap-arp-duration;
#N canvas 45 438 450 300 config-name 0;
#X msg 19 82 label \$1;
#X obj 122 53 loadbang;
#X msg 122 82 label empty;
#X obj 19 53 r config-name;
#X obj 19 125 s \$0-config-name;
#X obj 10 10 cnv 15 200 30 \$0-noop \$0-config-name empty 60 15 0 14
#c6feff #404040 0;
#X text 15 15 CONFIG:;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X coords 0 -1 1 1 200 30 2 10 10;
#X restore 177 146 pd config-name;
#X obj 25 61 nbx 3 19 0 16 0 0 \$0-channel-s \$0-channel-r empty 0
-8 0 10 #faff00 #000000 #000000 0 256;
#X text 72 56 MIDI Channel;
#X text 72 71 (Enter 0 for Omni);
#X text 577 17 Move knob/slider on MIDI;
#X text 577 36 controller to detect:;
#X obj 25 17 tgl 25 0 \$0-passthru \$0-loadbang empty 17 7 0 10 #00ff04
#000000 #000000 0 1;
#X text 56 21 <== MIDI note pass-thru;
#N canvas 580 520 755 232 route 0;
#X obj 24 38 unpack f f;
#X floatatom 91 68 3 0 16 1 CC - - 0;
#X floatatom 24 94 4 0 127 1 VAL - - 0;
#X obj 24 167 ctlout;
#X obj 204 10 notein;
#X obj 204 173 noteout;
#X floatatom 223 37 3 0 0 1 VEL - - 0;
#X floatatom 204 61 3 0 0 1 NOTE - - 0;
#X obj 243 82 tgl 15 0 empty \$0-passthru empty 17 7 0 10 #c6feff #000000
#000000 0 1;
#X obj 204 102 spigot;
#X obj 600 18 loadbang;
#X obj 600 52 s \$0-loadbang;
#X obj 24 10 r ctlout;
#X obj 24 68 int;
#X obj 144 24 nbx 2 19 0 16 0 0 empty \$0-channel-s CHAN 0 -8 0 12
#c6feff #000000 #000000 0 256;
#X obj 144 50 - 1;
#X obj 144 73 nbx 2 19 0 15 0 0 empty empty empty 0 -8 0 12 #c6feff
#000000 #000000 0 256;
#X obj 284 74 expr if(($f1==$f2)||($f2==0) \, 1 \, 0);
#X obj 204 149 spigot;
#X obj 284 100 tgl 15 0 empty empty empty 17 7 0 10 #c6feff #000000
#000000 0 1;
#X obj 526 47 nbx 2 19 0 16 0 0 empty \$0-channel-s CHAN 0 -8 0 12
#c6feff #000000 #000000 0 256;
#X obj 284 47 nbx 2 19 0 15 0 0 empty empty empty 0 -8 0 12 #c6feff
#000000 #000000 0 256;
#X obj 620 113 s \$0-channel-r;
#X obj 620 84 int 0;
#X obj 35 126 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 3 1;
#X connect 2 0 3 0;
#X connect 2 0 24 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 4 2 5 2;
#X connect 4 2 21 0;
#X connect 6 0 5 1;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 18 0;
#X connect 10 0 11 0;
#X connect 10 0 23 0;
#X connect 12 0 0 0;
#X connect 13 0 2 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 3 2;
#X connect 17 0 19 0;
#X connect 18 0 5 0;
#X connect 19 0 18 1;
#X connect 20 0 17 1;
#X connect 21 0 17 0;
#X connect 23 0 22 0;
#X restore 23 115 pd route;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 1 2 2 0;
#X restore 6 63 pd midi;
#X msg 228 81 \; pd-midi vis 0;
#X obj 228 15 loadbang;
#X obj 89 46 int 1;
#X connect 2 0 7 0;
#X connect 6 0 5 0;
#X connect 7 0 3 0;
#X coords 0 -1 1 1 30 30 2 10 10;
#X restore 826 87 pd setup;
#X text 863 96 MIDI Setup;
#N canvas 114 159 488 144 about 0;
#X obj 302 15 loadbang;
#N canvas 110 400 495 293 show-about 0;
#X obj 1 0 cnv 15 480 300 empty empty empty 20 12 0 14 #c4fcfc #404040
0;
#X text 13 46 Created by David Kettle;
#X text 15 236 Repository :;
#X text 15 161 Dependencies :;
#X text 15 178 1 Pd v0.51.3 or later;
#X text 14 83 Based on Korg NTS-1 MIDI Implementation Chart:;
#X text 14 98 https://www.korg.com/us/support/download/product/0/832/
;
#X text 105 236 https://github.com/dfkettle/NTS-1-Control-Panel;
#X text 15 193 2 iemlib v1.22 or later;
#X text 13 130 Tested with NTS-1 firmware v1.02 under Windows 7 \,
8.1 & 10;
#X text 15 14 Korg NTS-1 Control Panel v1.2;
#X restore 10 71 pd show-about;
#X obj 130 15 r \$0-show-about-s;
#X msg 302 76 \; pd-show-about vis 0;
#X msg 130 76 \; pd-show-about vis \$1;
#X obj 10 10 bng 30 250 50 0 \$0-show-about-s \$0-show-about-r empty
17 7 0 10 #00fc04 #000000 #000000;
#X obj 130 45 int 1;
#X connect 0 0 3 0;
#X connect 2 0 6 0;
#X connect 6 0 4 0;
#X coords 0 -1 1 1 30 30 2 10 10;
#X restore 826 49 pd about;
#X text 862 57 About;
#N canvas 802 173 519 603 arp 0;
#X obj 10 10 cnv 15 30 30 empty empty empty 20 12 0 14 #dcdcdc #404040
0;
#X obj 10 10 bng 30 250 50 0 \$0-show-arp-s \$0-show-arp-r empty 17
7 0 10 #00fc04 #000000 #000000;
#X obj 317 25 loadbang;
#X obj 145 55 int 1;
#X obj 317 57 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 116 60 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#N canvas 39 476 517 308 show-arp 0;
#X obj 0 0 cnv 15 500 300 empty empty empty 20 12 0 14 #c6feff #404040
0;
#X obj 29 45 vradio 20 1 0 10 arp-01-s arp-01-r ARP\\\ PATTERN 0 -12
0 16 #faff00 #000000 #000000 0;
#X obj 159 56 nbx 3 20 1 24 0 0 arp-02-s arp-02-r LENGTH 0 -10 0 16
#faff00 #000000 #000000 0 256;
#X obj 162 111 hsl 100 20 0 127 0 0 arp-03-s arp-03-r TEMPO/DURATION
-2 -12 0 16 #f8fc00 #000000 #000000 0 0;
#X text 54 44 Up;
#X text 54 64 Down;
#X text 54 84 Up/Down;
#X text 54 104 Down/Up;
#X text 54 124 Converge;
#X text 54 144 Diverge;
#X text 54 164 Conv/Div;
#X text 54 184 Div/Conv;
#X text 54 204 Random;
#X text 54 224 Stochastic;
#X text 160 150 Note: Only some of the arpeggiator parameters;
#X text 160 171 can be set by MIDI CC. In particular \, you need;
#X text 160 192 to turn arp on or off \, or set latch mode on or;
#X text 160 213 off \, by pressing the arp button.;
#X text 160 245 Arpeggiator settings are NOT saved with patch.;
#X text 247 15 WARNING: This is experimental \, as;
#X text 247 35 the MIDI implementation for the;
#X text 247 54 arpeggiator is poorly documented.;
#X coords 0 308 1 307 300 300 0;
#X restore 25 92 pd show-arp;
#X msg 317 86 \; pd-show-arp vis 0;
#X msg 145 86 \; pd-show-arp vis \$1;
#X obj 145 25 r \$0-show-arp-s;
#X obj 29 520 pack f f;
#X obj 29 441 i 0;
#X obj 82 469 bng 15 250 50 0 empty \$0-loadbang empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X floatatom 29 142 5 0 0 0 - arp-01-s - 0;
#X obj 389 269 pack f f;
#X obj 442 210 bng 15 250 50 0 empty \$0-loadbang empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 390 409 pack f f;
#X obj 443 358 bng 15 250 50 0 empty \$0-loadbang empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X floatatom 389 208 5 0 0 0 - arp-02-s - 0;
#X floatatom 390 356 5 0 0 0 - arp-03-s - 0;
#X obj 208 198 print PATTERN invalid;
#X obj 29 167 select 0 1 2 3 4 5 6 7 8 9;
#X obj 82 493 i 117;
#X obj 443 382 i 118;
#X obj 442 237 i 119;
#X obj 46 416 i 13;
#X obj 64 392 i 26;
#X obj 82 368 i 39;
#X obj 100 344 i 52;
#X obj 118 321 i 65;
#X obj 136 296 i 78;
#X obj 154 272 i 91;
#X obj 172 248 i 104;
#X obj 190 224 i 117;
#X obj 29 545 s ctlout;
#X obj 389 294 s ctlout;
#X obj 390 434 s ctlout;
#X obj 389 237 * 5.33;
#X connect 2 0 4 0;
#X connect 3 0 8 0;
#X connect 4 0 7 0;
#X connect 9 0 3 0;
#X connect 9 0 5 0;
#X connect 10 0 34 0;
#X connect 11 0 10 0;
#X connect 12 0 22 0;
#X connect 13 0 21 0;
#X connect 14 0 35 0;
#X connect 15 0 24 0;
#X connect 16 0 36 0;
#X connect 17 0 23 0;
#X connect 18 0 37 0;
#X connect 19 0 16 0;
#X connect 21 0 11 0;
#X connect 21 1 25 0;
#X connect 21 2 26 0;
#X connect 21 3 27 0;
#X connect 21 4 28 0;
#X connect 21 5 29 0;
#X connect 21 6 30 0;
#X connect 21 7 31 0;
#X connect 21 8 32 0;
#X connect 21 9 33 0;
#X connect 21 10 20 0;
#X connect 22 0 10 1;
#X connect 23 0 16 1;
#X connect 24 0 14 1;
#X connect 25 0 10 0;
#X connect 26 0 10 0;
#X connect 27 0 10 0;
#X connect 28 0 10 0;
#X connect 29 0 10 0;
#X connect 30 0 10 0;
#X connect 31 0 10 0;
#X connect 32 0 10 0;
#X connect 33 0 10 0;
#X connect 37 0 14 0;
#X coords 0 -1 1 1 30 30 2 10 10;
#X restore 826 277 pd arp;
#X text 863 282 Arpeggiator;