From ac0b773e0ff9c40f2ed04926c9479689c490c13c Mon Sep 17 00:00:00 2001 From: Frank Barknecht Date: Mon, 7 Jun 2004 12:23:58 +0000 Subject: * added rrad.nseq and related patches. svn path=/trunk/abstractions/rradical/; revision=1808 --- control/_nslider-commun.pd | 43 +++++ control/kbd2midi.pd | 98 ++++++++++ control/qwerty2midi.xml | 33 ++++ control/qwertz2midi.xml | 34 ++++ control/rrad.nseq-help.pd | 150 +++++++++++++++ control/rrad.nseq.pd | 463 +++++++++++++++++++++++++++------------------ 6 files changed, 635 insertions(+), 186 deletions(-) create mode 100644 control/_nslider-commun.pd create mode 100644 control/kbd2midi.pd create mode 100644 control/qwerty2midi.xml create mode 100644 control/qwertz2midi.xml create mode 100644 control/rrad.nseq-help.pd diff --git a/control/_nslider-commun.pd b/control/_nslider-commun.pd new file mode 100644 index 0000000..fd1e461 --- /dev/null +++ b/control/_nslider-commun.pd @@ -0,0 +1,43 @@ +#N canvas 563 234 607 600 10; +#X obj 425 146 symbol \$1; +#X obj 425 213 t f; +#X obj 425 192 unpack 0; +#X obj 425 119 loadbang; +#X obj 409 417 r \$0-current; +#X obj 358 243 f 1; +#X obj 342 264 +; +#X obj 393 444 f; +#X obj 307 187 r \$2-shifter; +#X msg 328 497 \; \$2 \$3; +#X obj 328 474 pack s s 0; +#X obj 303 429 symbol \$1; +#X obj 307 219 t b f b; +#X obj 393 387 r \$2-prepare-shift; +#X obj 43 44 inlet; +#X obj 51 175 outlet; +#X obj 48 120 commun \$1 \$2; +#X obj 103 60 s \$0-current; +#X obj 425 170 symbol2list /n; +#X obj 342 349 makefilename \$2-n%d; +#X obj 342 307 mod 16; +#X connect 0 0 18 0; +#X connect 1 0 5 1; +#X connect 2 0 1 0; +#X connect 3 0 0 0; +#X connect 4 0 7 1; +#X connect 5 0 6 1; +#X connect 6 0 20 0; +#X connect 7 0 10 2; +#X connect 8 0 12 0; +#X connect 10 0 9 0; +#X connect 11 0 10 0; +#X connect 12 0 11 0; +#X connect 12 1 6 0; +#X connect 12 2 5 0; +#X connect 13 0 7 0; +#X connect 14 0 16 0; +#X connect 14 0 17 0; +#X connect 16 0 15 0; +#X connect 18 0 2 0; +#X connect 19 0 10 1; +#X connect 20 0 19 0; diff --git a/control/kbd2midi.pd b/control/kbd2midi.pd new file mode 100644 index 0000000..f26038d --- /dev/null +++ b/control/kbd2midi.pd @@ -0,0 +1,98 @@ +#N canvas 413 429 88 48 10; +#N canvas 405 324 705 488 guts 0; +#X obj 97 26 keyname; +#X obj 103 102 symbol; +#X obj 103 77 select 1; +#X obj 181 153 pool; +#X msg 121 129 get \$1; +#X obj 181 261 outlet; +#X obj 181 82 loadbang; +#X obj 218 175 r \$0-onoff; +#X obj 94 51 spigot; +#X obj 164 28 r \$0-onoff; +#X obj 181 220 route float; +#X obj 181 198 spigot; +#X msg 325 116 set \$1 \$2; +#X obj 326 81 pack s 0; +#X floatatom 377 58 5 0 0 0 - - -; +#X obj 319 38 symbol; +#X symbolatom 338 16 10 0 0 0 - - -; +#X msg 292 2 bang; +#X obj 243 52 spigot; +#X obj 263 25 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X obj 84 162 r \$0-op; +#X obj 84 184 openpanel; +#X msg 84 209 loadx \$1; +#X msg 224 154 savex qwertz2midi.xml; +#X obj 9 38 s \$0-onoff; +#X obj 7 14 inlet; +#X obj 267 218 r \$0-oct; +#X obj 181 240 + 0; +#X obj 246 244 * 12; +#X msg 181 128 loadx qwertz2midi.xml; +#X obj 26 239 select Prior Next; +#X obj 27 350 int 0; +#X obj 71 312 + 1; +#X obj 134 359 int 0; +#X obj 151 306 - 1; +#X obj 28 373 moses 5; +#X obj 134 381 moses -5; +#X obj 89 437 s \$0-oct; +#X connect 0 0 8 0; +#X connect 0 1 1 1; +#X connect 0 1 18 0; +#X connect 1 0 4 0; +#X connect 1 0 30 0; +#X connect 2 0 1 0; +#X connect 3 0 11 0; +#X connect 4 0 3 0; +#X connect 6 0 29 0; +#X connect 7 0 11 1; +#X connect 8 0 2 0; +#X connect 9 0 8 1; +#X connect 10 0 27 0; +#X connect 11 0 10 0; +#X connect 12 0 3 0; +#X connect 13 0 12 0; +#X connect 14 0 13 1; +#X connect 15 0 13 0; +#X connect 16 0 15 1; +#X connect 17 0 15 0; +#X connect 18 0 16 0; +#X connect 19 0 18 1; +#X connect 20 0 21 0; +#X connect 21 0 22 0; +#X connect 22 0 3 0; +#X connect 23 0 3 0; +#X connect 25 0 24 0; +#X connect 26 0 28 0; +#X connect 27 0 5 0; +#X connect 28 0 27 1; +#X connect 29 0 3 0; +#X connect 30 0 31 0; +#X connect 30 1 33 0; +#X connect 31 0 35 0; +#X connect 32 0 31 1; +#X connect 33 0 36 0; +#X connect 34 0 33 1; +#X connect 35 0 32 0; +#X connect 35 0 34 0; +#X connect 35 0 37 0; +#X connect 36 1 32 0; +#X connect 36 1 34 0; +#X connect 36 1 37 0; +#X restore 88 0 pd guts; +#X obj 88 26 outlet; +#X obj 2 14 cnv 15 80 30 empty empty empty 20 12 0 14 -233017 -66577 +0; +#X obj 8 23 tgl 15 0 \$0-onoff \$0-onoff on 3 -3 0 8 -262144 -1 -1 +1 1; +#X obj 29 23 bng 15 250 50 0 \$0-op \$0-op op 3 -3 0 8 -262144 -1 -1 +; +#X obj 146 -1 inlet; +#X obj 50 24 nbx 2 14 -5 5 0 0 \$0-oct \$0-oct oct 3 -3 0 8 -262144 +-1 -1 0 256; +#X connect 0 0 1 0; +#X connect 5 0 0 0; +#X coords 0 0 1 1 82 45 1; diff --git a/control/qwerty2midi.xml b/control/qwerty2midi.xml new file mode 100644 index 0000000..9b37651 --- /dev/null +++ b/control/qwerty2midi.xml @@ -0,0 +1,33 @@ + + + +578 +074 +782 +680 +d63 +273 +375 +u83 +n69 +l73 +,72 +t79 +w74 +g66 +v65 +h68 +i84 +j70 +q72 +s61 +a1 +b67 +x62 +z60 +r77 +y81 +e76 +c64 +m71 + diff --git a/control/qwertz2midi.xml b/control/qwertz2midi.xml new file mode 100644 index 0000000..9e34dfd --- /dev/null +++ b/control/qwertz2midi.xml @@ -0,0 +1,34 @@ + + + +578 +074 +782 +680 +d63 +273 +375 +u83 +n69 +l73 +,72 +t79 +w74 +g66 +v65 +h68 +i84 +j70 +72u , 83 +q72 +s61 +a1 +b67 +x62 +z81 +r77 +y60 +e76 +c64 +m71 + diff --git a/control/rrad.nseq-help.pd b/control/rrad.nseq-help.pd new file mode 100644 index 0000000..5011a52 --- /dev/null +++ b/control/rrad.nseq-help.pd @@ -0,0 +1,150 @@ +#N canvas 252 197 903 653 10; +#X obj 190 155 rrad.nseq /id; +#X floatatom 190 519 5 0 0 0 - - -; +#X obj 190 61 metro 250; +#X obj 190 83 int 0; +#X obj 234 84 + 1; +#X floatatom 147 154 5 0 0 0 - - -; +#X obj 190 39 tgl 15 0 empty \$0-start empty 0 -6 0 8 -24198 -1 -1 +1 1; +#X obj 190 129 mod 16; +#X text 468 49 rrad.nseq: 16-step number box sequencer; +#X text 422 133 nseq supports alphanumerical keyboard control. Clicking +the toggle labeled "edit" will switch on receiving of keyboard events. +With the "TAB" key you can navigate focus to the next row \, which +will be highlighted. To input a note just use your alnum keyboard in +a piano mode. Default is a quertz-keyboard \, you can change this by +loading the qwerty2midi.xml file into the kbd2midi abstraction. The +letter "y" on qwertz rsp. z on qwerty keyboards will input a note value +of 60 (== note C) into the currently highlighted row. PageUp and PageDown +(Prior and Next) will change octave from -5 to 5 To leave keyboard +input mode press Esc or deactivate the "edit" toggle.; +#X obj 424 311 bng 15 250 50 0 \$0-copy empty copy 0 -6 0 8 -225271 +-1 -1; +#X obj 485 311 bng 15 250 50 0 \$0-paste empty paste 0 -6 0 8 -257472 +-1 -1; +#X obj 424 347 bng 15 250 50 0 \$0-reset empty reset 0 -6 0 8 -258699 +-1 -1; +#X text 451 309 and; +#X text 514 310 will copy or paste the current pattern.; +#X text 457 347 sets every number to zero. Press this first if you +get "argument out of range" errors in the console.; +#X obj 425 413 nbx 2 14 0 1000 0 0 \$0-substate \$0-substate pre 0 +-6 0 8 -261689 -1 -1 0 256; +#X text 463 412 switches between patterns.; +#X obj 393 148 tgl 15 0 \$0-tab-enabled \$0-tab-enabled edit 0 -6 0 +8 -262144 -1 -1 0 1; +#X text 428 441 inlets:; +#X text 440 457 1 inlet accepts ints ranging from 0-15. They specify +the step to play; +#X text 439 493 The rightmost inlet is OSC inlet. See the main RRADical +documentation for details.; +#X text 427 526 outlets:; +#X text 440 545 1 outlet will output the value of the currently active +step or the keyboard input.; +#X text 74 436 rrad.shuffler; +#X text 74 452 rrad.metro; +#X text 55 419 Related:; +#N canvas 598 329 231 193 ed 0; +#X floatatom 84 42 5 100 1000 0 - - -; +#X floatatom 146 63 4 10 500 0 height - -; +#X obj 68 87 pack 0 0; +#X text 129 42 width; +#X obj 69 134 s \$0-title; +#X msg 68 112 vis_size \$1 \$2; +#X obj 142 82 t b f; +#X connect 0 0 2 0; +#X connect 1 0 6 0; +#X connect 2 0 5 0; +#X connect 5 0 4 0; +#X connect 6 0 2 0; +#X connect 6 1 2 1; +#X restore 853 1 pd ed; +#X obj 1 -8 cnv 15 900 30 empty \$0-title rrad.nseq 20 12 0 20 -257472 +-262144 0; +#X obj 156 570 ezdac~; +#N canvas 0 0 450 300 testtone 0; +#X obj 115 25 inlet; +#X obj 89 264 outlet~; +#X obj 171 110 mtof; +#X obj 115 48 select 0; +#X obj 166 80 t b f; +#X obj 90 240 *~; +#X obj 53 156 vline~; +#X obj 53 184 *~; +#X obj 55 207 *~; +#X msg 52 134 1 10 \, 0 150 80; +#X obj 171 158 osc~ 0; +#X connect 0 0 3 0; +#X connect 2 0 10 0; +#X connect 3 1 4 0; +#X connect 4 0 9 0; +#X connect 4 1 2 0; +#X connect 5 0 1 0; +#X connect 6 0 7 0; +#X connect 6 0 7 1; +#X connect 7 0 8 0; +#X connect 7 0 8 1; +#X connect 8 0 5 0; +#X connect 9 0 6 0; +#X connect 10 0 5 1; +#X restore 190 540 pd testtone; +#X text 423 78 rrad.nseq (called nseq for now) is a sequencer for numberboxes +carrying values from 0 to 127 . Arranged from top to bottom nseq is +similar to old-fashioned tracker interfaces.; +#X msg 291 64 /id/preset \$1; +#X obj 291 39 tgl 15 0 empty empty switch_presets 20 10 0 8 -24198 +-1 -1 0 1; +#N canvas 340 97 594 666 init 0; +#X obj 66 303 bng 15 250 50 0 empty empty click_first 20 10 0 8 -24198 +-1 -1; +#X obj 130 467 s \$0-start; +#X msg 130 441 1; +#X obj 272 40 r setmess; +#X obj 270 86 prepend add; +#X obj 275 64 prepend nseq; +#X msg 387 76 \; nseq /id/preset 0 \; nseq /id/n0 83 \; nseq /id/n14 +0 \; nseq /id/n15 55 \; nseq /id/n10 93 \; nseq /id/n11 40 \; nseq +/id/n12 76 \; nseq /id/n13 0 \; nseq /id/n6 41 \; nseq /id/n7 88 \; +nseq /id/n8 91 \; nseq /id/n9 89 \; nseq /id/n2 76 \; nseq /id/n1 74 +\; nseq /id/n5 79 \; nseq /id/n4 79 \; nseq /id/n3 43 \; nseq /id/preset +1 \; nseq /id/n0 83 \; nseq /id/n14 0 \; nseq /id/n15 55 \; nseq /id/n10 +93 \; nseq /id/n11 40 \; nseq /id/n12 96 \; nseq /id/n13 0 \; nseq +/id/n6 41 \; nseq /id/n7 88 \; nseq /id/n8 45 \; nseq /id/n9 100 \; +nseq /id/n2 95 \; nseq /id/n1 37 \; nseq /id/n5 41 \; nseq /id/n4 91 +\; nseq /id/n3 93 \;; +#X connect 0 0 6 0; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X connect 3 0 5 0; +#X connect 5 0 4 0; +#X coords 0 0 1 1 100 40 1; +#X restore 22 43 pd init; +#X obj 316 105 r nseq; +#X obj 439 379 bng 15 250 50 0 \$0-forward empty v 3 7 1 12 -262131 +-225271 -1; +#X obj 420 379 bng 15 250 50 0 \$0-backward empty ^ 3 9 1 12 -262131 +-225271 -1; +#X text 465 380 shift pattern up or down.; +#X obj 241 109 mod 32; +#X obj 241 129 sel 31; +#X text 439 584 The rightmost outlet is OSC outlet. See the main RRADical +documentation for details.; +#X connect 0 0 1 0; +#X connect 1 0 30 0; +#X connect 2 0 3 0; +#X connect 3 0 7 0; +#X connect 3 0 39 0; +#X connect 3 0 4 0; +#X connect 4 0 3 1; +#X connect 6 0 2 0; +#X connect 6 0 3 1; +#X connect 7 0 5 0; +#X connect 7 0 0 0; +#X connect 30 0 29 0; +#X connect 30 0 29 1; +#X connect 32 0 0 1; +#X connect 33 0 32 0; +#X connect 35 0 0 1; +#X connect 39 0 40 0; +#X connect 40 0 33 0; diff --git a/control/rrad.nseq.pd b/control/rrad.nseq.pd index 30cfe49..3e4febd 100644 --- a/control/rrad.nseq.pd +++ b/control/rrad.nseq.pd @@ -1,14 +1,14 @@ -#N canvas 237 255 108 385 10; -#X obj 2 19 cnv 15 100 360 empty \$0-background-cnv empty 20 12 1 14 +#N canvas 237 255 105 363 10; +#X obj 3 19 cnv 7 100 340 empty \$0-background-cnv empty 20 12 1 14 -233017 -66577 0; #X obj 254 1 inlet; -#X obj 433 1 inlet OSC; +#X obj 428 3 inlet OSC; #N canvas 183 51 981 424 saves 0; #X obj 45 160 originator \$1 \$0; #X obj 152 132 inlet OSC; -#X obj 47 55 r \$0-substate; -#X obj 15 13 inlet substate; -#X obj 15 35 route substate; +#X obj 45 59 r \$0-substate; +#X obj 18 15 inlet substate; +#X obj 18 37 route substate; #X obj 159 55 r \$0-copy; #X msg 159 76 copy; #X obj 243 50 r \$0-paste; @@ -16,123 +16,125 @@ #X text 154 15 This is the originator \, including some ready to use standard functionality.; #X text 507 56 Put your commun sends here \, if you like.; -#X msg 15 91 setsub \$1; -#X msg 249 184 svdir \$1; -#X obj 250 139 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +#X msg 8 333 svdir \$1; +#X obj 9 288 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; -#X obj 250 163 savepanel; +#X obj 9 312 savepanel; #X obj 152 189 outlet OSC; #X msg 108 214 svxdir /tmp/svdir.xml; #X msg 78 241 ldxdir /tmp/svdir.xml; #N canvas 0 0 518 492 communs 0; -#X obj 20 39 commun /n0 \$0; -#X obj 270 39 s \$0-n0; -#X obj 20 61 commun /n1 \$0; -#X obj 270 61 s \$0-n1; -#X obj 20 83 commun /n2 \$0; -#X obj 270 83 s \$0-n2; -#X obj 20 105 commun /n3 \$0; -#X obj 270 105 s \$0-n3; -#X obj 20 127 commun /n4 \$0; -#X obj 270 127 s \$0-n4; -#X obj 20 149 commun /n5 \$0; -#X obj 270 149 s \$0-n5; -#X obj 20 171 commun /n6 \$0; -#X obj 270 171 s \$0-n6; -#X obj 20 193 commun /n7 \$0; -#X obj 270 193 s \$0-n7; -#X obj 20 215 commun /n8 \$0; -#X obj 270 215 s \$0-n8; -#X obj 20 237 commun /n9 \$0; -#X obj 270 237 s \$0-n9; -#X obj 20 259 commun /n10 \$0; -#X obj 270 259 s \$0-n10; -#X obj 20 281 commun /n11 \$0; -#X obj 270 281 s \$0-n11; -#X obj 20 303 commun /n12 \$0; -#X obj 270 303 s \$0-n12; -#X obj 20 325 commun /n13 \$0; -#X obj 270 325 s \$0-n13; -#X obj 20 347 commun /n14 \$0; -#X obj 270 347 s \$0-n14; -#X obj 20 369 commun /n15 \$0; -#X obj 270 369 s \$0-n15; -#X obj 170 39 r \$0-n0-s; -#X obj 170 61 r \$0-n1-s; -#X obj 169 83 r \$0-n2-s; -#X obj 170 105 r \$0-n3-s; -#X obj 170 127 r \$0-n4-s; -#X obj 170 149 r \$0-n5-s; -#X obj 170 171 r \$0-n6-s; -#X obj 170 193 r \$0-n7-s; -#X obj 170 215 r \$0-n8-s; -#X obj 170 237 r \$0-n9-s; -#X obj 170 259 r \$0-n10-s; -#X obj 170 281 r \$0-n11-s; -#X obj 170 303 r \$0-n12-s; -#X obj 170 325 r \$0-n13-s; -#X obj 170 347 r \$0-n14-s; -#X obj 170 369 r \$0-n15-s; +#X obj 20 39 _nslider-commun /n0 \$0; +#X obj 299 40 s \$0-n0; +#X obj 299 62 s \$0-n1; +#X obj 299 84 s \$0-n2; +#X obj 299 106 s \$0-n3; +#X obj 299 128 s \$0-n4; +#X obj 299 150 s \$0-n5; +#X obj 299 172 s \$0-n6; +#X obj 299 194 s \$0-n7; +#X obj 299 216 s \$0-n8; +#X obj 299 238 s \$0-n9; +#X obj 299 260 s \$0-n10; +#X obj 299 282 s \$0-n11; +#X obj 299 304 s \$0-n12; +#X obj 299 326 s \$0-n13; +#X obj 299 348 s \$0-n14; +#X obj 299 370 s \$0-n15; +#X obj 199 40 r \$0-n0-s; +#X obj 199 62 r \$0-n1-s; +#X obj 198 84 r \$0-n2-s; +#X obj 199 106 r \$0-n3-s; +#X obj 199 128 r \$0-n4-s; +#X obj 199 150 r \$0-n5-s; +#X obj 199 172 r \$0-n6-s; +#X obj 199 194 r \$0-n7-s; +#X obj 199 216 r \$0-n8-s; +#X obj 199 238 r \$0-n9-s; +#X obj 199 260 r \$0-n10-s; +#X obj 199 282 r \$0-n11-s; +#X obj 199 304 r \$0-n12-s; +#X obj 199 326 r \$0-n13-s; +#X obj 199 348 r \$0-n14-s; +#X obj 199 370 r \$0-n15-s; +#X obj 20 61 _nslider-commun /n1 \$0; +#X obj 20 83 _nslider-commun /n2 \$0; +#X obj 20 105 _nslider-commun /n3 \$0; +#X obj 20 127 _nslider-commun /n4 \$0; +#X obj 20 149 _nslider-commun /n5 \$0; +#X obj 20 171 _nslider-commun /n6 \$0; +#X obj 20 193 _nslider-commun /n7 \$0; +#X obj 20 215 _nslider-commun /n8 \$0; +#X obj 20 237 _nslider-commun /n9 \$0; +#X obj 20 259 _nslider-commun /n10 \$0; +#X obj 20 281 _nslider-commun /n11 \$0; +#X obj 20 303 _nslider-commun /n12 \$0; +#X obj 20 325 _nslider-commun /n13 \$0; +#X obj 20 347 _nslider-commun /n14 \$0; +#X obj 20 369 _nslider-commun /n15 \$0; #X connect 0 0 1 0; -#X connect 2 0 3 0; -#X connect 4 0 5 0; -#X connect 6 0 7 0; -#X connect 8 0 9 0; -#X connect 10 0 11 0; -#X connect 12 0 13 0; -#X connect 14 0 15 0; -#X connect 16 0 17 0; -#X connect 18 0 19 0; -#X connect 20 0 21 0; -#X connect 22 0 23 0; -#X connect 24 0 25 0; -#X connect 26 0 27 0; -#X connect 28 0 29 0; -#X connect 30 0 31 0; -#X connect 32 0 0 0; +#X connect 17 0 0 0; +#X connect 18 0 33 0; +#X connect 19 0 34 0; +#X connect 20 0 35 0; +#X connect 21 0 36 0; +#X connect 22 0 37 0; +#X connect 23 0 38 0; +#X connect 24 0 39 0; +#X connect 25 0 40 0; +#X connect 26 0 41 0; +#X connect 27 0 42 0; +#X connect 28 0 43 0; +#X connect 29 0 44 0; +#X connect 30 0 45 0; +#X connect 31 0 46 0; +#X connect 32 0 47 0; #X connect 33 0 2 0; -#X connect 34 0 4 0; -#X connect 35 0 6 0; -#X connect 36 0 8 0; -#X connect 37 0 10 0; -#X connect 38 0 12 0; -#X connect 39 0 14 0; -#X connect 40 0 16 0; -#X connect 41 0 18 0; -#X connect 42 0 20 0; -#X connect 43 0 22 0; -#X connect 44 0 24 0; -#X connect 45 0 26 0; -#X connect 46 0 28 0; -#X connect 47 0 30 0; +#X connect 34 0 3 0; +#X connect 35 0 4 0; +#X connect 36 0 5 0; +#X connect 37 0 6 0; +#X connect 38 0 7 0; +#X connect 39 0 8 0; +#X connect 40 0 9 0; +#X connect 41 0 10 0; +#X connect 42 0 11 0; +#X connect 43 0 12 0; +#X connect 44 0 13 0; +#X connect 45 0 14 0; +#X connect 46 0 15 0; +#X connect 47 0 16 0; #X restore 554 103 pd communs; #X obj 45 285 outlet; #X obj 93 97 r \$0-step; -#X obj 420 159 r \$0-reset; -#X obj 420 191 symbol \$1; -#X msg 420 261 \$1/n* 0; -#X connect 0 0 19 0; -#X connect 0 2 15 0; +#X obj 459 159 r \$0-reset; +#X obj 459 191 symbol \$1; +#X msg 459 214 \$1/n* 0; +#X msg 18 92 1; +#X obj 437 288 r \$0-parentstate; +#X obj 437 309 s \$0-substate; +#X connect 0 0 18 0; +#X connect 0 2 14 0; #X connect 1 0 0 1; -#X connect 2 0 11 0; +#X connect 2 0 23 0; #X connect 3 0 4 0; -#X connect 4 0 11 0; -#X connect 4 1 0 0; +#X connect 4 0 23 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 0 0; #X connect 11 0 0 0; -#X connect 12 0 0 0; -#X connect 13 0 14 0; -#X connect 14 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 11 0; +#X connect 15 0 0 0; #X connect 16 0 0 0; -#X connect 17 0 0 0; -#X connect 20 0 0 0; +#X connect 19 0 0 0; +#X connect 20 0 21 0; #X connect 21 0 22 0; -#X connect 22 0 23 0; -#X connect 23 0 0 1; -#X restore 371 0 pd saves; +#X connect 22 0 0 1; +#X connect 23 0 0 0; +#X connect 24 0 25 0; +#X restore 377 31 pd saves; #N canvas 636 203 450 300 cnv.ctl 0; #X obj 90 188 s \$0-background-cnv; #X floatatom 108 59 5 10 1000 0 width - -; @@ -146,15 +148,14 @@ standard functionality.; #X connect 4 0 0 0; #X connect 5 0 3 0; #X connect 5 1 3 1; -#X restore 296 0 pd cnv.ctl; -#X obj 9 356 bng 15 250 50 0 \$0-copy empty copy 0 -6 0 8 -225271 -1 +#X restore 653 34 pd cnv.ctl; +#X obj 8 292 bng 15 250 50 0 \$0-copy empty copy 0 -6 0 8 -225271 -1 -1; -#X obj 36 356 bng 15 250 50 0 \$0-paste empty paste 0 -6 0 8 -257472 +#X obj 35 292 bng 15 250 50 0 \$0-paste empty paste 0 -6 0 8 -257472 -1 -1; -#X obj 348 63 outlet; -#X text 19 -1 look! ==>; -#X obj 422 34 outlet OSC; -#X obj 329 29 inlet; +#X obj 377 84 outlet; +#X text 20 -1 look! ==>; +#X obj 428 84 outlet OSC; #N canvas 304 261 722 388 build-ns 0; #X msg 221 76 \; pd-tmp clear \;; #X obj 404 99 commun-builder; @@ -179,9 +180,7 @@ standard functionality.; #X connect 4 1 2 0; #X connect 6 0 4 0; #X restore 40 115 pd count; -#X obj 203 197 + 20; #X obj 152 196 int 0; -#X obj 19 264 makefilename \$0-n%d; #X obj 20 291 s \$0-dollar-name; #X obj 36 327 makefilename n%d; #X obj 60 347 s \$0-name; @@ -190,87 +189,179 @@ standard functionality.; #X msg 152 146 0; #X obj 49 146 t f f b; #X msg 51 30 16; -#X msg 316 333 \; pd-tmp obj 0 \$3 nbx 3 14 0 127 0 0 \$1 \$1 \$2 40 -8 1 10 -262144 -1 -1 0 256 \;; +#X obj 203 197 + 16; +#X obj 407 175 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 +-262144 -1 -1 0 256; +#X msg 316 333 \; pd-tmp obj 0 \$3 nbx 3 14 0 127 0 0 \$1-s \$1 \$2 +40 8 1 10 -262144 -1 -1 0 256 \;; +#X obj 19 264 makefilename dollar0-n%d; #X connect 2 0 18 0; #X connect 3 0 2 0; #X connect 4 0 2 1; #X connect 5 0 2 2; -#X connect 6 0 16 0; -#X connect 7 0 8 1; -#X connect 8 0 7 0; -#X connect 8 0 13 0; +#X connect 6 0 14 0; +#X connect 7 0 11 0; +#X connect 7 0 16 0; #X connect 9 0 10 0; -#X connect 11 0 12 0; -#X connect 14 0 6 0; -#X connect 14 1 15 0; -#X connect 15 0 8 1; -#X connect 16 0 9 0; -#X connect 16 1 11 0; -#X connect 16 2 8 0; -#X connect 17 0 14 0; -#X restore 401 100 pd build-ns; +#X connect 12 0 6 0; +#X connect 12 1 13 0; +#X connect 13 0 7 1; +#X connect 14 0 19 0; +#X connect 14 1 9 0; +#X connect 14 2 7 0; +#X connect 15 0 12 0; +#X connect 16 0 7 1; +#X connect 19 0 8 0; +#X restore 595 60 pd build-ns; #N canvas 475 407 319 362 tmp 0; -#X restore 392 191 pd tmp; -#X obj 8 27 nbx 3 14 0 127 0 0 \$0-n0-s \$0-n0 n0 40 8 1 10 -262144 --1 -1 44 256; -#X obj 8 47 nbx 3 14 0 127 0 0 \$0-n1-s \$0-n1 n1 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 67 nbx 3 14 0 127 0 0 \$0-n2-s \$0-n2 n2 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 87 nbx 3 14 0 127 0 0 \$0-n3-s \$0-n3 n3 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 107 nbx 3 14 0 127 0 0 \$0-n4-s \$0-n4 n4 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 127 nbx 3 14 0 127 0 0 \$0-n5-s \$0-n5 n5 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 147 nbx 3 14 0 127 0 0 \$0-n6-s \$0-n6 n6 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 167 nbx 3 14 0 127 0 0 \$0-n7-s \$0-n7 n7 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 187 nbx 3 14 0 127 0 0 \$0-n8-s \$0-n8 n8 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 207 nbx 3 14 0 127 0 0 \$0-n9-s \$0-n9 n9 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 227 nbx 3 14 0 127 0 0 \$0-n10-s \$0-n10 n10 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 247 nbx 3 14 0 127 0 0 \$0-n11-s \$0-n11 n11 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 267 nbx 3 14 0 127 0 0 \$0-n12-s \$0-n12 n12 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 287 nbx 3 14 0 127 0 0 \$0-n13-s \$0-n13 n13 40 8 1 10 -262144 --1 -1 0 256; -#X obj 8 307 nbx 3 14 0 127 0 0 \$0-n14-s \$0-n14 n14 40 8 1 10 -262144 +#X restore 596 35 pd tmp; +#X msg 418 230 get \$1; +#X obj 254 61 mod 16; +#X obj 254 25 int; +#X obj 418 255 s \$0-step; +#X obj 418 209 makefilename /n%d; +#X obj 72 292 bng 15 250 50 0 \$0-reset empty reset 0 -6 0 8 -258699 +-1 -1; +#X obj 76 34 nbx 2 14 0 1000 0 0 \$0-substate \$0-substate pre 0 -6 +0 8 -261689 -1 -1 1 256; +#X obj 570 205 makefilename \$0-n%d; +#X obj 593 270 symbol; +#X obj 594 241 t s b; +#X msg 593 292 \; \$1 color 0 -1 -1; +#X msg 570 326 \; \$1 color 80 -1 -1; +#X obj 10 26 nbx 3 14 0 127 0 0 \$0-n0-s \$0-n0 n0 40 8 1 10 -195568 +-1 -1 83 256; +#X obj 10 42 nbx 3 14 0 127 0 0 \$0-n1-s \$0-n1 n1 40 8 1 10 -262144 +-1 -1 37 256; +#X obj 10 58 nbx 3 14 0 127 0 0 \$0-n2-s \$0-n2 n2 40 8 1 10 -262144 +-1 -1 95 256; +#X obj 10 74 nbx 3 14 0 127 0 0 \$0-n3-s \$0-n3 n3 40 8 1 10 -262144 +-1 -1 93 256; +#X obj 10 90 nbx 3 14 0 127 0 0 \$0-n4-s \$0-n4 n4 40 8 1 10 -262144 +-1 -1 91 256; +#X obj 10 106 nbx 3 14 0 127 0 0 \$0-n5-s \$0-n5 n5 40 8 1 10 -262144 +-1 -1 41 256; +#X obj 10 122 nbx 3 14 0 127 0 0 \$0-n6-s \$0-n6 n6 40 8 1 10 -262144 +-1 -1 41 256; +#X obj 10 138 nbx 3 14 0 127 0 0 \$0-n7-s \$0-n7 n7 40 8 1 10 -262144 +-1 -1 88 256; +#X obj 10 154 nbx 3 14 0 127 0 0 \$0-n8-s \$0-n8 n8 40 8 1 10 -262144 +-1 -1 45 256; +#X obj 10 170 nbx 3 14 0 127 0 0 \$0-n9-s \$0-n9 n9 40 8 1 10 -262144 +-1 -1 100 256; +#X obj 10 186 nbx 3 14 0 127 0 0 \$0-n10-s \$0-n10 n10 40 8 1 10 -262144 +-1 -1 93 256; +#X obj 10 202 nbx 3 14 0 127 0 0 \$0-n11-s \$0-n11 n11 40 8 1 10 -262144 +-1 -1 40 256; +#X obj 10 218 nbx 3 14 0 127 0 0 \$0-n12-s \$0-n12 n12 40 8 1 10 -262144 +-1 -1 96 256; +#X obj 10 234 nbx 3 14 0 127 0 0 \$0-n13-s \$0-n13 n13 40 8 1 10 -262144 -1 -1 0 256; -#X obj 8 327 nbx 3 14 0 127 0 0 \$0-n15-s \$0-n15 n15 40 8 1 10 -262144 +#X obj 10 250 nbx 3 14 0 127 0 0 \$0-n14-s \$0-n14 n14 40 8 1 10 -262144 -1 -1 0 256; -#X msg 262 101 get \$1; -#X obj 252 53 mod 16; -#X obj 251 26 int; -#X obj 264 127 s \$0-step; -#X obj 259 82 makefilename /n%d; -#X obj 73 356 bng 15 250 50 0 \$0-reset empty reset 0 -6 0 8 -258699 --1 -1; -#X obj 77 58 nbx 2 14 0 1000 0 0 \$0-substate \$0-substate pre 0 -6 -0 8 -261689 -1 -1 0 256; -#X obj 230 170 makefilename \$0-n%d; -#X obj 250 221 symbol; -#X obj 237 197 t s b; -#X msg 253 257 \; \$1 color 0 -1 -1; -#X msg 232 290 \; \$1 color 80 -1 -1; -#X connect 1 0 31 0; +#X obj 10 266 nbx 3 14 0 127 0 0 \$0-n15-s \$0-n15 n15 40 8 1 10 -262144 +-1 -1 55 256; +#X obj 644 240 s \$0-current; +#N canvas 465 369 450 300 keys 0; +#X obj 191 64 r \$0-current; +#X obj 84 66 r \$0-set-note; +#X obj 99 104 pack 0 s; +#X obj 194 203 spigot; +#X obj 309 140 r \$0-tab-enabled; +#X obj 189 132 key; +#X obj 168 169 select 9; +#X obj 195 235 int 0; +#X obj 241 235 + 1; +#X obj 195 258 mod 16; +#X msg 99 145 \; \$2 \$1; +#X obj 57 190 outlet; +#X obj 335 164 key; +#X obj 338 184 select 27; +#X text 362 164 Esc; +#X obj 289 81 r \$0-tab-enabled; +#X obj 305 208 spigot; +#X obj 302 246 s \$0-tab-enabled; +#X msg 305 229 0; +#X obj 267 266 s \$0-curr-step; +#X obj 284 117 r \$0-playing; +#X connect 0 0 2 1; +#X connect 1 0 2 0; +#X connect 1 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 7 0; +#X connect 4 0 3 1; +#X connect 4 0 7 1; +#X connect 4 0 16 1; +#X connect 5 0 6 0; +#X connect 6 0 3 0; +#X connect 7 0 9 0; +#X connect 7 0 8 0; +#X connect 8 0 7 1; +#X connect 9 0 19 0; +#X connect 12 0 13 0; +#X connect 13 0 16 0; +#X connect 16 0 18 0; +#X connect 18 0 17 0; +#X connect 20 0 7 1; +#X restore 318 31 pd keys; +#X obj 76 62 tgl 15 0 \$0-tab-enabled \$0-tab-enabled edit 0 -6 0 8 +-262144 -1 -1 0 1; +#X obj 8 363 s \$0-set-note; +#X obj 7 312 kbd2midi; +#X obj 89 258 r \$0-tab-enabled; +#X obj 148 26 r \$0-curr-step; +#X obj 254 84 s \$0-playing; +#X obj 418 184 r \$0-playing; +#X obj 570 184 r \$0-playing; +#X text 405 162 Get value from pool; +#X text 571 164 Colorize current step; +#X text 713 298 Re-colorize previous step; +#X text 602 13 Utility patches; +#X obj 76 107 bng 15 250 50 0 \$0-forward empty v 3 7 1 12 -262131 +-225271 -1; +#X obj 76 87 bng 15 250 50 0 \$0-backward empty ^ 3 9 1 12 -262131 +-225271 -1; +#N canvas 0 0 450 300 shifter 0; +#X obj 141 188 s \$0-shifter; +#X obj 138 157 f -1; +#X obj 177 158 f 1; +#X obj 177 80 r \$0-forward; +#X obj 138 61 r \$0-backward; +#X obj 98 212 s \$0-originator; +#X msg 83 154 set; +#X obj 179 108 t b b b; +#X obj 226 139 s \$0-prepare-shift; +#X obj 109 113 t b b b; +#X connect 1 0 0 0; +#X connect 2 0 0 0; +#X connect 3 0 7 0; +#X connect 4 0 9 0; +#X connect 6 0 5 0; +#X connect 7 0 6 0; +#X connect 7 1 2 0; +#X connect 7 2 8 0; +#X connect 9 0 6 0; +#X connect 9 1 1 0; +#X connect 9 2 8 0; +#X restore 248 142 pd shifter; +#X connect 1 0 14 0; #X connect 2 0 3 1; #X connect 3 0 7 0; #X connect 3 1 9 0; -#X connect 10 0 3 0; -#X connect 29 0 32 0; -#X connect 30 0 33 0; -#X connect 30 0 36 0; -#X connect 31 0 30 0; -#X connect 33 0 29 0; -#X connect 36 0 38 0; -#X connect 36 0 40 0; -#X connect 37 0 39 0; -#X connect 38 0 37 1; -#X connect 38 1 37 0; -#X coords 0 0 1 1 102 380 1; +#X connect 12 0 15 0; +#X connect 13 0 47 0; +#X connect 14 0 13 0; +#X connect 16 0 12 0; +#X connect 19 0 21 0; +#X connect 19 0 23 0; +#X connect 19 0 40 0; +#X connect 20 0 22 0; +#X connect 21 0 20 1; +#X connect 21 1 20 0; +#X connect 41 0 7 0; +#X connect 44 0 43 0; +#X connect 45 0 44 0; +#X connect 46 0 13 0; +#X connect 48 0 16 0; +#X connect 49 0 19 0; +#X coords 0 0 1 1 108 360 1; -- cgit v1.2.1