diff --git a/Samplers/Tapey/LICENSE.txt b/Samplers/Tapey/LICENSE.txt new file mode 100755 index 0000000..0da2ee9 --- /dev/null +++ b/Samplers/Tapey/LICENSE.txt @@ -0,0 +1,21 @@ +Unless otherwise noted, files in this directory are copyright Critter & Guitari and can be distributed freely according the terms of the BSD 3-Clause License below. + +Where files have been imported from other sources, comments in those files indicate the authors and applicable license. + +This patch contains elements from the patch shared by the user ‘booth’ here: +https://forum.pdpatchrepo.info/topic/6942/1d-cellular-automata-to-midi-patch + +--- Begin BSD 3-Clause License --- + +Copyright (c) 2018, Critter & Guitari +All rights reserved. + +Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: + +1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. + +2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. + +3. Neither the name of the copyright holder nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/Samplers/Tapey/cg-pdlib-local/README.md b/Samplers/Tapey/cg-pdlib-local/README.md new file mode 100644 index 0000000..b38669a --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/README.md @@ -0,0 +1,2 @@ +# Pd-Library +Bits and pieces of Pd for the Organelle and other Critter & Guitari instruments. diff --git a/Samplers/Tapey/cg-pdlib-local/externals/abl_link~.pd_linux b/Samplers/Tapey/cg-pdlib-local/externals/abl_link~.pd_linux new file mode 100755 index 0000000..55edd2a Binary files /dev/null and b/Samplers/Tapey/cg-pdlib-local/externals/abl_link~.pd_linux differ diff --git a/Samplers/Tapey/cg-pdlib-local/externals/cg-osc-scope.pd b/Samplers/Tapey/cg-pdlib-local/externals/cg-osc-scope.pd new file mode 100755 index 0000000..3f33066 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/externals/cg-osc-scope.pd @@ -0,0 +1,121 @@ +#N canvas 377 147 1119 831 10; +#X obj 80 30 inlet~; +#X obj 188 65 metro 90; +#X obj 242 157 tabwrite~ \$0-scope; +#X obj 215 97 t b b; +#X obj 178 317 until; +#X msg 178 290 10; +#X obj 178 349 f, f 5; +#X obj 238 349 + 1; +#X obj 210 445 tabread \$0-scope; +#X obj 210 489 + 0.5; +#X obj 210 467 * 0.5; +#X obj 210 533 i; +#X obj 178 371 t f f; +#X obj 210 422 i; +#X obj 176 593 pack; +#X obj 73 455 i; +#X text 464 55 arg1 width; +#X text 466 70 arg2 height; +#X text 467 93 arg 3: startx; +#X text 460 117 arg 4: starty; +#X obj 210 511 * \$2; +#X obj 210 556 + \$4; +#X msg 231 315 1; +#X obj 178 262 t b b b, f 16; +#X obj 287 310 pack \$1 \$2 \$3 \$4; +#X obj 287 373 s oscOut; +#X obj 208 676 list, f 8; +#X msg 559 323 0; +#X obj 591 463 tabread \$0-scope; +#X obj 591 507 + 0.5; +#X obj 591 485 * 0.5; +#X obj 591 551 i; +#X obj 559 389 t f f; +#X obj 591 440 i; +#X obj 557 611 pack; +#X obj 457 461 i; +#X obj 591 529 * \$2; +#X obj 591 574 + \$4; +#X obj 457 484 + \$3; +#X obj 208 777 s oscOut; +#X obj 176 615 t a a; +#X obj 118 220 t b b b, f 24; +#X msg 76 684 /oled/gFlip 3; +#X obj 558 253 array define \$0-scope 516; +#X msg 208 751 /oled/gLine 3 \$3 \$4 \$1 \$2 1; +#X msg 287 344 /oled/gFillArea 3 \$3 \$4 \$1 \$2 0; +#X obj 210 400 * 52; +#X obj 73 477 + \$3; +#X obj 591 418 * 52; +#X obj 457 437 * \$1; +#X floatatom 59 530 5 0 0 0 - - -; +#X obj 73 433 * 1; +#X obj 136 421 loadbang; +#X obj 136 443 \$1; +#X obj 136 465 / 10; +#X obj 136 487 i; +#X obj 188 20 inlet toggle metro; +#X obj 331 24 inlet manual bang; +#X obj 331 45 t b; +#X connect 0 0 2 0; +#X connect 1 0 3 0; +#X connect 3 0 41 0; +#X connect 3 1 2 0; +#X connect 4 0 6 0; +#X connect 5 0 4 0; +#X connect 6 0 7 0; +#X connect 6 0 12 0; +#X connect 7 0 6 1; +#X connect 8 0 10 0; +#X connect 9 0 20 0; +#X connect 10 0 9 0; +#X connect 11 0 21 0; +#X connect 12 0 51 0; +#X connect 12 1 46 0; +#X connect 13 0 8 0; +#X connect 14 0 40 0; +#X connect 15 0 47 0; +#X connect 20 0 11 0; +#X connect 21 0 14 1; +#X connect 22 0 6 1; +#X connect 23 0 5 0; +#X connect 23 1 22 0; +#X connect 23 2 24 0; +#X connect 24 0 45 0; +#X connect 26 0 44 0; +#X connect 27 0 32 0; +#X connect 28 0 30 0; +#X connect 29 0 36 0; +#X connect 30 0 29 0; +#X connect 31 0 37 0; +#X connect 32 0 49 0; +#X connect 32 1 48 0; +#X connect 33 0 28 0; +#X connect 34 0 26 1; +#X connect 35 0 38 0; +#X connect 36 0 31 0; +#X connect 37 0 34 1; +#X connect 38 0 34 0; +#X connect 40 0 26 1; +#X connect 40 1 26 0; +#X connect 41 0 42 0; +#X connect 41 1 23 0; +#X connect 41 2 27 0; +#X connect 42 0 39 0; +#X connect 44 0 39 0; +#X connect 45 0 25 0; +#X connect 46 0 13 0; +#X connect 47 0 14 0; +#X connect 47 0 50 0; +#X connect 48 0 33 0; +#X connect 49 0 35 0; +#X connect 51 0 15 0; +#X connect 52 0 53 0; +#X connect 53 0 54 0; +#X connect 54 0 55 0; +#X connect 55 0 51 1; +#X connect 55 0 49 1; +#X connect 56 0 1 0; +#X connect 57 0 58 0; +#X connect 58 0 3 0; diff --git a/Samplers/Tapey/cg-pdlib-local/externals/cg-print-wave.pd b/Samplers/Tapey/cg-pdlib-local/externals/cg-print-wave.pd new file mode 100644 index 0000000..6c2a213 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/externals/cg-print-wave.pd @@ -0,0 +1,130 @@ +#N canvas 4 50 1009 708 10; +#X obj 178 317 until; +#X obj 178 349 f, f 5; +#X obj 228 349 + 1; +#X obj 205 489 + 0.5; +#X obj 205 467 * 0.5; +#X obj 205 533 i; +#X obj 178 371 t f f; +#X obj 205 422 i; +#X obj 124 593 pack, f 14; +#X obj 76 541 i; +#X text 464 55 arg1 width; +#X text 466 70 arg2 height; +#X text 467 93 arg 3: startx; +#X text 460 117 arg 4: starty; +#X obj 205 511 * \$2; +#X obj 205 556 + \$4; +#X obj 178 262 t b b b, f 16; +#X obj 271 300 pack \$1 \$2 \$3 \$4; +#X obj 271 363 s oscOut; +#X obj 187 676 list, f 8; +#X msg 559 323 0; +#X obj 591 507 + 0.5; +#X obj 591 485 * 0.5; +#X obj 591 551 i; +#X obj 559 389 t f f; +#X obj 591 440 i; +#X obj 456 671 pack; +#X obj 423 578 i; +#X obj 591 529 * \$2; +#X obj 591 574 + \$4; +#X obj 423 601 + \$3; +#X obj 187 777 s oscOut; +#X obj 124 615 t a a, f 11; +#X msg 76 684 /oled/gFlip 3; +#X msg 187 751 /oled/gLine 3 \$3 \$4 \$1 \$2 1; +#X msg 271 334 /oled/gFillArea 3 \$3 \$4 \$1 \$2 0; +#X obj 205 400 * 52; +#X obj 76 563 + \$3; +#X obj 591 418 * 52; +#X obj 423 554 * \$1; +#X obj 76 519 * 1; +#X obj 136 421 loadbang; +#X obj 136 443 \$1; +#X obj 136 487 i; +#X obj 117 91 inlet manual bang; +#X obj 117 112 t b; +#X text 457 143 arg 5: name of array(array define); +#X text 453 166 arg 6: number of points (2-128); +#X obj 618 278 s \$0-size; +#X obj 664 319 r \$0-size; +#X obj 635 362 i; +#X obj 118 190 t b b b b, f 72; +#X obj 635 341 / \$6; +#X obj 136 465 / \$6; +#X obj 178 283 f \$6; +#X msg 224 295 0; +#X msg 618 215 0; +#X obj 618 246 tabread \$5-length; +#X msg 444 741 /oled/gClear 3 1; +#X obj 178 114 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 205 445 tabread \$5; +#X obj 591 463 tabread \$5; +#X floatatom 719 283 5 0 0 0 - - -, f 5; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 1 0 6 0; +#X connect 2 0 1 1; +#X connect 3 0 14 0; +#X connect 4 0 3 0; +#X connect 5 0 15 0; +#X connect 6 0 40 0; +#X connect 6 1 36 0; +#X connect 7 0 60 0; +#X connect 8 0 32 0; +#X connect 9 0 37 0; +#X connect 14 0 5 0; +#X connect 15 0 8 1; +#X connect 16 0 54 0; +#X connect 16 1 55 0; +#X connect 16 2 17 0; +#X connect 17 0 35 0; +#X connect 19 0 34 0; +#X connect 20 0 24 0; +#X connect 21 0 28 0; +#X connect 22 0 21 0; +#X connect 23 0 29 0; +#X connect 24 0 39 0; +#X connect 24 1 38 0; +#X connect 25 0 61 0; +#X connect 26 0 19 1; +#X connect 27 0 30 0; +#X connect 28 0 23 0; +#X connect 29 0 26 1; +#X connect 30 0 26 0; +#X connect 32 0 19 1; +#X connect 32 1 19 0; +#X connect 33 0 31 0; +#X connect 34 0 31 0; +#X connect 35 0 18 0; +#X connect 36 0 7 0; +#X connect 37 0 8 0; +#X connect 38 0 25 0; +#X connect 39 0 27 0; +#X connect 40 0 9 0; +#X connect 41 0 42 0; +#X connect 42 0 53 0; +#X connect 43 0 40 1; +#X connect 43 0 39 1; +#X connect 44 0 45 0; +#X connect 45 0 51 0; +#X connect 49 0 52 0; +#X connect 50 0 36 1; +#X connect 50 0 38 1; +#X connect 51 0 33 0; +#X connect 51 1 16 0; +#X connect 51 2 20 0; +#X connect 51 3 56 0; +#X connect 52 0 50 0; +#X connect 53 0 43 0; +#X connect 54 0 0 0; +#X connect 55 0 1 1; +#X connect 56 0 57 0; +#X connect 57 0 48 0; +#X connect 57 0 62 0; +#X connect 58 0 31 0; +#X connect 59 0 51 0; +#X connect 60 0 4 0; +#X connect 61 0 22 0; diff --git a/Samplers/Tapey/cg-pdlib-local/externals/chord-muter.pd b/Samplers/Tapey/cg-pdlib-local/externals/chord-muter.pd new file mode 100644 index 0000000..43e7db1 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/externals/chord-muter.pd @@ -0,0 +1,444 @@ +#N canvas 316 50 1384 946 10; +#N canvas 0 50 450 278 (subpatch) 0; +#X array \$0-notes-from-poly 8 float 2; +#X coords 0 127 8 0 200 140 1 0 0; +#X restore 886 95 graph; +#N canvas 0 50 450 278 (subpatch) 0; +#X array \$0-notes-squashed 8 float 3; +#A 0 0 0 0 0 0 0 0 0; +#X coords 0 127 8 0 200 140 1 0 0; +#X restore 885 277 graph; +#N canvas 0 50 450 278 (subpatch) 0; +#X array \$0-notes-increasing 8 float 3; +#A 0 0 0 0 0 0 0 0 0; +#X coords 0 127 8 0 200 140 1 0 0; +#X restore 888 653 graph; +#N canvas 136 51 827 890 array-sort 0; +#X obj 263 111 until; +#X obj 263 153 f; +#X obj 296 154 + 1, f 4; +#X msg 321 91 0, f 2; +#X obj 312 267 f; +#X obj 264 232 t f b; +#X obj 262 182 t f f; +#X obj 249 452 f; +#X obj 306 399 sel 1; +#X obj 214 485 f; +#X obj 173 537 f; +#X obj 213 553 t b b; +#X obj 323 560 t b f; +#X obj 250 580 f; +#X obj 343 -90 until; +#X obj 344 -46 f; +#X obj 376 -47 + 1, f 4; +#X msg 401 -110 0, f 2; +#X obj 345 -139 t b b; +#X obj 329 -11 t b f; +#X obj 252 48 t b b b b; +#X msg 314 585 0, f 2; +#X msg 357 89 0; +#X obj 217 333 expr if ($f1 > $f2 \, $f1 \, $f2) \; if ($f1 > $f2 \, +1 \, 0); +#X msg 344 -115 8, f 2; +#X msg 263 83 8, f 2; +#X text 419 137 sort array a into b. a gets clobbered in the process +probably a much better way to do this ...; +#X obj 264 210 tabread \$0-notes-squashed; +#X obj 314 621 tabwrite \$0-notes-squashed; +#X obj 139 648 tabwrite \$0-notes-decreasing; +#X obj 214 -206 r \$0-reorder; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 1 0 6 0; +#X connect 2 0 1 1; +#X connect 3 0 1 1; +#X connect 4 0 23 1; +#X connect 5 0 23 0; +#X connect 5 1 4 0; +#X connect 6 0 27 0; +#X connect 6 1 7 1; +#X connect 7 0 9 1; +#X connect 8 0 7 0; +#X connect 9 0 11 0; +#X connect 9 0 12 0; +#X connect 10 0 29 0; +#X connect 11 0 10 0; +#X connect 11 1 13 0; +#X connect 12 0 21 0; +#X connect 12 1 28 1; +#X connect 13 0 29 1; +#X connect 14 0 15 0; +#X connect 15 0 16 0; +#X connect 15 0 19 0; +#X connect 16 0 15 1; +#X connect 17 0 15 1; +#X connect 18 0 24 0; +#X connect 18 1 17 0; +#X connect 19 0 20 0; +#X connect 19 1 13 1; +#X connect 20 0 9 0; +#X connect 20 1 25 0; +#X connect 20 2 3 0; +#X connect 20 3 22 0; +#X connect 21 0 28 0; +#X connect 22 0 4 1; +#X connect 23 0 4 1; +#X connect 23 0 10 1; +#X connect 23 1 8 0; +#X connect 24 0 14 0; +#X connect 25 0 0 0; +#X connect 27 0 5 0; +#X connect 30 0 18 0; +#X restore 757 511 pd array-sort; +#X text 1127 158 array1 is raw data from poly (notes with 0 velocity +are given 0 pitch); +#X text 1102 532 here are the notes sorted...; +#N canvas 0 50 450 278 (subpatch) 0; +#X array \$0-notes-decreasing 8 float 2; +#X coords 0 127 8 0 200 140 1 0 0; +#X restore 886 470 graph; +#N canvas 170 50 726 731 increasing 0; +#X obj 156 260 until; +#X obj 157 304 f; +#X obj 189 303 + 1, f 4; +#X msg 214 240 0, f 2; +#X obj 155 236 f 0; +#X obj 156 357 - 0; +#X obj 157 408 abs; +#X obj 157 326 t f f; +#X obj 266 471 f; +#X obj 156 469 t f b; +#X obj 156 379 + 1; +#X obj 416 331 until; +#X obj 416 373 f; +#X obj 449 374 + 1, f 4; +#X msg 474 311 0, f 2; +#X obj 416 276 t b b; +#X obj 424 398 t b f; +#X msg 415 423 0, f 2; +#X msg 416 303 8, f 2; +#X obj 155 197 t b b b; +#X obj 153 67 inlet; +#X obj 320 197 r \$0-num-down; +#X obj 413 450 tabwrite \$0-notes-increasing; +#X obj 152 508 tabwrite \$0-notes-increasing; +#X obj 156 437 tabread \$0-notes-decreasing; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 1 0 7 0; +#X connect 2 0 1 1; +#X connect 3 0 1 1; +#X connect 4 0 0 0; +#X connect 5 0 10 0; +#X connect 6 0 24 0; +#X connect 7 0 5 0; +#X connect 7 1 8 1; +#X connect 8 0 23 1; +#X connect 9 0 23 0; +#X connect 9 1 8 0; +#X connect 10 0 6 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 12 0 16 0; +#X connect 13 0 12 1; +#X connect 14 0 12 1; +#X connect 15 0 18 0; +#X connect 15 1 14 0; +#X connect 16 0 17 0; +#X connect 16 1 22 1; +#X connect 17 0 22 0; +#X connect 18 0 11 0; +#X connect 19 0 4 0; +#X connect 19 1 3 0; +#X connect 19 2 15 0; +#X connect 20 0 19 0; +#X connect 21 0 4 1; +#X connect 21 0 5 1; +#X connect 24 0 9 0; +#X restore 759 716 pd increasing; +#N canvas 9 50 1000 647 array-copy 0; +#X obj 227 194 until; +#X obj 227 236 f; +#X obj 260 237 + 1, f 4; +#X msg 285 174 0, f 2; +#X obj 456 272 until; +#X obj 456 314 f; +#X obj 489 315 + 1, f 4; +#X msg 514 252 0, f 2; +#X obj 456 217 t b b; +#X obj 456 339 t b f, f 18; +#X msg 456 362 0, f 2; +#X obj 227 121 t b b b; +#X msg 227 166 8, f 2; +#X msg 456 244 8, f 2; +#X text 324 97 this removes 0 elements (or actually just moves the +following elements over 1 place); +#X text 558 296 first zero out the destination array; +#X obj 227 258 t f f, f 21; +#X obj 227 340 tabwrite \$0-notes-squashed; +#X obj 456 385 tabwrite \$0-notes-squashed, f 18; +#X obj 227 297 tabread \$0-notes-from-poly, f 18; +#X obj 227 75 r \$0-copy; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 1 0 16 0; +#X connect 2 0 1 1; +#X connect 3 0 1 1; +#X connect 4 0 5 0; +#X connect 5 0 6 0; +#X connect 5 0 9 0; +#X connect 6 0 5 1; +#X connect 7 0 5 1; +#X connect 8 0 13 0; +#X connect 8 1 7 0; +#X connect 9 0 10 0; +#X connect 9 1 18 1; +#X connect 10 0 18 0; +#X connect 11 0 12 0; +#X connect 11 1 3 0; +#X connect 11 2 8 0; +#X connect 12 0 0 0; +#X connect 13 0 4 0; +#X connect 16 0 19 0; +#X connect 16 1 17 1; +#X connect 19 0 17 0; +#X connect 20 0 11 0; +#X restore 754 335 pd array-copy; +#X text 1099 695 then increasing; +#X text 1112 332 array squash pulls out 0 notes. this array gets clobbered +by the sorting function so it always looks blank; +#X obj 27 46 inlet; +#X obj 760 687 r \$0-others; +#X floatatom 753 104 5 0 0 0 - - -, f 5; +#N canvas 782 152 533 527 countnotes 0; +#X obj 104 289 > 0; +#X obj 104 316 sel 1; +#X obj 158 352 + 1, f 4; +#X obj 110 353 f 0; +#X obj 141 130 until; +#X obj 142 174 f; +#X obj 174 173 + 1, f 4; +#X msg 319 198 0, f 2; +#X msg 142 105 8, f 2; +#X obj 89 395 f 0; +#X obj 89 458 outlet; +#X obj 83 200 t f f; +#X obj 36 244 sel 7; +#X obj 143 81 t b b; +#X obj 106 234 tabread \$0-notes-from-poly; +#X obj 143 35 r \$0-countem; +#X connect 0 0 1 0; +#X connect 1 0 3 0; +#X connect 2 0 3 1; +#X connect 2 0 9 1; +#X connect 3 0 2 0; +#X connect 4 0 5 0; +#X connect 5 0 6 0; +#X connect 5 0 11 0; +#X connect 6 0 5 1; +#X connect 7 0 5 1; +#X connect 7 0 3 1; +#X connect 7 0 9 1; +#X connect 8 0 4 0; +#X connect 9 0 10 0; +#X connect 11 0 12 0; +#X connect 11 1 14 0; +#X connect 12 0 9 0; +#X connect 13 0 8 0; +#X connect 13 1 7 0; +#X connect 14 0 0 0; +#X connect 15 0 13 0; +#X restore 753 78 pd countnotes; +#X obj 753 127 s \$0-num-down; +#X obj 436 54 inlet time; +#X obj 600 42 inlet probability; +#X obj 600 64 min 99; +#X obj 600 86 max 1; +#X obj 600 108 i; +#X obj 436 118 s \$0-time; +#X obj 600 180 s \$0-probab; +#N canvas 7 50 817 678 send-to-arrays 0; +#N canvas 10 50 588 574 format_for_array 0; +#X obj 111 44 inlet; +#X obj 102 128 f; +#X obj 144 151 sel 0; +#X msg 121 188 0; +#X obj 167 181 t b b; +#X obj 137 126 f; +#X obj 79 268 t f b; +#X obj 75 336 pack 0 0; +#X obj 85 75 unpack 0 0 0; +#X obj 41 132 t b f; +#X obj 117 304 f; +#X obj 78 389 outlet; +#X obj 133 274 - 1; +#X text 169 280 array index starts at 0 \, poly index starts at 1; +#X text 223 150 if the velocity is > 0 \, outputs note number. If = +0 \, it outputs 0 for note number; +#X connect 0 0 8 0; +#X connect 1 0 6 0; +#X connect 2 0 3 0; +#X connect 2 1 4 0; +#X connect 3 0 6 0; +#X connect 4 0 1 0; +#X connect 5 0 2 0; +#X connect 6 0 7 0; +#X connect 6 1 10 0; +#X connect 7 0 11 0; +#X connect 8 0 9 0; +#X connect 8 1 1 1; +#X connect 8 2 5 1; +#X connect 9 0 5 0; +#X connect 9 1 12 0; +#X connect 10 0 7 1; +#X connect 12 0 10 1; +#X restore 142 145 pd format_for_array; +#X obj 142 116 pack 0 0 0; +#X obj 142 177 unpack, f 53; +#X obj 142 92 poly 8 1, f 10; +#X obj 142 206 t b b b b f, f 41; +#X obj 426 242 tabwrite \$0-notes-from-poly; +#X obj 356 268 s \$0-countem; +#X obj 284 288 s \$0-copy; +#X obj 213 321 s \$0-reorder; +#X obj 142 348 s \$0-others; +#X obj 142 29 inlet; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 4 0; +#X connect 2 1 5 1; +#X connect 3 0 1 0; +#X connect 3 1 1 1; +#X connect 3 2 1 2; +#X connect 4 0 9 0; +#X connect 4 1 8 0; +#X connect 4 2 7 0; +#X connect 4 3 6 0; +#X connect 4 4 5 0; +#X connect 10 0 3 0; +#X restore 59 95 pd send-to-arrays; +#X obj 27 69 t a a; +#X obj 27 858 outlet; +#X msg 600 130 100 \$1; +#X obj 600 152 -; +#X obj 296 274 r \$0-time; +#X obj 236 427 spigot 0, f 21; +#X obj 380 270 r \$0-num-down; +#X obj 236 305 metro 100; +#X obj 436 76 max 20; +#X obj 436 97 min 2000; +#X obj 27 123 stripnote; +#X obj 27 795 t a a; +#X obj 284 781 note-on-off; +#X obj 59 828 s \$0-notez; +#X text 46 843 secondary note tracker; +#X obj 284 750 r \$0-notez; +#X obj 404 307 sel 0; +#X msg 404 329 0; +#X msg 95 173 1; +#X obj 45 199 r \$0-num-down; +#X obj 27 226 f; +#X obj 27 148 t b b b, f 20; +#X obj 27 676 t a a; +#X obj 59 710 bag; +#X msg 89 679 flush; +#X msg 59 732 \$1 0; +#X obj 27 248 t a b; +#X obj 27 306 f; +#X obj 59 307 + 1; +#X msg 72 271 0; +#X obj 27 270 until; +#X obj 27 345 tabread \$0-notes-increasing; +#X obj 236 669 >, f 14; +#X obj 236 644 random 100; +#X obj 254 456 r \$0-num-down; +#X obj 236 483 f; +#X obj 236 505 t a b; +#X obj 236 563 f; +#X obj 268 564 + 1; +#X msg 281 528 0; +#X obj 236 527 until; +#X obj 331 644 r \$0-probab; +#X obj 236 591 tabread \$0-notes-increasing; +#X obj 236 615 t b f; +#X obj 236 691 sel 0 1; +#X obj 284 803 sel 0 1; +#X obj 292 842 f; +#X obj 343 838 f; +#X obj 367 754 f; +#X msg 292 864 \$1 100; +#X msg 343 860 \$1 0; +#X obj 292 886 s \$0-fb; +#X obj 51 647 r \$0-fb; +#X connect 11 0 24 0; +#X connect 12 0 7 0; +#X connect 13 0 15 0; +#X connect 14 0 13 0; +#X connect 16 0 32 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 19 0 20 0; +#X connect 20 0 26 0; +#X connect 24 0 34 0; +#X connect 24 1 23 0; +#X connect 26 0 27 0; +#X connect 27 0 22 0; +#X connect 28 0 31 1; +#X connect 29 0 59 0; +#X connect 30 0 29 1; +#X connect 30 0 40 0; +#X connect 31 0 29 0; +#X connect 32 0 33 0; +#X connect 33 0 21 0; +#X connect 34 0 45 0; +#X connect 35 0 25 0; +#X connect 35 1 37 0; +#X connect 36 0 69 0; +#X connect 39 0 36 0; +#X connect 40 0 41 0; +#X connect 41 0 31 0; +#X connect 42 0 31 0; +#X connect 43 0 44 1; +#X connect 44 0 50 0; +#X connect 45 0 44 0; +#X connect 45 1 42 0; +#X connect 45 2 48 0; +#X connect 46 0 35 0; +#X connect 46 1 47 0; +#X connect 47 0 49 0; +#X connect 48 0 47 0; +#X connect 49 0 35 0; +#X connect 50 0 54 0; +#X connect 50 1 53 0; +#X connect 51 0 52 0; +#X connect 51 0 55 0; +#X connect 52 0 51 1; +#X connect 53 0 51 1; +#X connect 54 0 51 0; +#X connect 55 0 46 0; +#X connect 56 0 68 0; +#X connect 57 0 56 0; +#X connect 58 0 59 1; +#X connect 59 0 60 0; +#X connect 60 0 64 0; +#X connect 60 1 63 0; +#X connect 61 0 62 0; +#X connect 61 0 66 0; +#X connect 62 0 61 1; +#X connect 63 0 61 1; +#X connect 64 0 61 0; +#X connect 65 0 56 1; +#X connect 66 0 67 0; +#X connect 67 0 57 0; +#X connect 67 1 70 1; +#X connect 67 1 71 1; +#X connect 67 1 72 1; +#X connect 68 1 72 0; +#X connect 69 0 70 0; +#X connect 69 1 71 0; +#X connect 70 0 73 0; +#X connect 71 0 74 0; +#X connect 72 0 36 1; +#X connect 73 0 75 0; +#X connect 74 0 75 0; +#X connect 76 0 46 0; diff --git a/Samplers/Tapey/cg-pdlib-local/externals/chord-prob-old.pd b/Samplers/Tapey/cg-pdlib-local/externals/chord-prob-old.pd new file mode 100644 index 0000000..fd58326 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/externals/chord-prob-old.pd @@ -0,0 +1,299 @@ +#N canvas 15 50 1560 870 10; +#X obj 9 -9 inlet; +#X text 729 38 scale velocity too; +#X text 579 71 textfile stuff to remeber chord junk; +#X text 588 94 or not use fancy algo?; +#X text 551 184 3rd voice: off \, aug4th \, 4th sharp(lol idk) \, 5th +\, 6th; +#X text 552 207 4th voice: off \, 5th \, 6th \, 6th sharp \, 7th \, +octave; +#X text 549 134 1st voice :off \, root \, 2nd; +#X obj 103 415 sel 0 1 2, f 18; +#X msg 185 437 2; +#X text 551 157 2nd voice: off \, 2nd \, min 3rd \, maj 3rd \, aug4th +; +#X msg 1242 422 -1; +#X msg 1283 422 7; +#X msg 1324 422 9; +#X msg 1362 422 10; +#X obj 1242 400 sel 0 1 2 3 4 5, f 36; +#X msg 1404 422 11; +#X msg 1447 424 12; +#X obj 1342 472 f; +#X msg 810 458 -1; +#X obj 911 499 f; +#X msg 851 449 5; +#X msg 892 449 6; +#X msg 930 449 7; +#X msg 972 449 9; +#X obj 810 427 sel 0 1 2 3 4, f 30; +#X msg 409 452 -1; +#X obj 509 502 f; +#X obj 409 430 sel 0 1 2 3 4, f 30; +#X msg 450 452 2; +#X msg 491 452 3; +#X msg 529 452 4; +#X msg 571 452 5; +#X obj 144 483 f; +#X msg 103 437 0; +#X msg 144 438 1; +#X obj 13 79 unpack 0 0, f 14; +#X obj 13 201 s \$0-root; +#X obj 108 210 s \$0-vel; +#X obj 35 586 pack 0 0, f 20; +#X obj 172 517 r \$0-vel; +#X obj 35 475 r \$0-root; +#X obj 35 537 +, f 16; +#X obj 103 284 r \$0-trig; +#X obj 409 280 r \$0-trig; +#X obj 810 278 r \$0-trig; +#X obj 1242 246 r \$0-trig; +#X obj 402 592 pack 0 0, f 20; +#X obj 539 526 r \$0-vel; +#X obj 402 501 r \$0-root; +#X obj 402 523 +, f 16; +#X obj 802 602 pack 0 0, f 20; +#X obj 939 536 r \$0-vel; +#X obj 802 511 r \$0-root; +#X obj 802 533 +, f 16; +#X obj 1233 607 pack 0 0, f 20; +#X obj 1364 549 r \$0-vel; +#X obj 1233 475 r \$0-root; +#X obj 1233 547 +, f 16; +#X obj 108 102 sel 0, f 10; +#X msg 108 124 0; +#X obj 192 200 metro \$1, f 13; +#X obj 108 146 t f f; +#X msg 207 162 1; +#X obj 280 28 inlet rate of Change; +#X obj 310 181 s \$0-trig; +#X obj 175 130 t f b b, f 13; +#X obj 192 252 s \$0-re-trig; +#N canvas 4 50 450 300 retrigger 0; +#X obj 66 72 r \$0-re-trig; +#X msg 256 153 0; +#X obj 175 125 t b b, f 12; +#X obj 66 100 t b b b, f 16; +#X text 269 123 note off 1st; +#X obj 22 229 outlet note; +#X obj 116 230 outlet vel; +#X obj 358 234 outlet trigger; +#X obj 66 122 t b b; +#X msg 98 148 100; +#X connect 0 0 3 0; +#X connect 1 0 6 0; +#X connect 2 0 5 0; +#X connect 2 1 1 0; +#X connect 3 0 8 0; +#X connect 3 1 7 0; +#X connect 3 2 2 0; +#X connect 8 0 5 0; +#X connect 8 1 9 0; +#X connect 9 0 6 0; +#X restore 1391 490 pd retrigger; +#N canvas 4 50 450 300 retrigger 0; +#X obj 66 72 r \$0-re-trig; +#X msg 256 153 0; +#X obj 175 125 t b b, f 12; +#X obj 66 100 t b b b, f 16; +#X text 269 123 note off 1st; +#X obj 22 229 outlet note; +#X obj 116 230 outlet vel; +#X obj 358 234 outlet trigger; +#X obj 66 122 t b b; +#X msg 98 148 100; +#X connect 0 0 3 0; +#X connect 1 0 6 0; +#X connect 2 0 5 0; +#X connect 2 1 1 0; +#X connect 3 0 8 0; +#X connect 3 1 7 0; +#X connect 3 2 2 0; +#X connect 8 0 5 0; +#X connect 8 1 9 0; +#X connect 9 0 6 0; +#X restore 1000 494 pd retrigger; +#N canvas 6 50 450 300 retrigger 0; +#X obj 66 72 r \$0-re-trig; +#X msg 256 153 0; +#X obj 175 125 t b b, f 12; +#X obj 66 100 t b b b, f 16; +#X text 269 123 note off 1st; +#X obj 22 229 outlet note; +#X obj 116 230 outlet vel; +#X obj 358 234 outlet trigger; +#X obj 66 122 t b b; +#X msg 98 148 100; +#X connect 0 0 3 0; +#X connect 1 0 6 0; +#X connect 2 0 5 0; +#X connect 2 1 1 0; +#X connect 3 0 8 0; +#X connect 3 1 7 0; +#X connect 3 2 2 0; +#X connect 8 0 5 0; +#X connect 8 1 9 0; +#X connect 9 0 6 0; +#X restore 577 481 pd retrigger; +#N canvas 4 50 450 300 retrigger 0; +#X obj 66 72 r \$0-re-trig; +#X msg 256 153 0; +#X obj 175 125 t b b, f 12; +#X obj 66 100 t b b b, f 16; +#X text 269 123 note off 1st; +#X obj 22 229 outlet note; +#X obj 116 230 outlet vel; +#X obj 358 234 outlet trigger; +#X obj 66 122 t b b; +#X msg 98 148 100; +#X connect 0 0 3 0; +#X connect 1 0 6 0; +#X connect 2 0 5 0; +#X connect 2 1 1 0; +#X connect 3 0 8 0; +#X connect 3 1 7 0; +#X connect 3 2 2 0; +#X connect 8 0 5 0; +#X connect 8 1 9 0; +#X connect 9 0 6 0; +#X restore 184 483 pd retrigger; +#X obj 35 608 s \$0-note-out; +#X obj 402 614 s \$0-note-out; +#X obj 802 624 s \$0-note-out; +#X obj 1233 629 s \$0-note-out; +#X obj 309 749 r \$0-note-out; +#X obj 309 771 outlet notes; +#X text 986 39 Arg 1: rate of change in ms; +#X obj 585 553 sel 0; +#X obj 634 592 t b; +#X obj 539 548 f; +#X obj 217 562 sel 0; +#X obj 239 587 t b; +#X obj 171 557 f; +#X obj 977 574 sel 0; +#X obj 999 599 t b; +#X obj 931 569 f; +#X obj 1410 582 sel 0; +#X obj 1432 607 t b; +#X obj 1364 577 f; +#X msg 585 575 0; +#X msg 217 584 0; +#X msg 977 596 0; +#X msg 1397 619 0; +#X obj 809 377 random 5; +#X obj 1242 348 random 6; +#X obj 409 302 random 5; +#X obj 103 306 random 3; +#X connect 0 0 35 0; +#X connect 7 0 33 0; +#X connect 7 1 34 0; +#X connect 7 2 8 0; +#X connect 8 0 32 0; +#X connect 10 0 17 0; +#X connect 11 0 17 0; +#X connect 12 0 17 0; +#X connect 13 0 17 0; +#X connect 14 0 10 0; +#X connect 14 1 11 0; +#X connect 14 2 12 0; +#X connect 14 3 13 0; +#X connect 14 4 15 0; +#X connect 14 5 16 0; +#X connect 15 0 17 0; +#X connect 16 0 17 0; +#X connect 17 0 57 1; +#X connect 18 0 19 0; +#X connect 19 0 53 1; +#X connect 20 0 19 0; +#X connect 21 0 19 0; +#X connect 22 0 19 0; +#X connect 23 0 19 0; +#X connect 24 0 18 0; +#X connect 24 1 20 0; +#X connect 24 2 21 0; +#X connect 24 3 22 0; +#X connect 24 4 23 0; +#X connect 25 0 26 0; +#X connect 26 0 49 1; +#X connect 27 0 25 0; +#X connect 27 1 28 0; +#X connect 27 2 29 0; +#X connect 27 3 30 0; +#X connect 27 4 31 0; +#X connect 28 0 26 0; +#X connect 29 0 26 0; +#X connect 30 0 26 0; +#X connect 31 0 26 0; +#X connect 32 0 41 1; +#X connect 33 0 32 0; +#X connect 34 0 32 0; +#X connect 35 0 36 0; +#X connect 35 1 58 0; +#X connect 38 0 71 0; +#X connect 39 0 83 0; +#X connect 40 0 41 0; +#X connect 41 0 38 0; +#X connect 42 0 97 0; +#X connect 43 0 96 0; +#X connect 44 0 94 0; +#X connect 45 0 95 0; +#X connect 46 0 72 0; +#X connect 47 0 80 0; +#X connect 48 0 49 0; +#X connect 49 0 46 0; +#X connect 50 0 73 0; +#X connect 51 0 86 0; +#X connect 52 0 53 0; +#X connect 53 0 50 0; +#X connect 54 0 74 0; +#X connect 55 0 89 0; +#X connect 56 0 57 0; +#X connect 57 0 54 0; +#X connect 58 0 59 0; +#X connect 58 1 65 0; +#X connect 59 0 61 0; +#X connect 60 0 66 0; +#X connect 61 0 37 0; +#X connect 61 1 60 0; +#X connect 62 0 60 0; +#X connect 63 0 60 1; +#X connect 65 0 37 0; +#X connect 65 1 62 0; +#X connect 65 2 66 0; +#X connect 67 0 57 0; +#X connect 67 1 87 0; +#X connect 67 2 95 0; +#X connect 68 0 53 0; +#X connect 68 1 84 0; +#X connect 68 2 94 0; +#X connect 69 0 49 0; +#X connect 69 1 78 0; +#X connect 69 2 96 0; +#X connect 70 0 41 0; +#X connect 70 1 81 0; +#X connect 70 2 97 0; +#X connect 75 0 76 0; +#X connect 78 0 90 0; +#X connect 78 1 79 0; +#X connect 79 0 80 0; +#X connect 80 0 46 1; +#X connect 81 0 91 0; +#X connect 81 1 82 0; +#X connect 82 0 83 0; +#X connect 83 0 38 1; +#X connect 84 0 92 0; +#X connect 84 1 85 0; +#X connect 85 0 86 0; +#X connect 86 0 50 1; +#X connect 87 0 93 0; +#X connect 87 1 88 0; +#X connect 88 0 89 0; +#X connect 89 0 54 1; +#X connect 90 0 46 1; +#X connect 91 0 38 1; +#X connect 92 0 50 1; +#X connect 93 0 54 1; +#X connect 94 0 24 0; +#X connect 95 0 14 0; +#X connect 96 0 27 0; +#X connect 97 0 7 0; diff --git a/Samplers/Tapey/cg-pdlib-local/externals/chord-prob.pd b/Samplers/Tapey/cg-pdlib-local/externals/chord-prob.pd new file mode 100644 index 0000000..3598044 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/externals/chord-prob.pd @@ -0,0 +1,150 @@ +#N canvas 392 228 1277 816 10; +#X obj 192 58 list split 1; +#X obj 596 765 outlet 2-poly; +#X obj 20 11 inlet from-poly; +#X obj 192 100 t b a; +#X obj 964 39 loadbang; +#X obj 964 61 f \$1; +#X text 231 10 arg.1: size of poly; +#X obj 424 29 inlet; +#X obj 582 29 inlet; +#X obj 424 121 s \$0-time; +#X obj 582 161 s \$0-probs; +#X obj 550 266 metro; +#X obj 582 237 r \$0-time; +#X obj 424 51 max 20; +#X obj 424 73 min 2000; +#X obj 582 51 max 1; +#X obj 582 73 min 100; +#X obj 20 32 t a a a, f 25; +#X obj 550 399 f; +#X obj 593 399 + 1; +#X obj 242 109 swap, f 16; +#X obj 242 87 unpack, f 16; +#X obj 242 131 sel 0, f 12; +#X obj 323 193 f, f 5; +#X msg 242 153 0; +#X obj 212 170 - 1; +#X obj 550 510 route 0; +#X obj 185 365 sel 0, f 7; +#X obj 231 387 t b b; +#X msg 217 416 -1; +#X msg 265 416 1; +#X obj 185 387 t b b; +#X obj 217 454 + 1; +#X obj 106 317 list split 1; +#X obj 146 342 unpack; +#X obj 185 454 f 0; +#X obj 217 476 s \$0-theCount; +#X msg 550 234 1; +#X obj 596 603 >, f 13; +#X obj 323 158 t b; +#X obj 226 219 f; +#X obj 596 701 f, f 13; +#X obj 550 443 t f f, f 22; +#X obj 819 556 + 1; +#X obj 596 733 pack 0 0, f 16; +#X obj 596 574 random 100; +#X obj 685 545 r \$0-probs; +#X obj 596 531 t b; +#X obj 705 127 r \$0-theCount; +#X obj 550 294 spigot; +#X obj 424 95 i; +#X obj 964 83 i; +#X obj 582 95 i; +#X msg 582 117 100 \$1; +#X obj 582 139 -; +#X obj 964 138 array define \$0-probs-txt; +#X obj 550 482 tabread \$0-probs-txt; +#X obj 192 295 tabwrite \$0-probs-txt; +#X msg 964 109 resize \$1; +#X obj 550 374 until; +#X msg 586 351 0; +#X obj 550 316 t b b; +#X obj 596 629 sel 0 1, f 21; +#X obj 596 652 t b b; +#X obj 668 652 t b b; +#X msg 628 674 -1; +#X msg 700 674 0; +#X obj 705 171 t f f f; +#X obj 550 352 f \$1; +#X text 851 22 store played notes and which voice they went to; +#X connect 0 0 3 0; +#X connect 0 1 21 0; +#X connect 2 0 17 0; +#X connect 3 0 40 0; +#X connect 3 1 25 0; +#X connect 4 0 5 0; +#X connect 5 0 51 0; +#X connect 7 0 13 0; +#X connect 8 0 15 0; +#X connect 11 0 49 0; +#X connect 12 0 11 1; +#X connect 13 0 14 0; +#X connect 14 0 50 0; +#X connect 15 0 16 0; +#X connect 16 0 52 0; +#X connect 17 1 33 0; +#X connect 17 2 0 0; +#X connect 18 0 19 0; +#X connect 18 0 42 0; +#X connect 19 0 18 1; +#X connect 20 0 22 0; +#X connect 20 1 23 1; +#X connect 21 0 20 0; +#X connect 21 1 20 1; +#X connect 22 0 24 0; +#X connect 22 1 39 0; +#X connect 23 0 40 1; +#X connect 24 0 40 1; +#X connect 25 0 57 1; +#X connect 26 1 47 0; +#X connect 27 0 31 0; +#X connect 27 1 28 0; +#X connect 28 0 35 0; +#X connect 28 1 30 0; +#X connect 29 0 32 1; +#X connect 30 0 32 1; +#X connect 31 0 35 0; +#X connect 31 1 29 0; +#X connect 32 0 35 1; +#X connect 32 0 36 0; +#X connect 33 1 34 0; +#X connect 34 1 27 0; +#X connect 35 0 32 0; +#X connect 37 0 11 0; +#X connect 38 0 62 0; +#X connect 39 0 23 0; +#X connect 40 0 57 0; +#X connect 41 0 44 0; +#X connect 42 0 56 0; +#X connect 42 1 43 0; +#X connect 43 0 41 1; +#X connect 44 0 1 0; +#X connect 45 0 38 0; +#X connect 46 0 38 1; +#X connect 47 0 45 0; +#X connect 48 0 67 0; +#X connect 49 0 61 0; +#X connect 50 0 9 0; +#X connect 51 0 58 0; +#X connect 52 0 53 0; +#X connect 53 0 54 0; +#X connect 54 0 10 0; +#X connect 56 0 26 0; +#X connect 58 0 55 0; +#X connect 59 0 18 0; +#X connect 60 0 18 1; +#X connect 61 0 68 0; +#X connect 61 1 60 0; +#X connect 62 0 63 0; +#X connect 62 1 64 0; +#X connect 63 0 41 0; +#X connect 63 1 65 0; +#X connect 64 0 41 0; +#X connect 64 1 66 0; +#X connect 65 0 44 1; +#X connect 66 0 44 1; +#X connect 67 0 37 0; +#X connect 67 1 49 1; +#X connect 68 0 59 0; diff --git a/Samplers/Tapey/cg-pdlib-local/externals/clocker.pd_linux b/Samplers/Tapey/cg-pdlib-local/externals/clocker.pd_linux new file mode 100644 index 0000000..a64171f Binary files /dev/null and b/Samplers/Tapey/cg-pdlib-local/externals/clocker.pd_linux differ diff --git a/Samplers/Tapey/cg-pdlib-local/externals/clockfix.pd_linux b/Samplers/Tapey/cg-pdlib-local/externals/clockfix.pd_linux new file mode 100644 index 0000000..9afc0a7 Binary files /dev/null and b/Samplers/Tapey/cg-pdlib-local/externals/clockfix.pd_linux differ diff --git a/Samplers/Tapey/cg-pdlib-local/externals/libabl_link~.so b/Samplers/Tapey/cg-pdlib-local/externals/libabl_link~.so new file mode 100755 index 0000000..14937e0 Binary files /dev/null and b/Samplers/Tapey/cg-pdlib-local/externals/libabl_link~.so differ diff --git a/Samplers/Tapey/cg-pdlib-local/externals/note-on-off.pd b/Samplers/Tapey/cg-pdlib-local/externals/note-on-off.pd new file mode 100644 index 0000000..2d57231 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/externals/note-on-off.pd @@ -0,0 +1,65 @@ +#N canvas 317 117 1229 806 10; +#X obj 148 173 bag; +#X msg 254 244 stop; +#X msg 489 292 0; +#X msg 194 301 1; +#X obj 280 343 f; +#X obj 148 75 inlet notes; +#X msg 190 135 flush; +#X obj 148 455 route 1, f 36; +#X obj 194 651 bag; +#X msg 194 620 \$1 100; +#X obj 280 365 sel 1; +#X msg 331 594 1; +#X obj 148 527 t f b; +#X obj 313 686 f; +#X obj 194 219 t b b, f 9; +#X obj 280 387 t b b; +#X msg 280 419 flush; +#X obj 194 695 s \$0-recycle; +#X obj 99 49 r \$0-recycle; +#X msg 194 673 \$1 100; +#X obj 148 559 route 0; +#X obj 313 723 outlet; +#X obj 148 487 f, f 5; +#X obj 365 67 inlet is this note on?; +#X text 642 241 Ask is a certain note on; +#X text 639 289 Outputs 1 for yes \, 0 for no.; +#X obj 194 279 del 1; +#X obj 148 195 t f b b; +#X obj 365 99 t b b f b b; +#X connect 0 0 27 0; +#X connect 1 0 26 0; +#X connect 2 0 4 0; +#X connect 2 0 13 1; +#X connect 3 0 4 0; +#X connect 4 0 10 0; +#X connect 5 0 0 0; +#X connect 6 0 0 0; +#X connect 7 0 22 0; +#X connect 7 1 20 0; +#X connect 8 0 19 0; +#X connect 9 0 8 0; +#X connect 10 0 15 0; +#X connect 11 0 13 1; +#X connect 12 0 20 0; +#X connect 12 1 11 0; +#X connect 13 0 21 0; +#X connect 14 0 26 0; +#X connect 14 1 1 0; +#X connect 15 0 16 0; +#X connect 15 1 13 0; +#X connect 16 0 8 0; +#X connect 18 0 0 0; +#X connect 19 0 17 0; +#X connect 20 1 9 0; +#X connect 22 0 12 0; +#X connect 23 0 28 0; +#X connect 26 0 3 0; +#X connect 27 0 7 0; +#X connect 27 2 14 0; +#X connect 28 0 6 0; +#X connect 28 1 14 0; +#X connect 28 2 7 1; +#X connect 28 2 22 1; +#X connect 28 3 2 0; diff --git a/Samplers/Tapey/cg-pdlib-local/externals/note-tracker.pd b/Samplers/Tapey/cg-pdlib-local/externals/note-tracker.pd new file mode 100644 index 0000000..e24ce4b --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/externals/note-tracker.pd @@ -0,0 +1,60 @@ +#N canvas 314 57 1478 861 10; +#X obj 148 233 bag; +#X obj 91 78 inlet notes; +#X msg 148 185 flush; +#X obj 180 642 bag; +#X msg 180 611 \$1 100; +#X obj 180 686 s \$0-recycle; +#X obj 42 52 r \$0-recycle; +#X msg 180 664 \$1 100; +#X text 642 241 Ask is a certain note on; +#X text 639 289 Outputs 1 for yes \, 0 for no.; +#X obj 193 347 f, f 10; +#X obj 296 347 + 1; +#X obj 148 587 t f f; +#X obj 349 411 t b b; +#X msg 398 432 stop; +#X msg 381 517 flush; +#X obj 148 255 t f b b, f 29; +#X obj 319 534 f; +#X obj 349 481 t b b; +#X obj 319 733 outlet number of ons; +#X obj 148 730 outlet the ons; +#X obj 349 459 del 1; +#X obj 193 369 + 1; +#X msg 255 205 0; +#X obj 148 156 t b b b b, f 57; +#X msg 569 376 0; +#X obj 241 55 inlet get the list; +#X connect 0 0 16 0; +#X connect 1 0 0 0; +#X connect 2 0 0 0; +#X connect 3 0 7 0; +#X connect 4 0 3 0; +#X connect 6 0 0 0; +#X connect 7 0 5 0; +#X connect 10 0 11 0; +#X connect 10 0 22 0; +#X connect 11 0 10 1; +#X connect 12 0 20 0; +#X connect 12 1 4 0; +#X connect 13 0 21 0; +#X connect 13 1 14 0; +#X connect 14 0 21 0; +#X connect 15 0 3 0; +#X connect 16 0 12 0; +#X connect 16 1 10 0; +#X connect 16 2 13 0; +#X connect 17 0 19 0; +#X connect 18 0 17 0; +#X connect 18 1 15 0; +#X connect 21 0 18 0; +#X connect 22 0 17 0; +#X connect 23 0 10 1; +#X connect 24 0 2 0; +#X connect 24 1 23 0; +#X connect 24 1 13 0; +#X connect 24 2 14 0; +#X connect 24 3 25 0; +#X connect 25 0 17 1; +#X connect 26 0 24 0; diff --git a/Samplers/Tapey/cg-pdlib-local/metronome/metronome360.pd b/Samplers/Tapey/cg-pdlib-local/metronome/metronome360.pd new file mode 100644 index 0000000..b411e9f --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/metronome/metronome360.pd @@ -0,0 +1,318 @@ +#N canvas 4 203 1337 586 10; +#X obj 321 69 inlet start/stop; +#X obj 321 91 s \$0-strtStop; +#X text 38 307 Arg 1: internal bpm on or off; +#X text 328 44 start stop; +#X text 1086 532 multiply 24 ppq midi clock by 15 to get 360 ppq; +#X text 37 159 This metronome outputs 360 ticks per beat numbered 0-359. +If Ableton LINK session or MIDI clock is present it will latch onto +those \, otherwise it uses internal clock. It uses link object to also +generate the internal clock. It takes tempo and start/stop input and +outputs ticks 0-359; +#X text 37 253 It also outputs the tempo and clock source useful for +display purposes.; +#X text 87 758 the clockfix object ensures there are always 360 ticks +numbered 0-359. This is necessary when tempos increases to the point +where a tick is shorter than a dsp cycle in Pd (otherwise some numbers +get skipped). also necessary for lower resolution clock sources like +midi clock. it doesn't interpolate \, but does ensure we always get +0-359 no matter what goes in.; +#X floatatom 781 294 5 0 0 1 tempo - -; +#X obj 553 423 * 360; +#X obj 553 445 i; +#X obj 500 128 moses 10; +#X obj 1001 52 midirealtimein; +#X text 1317 93 MIDI 248 = clock \; 250 = start \; 251 = continue. +252 = stop; +#X obj 1001 103 sel 248 250 251 252 254, f 38; +#X obj 500 65 inlet tempo; +#X obj 553 327 spigot 0; +#X obj 606 297 r \$0-strtStop; +#X obj 1086 556 r link-session-present; +#X obj 553 894 outlet beat-clock; +#X obj 781 844 outlet Tempo; +#N canvas 303 750 292 294 mstobpm 0; +#X obj 46 14 inlet; +#X obj 47 248 outlet; +#X obj 46 108 t b b; +#X obj 46 79 sel 0; +#X text 87 47 time 16th notes; +#X obj 46 145 timer; +#X obj 46 46 % 12; +#X obj 46 182 expr 30000 / $f1; +#X connect 0 0 6 0; +#X connect 2 0 5 0; +#X connect 2 1 5 1; +#X connect 3 0 2 0; +#X connect 5 0 7 0; +#X connect 6 0 3 0; +#X connect 7 0 1 0; +#X restore 903 690 pd mstobpm; +#X obj 949 742 r midi-clock-present; +#X obj 903 770 spigot 0; +#N canvas 465 318 729 612 average-bpm 0; +#X obj 98 20 inlet; +#X obj 360 226 + 1; +#X obj 251 189 t a b; +#X obj 330 224 f 0; +#X obj 48 185 array sum \$0-bpm-mean; +#X obj 98 42 t b a; +#X obj 48 229 + 0.499999; +#X obj 48 251 i; +#X obj 48 273 outlet; +#X obj 284 11 loadbang; +#X msg 284 33 const 120; +#X obj 251 280 array set \$0-bpm-mean 5; +#X obj 48 207 / 5; +#X obj 330 246 % 5; +#X obj 284 58 array define -k \$0-bpm-mean 5; +#A 0 120 120 120 120 120; +#X floatatom 230 131 5 0 0 0 - - -; +#X connect 0 0 5 0; +#X connect 1 0 3 1; +#X connect 2 0 11 0; +#X connect 2 1 3 0; +#X connect 3 0 1 0; +#X connect 3 0 13 0; +#X connect 4 0 12 0; +#X connect 5 0 4 0; +#X connect 5 1 2 0; +#X connect 5 1 15 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 9 0 10 0; +#X connect 10 0 14 0; +#X connect 12 0 6 0; +#X connect 13 0 11 1; +#X restore 903 713 pd average-bpm; +#X obj 1173 319 delay 1000; +#X msg 1115 321 1; +#X obj 1001 256 t b b b b, f 25; +#X msg 1173 294 stop; +#X msg 1173 343 0; +#X obj 1115 454 s midi-clock-present; +#X obj 1145 378 + 1; +#X obj 1115 378 f 0; +#X obj 1115 400 % 2; +#X obj 1001 415 f; +#X obj 1059 414 + 1; +#X obj 1001 437 t f f; +#X obj 1001 482 % 24; +#X obj 1001 380 spigot 0; +#X obj 1033 536 * 15; +#X obj 1033 586 i; +#X obj 1033 608 spigot 0; +#X obj 1086 583 ==; +#X obj 634 364 ==; +#X obj 634 342 r midi-clock-present; +#X obj 1158 129 s midi-stop; +#X obj 1053 188 s midi-start; +#X obj 1470 398 midiout; +#X obj 1416 304 r midi-ticks; +#X msg 1416 326 248; +#X obj 1416 252 r midi-start; +#X obj 1106 158 s midi-cont; +#X obj 1470 333 r midi-cont; +#X msg 1470 355 251; +#X msg 1416 274 250; +#X obj 1547 254 r midi-stop; +#X msg 1547 276 252; +#X text 1445 225 clock through and out; +#X obj 1304 815 outlet Clock-source; +#X obj 553 389 spigot 1, f 12; +#X obj 553 473 t f b; +#X obj 603 489 r link-session-present; +#X obj 585 565 sel 0 1, f 23; +#X obj 585 697 s \$0-clock-source; +#X obj 1305 727 r \$0-clock-source; +#X obj 585 521 f 0; +#X obj 553 772 clockfix; +#X obj 1065 680 s \$0-clock-source; +#X obj 1033 630 t f b; +#X msg 1065 657 2; +#X msg 702 643 3; +#X obj 1304 768 change -1; +#X obj 781 816 change -1; +#X obj 553 234 f; +#X obj 581 138 r midi-clock-present; +#X obj 607 163 r link-session-present; +#X obj 581 190 sel 0; +#N canvas 33 50 815 554 LINK 0; +#X msg 355 126 tempo \$1; +#X msg 144 127 resolution \$1; +#X msg 247 147 reset \$1 \$2; +#X obj 247 126 pack f f; +#X floatatom 266 247 5 0 0 1 beat_time - -; +#X floatatom 180 285 5 0 0 1 step - -; +#X floatatom 378 246 5 0 0 1 tempo - -; +#X obj 59 105 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 180 199 abl_link~ 1 0 4 134; +#X floatatom 355 107 5 0 0 2 tempo - -; +#X floatatom 292 107 5 0 0 2 quantum - -; +#X floatatom 247 107 5 0 0 2 beat - -; +#X floatatom 144 107 5 0 0 2 resolution - -; +#X msg 59 125 connect \$1; +#X floatatom 510 231 5 0 0 0 - - -; +#X obj 510 209 r #abl_link_num_peers; +#X obj 32 45 loadbang; +#X obj 32 67 delay 100; +#X obj 267 326 wrap; +#X obj 285 31 inlet; +#X obj 388 273 i; +#X obj 267 388 outlet; +#X obj 388 295 outlet; +#X obj 510 261 > 0; +#X obj 510 283 s link-session-present; +#X connect 0 0 8 0; +#X connect 1 0 8 0; +#X connect 2 0 8 0; +#X connect 3 0 2 0; +#X connect 6 0 20 0; +#X connect 7 0 13 0; +#X connect 8 0 5 0; +#X connect 8 1 18 0; +#X connect 8 2 4 0; +#X connect 8 3 6 0; +#X connect 9 0 0 0; +#X connect 10 0 3 1; +#X connect 11 0 3 0; +#X connect 12 0 1 0; +#X connect 13 0 8 0; +#X connect 14 0 23 0; +#X connect 15 0 14 0; +#X connect 16 0 17 0; +#X connect 17 0 7 0; +#X connect 18 0 21 0; +#X connect 19 0 9 0; +#X connect 20 0 22 0; +#X connect 23 0 24 0; +#X restore 553 265 pd LINK - - - - - - - - - - - - -; +#X obj 585 604 f \$1; +#X msg 585 648 4; +#X obj 585 625 sel 0 1, f 12; +#X msg 625 649 1; +#X obj 1001 504 t f f; +#X text 1464 735 1 = internal bpm(set by og knob); +#X text 1464 795 4 = Hidden default bpm(off); +#X obj 781 464 spigot 1, f 12; +#X obj 1534 549 sel 1 2 3 4; +#X msg 1625 597 0; +#X msg 1568 599 1; +#X obj 1543 639 s metro-state; +#X obj 553 794 t f f; +#X obj 585 817 % 15; +#X obj 585 839 sel 0; +#X obj 585 861 s midi-ticks; +#X obj 1001 125 t b b; +#X text 1464 755 2 = MIDI BPM; +#X text 1464 775 3 = LINK BPM; +#X obj 1407 484 loadbang; +#X obj 1407 505 \$1; +#X obj 1407 581 s \$0-clock-source; +#X msg 1407 547 1; +#X obj 1407 526 sel 1 0; +#X msg 1436 547 4; +#X obj 918 309 r midi-start; +#X msg 918 330 0; +#X connect 0 0 1 0; +#X connect 8 0 85 0; +#X connect 9 0 10 0; +#X connect 10 0 60 0; +#X connect 11 1 73 0; +#X connect 12 0 14 0; +#X connect 14 0 94 0; +#X connect 14 1 46 0; +#X connect 14 2 51 0; +#X connect 14 3 45 0; +#X connect 15 0 11 0; +#X connect 16 0 59 0; +#X connect 17 0 16 1; +#X connect 18 0 42 0; +#X connect 21 0 24 0; +#X connect 22 0 23 1; +#X connect 23 0 72 0; +#X connect 24 0 23 0; +#X connect 25 0 29 0; +#X connect 26 0 32 0; +#X connect 27 0 38 0; +#X connect 27 1 25 0; +#X connect 27 2 26 0; +#X connect 27 3 28 0; +#X connect 28 0 25 0; +#X connect 29 0 32 0; +#X connect 31 0 32 1; +#X connect 32 0 31 0; +#X connect 32 0 33 0; +#X connect 33 0 38 1; +#X connect 33 0 30 0; +#X connect 34 0 36 0; +#X connect 35 0 34 1; +#X connect 36 0 37 0; +#X connect 36 1 35 0; +#X connect 37 0 82 0; +#X connect 38 0 34 0; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 41 0 68 0; +#X connect 42 0 41 1; +#X connect 43 0 59 1; +#X connect 43 0 85 1; +#X connect 44 0 43 0; +#X connect 48 0 49 0; +#X connect 49 0 47 0; +#X connect 50 0 54 0; +#X connect 52 0 53 0; +#X connect 53 0 47 0; +#X connect 54 0 47 0; +#X connect 55 0 56 0; +#X connect 56 0 47 0; +#X connect 59 0 9 0; +#X connect 60 0 66 0; +#X connect 60 1 65 0; +#X connect 61 0 65 1; +#X connect 62 0 78 0; +#X connect 62 1 70 0; +#X connect 64 0 71 0; +#X connect 65 0 62 0; +#X connect 66 0 90 0; +#X connect 68 0 66 0; +#X connect 68 1 69 0; +#X connect 69 0 67 0; +#X connect 70 0 63 0; +#X connect 71 0 58 0; +#X connect 71 0 86 0; +#X connect 72 0 20 0; +#X connect 73 0 77 0; +#X connect 74 0 76 0; +#X connect 75 0 76 0; +#X connect 76 0 73 0; +#X connect 77 0 16 0; +#X connect 77 1 8 0; +#X connect 78 0 80 0; +#X connect 79 0 63 0; +#X connect 80 0 79 0; +#X connect 80 1 81 0; +#X connect 81 0 63 0; +#X connect 82 0 21 0; +#X connect 82 1 39 0; +#X connect 85 0 72 0; +#X connect 86 0 88 0; +#X connect 86 1 88 0; +#X connect 86 2 88 0; +#X connect 86 3 87 0; +#X connect 87 0 89 0; +#X connect 88 0 89 0; +#X connect 90 0 19 0; +#X connect 90 1 91 0; +#X connect 91 0 92 0; +#X connect 92 0 93 0; +#X connect 94 0 27 0; +#X connect 97 0 98 0; +#X connect 98 0 101 0; +#X connect 100 0 99 0; +#X connect 101 0 100 0; +#X connect 101 1 102 0; +#X connect 102 0 99 0; +#X connect 103 0 104 0; +#X connect 104 0 34 1; diff --git a/Samplers/Tapey/cg-pdlib-local/sampling/load-rec-sample.pd b/Samplers/Tapey/cg-pdlib-local/sampling/load-rec-sample.pd new file mode 100644 index 0000000..6a5f6a3 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sampling/load-rec-sample.pd @@ -0,0 +1,370 @@ +#N canvas 188 289 922 755 10; +#X obj 84 18 inlet~ sound-in; +#X obj 252 15 inlet~ sound-for-trigger; +#N canvas 812 193 940 442 peak-trigger 0; +#X obj 56 30 inlet~; +#X obj 56 252 outlet; +#X obj 56 172 spigot 0; +#X obj 56 194 t b b; +#X msg 141 194 0; +#X obj 247 9 inlet; +#X obj 266 58 t b b b; +#X msg 305 79 stop; +#X msg 285 120 1; +#X obj 101 48 r \$1-\$2-mute-rec; +#X msg 101 69 0; +#X obj 247 30 sel 0 1; +#X msg 247 91 0; +#X obj 285 99 del 350; +#X obj 381 17 inlet; +#X obj 56 109 threshold~ 0.1 5 0.1 5; +#X msg 381 48 set \$1 5 \$1 5; +#X text 331 97 delay to avod the 'click' when triggering the record +with the internal mic on; +#X connect 0 0 15 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 3 1 4 0; +#X connect 4 0 2 1; +#X connect 5 0 11 0; +#X connect 6 1 13 0; +#X connect 6 2 7 0; +#X connect 7 0 13 0; +#X connect 8 0 2 1; +#X connect 9 0 10 0; +#X connect 10 0 2 1; +#X connect 11 0 12 0; +#X connect 11 1 6 0; +#X connect 12 0 2 1; +#X connect 13 0 8 0; +#X connect 14 0 16 0; +#X connect 15 0 2 0; +#X connect 16 0 15 0; +#X restore 252 115 pd peak-trigger; +#X obj 295 45 r \$0-open-trig; +#X obj 339 72 r \$1-trig-percent; +#N canvas 387 94 853 578 soundfiler 0; +#X obj 396 333 array define \$1-\$2; +#X obj 396 247 \$3; +#X obj 396 269 * 44.1; +#X msg 396 291 resize \$1; +#X obj 359 162 loadbang; +#X obj 39 464 soundfiler; +#X obj 135 126 symbol \$4; +#X obj 475 271 s \$0-load-params; +#X obj 136 39 r \$0-load-params; +#X obj 54 70 r \$0-size; +#X obj 39 93 f; +#X obj 39 45 r saveState; +#X obj 484 126 v local-\$0; +#X msg 484 102 0; +#X obj 484 78 r \$0-load-params; +#X obj 64 126 symbol \$1; +#X obj 194 244 symbol \$1; +#X obj 599 253 r \$0-size; +#X msg 635 329 0; +#X obj 39 498 s \$0-size; +#X obj 593 395 text define \$1-\$2-length; +#X obj 594 365 text set \$1-\$2-length; +#X obj 594 330 list; +#X obj 39 183 pack 0 s \$2 s; +#X obj 194 270 pack s \$2 s; +#X msg 39 333 write -wave -nframes \$1 ../../\$4/\$3.wav \$2-\$3; +#X obj 594 287 t a b, f 7; +#X obj 136 70 t b b; +#X msg 194 298 read ../../\$3/\$2.wav \$1-\$2; +#X obj 429 210 samplerate~; +#X obj 429 231 * 0.001; +#X obj 359 184 t b b b b, f 19; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 0 0; +#X connect 4 0 31 0; +#X connect 5 0 19 0; +#X connect 6 0 23 3; +#X connect 6 0 24 2; +#X connect 8 0 27 0; +#X connect 9 0 10 1; +#X connect 10 0 23 0; +#X connect 11 0 10 0; +#X connect 13 0 12 0; +#X connect 14 0 13 0; +#X connect 15 0 23 1; +#X connect 16 0 24 0; +#X connect 17 0 26 0; +#X connect 18 0 21 1; +#X connect 22 0 21 0; +#X connect 23 0 25 0; +#X connect 24 0 28 0; +#X connect 25 0 5 0; +#X connect 26 0 22 0; +#X connect 26 1 18 0; +#X connect 27 0 15 0; +#X connect 27 1 6 0; +#X connect 28 0 5 0; +#X connect 29 0 30 0; +#X connect 30 0 2 1; +#X connect 31 0 16 0; +#X connect 31 1 1 0; +#X connect 31 2 29 0; +#X connect 31 3 7 0; +#X restore 616 33 pd soundfiler; +#N canvas 63 105 1088 831 record! 0; +#X obj 37 11 inlet trigger; +#X obj 581 575 timer; +#X obj 596 695 outlet; +#X obj 596 608 * 44.1; +#X obj 596 630 max 4410, f 11; +#X obj 619 361 s 2-tab-\$0; +#X text 154 573 bang tabwrite \, open vline \, start timer; +#X obj 37 103 sel 0 1, f 83; +#X obj 723 350 del \$3; +#X obj 723 274 t b b; +#X msg 750 307 stop; +#X obj 856 287 v local-\$0; +#X msg 856 264 2; +#X text 779 352 max record delay; +#X text 861 247 set v to record; +#X text 554 439 start timer; +#X text 630 342 open the sound; +#X obj 106 265 s 2-vline-\$0; +#X msg 106 242 0; +#X msg 176 213 stop; +#X obj 38 304 t b b b b, f 20; +#X msg 723 372 0; +#X obj 723 394 s \$0-auto-oFf; +#X obj 142 11 r \$0-auto-oFf; +#X obj 154 361 s 2-tab-\$0; +#X msg 154 335 stop; +#X obj 38 455 pack s \$2; +#X obj 38 428 symbol \$1; +#X msg 38 499 \; \$1-\$2 normalize; +#X obj 71 350 v local-\$0; +#X msg 71 327 0; +#X obj 242 14 r \$0-stop-recOrd; +#X msg 125 413 0; +#X obj 989 246 pack s \$2; +#X obj 989 219 symbol \$1; +#X msg 988 269 \; \$1-\$2 const 0; +#X obj 326 169 t b b b b b b, f 111; +#X text 997 195 clear table; +#X obj 38 376 t b b, f 15; +#X obj 38 398 spigot \$5; +#X obj 125 436 s \$0-state; +#X obj 596 652 i; +#X text 641 609 convert to samples; +#X text 667 630 at least 1ms; +#X obj 38 166 t b b b b, f 35; +#X obj 629 470 samplerate~; +#X obj 629 491 t f f, f 13; +#X obj 704 549 * 0.1; +#X obj 629 579 * 0.001; +#X obj 629 448 r \$0-load-params; +#X obj 756 328 r \$1-\$2-max-rec; +#X obj 327 298 s 2-vline-\$0; +#X msg 327 275 1; +#X text 323 318 start rec; +#X obj 38 273 del 10; +#X obj 940 325 s 2-vline-\$0; +#X msg 940 302 3; +#X connect 0 0 7 0; +#X connect 1 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 41 0; +#X connect 7 0 44 0; +#X connect 7 1 36 0; +#X connect 8 0 21 0; +#X connect 9 0 8 0; +#X connect 9 1 10 0; +#X connect 10 0 8 0; +#X connect 12 0 11 0; +#X connect 18 0 17 0; +#X connect 19 0 54 0; +#X connect 20 0 38 0; +#X connect 20 1 30 0; +#X connect 20 2 1 1; +#X connect 20 3 25 0; +#X connect 21 0 22 0; +#X connect 23 0 7 0; +#X connect 25 0 24 0; +#X connect 26 0 28 0; +#X connect 27 0 26 0; +#X connect 30 0 29 0; +#X connect 31 0 7 0; +#X connect 32 0 40 0; +#X connect 33 0 35 0; +#X connect 34 0 33 0; +#X connect 36 0 52 0; +#X connect 36 1 1 0; +#X connect 36 2 5 0; +#X connect 36 3 9 0; +#X connect 36 4 12 0; +#X connect 36 5 34 0; +#X connect 36 5 56 0; +#X connect 38 0 39 0; +#X connect 38 1 32 0; +#X connect 39 0 27 0; +#X connect 41 0 2 0; +#X connect 44 0 54 0; +#X connect 44 1 18 0; +#X connect 44 2 19 0; +#X connect 44 3 10 0; +#X connect 45 0 46 0; +#X connect 46 0 48 0; +#X connect 46 1 47 0; +#X connect 47 0 4 1; +#X connect 48 0 3 1; +#X connect 49 0 45 0; +#X connect 50 0 8 1; +#X connect 52 0 51 0; +#X connect 54 0 20 0; +#X connect 56 0 55 0; +#X restore 252 222 pd record!; +#X obj 322 200 v local-\$0; +#X msg 322 178 2; +#X obj 252 244 s \$0-size; +#X obj 252 151 t b b b, f 24; +#X msg 393 178 2; +#X msg 252 173 1; +#X obj 393 200 s \$0-state; +#N canvas 23 50 779 537 actions 0; +#X obj 73 98 r \$1-\$2-arm; +#X obj 73 120 t b; +#X obj 73 142 v local-\$0; +#X obj 73 383 s \$0-open-trig; +#X msg 105 308 1; +#X obj 105 331 v local-\$0; +#X obj 283 328 s \$0-open-trig; +#X obj 246 268 v local-\$0; +#X msg 246 245 0; +#X msg 73 308 1; +#X msg 283 303 0; +#X obj 413 360 v local-\$0; +#X msg 413 337 0; +#X obj 381 397 s \$0-stop-recOrd; +#X msg 381 337 0; +#X obj 73 236 t b b b; +#X obj 212 218 t b b b, f 12; +#X msg 120 261 1; +#X msg 212 311 0; +#X msg 420 293 0; +#X obj 420 314 s \$0-state; +#X obj 212 342 s \$0-state; +#X obj 119 283 s \$0-state; +#X obj 428 -17 r \$1-\$2-kill; +#X obj 73 164 sel 0 1 2, f 70; +#X obj 515 -16 r \$1-global-kill; +#X obj 515 23 t b; +#X obj 515 45 v local-\$0; +#X msg 616 155 0; +#X obj 616 176 s \$0-state; +#X obj 666 153 v local-\$0; +#X msg 666 130 0; +#X obj 567 218 s \$0-stop-recOrd; +#X msg 567 158 0; +#X obj 515 66 sel 1 2, f 18; +#X obj 382 215 t b b b, f 10; +#X obj 567 92 t b b b, f 17; +#X obj 596 359 s \$0-open-trig; +#X obj 559 299 v local-\$0; +#X msg 559 276 0; +#X msg 596 334 0; +#X obj 525 249 t b b b, f 12; +#X msg 525 342 0; +#X obj 525 373 s \$0-state; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 24 0; +#X connect 4 0 5 0; +#X connect 8 0 7 0; +#X connect 9 0 3 0; +#X connect 10 0 6 0; +#X connect 12 0 11 0; +#X connect 14 0 13 0; +#X connect 15 0 9 0; +#X connect 15 1 4 0; +#X connect 15 2 17 0; +#X connect 16 0 18 0; +#X connect 16 1 8 0; +#X connect 16 2 10 0; +#X connect 17 0 22 0; +#X connect 18 0 21 0; +#X connect 19 0 20 0; +#X connect 23 0 26 0; +#X connect 24 0 15 0; +#X connect 24 1 16 0; +#X connect 24 2 35 0; +#X connect 25 0 26 0; +#X connect 26 0 27 0; +#X connect 27 0 34 0; +#X connect 28 0 29 0; +#X connect 31 0 30 0; +#X connect 33 0 32 0; +#X connect 34 0 41 0; +#X connect 34 1 36 0; +#X connect 35 0 14 0; +#X connect 35 1 12 0; +#X connect 35 2 19 0; +#X connect 36 0 33 0; +#X connect 36 1 28 0; +#X connect 36 2 31 0; +#X connect 39 0 38 0; +#X connect 40 0 37 0; +#X connect 41 0 42 0; +#X connect 41 1 39 0; +#X connect 41 2 40 0; +#X connect 42 0 43 0; +#X restore 617 69 pd actions; +#X obj 25 297 r \$0-state; +#X obj 25 407 s \$1-states; +#X obj 25 319 list prepend \$2; +#X obj 25 341 list trim; +#X text 108 408 <---- all states run to one send with same "sample +name"; +#X text 548 141 Arg1: Sample name(symbol \, e.g. "samp); +#X text 549 164 Arg2: Sample number (integer 0-inf); +#X text 547 186 Arg3: Max Time in ms (integer); +#X text 546 216 Arg4: Name of Folder to save sounds to \, located in +the main patch folder (e.g. "Sounds"); +#X text 548 256 Arg5: normalize on/off (default 0); +#X obj 84 205 tabwrite~ \$1-\$2; +#X obj 85 145 *~, f 16; +#X obj 104 177 r 2-tab-\$0; +#N canvas 8 50 749 525 vline 0; +#X obj 192 206 vline~; +#X obj 169 75 r 2-vline-\$0; +#X obj 192 260 outlet~; +#X obj 169 97 sel 0 1 3, f 16; +#X msg 277 148 0; +#X msg 148 174 0 10; +#X msg 199 141 1 10; +#X connect 0 0 2 0; +#X connect 1 0 3 0; +#X connect 3 0 5 0; +#X connect 3 1 6 0; +#X connect 3 2 4 0; +#X connect 4 0 0 0; +#X connect 5 0 0 0; +#X connect 6 0 0 0; +#X restore 178 116 pd vline; +#X obj 84 43 delwrite~ \$0-yo 10; +#X obj 84 96 delread~ \$0-yo 10; +#X connect 0 0 29 0; +#X connect 1 0 2 0; +#X connect 2 0 10 0; +#X connect 3 0 2 1; +#X connect 4 0 2 2; +#X connect 6 0 9 0; +#X connect 8 0 7 0; +#X connect 10 0 12 0; +#X connect 10 1 8 0; +#X connect 10 2 11 0; +#X connect 11 0 13 0; +#X connect 12 0 6 0; +#X connect 15 0 17 0; +#X connect 17 0 18 0; +#X connect 18 0 16 0; +#X connect 26 0 25 0; +#X connect 27 0 25 0; +#X connect 28 0 26 1; +#X connect 30 0 26 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/5option-control.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/5option-control.pd new file mode 100644 index 0000000..0151377 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/5option-control.pd @@ -0,0 +1,215 @@ +#N canvas 210 50 1475 882 10; +#X obj 139 338 outlet; +#X obj 65 181 t b; +#X msg 65 203 2; +#X obj 298 186 t b; +#X msg 298 208 3; +#X obj 170 130 sel 0; +#X obj 202 154 t b; +#X msg 202 176 1; +#X obj 33 148 sel 0; +#X obj 266 159 sel 0; +#X obj 227 494 sel 1, f 12; +#X obj 308 527 t b, f 4; +#X obj 498 553 t b, f 4; +#X obj 417 529 sel 2 3, f 12; +#X obj 774 564 t b, f 4; +#X msg 774 609 Latch:Off; +#X msg 693 609 Latch:On; +#X text 431 479 print to the shortcut menu; +#X obj 352 216 f 0; +#X obj 130 60 r midi-start; +#X msg 130 82 4; +#X obj 352 190 r midi-stop; +#X obj 507 185 t b; +#X obj 475 158 sel 0; +#X msg 507 207 5; +#X obj 965 544 t b, f 4; +#X obj 884 520 sel 5, f 12; +#X obj 227 573 f; +#X msg 227 603 \$1Seq:Stop; +#X obj 308 572 f; +#X msg 308 602 \$1Seq:Play; +#X msg 417 599 \$1Rec:Armd; +#X msg 498 597 \$1Rec:On; +#X msg 569 598 \$1Rec:Off; +#X obj 417 574 f; +#X obj 492 573 f; +#X obj 559 570 f; +#X obj 965 566 f; +#X obj 884 572 f; +#X msg 884 619 \$1Dub:On; +#X obj 111 529 t b f f; +#X obj 111 509 + 1; +#X obj 578 499 + 1; +#X obj 1013 519 + 1; +#X obj 559 136 sel 1; +#X obj 559 234 t b b; +#X msg 640 212 0; +#X obj 559 212 spigot 0; +#X msg 612 189 1; +#X msg 559 256 1; +#X obj 693 540 sel 4, f 12; +#X obj 358 113 t b; +#X obj 326 86 sel 0; +#X msg 358 135 6; +#X obj 1152 595 f; +#X obj 1322 488 + 1; +#X obj 612 164 sel 3, f 12; +#X msg 965 619 \$1Dub:Off; +#X obj 1152 488 sel 6, f 10; +#X obj 1219 513 t b; +#X obj 1152 692 spigot 1; +#X obj 1239 689 spigot 0; +#X obj 1292 554 sel 3; +#X obj 1242 660 ==; +#X obj 1292 611 f; +#X msg 1292 580 1; +#X msg 1252 579 0; +#X msg 1239 714 \$1:Undo; +#X msg 1152 717 \$1:Undid; +#X obj 1152 510 t b b; +#X obj 559 112 r cgSc-\$1-aux; +#X obj 475 131 r cgSc-\$1-3; +#X obj 326 62 r cgSc-\$1-4; +#X obj 267 132 r cgSc-\$1-5; +#X obj 171 108 r cgSc-\$1-1; +#X obj 33 126 r cgSc-\$1-2; +#X obj 111 486 r cgSc-\$1-slots; +#X obj 227 472 r seq3-\$1-actions; +#X obj 578 451 r cgSc-\$1-slots; +#X obj 693 519 r seq3-\$1-actions; +#X obj 1322 464 r cgSc-\$1-slots; +#X obj 1292 532 r seq3-\$1-actions; +#X obj 1152 460 r seq3-\$1-actions; +#X obj 1013 495 r cgSc-\$1-slots; +#X obj 884 500 r seq3-\$1-actions; +#X obj 76 639 s seq3-\$1-actions; +#X obj 76 615 v seq3-\$1-state; +#X text 932 166 ARG 1: match seq3 and Shortcut number; +#X obj 693 781 s cgSc-\$1-5label; +#X obj 693 652 spigot 1; +#X obj 419 780 s cgSc-\$1-2label; +#X obj 419 640 spigot 1; +#X obj 227 785 s cgSc-\$1-1label; +#X obj 227 646 spigot 1; +#X obj 884 792 s cgSc-\$1-3label; +#X obj 884 662 spigot 1; +#X obj 1152 831 s cgSc-\$1-4label; +#X obj 1152 750 spigot 1; +#X obj 709 394 r init-\$1-slot; +#X obj 709 423 s cgSc-\$1-slots; +#X obj 417 508 r seq3-\$1-actions; +#X obj 612 140 r seq3-\$1-actions; +#X text 681 50 Standard Control code for seq3; +#X obj 28 244 loadbang; +#X msg 28 266 0; +#X connect 1 0 2 0; +#X connect 2 0 0 0; +#X connect 3 0 4 0; +#X connect 4 0 0 0; +#X connect 5 1 6 0; +#X connect 6 0 7 0; +#X connect 7 0 0 0; +#X connect 8 1 1 0; +#X connect 9 1 3 0; +#X connect 10 0 27 0; +#X connect 10 1 11 0; +#X connect 11 0 29 0; +#X connect 12 0 36 0; +#X connect 13 0 34 0; +#X connect 13 1 35 0; +#X connect 13 2 12 0; +#X connect 14 0 15 0; +#X connect 15 0 89 0; +#X connect 16 0 89 0; +#X connect 18 0 0 0; +#X connect 19 0 20 0; +#X connect 20 0 0 0; +#X connect 21 0 18 0; +#X connect 22 0 24 0; +#X connect 23 1 22 0; +#X connect 24 0 0 0; +#X connect 25 0 37 0; +#X connect 26 0 38 0; +#X connect 26 1 25 0; +#X connect 27 0 28 0; +#X connect 28 0 93 0; +#X connect 29 0 30 0; +#X connect 30 0 93 0; +#X connect 31 0 91 0; +#X connect 32 0 91 0; +#X connect 33 0 91 0; +#X connect 34 0 31 0; +#X connect 35 0 32 0; +#X connect 36 0 33 0; +#X connect 37 0 57 0; +#X connect 38 0 39 0; +#X connect 39 0 95 0; +#X connect 40 0 86 0; +#X connect 40 1 27 1; +#X connect 40 2 29 1; +#X connect 41 0 40 0; +#X connect 42 0 36 1; +#X connect 42 0 35 1; +#X connect 42 0 34 1; +#X connect 43 0 37 1; +#X connect 43 0 38 1; +#X connect 44 0 47 0; +#X connect 45 0 49 0; +#X connect 45 1 46 0; +#X connect 46 0 47 1; +#X connect 47 0 45 0; +#X connect 48 0 47 1; +#X connect 49 0 0 0; +#X connect 50 0 16 0; +#X connect 50 1 14 0; +#X connect 51 0 53 0; +#X connect 52 1 51 0; +#X connect 53 0 0 0; +#X connect 54 0 60 0; +#X connect 54 0 61 0; +#X connect 55 0 54 1; +#X connect 56 0 48 0; +#X connect 57 0 95 0; +#X connect 58 0 69 0; +#X connect 58 1 59 0; +#X connect 59 0 54 0; +#X connect 60 0 68 0; +#X connect 61 0 67 0; +#X connect 62 0 65 0; +#X connect 63 0 60 1; +#X connect 64 0 63 0; +#X connect 64 0 61 1; +#X connect 65 0 64 0; +#X connect 66 0 64 0; +#X connect 67 0 97 0; +#X connect 68 0 97 0; +#X connect 69 0 54 0; +#X connect 69 1 66 0; +#X connect 70 0 44 0; +#X connect 71 0 23 0; +#X connect 72 0 52 0; +#X connect 73 0 9 0; +#X connect 74 0 5 0; +#X connect 75 0 8 0; +#X connect 76 0 41 0; +#X connect 77 0 10 0; +#X connect 78 0 42 0; +#X connect 79 0 50 0; +#X connect 80 0 55 0; +#X connect 81 0 62 0; +#X connect 82 0 58 0; +#X connect 83 0 43 0; +#X connect 84 0 26 0; +#X connect 86 0 85 0; +#X connect 89 0 88 0; +#X connect 91 0 90 0; +#X connect 93 0 92 0; +#X connect 95 0 94 0; +#X connect 97 0 96 0; +#X connect 98 0 99 0; +#X connect 100 0 13 0; +#X connect 101 0 56 0; +#X connect 103 0 104 0; +#X connect 104 0 0 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/5page-system.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/5page-system.pd new file mode 100755 index 0000000..81236af --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/5page-system.pd @@ -0,0 +1,336 @@ +#N canvas 194 267 1388 649 10; +#N canvas 484 353 812 431 the-knobs 0; +#X obj 53 13 r knob1; +#X obj 279 14 r knob2; +#X obj 53 216 r knob3; +#X obj 279 208 r knob4; +#X obj 53 63 list prepend; +#X obj 633 17 inlet; +#X obj 633 39 s \$0-current-page; +#X obj 134 38 r \$0-current-page; +#X obj 53 85 list trim; +#X obj 279 63 list prepend; +#X obj 360 38 r \$0-current-page; +#X obj 279 85 list trim; +#X obj 53 263 list prepend; +#X obj 134 238 r \$0-current-page; +#X obj 53 285 list trim; +#X obj 279 263 list prepend; +#X obj 360 238 r \$0-current-page; +#X obj 279 285 list trim; +#X obj 53 109 s \$0-knobb1; +#X obj 279 108 s \$0-knobb2; +#X obj 279 308 s \$0-knobb4; +#X obj 53 309 s \$0-knobb3; +#X connect 0 0 4 0; +#X connect 1 0 9 0; +#X connect 2 0 12 0; +#X connect 3 0 15 0; +#X connect 4 0 8 0; +#X connect 5 0 6 0; +#X connect 7 0 4 1; +#X connect 8 0 18 0; +#X connect 9 0 11 0; +#X connect 10 0 9 1; +#X connect 11 0 19 0; +#X connect 12 0 14 0; +#X connect 13 0 12 1; +#X connect 14 0 21 0; +#X connect 15 0 17 0; +#X connect 16 0 15 1; +#X connect 17 0 20 0; +#X restore 40 78 pd the-knobs; +#X obj 40 15 inlet which-page?; +#X obj 87 277 r \$0-knobb1; +#X obj 86 301 route 1 2 3 4 5, f 39; +#X obj 86 350 f; +#X obj 86 372 s p1k1; +#X obj 140 349 f; +#X obj 194 349 f; +#X obj 248 348 f; +#X obj 302 348 f; +#X obj 40 37 t f f, f 21; +#X obj 184 76 sel 1 2 3 4 5, f 87; +#X msg 184 153 \; \$2-knobb1 \$1 \; \$2-knobb2 \$1 \; \$2-knobb3 \$1 +\; \$2-knobb4 \$1 \;; +#X obj 184 123 pack 0 \$0; +#X msg 184 98 1; +#X msg 305 152 \; \$2-knobb1 \$1 \; \$2-knobb2 \$1 \; \$2-knobb3 \$1 +\; \$2-knobb4 \$1 \;; +#X obj 305 122 pack 0 \$0; +#X msg 305 97 2; +#X msg 426 153 \; \$2-knobb1 \$1 \; \$2-knobb2 \$1 \; \$2-knobb3 \$1 +\; \$2-knobb4 \$1 \;; +#X obj 426 123 pack 0 \$0; +#X msg 547 153 \; \$2-knobb1 \$1 \; \$2-knobb2 \$1 \; \$2-knobb3 \$1 +\; \$2-knobb4 \$1 \;; +#X obj 547 123 pack 0 \$0; +#X msg 426 98 3; +#X msg 547 98 4; +#X msg 668 154 \; \$2-knobb1 \$1 \; \$2-knobb2 \$1 \; \$2-knobb3 \$1 +\; \$2-knobb4 \$1 \;; +#X obj 668 124 pack 0 \$0; +#X msg 668 99 5; +#X obj 140 371 s p2k1; +#X obj 194 371 s p3k1; +#X obj 248 370 s p4k1; +#X obj 302 370 s p5k1; +#X obj 450 306 route 1 2 3 4 5, f 39; +#X obj 450 355 f; +#X obj 504 354 f; +#X obj 558 354 f; +#X obj 612 353 f; +#X obj 666 353 f; +#X obj 450 282 r \$0-knobb2; +#X obj 450 377 s p1k2; +#X obj 504 376 s p2k2; +#X obj 558 376 s p3k2; +#X obj 612 375 s p4k2; +#X obj 666 375 s p5k2; +#X obj 89 458 route 1 2 3 4 5, f 39; +#X obj 89 507 f; +#X obj 143 506 f; +#X obj 197 506 f; +#X obj 251 505 f; +#X obj 305 505 f; +#X obj 453 463 route 1 2 3 4 5, f 39; +#X obj 453 512 f; +#X obj 507 511 f; +#X obj 561 511 f; +#X obj 615 510 f; +#X obj 669 510 f; +#X obj 89 434 r \$0-knobb3; +#X obj 91 529 s p1k3; +#X obj 143 528 s p2k3; +#X obj 198 528 s p3k3; +#X obj 251 527 s p4k3; +#X obj 305 527 s p5k3; +#X obj 453 534 s p1k4; +#X obj 508 533 s p2k4; +#X obj 561 532 s p3k4; +#X obj 615 532 s p4k4; +#X obj 669 532 s p5k4; +#X obj 453 440 r \$0-knobb4; +#X obj 937 176 text define \$0-saver; +#X msg 973 149 read save-knobs.txt; +#X msg 937 75 write save-knobs.txt; +#X obj 937 44 r saveState; +#X obj 1131 40 loadbang; +#X obj 889 429 text set \$0-saver; +#X obj 888 294 r \$0-knobb1; +#X obj 888 316 unpack; +#X obj 888 338 swap, f 6; +#X obj 927 363 - 1; +#X obj 927 385 + 0; +#X obj 1026 428 text set \$0-saver; +#X obj 1025 315 unpack; +#X obj 1025 337 swap, f 6; +#X obj 1064 362 - 1; +#X obj 1025 293 r \$0-knobb2; +#X obj 1064 384 + 5; +#X obj 897 590 text set \$0-saver; +#X obj 896 477 unpack; +#X obj 896 499 swap, f 6; +#X obj 935 524 - 1; +#X obj 1034 589 text set \$0-saver; +#X obj 1033 476 unpack; +#X obj 1033 498 swap, f 6; +#X obj 1072 523 - 1; +#X obj 897 455 r \$0-knobb3; +#X obj 1033 454 r \$0-knobb4; +#X obj 935 546 + 10; +#X obj 1072 545 + 15; +#X obj 1187 187 f; +#X obj 1221 187 + 1; +#X msg 1240 152 0; +#X obj 1187 129 t a b, f 8; +#X msg 1187 105 20; +#X obj 1231 231 % 5; +#X obj 1187 376 route 1 2 3 4, f 21; +#X obj 1187 209 t f f f, f 13; +#X obj 1275 236 / 5; +#X obj 1275 258 i; +#X obj 1187 307 list prepend; +#X obj 1187 329 list prepend, f 17; +#X obj 1187 351 list trim; +#X obj 1187 478 s \$0-knobb1; +#X obj 1259 428 s \$0-knobb3; +#X obj 1295 404 s \$0-knobb4; +#X obj 1223 454 s \$0-knobb2; +#X obj 1187 151 until; +#X obj 1187 285 text get \$0-saver; +#X obj 1231 253 + 1; +#X obj 1131 62 t b b; +#N canvas 869 241 421 448 printer 0; +#X obj 21 13 r p1k1-label; +#X obj 21 145 list prepend 1:; +#X obj 21 167 s screenLine1; +#X obj 37 38 r p2k1-label; +#X obj 51 58 r p3k1-label; +#X obj 64 87 r p4k1-label; +#X obj 74 111 r p5k1-label; +#X obj 196 18 r p1k2-label; +#X obj 212 43 r p2k2-label; +#X obj 226 63 r p3k2-label; +#X obj 239 92 r p4k2-label; +#X obj 249 116 r p5k2-label; +#X obj 196 150 list prepend 2:; +#X obj 196 172 s screenLine2; +#X obj 26 212 r p1k3-label; +#X obj 42 237 r p2k3-label; +#X obj 56 257 r p3k3-label; +#X obj 70 286 r p4k3-label; +#X obj 79 310 r p5k3-label; +#X obj 26 344 list prepend 3:; +#X obj 26 366 s screenLine3; +#X obj 201 371 s screenLine4; +#X obj 201 349 list prepend 4:; +#X obj 254 315 r p5k4-label; +#X obj 244 291 r p4k4-label; +#X obj 231 262 r p3k4-label; +#X obj 218 242 r p2k4-label; +#X obj 201 217 r p1k4-label; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 3 0 1 0; +#X connect 4 0 1 0; +#X connect 5 0 1 0; +#X connect 6 0 1 0; +#X connect 7 0 12 0; +#X connect 8 0 12 0; +#X connect 9 0 12 0; +#X connect 10 0 12 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 14 0 19 0; +#X connect 15 0 19 0; +#X connect 16 0 19 0; +#X connect 17 0 19 0; +#X connect 18 0 19 0; +#X connect 19 0 20 0; +#X connect 22 0 21 0; +#X connect 23 0 22 0; +#X connect 24 0 22 0; +#X connect 25 0 22 0; +#X connect 26 0 22 0; +#X connect 27 0 22 0; +#X restore 711 581 pd printer; +#X connect 1 0 10 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 3 1 6 0; +#X connect 3 2 7 0; +#X connect 3 3 8 0; +#X connect 3 4 9 0; +#X connect 4 0 5 0; +#X connect 6 0 27 0; +#X connect 7 0 28 0; +#X connect 8 0 29 0; +#X connect 9 0 30 0; +#X connect 10 0 0 0; +#X connect 10 1 11 0; +#X connect 11 0 14 0; +#X connect 11 1 17 0; +#X connect 11 2 22 0; +#X connect 11 3 23 0; +#X connect 11 4 26 0; +#X connect 13 0 12 0; +#X connect 14 0 13 0; +#X connect 16 0 15 0; +#X connect 17 0 16 0; +#X connect 19 0 18 0; +#X connect 21 0 20 0; +#X connect 22 0 19 0; +#X connect 23 0 21 0; +#X connect 25 0 24 0; +#X connect 26 0 25 0; +#X connect 31 0 32 0; +#X connect 31 1 33 0; +#X connect 31 2 34 0; +#X connect 31 3 35 0; +#X connect 31 4 36 0; +#X connect 32 0 38 0; +#X connect 33 0 39 0; +#X connect 34 0 40 0; +#X connect 35 0 41 0; +#X connect 36 0 42 0; +#X connect 37 0 31 0; +#X connect 43 0 44 0; +#X connect 43 1 45 0; +#X connect 43 2 46 0; +#X connect 43 3 47 0; +#X connect 43 4 48 0; +#X connect 44 0 56 0; +#X connect 45 0 57 0; +#X connect 46 0 58 0; +#X connect 47 0 59 0; +#X connect 48 0 60 0; +#X connect 49 0 50 0; +#X connect 49 1 51 0; +#X connect 49 2 52 0; +#X connect 49 3 53 0; +#X connect 49 4 54 0; +#X connect 50 0 61 0; +#X connect 51 0 62 0; +#X connect 52 0 63 0; +#X connect 53 0 64 0; +#X connect 54 0 65 0; +#X connect 55 0 43 0; +#X connect 66 0 49 0; +#X connect 68 0 67 0; +#X connect 69 0 67 0; +#X connect 70 0 69 0; +#X connect 71 0 116 0; +#X connect 73 0 74 0; +#X connect 74 0 75 0; +#X connect 74 1 75 1; +#X connect 75 0 72 0; +#X connect 75 1 76 0; +#X connect 76 0 77 0; +#X connect 77 0 72 1; +#X connect 79 0 80 0; +#X connect 79 1 80 1; +#X connect 80 0 78 0; +#X connect 80 1 81 0; +#X connect 81 0 83 0; +#X connect 82 0 79 0; +#X connect 83 0 78 1; +#X connect 85 0 86 0; +#X connect 85 1 86 1; +#X connect 86 0 84 0; +#X connect 86 1 87 0; +#X connect 87 0 94 0; +#X connect 89 0 90 0; +#X connect 89 1 90 1; +#X connect 90 0 88 0; +#X connect 90 1 91 0; +#X connect 91 0 95 0; +#X connect 92 0 85 0; +#X connect 93 0 89 0; +#X connect 94 0 84 1; +#X connect 95 0 88 1; +#X connect 96 0 97 0; +#X connect 96 0 103 0; +#X connect 97 0 96 1; +#X connect 98 0 96 1; +#X connect 99 0 113 0; +#X connect 99 1 98 0; +#X connect 100 0 99 0; +#X connect 101 0 115 0; +#X connect 102 0 109 0; +#X connect 102 1 112 0; +#X connect 102 2 110 0; +#X connect 102 3 111 0; +#X connect 103 0 114 0; +#X connect 103 1 101 0; +#X connect 103 2 104 0; +#X connect 104 0 105 0; +#X connect 105 0 107 1; +#X connect 106 0 107 0; +#X connect 107 0 108 0; +#X connect 108 0 102 0; +#X connect 113 0 96 0; +#X connect 114 0 106 0; +#X connect 115 0 106 1; +#X connect 116 0 100 0; +#X connect 116 1 68 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/auto-knob-out.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/auto-knob-out.pd new file mode 100644 index 0000000..c86a8f0 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/auto-knob-out.pd @@ -0,0 +1,16 @@ +#N canvas 4 112 639 427 10; +#X obj 70 14 inlet; +#X text 484 250 <--- drop these as receives in the parent patches knobs! +; +#X obj 69 303 s seq3-\$1-p\$2k1; +#X obj 182 281 s seq3-\$1-p\$2k2; +#X obj 314 259 s seq3-\$1-p\$2k3; +#X obj 406 231 s seq3-\$1-p\$2k4; +#X obj 70 128 route p\$2k1 p\$2k2 p\$2k3 p\$2k4, f 64; +#X text 376 37 arg 1: seq3 number; +#X text 376 70 arg2: page number; +#X connect 0 0 6 0; +#X connect 6 0 2 0; +#X connect 6 1 3 0; +#X connect 6 2 4 0; +#X connect 6 3 5 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/knob-recycle.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/knob-recycle.pd new file mode 100644 index 0000000..1b9e97a --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/knob-recycle.pd @@ -0,0 +1,97 @@ +#N canvas 4 50 450 300 10; +#X obj 35 19 inlet; +#X msg 132 264 stop; +#X obj 88 237 t b b b, f 13; +#X msg 88 317 1; +#X msg 176 293 0; +#X obj 88 359 change -1; +#X obj 35 385 spigot 0; +#X obj 35 559 outlet; +#X obj 35 429 list trim; +#X msg 272 264 stop; +#X obj 228 237 t b b b, f 13; +#X msg 228 317 1; +#X msg 316 293 0; +#X obj 228 359 change -1; +#X obj 175 385 spigot 0; +#X obj 175 429 list trim; +#X obj 88 295 del 500; +#X obj 228 295 del 500; +#X msg 442 264 stop; +#X obj 398 237 t b b b, f 13; +#X msg 398 317 1; +#X msg 486 293 0; +#X obj 398 359 change -1; +#X obj 345 385 spigot 0; +#X obj 345 429 list trim; +#X msg 771 264 stop; +#X obj 727 237 t b b b, f 13; +#X msg 727 317 1; +#X msg 815 293 0; +#X obj 727 359 change -1; +#X obj 674 385 spigot 0; +#X obj 674 429 list trim; +#X obj 398 295 del 500; +#X obj 727 295 del 500; +#X obj 35 119 route p\$1k1 p\$1k2 p\$1k3 p\$1k4, f 117; +#X obj 88 212 r p\$1k1; +#X obj 229 212 r p\$1k2; +#X obj 398 212 r p\$1k3; +#X obj 727 212 r p\$1k4; +#X obj 35 407 list prepend p\$1k1; +#X obj 175 407 list prepend p\$1k2; +#X obj 345 407 list prepend p\$1k3; +#X obj 674 406 list prepend p\$1k4; +#X connect 0 0 34 0; +#X connect 1 0 16 0; +#X connect 2 0 16 0; +#X connect 2 1 1 0; +#X connect 2 2 4 0; +#X connect 3 0 5 0; +#X connect 4 0 5 0; +#X connect 5 0 6 1; +#X connect 6 0 39 0; +#X connect 8 0 7 0; +#X connect 9 0 17 0; +#X connect 10 0 17 0; +#X connect 10 1 9 0; +#X connect 10 2 12 0; +#X connect 11 0 13 0; +#X connect 12 0 13 0; +#X connect 13 0 14 1; +#X connect 14 0 40 0; +#X connect 15 0 7 0; +#X connect 16 0 3 0; +#X connect 17 0 11 0; +#X connect 18 0 32 0; +#X connect 19 0 32 0; +#X connect 19 1 18 0; +#X connect 19 2 21 0; +#X connect 20 0 22 0; +#X connect 21 0 22 0; +#X connect 22 0 23 1; +#X connect 23 0 41 0; +#X connect 24 0 7 0; +#X connect 25 0 33 0; +#X connect 26 0 33 0; +#X connect 26 1 25 0; +#X connect 26 2 28 0; +#X connect 27 0 29 0; +#X connect 28 0 29 0; +#X connect 29 0 30 1; +#X connect 30 0 42 0; +#X connect 31 0 7 0; +#X connect 32 0 20 0; +#X connect 33 0 27 0; +#X connect 34 0 6 0; +#X connect 34 1 14 0; +#X connect 34 2 23 0; +#X connect 34 3 30 0; +#X connect 35 0 2 0; +#X connect 36 0 10 0; +#X connect 37 0 19 0; +#X connect 38 0 26 0; +#X connect 39 0 8 0; +#X connect 40 0 15 0; +#X connect 41 0 24 0; +#X connect 42 0 31 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/print-line5.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/print-line5.pd new file mode 100755 index 0000000..ec9fd38 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/print-line5.pd @@ -0,0 +1,153 @@ +#N canvas 395 50 1514 876 10; +#X obj 62 2 inlet BPM; +#X obj 777 42 inlet print-for-seq; +#X obj 835 641 s oscOut; +#X msg 661 519 /oled/gFlip 3; +#X obj 777 353 symbol; +#X msg 739 303 Play; +#X msg 777 303 Stop; +#X msg 890 242 Arm, f 5; +#X obj 338 533 s oscOut; +#X msg 189 505 /oled/gFlip 3; +#X obj 412 389 s oscOut; +#X msg 263 361 /oled/gFlip 3; +#X obj 188 691 s oscOut; +#X msg 39 663 /oled/gFlip 3; +#X msg 996 283 Ltch; +#X obj 777 426 t b b a b, f 22; +#X obj 100 561 t b b a b; +#X obj 324 259 t b b a b; +#X obj 251 402 t b b a b; +#X obj 638 219 loadbang; +#X obj 67 448 list; +#X obj 62 174 route 1 2 3 4, f 44; +#X obj 290 199 t b; +#X msg 290 221 Off; +#X msg 1065 289 Dub; +#X obj 777 385 pack s 1; +#X obj 1154 253 t f f; +#X obj 1186 281 moses 10; +#X obj 1186 303 t b; +#X msg 1186 325 0; +#X obj 1239 303 t b; +#X msg 1238 325 1; +#X obj 783 519 spigot 0; +#X obj 854 519 spigot 0; +#X obj 1186 357 f; +#X obj 1045 519 ==; +#X msg 384 286 /oled/gFillArea 3 63 54 65 10 0; +#X msg 334 428 /oled/gFillArea 3 63 54 65 10 0; +#X msg 194 596 /oled/gFillArea 3 63 54 65 10 0; +#X msg 949 497 /oled/gPrintln 3 2 55 8 1 \$2Seq:\$1; +#X msg 152 624 /oled/gPrintln 3 68 55 8 1 BPM:\$1; +#X msg 291 459 /oled/gPrintln 3 68 55 8 1 MIDI:\$1; +#X msg 364 309 /oled/gPrintln 3 68 55 8 1 LINK:\$1; +#X msg 789 574 /oled/gInvertArea 3 36 54 27 9; +#X msg 854 551 /oled/gInvertArea 3 30 54 27 9; +#X msg 143 648 /oled/gInvertArea 3 90 54 21 9; +#X msg 272 482 /oled/gInvertArea 3 96 54 21 9; +#X msg 345 334 /oled/gInvertArea 3 96 54 21 9; +#X obj 1107 39 inlet; +#X text 453 15 arg 1: nu \, ber to match the seq3 to print; +#X obj 1016 154 sel 0 1; +#X obj 1016 132 r seq3-\$1-overdub-on; +#X obj 974 235 symbol; +#X msg 990 185 symbol Rec; +#X msg 1061 213 symbol oDub; +#X obj 778 94 sel 0 1 2 3 4 5 6, f 57; +#X msg 1183 152 Undo; +#X msg 928 454 /oled/gFillArea 3 0 54 64 10 0; +#X obj 1227 53 inlet mute; +#X obj 1107 60 spigot 1; +#X obj 777 63 spigot 1; +#X obj 62 23 spigot 1; +#X obj 1227 74 s \$0-mute; +#X obj 1149 37 r \$0-mute; +#X obj 904 58 r \$0-mute; +#X obj 134 27 r \$0-mute; +#X connect 0 0 61 0; +#X connect 1 0 60 0; +#X connect 3 0 2 0; +#X connect 4 0 25 0; +#X connect 5 0 4 0; +#X connect 6 0 4 0; +#X connect 7 0 4 0; +#X connect 9 0 8 0; +#X connect 11 0 10 0; +#X connect 13 0 12 0; +#X connect 14 0 4 0; +#X connect 15 0 3 0; +#X connect 15 1 32 0; +#X connect 15 1 33 0; +#X connect 15 2 39 0; +#X connect 15 3 57 0; +#X connect 16 0 13 0; +#X connect 16 1 45 0; +#X connect 16 2 40 0; +#X connect 16 3 38 0; +#X connect 17 0 11 0; +#X connect 17 1 47 0; +#X connect 17 2 42 0; +#X connect 17 3 36 0; +#X connect 18 0 9 0; +#X connect 18 1 46 0; +#X connect 18 2 41 0; +#X connect 18 3 37 0; +#X connect 19 0 6 0; +#X connect 20 0 16 0; +#X connect 21 0 20 0; +#X connect 21 1 18 0; +#X connect 21 2 17 0; +#X connect 21 3 22 0; +#X connect 22 0 23 0; +#X connect 23 0 20 0; +#X connect 24 0 4 0; +#X connect 25 0 15 0; +#X connect 26 0 25 1; +#X connect 26 1 27 0; +#X connect 27 0 28 0; +#X connect 27 1 30 0; +#X connect 28 0 29 0; +#X connect 29 0 34 0; +#X connect 30 0 31 0; +#X connect 31 0 34 0; +#X connect 32 0 43 0; +#X connect 33 0 44 0; +#X connect 34 0 35 0; +#X connect 34 0 32 1; +#X connect 35 0 33 1; +#X connect 36 0 10 0; +#X connect 37 0 8 0; +#X connect 38 0 12 0; +#X connect 39 0 2 0; +#X connect 40 0 12 0; +#X connect 41 0 8 0; +#X connect 42 0 10 0; +#X connect 43 0 2 0; +#X connect 44 0 2 0; +#X connect 45 0 12 0; +#X connect 46 0 8 0; +#X connect 47 0 10 0; +#X connect 48 0 59 0; +#X connect 50 0 53 0; +#X connect 50 1 54 0; +#X connect 51 0 50 0; +#X connect 52 0 4 0; +#X connect 53 0 52 1; +#X connect 54 0 52 1; +#X connect 55 0 6 0; +#X connect 55 1 5 0; +#X connect 55 2 7 0; +#X connect 55 3 52 0; +#X connect 55 4 14 0; +#X connect 55 5 24 0; +#X connect 55 6 56 0; +#X connect 56 0 4 0; +#X connect 57 0 2 0; +#X connect 58 0 62 0; +#X connect 59 0 26 0; +#X connect 60 0 55 0; +#X connect 61 0 21 0; +#X connect 63 0 59 1; +#X connect 64 0 60 1; +#X connect 65 0 61 1; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/sc-module.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/sc-module.pd new file mode 100755 index 0000000..c6fd814 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/sc-module.pd @@ -0,0 +1,73 @@ +#N canvas 680 205 1037 839 10; +#X obj 407 677 s oscOut; +#X msg 207 613 /oled/gFlip 3; +#X obj 361 367 t b s; +#X obj 498 539 list; +#X msg 498 513 1; +#X obj 498 561 route 1; +#X obj 33 27 inlet trigger; +#X obj 361 141 spigot 0; +#X obj 608 468 loadbang; +#X msg 608 490 0 0 0; +#X obj 361 102 symbol; +#X msg 498 587 /oled/gPrintln 3 \$1 \$2 8 0 \$3; +#X msg 407 619 /oled/gPrintln 3 \$1 \$2 8 1 \$3; +#X obj 361 432 pack 2 33 s; +#X obj 417 173 loadbang; +#X obj 417 199 f \$2; +#X obj 361 60 r cgSc-\$1-\$2label; +#X obj 33 97 s cgSc-\$1-\$2; +#X obj 417 283 * 11; +#X obj 417 227 t f f, f 8; +#X obj 470 307 i; +#X obj 470 285 / 5; +#X obj 361 399 f, f 16; +#X msg 510 356 66; +#X obj 306 34 r cgSc-\$1-print!; +#X msg 470 352 2; +#X obj 470 250 - 1; +#X obj 417 345 - 0; +#X msg 427 319 0; +#X msg 544 355 55; +#X obj 470 330 sel 0 1, f 12; +#X obj 361 481 t b a a a b, f 20; +#X obj 414 111 r cgSc-1-mute-print; +#X connect 1 0 0 0; +#X connect 2 0 22 0; +#X connect 2 1 13 2; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X connect 5 0 11 0; +#X connect 6 0 17 0; +#X connect 7 0 2 0; +#X connect 8 0 9 0; +#X connect 9 0 3 1; +#X connect 10 0 7 0; +#X connect 11 0 0 0; +#X connect 12 0 0 0; +#X connect 13 0 31 0; +#X connect 14 0 15 0; +#X connect 15 0 19 0; +#X connect 16 0 10 0; +#X connect 18 0 27 0; +#X connect 19 0 18 0; +#X connect 19 1 26 0; +#X connect 20 0 30 0; +#X connect 21 0 20 0; +#X connect 22 0 13 0; +#X connect 23 0 22 1; +#X connect 24 0 10 0; +#X connect 25 0 22 1; +#X connect 26 0 21 0; +#X connect 27 0 13 1; +#X connect 28 0 27 1; +#X connect 29 0 27 1; +#X connect 30 0 25 0; +#X connect 30 0 28 0; +#X connect 30 1 23 0; +#X connect 30 1 29 0; +#X connect 31 0 1 0; +#X connect 31 2 12 0; +#X connect 31 3 3 1; +#X connect 31 4 4 0; +#X connect 32 0 7 1; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/seq-format-event.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/seq-format-event.pd new file mode 100644 index 0000000..16a1fce --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/seq-format-event.pd @@ -0,0 +1,14 @@ +#N canvas 7 50 450 300 10; +#X obj 133 158 list prepend; +#X obj 133 104 t a b; +#X obj 133 192 list trim; +#X obj 133 222 outlet; +#X obj 133 67 inlet; +#X obj 203 126 symbol \$1; +#X text 91 26 adds event type to incomming list; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 1 1 5 0; +#X connect 2 0 3 0; +#X connect 4 0 1 0; +#X connect 5 0 0 1; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/seq-overdubber.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/seq-overdubber.pd new file mode 100644 index 0000000..98bb972 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/seq-overdubber.pd @@ -0,0 +1,277 @@ +#N canvas 101 50 1815 918 10; +#X msg 1064 549 clear; +#X obj 67 74 inlet; +#X obj 67 103 s \$0beat-clock; +#X obj 223 393 r \$0beat-clock; +#X obj 312 77 inlet; +#X obj 587 69 inlet; +#X obj 223 678 outlet; +#X obj 916 349 r \$0beat-clock; +#X obj 730 795 outlet; +#X text 649 67 controls; +#X msg 1032 602 rec; +#X text 291 679 events out; +#X text 366 74 events in; +#X msg 438 702 end; +#X msg 916 529 length \$1; +#X obj 311 433 r \$0player; +#X obj 1032 443 r \$0recorder; +#X text 130 74 clock; +#X text 708 575 send all status out; +#X obj 730 595 r \$0status; +#X obj 312 200 s \$0events-in; +#X obj 974 401 r \$0events-in; +#X obj 223 517 t a a; +#X obj 255 642 s \$0-recycle; +#X obj 223 495 seq-player \$1; +#N canvas 29 50 1833 795 controls 0; +#X obj 94 15 inlet; +#X msg 143 457 loop \$1; +#X msg 206 458 quantize-length \$1; +#X msg 396 457 start-sync; +#X msg 624 349 arm; +#X msg 348 456 start; +#X obj 111 64 t a a; +#X obj 51 95 s \$0status; +#X obj 491 654 s \$0status; +#N canvas 6 50 1905 999 stop-all 0; +#X obj 98 58 inlet; +#X msg 148 128 stop; +#X obj 98 80 t b b b; +#X msg 109 129 stop; +#X msg 69 128 stop; +#X obj 171 181 outlet; +#X obj 117 193 outlet; +#X obj 51 184 outlet; +#X text 199 81 stop recorder \, player \, send stop status out; +#X connect 0 0 2 0; +#X connect 1 0 5 0; +#X connect 2 0 4 0; +#X connect 2 1 3 0; +#X connect 2 2 1 0; +#X connect 3 0 6 0; +#X connect 4 0 7 0; +#X restore 491 456 pd stop-all; +#X obj 915 538 symbol; +#X obj 916 603 list trim; +#X obj 916 579 list prepend read; +#X obj 774 492 symbol; +#X obj 775 557 list trim; +#X obj 775 533 list prepend write; +#X obj 410 301 t b b; +#X obj 774 513 makefilename %s-R; +#X obj 915 559 makefilename %s-R; +#X obj 348 298 t b b; +#X text 768 156 arm; +#X obj 612 453 r \$0-switch-rec; +#X obj 565 560 s \$0recorder; +#X obj 565 510 list prepend; +#X obj 565 532 list trim; +#X obj 1440 738 s \$0-switch-rec; +#X obj 1440 631 f 0; +#X obj 1440 665 sel 0 1, f 19; +#X obj 1458 596 r \$0-switch-rec; +#X msg 1440 687 1; +#X msg 1505 687 0; +#X msg 1514 327 1; +#X obj 1461 354 spigot 0; +#X obj 1461 376 t b b; +#X msg 1541 366 0; +#X obj 1461 448 f; +#X obj 1461 499 sel 0 1; +#X obj 491 429 r \$0-stop-all; +#X obj 1193 69 s \$0-switch-player; +#X obj 1335 69 s \$0-switch-rec; +#X obj 1193 11 loadbang; +#X msg 1193 33 0; +#X msg 1461 520 1; +#X msg 1497 522 0; +#X obj 1461 563 s \$0-switch-player; +#X obj 1017 518 s \$0-stop-all; +#X obj 348 541 s \$0player; +#X obj 1291 293 t b b b b b, f 43; +#X obj 1589 322 s \$0-stop-all; +#X msg 1174 417 start-sync; +#X msg 1128 416 start; +#X obj 143 99 route loop quantize-length play play-sync stop arm write +read od odsync, f 179; +#X msg 1316 411 arm; +#X obj 1397 422 r \$0-switch-rec; +#X obj 1316 505 s \$0recorder; +#X obj 1316 455 list prepend; +#X obj 1316 477 list trim; +#X obj 1128 445 s \$0player; +#X obj 1268 222 sel 0 1; +#X obj 363 343 s \$0-stop-all; +#X obj 631 182 s \$0-stop-all; +#X obj 631 154 t b; +#X obj 691 343 s \$0-stop-all; +#X obj 1501 400 r \$0-switch-player; +#X obj 624 311 t b b, f 11; +#X obj 916 635 s \$0text; +#X obj 915 490 t a b, f 15; +#X obj 1128 369 f, f 8; +#X obj 1128 391 sel 0 1, f 11; +#X obj 1147 128 t a b; +#X obj 1268 133 t a b; +#X msg 1181 149 0; +#X msg 1300 164 1; +#X connect 0 0 6 0; +#X connect 1 0 46 0; +#X connect 2 0 46 0; +#X connect 3 0 46 0; +#X connect 4 0 23 0; +#X connect 5 0 46 0; +#X connect 6 0 7 0; +#X connect 6 1 51 0; +#X connect 9 0 8 0; +#X connect 9 1 46 0; +#X connect 9 2 23 0; +#X connect 10 0 18 0; +#X connect 11 0 65 0; +#X connect 12 0 11 0; +#X connect 13 0 17 0; +#X connect 14 0 65 0; +#X connect 15 0 14 0; +#X connect 16 0 3 0; +#X connect 16 1 59 0; +#X connect 17 0 15 0; +#X connect 18 0 12 0; +#X connect 19 0 5 0; +#X connect 19 1 59 0; +#X connect 21 0 23 1; +#X connect 23 0 24 0; +#X connect 24 0 22 0; +#X connect 26 0 27 0; +#X connect 27 0 29 0; +#X connect 27 1 30 0; +#X connect 28 0 26 1; +#X connect 29 0 25 0; +#X connect 30 0 25 0; +#X connect 31 0 32 1; +#X connect 32 0 33 0; +#X connect 33 0 35 0; +#X connect 33 1 34 0; +#X connect 34 0 32 1; +#X connect 35 0 36 0; +#X connect 36 0 42 0; +#X connect 36 1 43 0; +#X connect 37 0 9 0; +#X connect 40 0 41 0; +#X connect 41 0 38 0; +#X connect 41 0 39 0; +#X connect 42 0 44 0; +#X connect 43 0 44 0; +#X connect 47 0 67 0; +#X connect 47 1 52 0; +#X connect 47 2 26 0; +#X connect 47 3 31 0; +#X connect 47 4 48 0; +#X connect 49 0 57 0; +#X connect 50 0 57 0; +#X connect 51 0 1 0; +#X connect 51 1 2 0; +#X connect 51 2 19 0; +#X connect 51 3 16 0; +#X connect 51 4 61 0; +#X connect 51 5 64 0; +#X connect 51 6 13 0; +#X connect 51 7 66 0; +#X connect 51 8 69 0; +#X connect 51 9 70 0; +#X connect 52 0 55 0; +#X connect 53 0 55 1; +#X connect 55 0 56 0; +#X connect 56 0 54 0; +#X connect 58 0 32 0; +#X connect 58 1 47 0; +#X connect 61 0 60 0; +#X connect 63 0 35 1; +#X connect 64 0 4 0; +#X connect 64 1 62 0; +#X connect 66 0 10 0; +#X connect 66 1 45 0; +#X connect 67 0 68 0; +#X connect 68 0 50 0; +#X connect 68 1 49 0; +#X connect 69 0 58 0; +#X connect 69 1 71 0; +#X connect 70 0 58 0; +#X connect 70 1 72 0; +#X connect 71 0 67 1; +#X connect 72 0 67 1; +#X restore 587 102 pd controls; +#X obj 974 423 route 0; +#X obj 1032 465 route 0; +#X obj 403 413 symbol \$1; +#X obj 403 359 sel 0 1, f 26; +#X obj 492 413 symbol \$1; +#X msg 403 435 point \$1-L; +#X msg 492 435 point \$1-R; +#X obj 403 332 r \$0-switch-player; +#X obj 255 576 list prepend; +#X obj 336 545 r \$0-switch-rec; +#X obj 255 598 list trim; +#X obj 1021 348 r \$0-recycle; +#X obj 1021 370 route 0; +#X obj 393 109 r \$0-switch-rec; +#X obj 312 149 list prepend; +#X obj 312 171 list trim; +#X obj 432 382 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 529 386 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X text 882 142 there's a problem with lengths now; +#X obj 916 493 seq-recorder \$1-L; +#X obj 632 205 r \$0-switch-player; +#X obj 673 232 r \$0-switch-rec; +#X floatatom 632 227 5 0 0 0 - - -, f 5; +#X floatatom 673 254 5 0 0 0 - - -, f 5; +#X text 1239 111 od command comes in: 1 play the current sequence; +#X obj 1128 550 r \$0text; +#X obj 1064 576 text define -k \$1-txt; +#A set; +#X obj 1032 524 t b b; +#X connect 0 0 52 0; +#X connect 1 0 2 0; +#X connect 3 0 24 0; +#X connect 4 0 40 0; +#X connect 5 0 25 0; +#X connect 7 0 45 0; +#X connect 10 0 8 0; +#X connect 13 0 8 0; +#X connect 14 0 8 0; +#X connect 15 0 24 1; +#X connect 16 0 27 0; +#X connect 19 0 8 0; +#X connect 21 0 26 0; +#X connect 22 0 6 0; +#X connect 22 1 34 0; +#X connect 24 0 22 0; +#X connect 24 1 13 0; +#X connect 26 0 45 1; +#X connect 27 0 45 2; +#X connect 28 0 31 0; +#X connect 29 0 28 0; +#X connect 29 1 30 0; +#X connect 30 0 32 0; +#X connect 31 0 24 1; +#X connect 32 0 24 1; +#X connect 33 0 29 0; +#X connect 34 0 36 0; +#X connect 35 0 34 1; +#X connect 36 0 23 0; +#X connect 37 0 38 0; +#X connect 38 0 45 1; +#X connect 39 0 40 1; +#X connect 40 0 41 0; +#X connect 41 0 20 0; +#X connect 42 0 28 0; +#X connect 43 0 30 0; +#X connect 45 0 14 0; +#X connect 45 1 53 0; +#X connect 46 0 48 0; +#X connect 47 0 49 0; +#X connect 51 0 52 0; +#X connect 53 0 10 0; +#X connect 53 1 0 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/seq-player.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/seq-player.pd new file mode 100644 index 0000000..e8a3fb1 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/seq-player.pd @@ -0,0 +1,187 @@ +#N canvas 951 120 876 924 10; +#X obj 176 546 spigot; +#X text 377 259 rewind; +#X obj 464 766 outlet; +#X obj 279 427 text get \$1 -1; +#X obj 279 545 spigot; +#X text 473 478 if a valid entry \, let it through \, otherwise block +; +#X obj 335 307 t b b b, f 8; +#N canvas 5 50 449 248 check-line 0; +#X msg 150 91 0; +#X obj 158 63 sel 2 0; +#X msg 192 93 1; +#X obj 164 33 inlet; +#X obj 136 160 outlet; +#X connect 0 0 4 0; +#X connect 1 0 0 0; +#X connect 1 1 2 0; +#X connect 2 0 4 0; +#X connect 3 0 1 0; +#X restore 374 477 pd check-line; +#X obj 383 620 route length; +#X text 400 304 zero out the last stored seq clock time \, reset line +counter \, get first line; +#X obj 383 714 s \$0len; +#X text 512 765 events; +#X obj 156 187 clocker; +#X obj 335 261 sel 0; +#X msg 38 56 length \$1; +#X obj 38 27 r \$0len; +#X obj 156 27 inlet; +#X obj 295 27 inlet; +#X text 337 26 controls; +#X text 197 27 beat clock; +#X obj 149 249 r \$0len; +#X obj 76 332 sel 1; +#X obj 76 363 s \$0end; +#X obj 665 686 r \$0end; +#X obj 665 767 outlet; +#X obj 122 273 - 1; +#X text 713 763 bang at end; +#X obj 156 217 t f f f, f 26; +#X obj 295 118 s \$0quantize-length; +#N canvas 218 112 500 306 line-count 0; +#X obj 224 144 + 1; +#X msg 230 99 0; +#X obj 125 47 inlet; +#X obj 163 194 outlet; +#X obj 303 37 inlet; +#X text 348 38 reset; +#X text 211 196 count; +#X text 171 44 inc; +#X obj 168 144 f 0; +#X obj 167 169 t f f; +#X connect 0 0 8 1; +#X connect 1 0 8 1; +#X connect 2 0 8 0; +#X connect 4 0 1 0; +#X connect 8 0 9 0; +#X connect 9 0 3 0; +#X connect 9 1 0 0; +#X restore 279 372 pd line-count; +#X obj 159 316 r \$0get-next; +#X obj 176 625 s \$0get-next; +#X obj 506 647 r \$0quantize-length; +#N canvas 8 50 587 415 quantize-length 0; +#X obj 71 19 inlet; +#X obj 217 23 inlet; +#X obj 132 309 outlet; +#X obj 166 137 / 360; +#X obj 166 178 i; +#X obj 166 270 * 360; +#X obj 216 50 t f f; +#X obj 179 76 == 0, f 5; +#X obj 168 218 expr if ($f1 < 1 \, 1 \, $f1) \;; +#X text 216 178 quantize length to nearest quarter \, but not 0; +#X obj 86 110 spigot 0; +#X obj 159 111 spigot 1; +#X obj 165 156 + 0.499999; +#X connect 0 0 10 0; +#X connect 0 0 11 0; +#X connect 1 0 6 0; +#X connect 3 0 12 0; +#X connect 4 0 8 0; +#X connect 5 0 2 0; +#X connect 6 0 7 0; +#X connect 6 1 11 1; +#X connect 7 0 10 1; +#X connect 8 0 5 0; +#X connect 10 0 2 0; +#X connect 11 0 3 0; +#X connect 12 0 4 0; +#X restore 383 685 pd quantize-length; +#N canvas 10 50 600 521 compare-times 0; +#X obj 220 142 list split 1; +#X obj 256 349 list, f 5; +#X obj 254 380 list trim; +#X obj 201 285 sel 1; +#X obj 201 312 t b b; +#X text 297 218 wait until sequcned clock advances then send out event +and get next., f 26; +#X obj 169 221 f; +#X obj 197 175 t b f; +#X obj 126 77 inlet; +#X text 101 42 seq clock; +#X obj 237 77 inlet; +#X text 255 49 event; +#X obj 376 81 inlet; +#X obj 376 103 bang; +#X msg 376 125 0; +#X text 372 57 zero it out; +#X obj 257 417 outlet; +#X obj 153 424 outlet; +#X obj 184 250 >=; +#X connect 0 0 7 0; +#X connect 0 1 1 1; +#X connect 1 0 2 0; +#X connect 2 0 16 0; +#X connect 3 0 4 0; +#X connect 4 0 17 0; +#X connect 4 1 1 0; +#X connect 6 0 18 0; +#X connect 7 0 6 0; +#X connect 7 1 18 1; +#X connect 8 0 6 0; +#X connect 10 0 0 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 14 0 6 1; +#X connect 18 0 3 0; +#X restore 176 586 pd compare-times - - - - - - -; +#X obj 76 296 >=, f 7; +#X obj 295 88 route quantize-length; +#X obj 682 66 route start start-sync; +#X obj 712 126 t b; +#X obj 654 191 sel 0; +#X obj 654 213 spigot 0; +#X obj 654 235 t b b; +#X msg 727 214 0; +#X msg 712 148 1; +#X obj 295 49 t a a; +#X obj 778 647 outlet; +#X connect 0 0 34 0; +#X connect 3 0 4 0; +#X connect 3 1 7 0; +#X connect 4 0 34 1; +#X connect 6 0 29 0; +#X connect 6 1 29 1; +#X connect 6 2 34 2; +#X connect 7 0 0 1; +#X connect 7 0 4 1; +#X connect 8 0 33 0; +#X connect 8 1 2 0; +#X connect 12 0 27 0; +#X connect 12 0 39 0; +#X connect 13 0 6 0; +#X connect 14 0 12 0; +#X connect 15 0 14 0; +#X connect 16 0 12 0; +#X connect 17 0 44 0; +#X connect 20 0 25 0; +#X connect 21 0 22 0; +#X connect 23 0 24 0; +#X connect 25 0 35 1; +#X connect 27 0 35 0; +#X connect 27 1 0 0; +#X connect 27 2 13 0; +#X connect 29 0 3 0; +#X connect 30 0 29 0; +#X connect 32 0 33 1; +#X connect 33 0 10 0; +#X connect 34 0 31 0; +#X connect 34 1 8 0; +#X connect 35 0 21 0; +#X connect 36 0 28 0; +#X connect 36 1 12 0; +#X connect 37 0 38 0; +#X connect 37 1 38 0; +#X connect 38 0 43 0; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 41 0 45 0; +#X connect 41 1 42 0; +#X connect 42 0 40 1; +#X connect 43 0 40 1; +#X connect 44 0 36 0; +#X connect 44 1 37 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/seq-recorder.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/seq-recorder.pd new file mode 100644 index 0000000..8fbf945 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/seq-recorder.pd @@ -0,0 +1,191 @@ +#N canvas 383 56 1120 804 10; +#X obj 824 725 outlet; +#X obj 201 59 inlet; +#X text 118 54 beat clock; +#X obj 480 240 spigot; +#X obj 481 50 inlet; +#X obj 443 722 text set \$1, f 27; +#X msg 561 184 1; +#X text 682 347 start recording with next event; +#X text 525 51 events; +#X obj 258 146 t b b b, f 21; +#X msg 402 181 0; +#X obj 722 30 inlet; +#N canvas 8 50 662 454 log-event 0; +#X msg 216 292 1e+06; +#X obj 184 261 t a b; +#X obj 163 156 f; +#X obj 184 218 list append; +#X obj 238 76 t b a; +#X obj 216 320 outlet; +#X obj 139 323 outlet; +#X obj 122 38 inlet; +#X text 124 14 seq clock; +#X obj 245 36 inlet; +#X text 291 316 output event and line number for text set; +#X text 288 340 very large line number ensures event added to end of +text file... i guess this would be a problem for more than 1 million +events..; +#X text 247 12 event to log; +#X connect 0 0 5 0; +#X connect 1 0 6 0; +#X connect 1 1 0 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 4 0 2 0; +#X connect 4 1 3 1; +#X connect 7 0 2 1; +#X connect 9 0 4 0; +#X restore 399 574 pd log-event; +#X text 907 732 use to clear text file; +#N canvas 6 50 634 296 write-dummy-length 0; +#X obj 129 85 t a b; +#X msg 171 127 0; +#X msg 129 47 list 0 length 1; +#X obj 129 18 inlet; +#X obj 120 193 outlet; +#X obj 185 192 outlet; +#X text 246 119 set first entry; +#X text 242 146 gets replaced with length when sequence recording stopped +, f 31; +#X connect 0 0 4 0; +#X connect 0 1 1 0; +#X connect 1 0 5 0; +#X connect 2 0 0 0; +#X connect 3 0 2 0; +#X restore 698 519 pd write-dummy-length; +#N canvas 11 50 526 364 write-length 0; +#X obj 202 259 t a b; +#X msg 235 293 0; +#X msg 202 228 list 0 length \$1; +#X obj 249 328 outlet; +#X obj 183 324 outlet; +#X obj 172 115 f; +#X obj 172 143 spigot; +#X msg 248 112 1, f 4; +#X msg 126 157 0; +#X obj 306 59 inlet; +#X obj 201 60 inlet; +#X obj 99 56 inlet; +#X text 47 34 bang to report, f 18; +#X text 204 34 clock; +#X text 314 31 enable; +#X text 294 141 when stopped write length to sequence \, but only if +recording., f 26; +#X obj 173 179 t b f f; +#X obj 89 325 outlet; +#X connect 0 0 4 0; +#X connect 0 1 1 0; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 5 0 6 0; +#X connect 6 0 16 0; +#X connect 7 0 6 1; +#X connect 8 0 6 1; +#X connect 9 0 7 0; +#X connect 10 0 5 1; +#X connect 11 0 5 0; +#X connect 16 0 8 0; +#X connect 16 1 17 0; +#X connect 16 2 2 0; +#X restore 258 575 pd write-length; +#X text 409 145 close gate \, stop clock \, report length; +#X msg 594 515 0; +#X msg 512 447 start; +#X msg 330 219 stop; +#X obj 309 422 clocker; +#X obj 81 242 loadbang; +#X msg 81 264 length 1e+06; +#X obj 722 67 route stop arm; +#X text 766 27 controls; +#X text 52 219 set max length; +#X text 829 138 set trigger \, open gate; +#X obj 769 132 t b b; +#X text 907 714 bang on start recording; +#X text 699 383 bang on start \, write dummy length \, set init time +0 \, start clock \, enable length writing; +#X obj 309 373 r \$0clock-control; +#X obj 330 248 s \$0clock-control; +#X obj 512 475 s \$0clock-control; +#X obj 691 443 s \$0recording; +#X obj 824 691 r \$0recording; +#X obj 512 383 t b b b b, f 26; +#X obj 360 523 r \$0recording; +#X obj 81 289 s \$0clock-control; +#X obj 258 703 outlet; +#X text 315 704 report length; +#X text 796 234 only note ons trigger record; +#N canvas 8 50 450 300 filter-on-notes 0; +#X obj 81 11 inlet; +#X obj 81 33 route note, f 15; +#X obj 81 55 stripnote; +#X obj 81 157 outlet; +#X text 203 30 pass knobs and other messages; +#X obj 81 117 t b; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 1 1 5 0; +#X connect 2 0 5 0; +#X connect 5 0 3 0; +#X restore 512 294 pd filter-on-notes; +#X obj 480 268 t a a; +#N canvas 509 249 450 300 once 0; +#X obj 114 61 inlet; +#X obj 203 37 inlet; +#X obj 114 215 outlet; +#X obj 114 137 == 1; +#X obj 114 115 i 0; +#X obj 114 162 sel 1; +#X obj 114 184 t b b; +#X msg 206 152 0; +#X msg 203 62 1; +#X text 252 38 reset; +#X connect 0 0 4 0; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X connect 5 0 6 0; +#X connect 6 0 2 0; +#X connect 6 1 7 0; +#X connect 7 0 4 1; +#X connect 8 0 4 1; +#X restore 512 347 pd once - - - - - - - -; +#X text 652 293 <-- jeremy added this; +#X connect 1 0 20 0; +#X connect 3 0 42 0; +#X connect 4 0 3 0; +#X connect 6 0 3 1; +#X connect 9 0 15 0; +#X connect 9 1 19 0; +#X connect 9 2 10 0; +#X connect 10 0 3 1; +#X connect 11 0 23 0; +#X connect 12 0 5 0; +#X connect 12 1 5 1; +#X connect 14 0 5 0; +#X connect 14 1 5 1; +#X connect 15 0 38 0; +#X connect 15 1 5 0; +#X connect 15 2 5 1; +#X connect 17 0 12 0; +#X connect 18 0 32 0; +#X connect 19 0 31 0; +#X connect 20 0 12 0; +#X connect 20 0 15 1; +#X connect 21 0 22 0; +#X connect 22 0 37 0; +#X connect 23 0 9 0; +#X connect 23 1 27 0; +#X connect 27 0 6 0; +#X connect 27 1 43 1; +#X connect 30 0 20 0; +#X connect 34 0 0 0; +#X connect 35 0 18 0; +#X connect 35 1 17 0; +#X connect 35 2 14 0; +#X connect 35 3 33 0; +#X connect 36 0 15 2; +#X connect 41 0 43 0; +#X connect 42 0 12 1; +#X connect 42 1 41 0; +#X connect 43 0 35 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/seq.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/seq.pd new file mode 100644 index 0000000..5a11bac --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/seq.pd @@ -0,0 +1,130 @@ +#N canvas 299 50 1403 789 10; +#X msg 680 563 clear; +#X msg 575 260 loop \$1; +#X msg 638 261 quantize-length \$1; +#X obj 66 74 inlet; +#X obj 66 103 s \$0beat-clock; +#X obj 223 403 r \$0beat-clock; +#X obj 223 495 seq-player \$1; +#X obj 578 470 seq-recorder \$1; +#X obj 252 77 inlet; +#X obj 647 19 inlet; +#X obj 223 678 outlet; +#X msg 828 260 start-sync; +#X msg 1017 259 arm; +#X obj 578 350 r \$0beat-clock; +#X obj 578 683 outlet; +#X text 709 17 controls; +#X msg 712 529 rec; +#X text 291 679 events out; +#X text 306 74 events in; +#X msg 492 586 end; +#X msg 578 506 length \$1; +#X obj 311 443 r \$0player; +#X obj 780 333 s \$0player; +#X obj 997 303 s \$0recorder; +#X obj 680 444 r \$0recorder; +#X msg 780 259 start; +#X text 129 74 clock; +#X text 662 684 send all status out; +#X obj 647 57 t a a; +#X obj 587 88 s \$0status; +#X obj 645 648 r \$0status; +#X obj 923 362 s \$0status; +#X text 1006 363 send out stop status too; +#X obj 252 114 s \$0events-in; +#X obj 629 378 r \$0events-in; +#N canvas 4 50 680 291 stop-all 0; +#X obj 98 58 inlet; +#X msg 148 128 stop; +#X obj 98 80 t b b b; +#X msg 109 129 stop; +#X msg 69 128 stop; +#X obj 171 181 outlet; +#X obj 117 193 outlet; +#X obj 51 184 outlet; +#X text 199 81 stop recorder \, player \, send stop status out; +#X connect 0 0 2 0; +#X connect 1 0 5 0; +#X connect 2 0 4 0; +#X connect 2 1 3 0; +#X connect 2 2 1 0; +#X connect 3 0 6 0; +#X connect 4 0 7 0; +#X restore 923 259 pd stop-all; +#X obj 946 189 t b; +#X obj 1017 193 t b b; +#X obj 1133 193 t a b; +#X obj 1145 305 s \$0text; +#X obj 745 564 r \$0text; +#X obj 1104 281 list trim; +#X obj 1241 283 list trim; +#X obj 1241 259 list prepend read; +#X obj 1104 257 list prepend write; +#X text 1190 186 stop sequencer before reading new file, f 23; +#X obj 680 591 text define -k \$1; +#A set 0 length 1528 \; 0 note 69 100 \; 789 note 72 100 \; 793 note +69 0 \; 1479 note 72 0 \;; +#X obj 865 188 t b b; +#X obj 789 191 t b b; +#X obj 680 501 t b b; +#X obj 599 537 r \$0-clear; +#X obj 679 92 route loop quantize-length play play-sync stop arm write +read, f 82; +#X text 53 211 if start-sync happens when clock is <179 immediately +play and all notes will play that have been skipped.; +#X msg 315 546 isPlaying; +#X connect 0 0 46 0; +#X connect 1 0 22 0; +#X connect 2 0 22 0; +#X connect 3 0 4 0; +#X connect 5 0 6 0; +#X connect 6 0 10 0; +#X connect 6 1 19 0; +#X connect 6 2 53 0; +#X connect 7 0 20 0; +#X connect 7 1 49 0; +#X connect 8 0 33 0; +#X connect 9 0 28 0; +#X connect 11 0 22 0; +#X connect 12 0 23 0; +#X connect 13 0 7 0; +#X connect 16 0 14 0; +#X connect 19 0 14 0; +#X connect 20 0 14 0; +#X connect 21 0 6 1; +#X connect 24 0 7 2; +#X connect 25 0 22 0; +#X connect 28 0 29 0; +#X connect 28 1 51 0; +#X connect 30 0 14 0; +#X connect 34 0 7 1; +#X connect 35 0 31 0; +#X connect 35 1 22 0; +#X connect 35 2 23 0; +#X connect 36 0 35 0; +#X connect 37 0 12 0; +#X connect 37 1 35 0; +#X connect 38 0 43 0; +#X connect 38 1 35 0; +#X connect 40 0 46 0; +#X connect 41 0 39 0; +#X connect 42 0 39 0; +#X connect 43 0 42 0; +#X connect 44 0 41 0; +#X connect 47 0 11 0; +#X connect 47 1 35 0; +#X connect 48 0 25 0; +#X connect 48 1 35 0; +#X connect 49 0 0 0; +#X connect 49 1 16 0; +#X connect 50 0 0 0; +#X connect 51 0 1 0; +#X connect 51 1 2 0; +#X connect 51 2 48 0; +#X connect 51 3 47 0; +#X connect 51 4 36 0; +#X connect 51 5 37 0; +#X connect 51 6 44 0; +#X connect 51 7 38 0; +#X connect 53 0 14 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/seq3-multipage.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/seq3-multipage.pd new file mode 100644 index 0000000..5f8fc85 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/seq3-multipage.pd @@ -0,0 +1,1359 @@ +#N canvas 7 50 1162 730 10; +#N canvas 83 78 1290 986 states 0; +#X obj 187 17 inlet; +#X msg 1346 13 stop; +#X msg 1287 12 0; +#X text 1322 14 =; +#X text 1322 44 =; +#X msg 1287 42 1; +#X msg 1346 43 start; +#X text 1322 74 =; +#X msg 1287 72 2; +#X msg 1346 73 recenable; +#X text 125 546 when something is recorded switch the variable to 3 +; +#X text 1322 104 =; +#X msg 1286 102 3; +#X msg 1346 103 record; +#X text 112 610 latch off is simply in all of these \, eg right outlet +of select; +#X obj 129 660 r cg-midi-start; +#X obj 129 733 t f f, f 17; +#X obj 129 764 v seq3-\$1-state; +#X obj 245 764 s seq3-\$1-actions; +#X obj 129 682 t b; +#X msg 129 704 1; +#X obj 379 730 t f f, f 17; +#X obj 379 764 v seq3-\$1-state; +#X obj 495 764 s seq3-\$1-actions; +#X obj 379 682 t b; +#X obj 379 659 r cg-midi-stop; +#X msg 379 705 0; +#X text 533 14 the states controlled by the new shortcut approach; +#X obj 227 494 v seq3-\$1-state; +#X obj 259 469 s seq3-\$1-actions; +#X obj 254 308 v seq3-\$1-state; +#X msg 226 157 0; +#X msg 254 377 0; +#X msg 328 392 1; +#X obj 328 369 t b; +#X obj 404 179 v seq3-\$1-state; +#X obj 404 201 sel 2, f 7; +#X msg 404 224 0; +#X obj 450 224 t b; +#X obj 404 334 v seq3-\$1-state; +#X obj 436 314 s seq3-\$1-actions; +#X msg 450 247 2; +#X text 425 147 if 2 is on turn off \, otherwise turn on 2; +#X obj 870 591 t b b b, f 22; +#X msg 887 663 stop; +#X obj 1156 766 f 0; +#X msg 1142 647 0; +#X msg 1175 669 3; +#X msg 1208 663 6; +#X msg 945 624 7; +#X obj 870 693 del 50; +#X obj 870 526 spigot; +#X obj 1095 797 f 0; +#X obj 978 416 r seq3-\$1-actions; +#X obj 1142 603 r seq3-\$1-actions; +#X obj 1095 826 s seq3-\$1-led; +#X obj 679 193 v seq3-\$1-state; +#X obj 774 251 t b; +#X obj 679 376 v seq3-\$1-state; +#X obj 711 356 s seq3-\$1-actions; +#X obj 679 222 sel 1, f 14; +#X msg 679 261 1; +#X msg 774 273 1; +#X msg 1216 381 0; +#X msg 1248 403 3; +#X msg 1285 397 6; +#X obj 1216 337 r seq3-\$1-actions; +#X obj 870 449 r beat-clock; +#X obj 870 471 sel 0; +#X text 1322 164 =; +#X msg 1286 162 5; +#X msg 1345 162 overdub; +#X obj 858 154 v seq3-\$1-state; +#X obj 858 176 sel 5; +#X msg 858 198 0; +#X msg 890 220 5; +#X obj 858 340 v seq3-\$1-state; +#X obj 890 313 s seq3-\$1-actions; +#X msg 1308 662 2; +#X msg 1373 394 2; +#X obj 870 562 spigot \$2; +#X obj 930 537 r seq3-\$1-quan; +#X obj 1292 692 r seq3-\$1-overdub-on; +#X obj 1292 716 + 1; +#X obj 1269 743 f; +#X obj 890 198 t b b; +#X msg 934 218 0; +#X obj 226 114 sel 0 1 2 3 4 5 6, f 121; +#X text 1322 194 =; +#X msg 1286 192 6; +#X msg 1345 192 undo; +#X text 341 59 0 stops everything \, 1 is play toggle \, 2 is rec enabled +\, 3 is latch toggle \, 4 play and if playing keep playing \, 5 overdub +\, 6 undo-request; +#X obj 1024 343 v seq3-\$1-state; +#X obj 1056 316 s seq3-\$1-actions; +#X msg 1024 233 6; +#X obj 1216 359 sel 0 1 2 3 4 5 6, f 28; +#X obj 1142 625 sel 0 1 2 3 4 5 6, f 32; +#X obj 1216 562 s seq3-\$1-led; +#X obj 1216 537 f; +#X obj 227 437 t f f; +#X obj 404 272 t f f; +#X obj 679 314 t f f; +#X obj 858 258 t f f; +#X obj 1024 261 t f f; +#X text 248 13 Controls State with 0-6; +#X obj 978 438 sel 0 5 6; +#X obj 1038 467 t b; +#X msg 1038 489 1; +#X msg 998 482 0; +#X obj 1364 418 r seq3-\$1-overdub-on; +#X obj 1364 442 + 1; +#X obj 1341 469 f; +#X obj 254 333 sel 1 6, f 11; +#X obj 187 66 route 3; +#X obj 98 137 t b; +#X text 1289 137 latch seperate now; +#X obj 130 226 s seq3-\$1-togLatch; +#X obj 130 192 % 2; +#X obj 98 171 f 0; +#X obj 130 171 + 1; +#X obj 681 444 r seq3-\$1-togLatch; +#X msg 696 652 stop; +#X obj 750 782 s seq3-\$1-led; +#X obj 679 682 del 178; +#X obj 679 542 sel 1 0, f 10; +#X obj 679 590 t b f b, f 22; +#X msg 679 563 4; +#X msg 710 566 1; +#X obj 144 122 loadbang; +#X msg 144 143 1; +#X obj 681 465 t b f; +#X obj 680 511 spigot 0; +#X msg 681 486 1; +#X connect 0 0 113 0; +#X connect 15 0 19 0; +#X connect 16 0 17 0; +#X connect 16 1 18 0; +#X connect 19 0 20 0; +#X connect 20 0 16 0; +#X connect 21 0 22 0; +#X connect 21 1 23 0; +#X connect 24 0 26 0; +#X connect 25 0 24 0; +#X connect 26 0 21 0; +#X connect 30 0 112 0; +#X connect 31 0 99 0; +#X connect 32 0 99 0; +#X connect 33 0 99 0; +#X connect 34 0 33 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 36 1 38 0; +#X connect 37 0 100 0; +#X connect 38 0 41 0; +#X connect 41 0 100 0; +#X connect 43 0 50 0; +#X connect 43 1 49 0; +#X connect 43 2 44 0; +#X connect 44 0 50 0; +#X connect 45 0 52 0; +#X connect 46 0 45 1; +#X connect 46 0 52 0; +#X connect 47 0 45 1; +#X connect 48 0 45 1; +#X connect 49 0 52 0; +#X connect 50 0 45 0; +#X connect 51 0 80 0; +#X connect 52 0 55 0; +#X connect 53 0 105 0; +#X connect 54 0 96 0; +#X connect 56 0 60 0; +#X connect 57 0 62 0; +#X connect 60 0 61 0; +#X connect 60 1 57 0; +#X connect 61 0 101 0; +#X connect 62 0 101 0; +#X connect 63 0 98 0; +#X connect 64 0 98 0; +#X connect 65 0 98 0; +#X connect 66 0 95 0; +#X connect 67 0 68 0; +#X connect 68 0 51 0; +#X connect 72 0 73 0; +#X connect 73 0 74 0; +#X connect 73 1 85 0; +#X connect 74 0 102 0; +#X connect 75 0 102 0; +#X connect 78 0 45 1; +#X connect 79 0 98 0; +#X connect 80 0 43 0; +#X connect 81 0 80 1; +#X connect 82 0 83 0; +#X connect 83 0 84 1; +#X connect 84 0 45 1; +#X connect 85 0 75 0; +#X connect 85 1 86 0; +#X connect 86 0 102 0; +#X connect 87 0 31 0; +#X connect 87 1 30 0; +#X connect 87 2 35 0; +#X connect 87 4 56 0; +#X connect 87 5 72 0; +#X connect 87 6 94 0; +#X connect 94 0 103 0; +#X connect 95 0 63 0; +#X connect 95 1 64 0; +#X connect 95 2 65 0; +#X connect 95 3 111 0; +#X connect 96 0 46 0; +#X connect 96 1 47 0; +#X connect 96 2 48 0; +#X connect 96 3 84 0; +#X connect 98 0 97 0; +#X connect 99 0 28 0; +#X connect 99 1 29 0; +#X connect 100 0 39 0; +#X connect 100 1 40 0; +#X connect 101 0 58 0; +#X connect 101 1 59 0; +#X connect 102 0 76 0; +#X connect 102 1 77 0; +#X connect 103 0 92 0; +#X connect 103 1 93 0; +#X connect 105 0 108 0; +#X connect 105 1 108 0; +#X connect 105 2 108 0; +#X connect 105 3 106 0; +#X connect 106 0 107 0; +#X connect 107 0 51 1; +#X connect 108 0 51 1; +#X connect 109 0 110 0; +#X connect 110 0 111 1; +#X connect 111 0 98 0; +#X connect 112 0 32 0; +#X connect 112 1 32 0; +#X connect 112 2 34 0; +#X connect 113 0 114 0; +#X connect 113 1 87 0; +#X connect 114 0 118 0; +#X connect 117 0 116 0; +#X connect 118 0 119 0; +#X connect 119 0 117 0; +#X connect 119 0 118 1; +#X connect 120 0 130 0; +#X connect 121 0 123 0; +#X connect 123 0 45 0; +#X connect 124 0 126 0; +#X connect 124 1 127 0; +#X connect 125 0 123 0; +#X connect 125 1 122 0; +#X connect 125 2 121 0; +#X connect 126 0 125 0; +#X connect 127 0 125 0; +#X connect 128 0 129 0; +#X connect 129 0 118 0; +#X connect 130 0 132 0; +#X connect 130 1 131 0; +#X connect 131 0 124 0; +#X connect 132 0 131 1; +#X restore 462 102 pd states; +#X obj 462 56 inlet aux; +#X obj 87 146 t a a; +#N canvas 9 50 1183 836 countem 0; +#X obj 443 416 s seq3-\$1-count-notes; +#X obj 346 183 inlet; +#X obj 440 380 + 1; +#X msg 402 333 -1; +#X msg 445 333 1; +#X obj 364 303 t b b; +#X obj 364 394 max 0; +#X obj 424 302 t b b; +#X obj 346 205 unpack 0 0; +#X obj 413 231 sel 0; +#X obj 364 372 f 0; +#X connect 1 0 8 0; +#X connect 2 0 10 1; +#X connect 2 0 0 0; +#X connect 3 0 2 1; +#X connect 4 0 2 1; +#X connect 5 0 10 0; +#X connect 5 1 3 0; +#X connect 6 0 2 0; +#X connect 7 0 10 0; +#X connect 7 1 4 0; +#X connect 8 1 9 0; +#X connect 9 0 5 0; +#X connect 9 1 7 0; +#X connect 10 0 6 0; +#X restore 114 171 pd countem; +#X obj 114 269 s \$0-pass; +#X obj 87 64 inlet notes, f 17; +#X obj 393 590 r seq3-\$1-actions; +#X floatatom 393 612 5 0 0 0 - - -; +#X text 447 120 state control; +#X text 181 170 count the incoming notes; +#X text 128 254 incoming notes get passed to the outlet; +#X text 376 575 heads up display of states; +#X obj 517 340 loadbang; +#X obj 87 317 seq-format-event note; +#X text 460 467 round seq length to multiple of beats; +#X obj 87 399 s \$0-events-in; +#N canvas 6 50 1009 708 the-knobs 0; +#X obj 672 626 outlet; +#X obj 31 45 r p1k1; +#X obj 31 75 seq-format-event p1k1; +#X obj 678 571 r format-knob-\$0; +#X obj 31 116 s format-knob-\$0; +#X obj 204 40 r p1k2; +#X obj 203 70 seq-format-event p1k2; +#X obj 203 92 s format-knob-\$0; +#X obj 366 106 s format-knob-\$0; +#X obj 538 82 s format-knob-\$0; +#X obj 366 35 r p1k3; +#X obj 365 65 seq-format-event p1k3; +#X obj 538 30 r p1k4; +#X obj 538 60 seq-format-event p1k4; +#X obj 27 211 s format-knob-\$0; +#X obj 199 187 s format-knob-\$0; +#X obj 362 201 s format-knob-\$0; +#X obj 534 177 s format-knob-\$0; +#X obj 33 310 s format-knob-\$0; +#X obj 205 286 s format-knob-\$0; +#X obj 368 300 s format-knob-\$0; +#X obj 540 276 s format-knob-\$0; +#X obj 36 414 s format-knob-\$0; +#X obj 208 390 s format-knob-\$0; +#X obj 371 404 s format-knob-\$0; +#X obj 543 380 s format-knob-\$0; +#X obj 27 140 r p2k1; +#X obj 199 126 r p2k2; +#X obj 199 165 seq-format-event p2k2; +#X obj 27 170 seq-format-event p2k1; +#X obj 362 130 r p2k3; +#X obj 361 160 seq-format-event p2k3; +#X obj 534 125 r p2k4; +#X obj 534 155 seq-format-event p2k4; +#X obj 540 254 seq-format-event p3k4; +#X obj 367 259 seq-format-event p3k3; +#X obj 205 264 seq-format-event p3k2; +#X obj 33 269 seq-format-event p3k1; +#X obj 36 373 seq-format-event p4k1; +#X obj 208 368 seq-format-event p4k2; +#X obj 370 363 seq-format-event p4k3; +#X obj 543 358 seq-format-event p4k4; +#X obj 543 328 r p4k4; +#X obj 371 333 r p4k3; +#X obj 209 338 r p4k2; +#X obj 36 343 r p4k1; +#X obj 206 234 r p3k2; +#X obj 33 239 r p3k1; +#X obj 368 229 r p3k3; +#X obj 540 224 r p3k4; +#X connect 1 0 2 0; +#X connect 2 0 4 0; +#X connect 3 0 0 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 10 0 11 0; +#X connect 11 0 8 0; +#X connect 12 0 13 0; +#X connect 13 0 9 0; +#X connect 26 0 29 0; +#X connect 27 0 28 0; +#X connect 28 0 15 0; +#X connect 29 0 14 0; +#X connect 30 0 31 0; +#X connect 31 0 16 0; +#X connect 32 0 33 0; +#X connect 33 0 17 0; +#X connect 34 0 21 0; +#X connect 35 0 20 0; +#X connect 36 0 19 0; +#X connect 37 0 18 0; +#X connect 38 0 22 0; +#X connect 39 0 23 0; +#X connect 40 0 24 0; +#X connect 41 0 25 0; +#X connect 42 0 41 0; +#X connect 43 0 40 0; +#X connect 44 0 39 0; +#X connect 45 0 38 0; +#X connect 46 0 36 0; +#X connect 47 0 37 0; +#X connect 48 0 35 0; +#X connect 49 0 34 0; +#X restore 126 361 pd the-knobs; +#X obj 439 393 f \$2; +#X obj 439 517 s \$0-arg-2-seq; +#X obj 601 56 inlet save and recall; +#X text 448 209 arg 2: 0 no sync \, 1 sync; +#X text 603 404 loop or not; +#X msg 517 423 0 loop 1 \, 1 loop 1; +#X msg 438 499 0 quantize-length \$1 \, 1 quantize-length \$1; +#N canvas 4 50 1009 609 overdub 0; +#X obj 223 31 r seq3-\$1-actions; +#X text 243 4 overdub; +#N canvas 23 50 739 692 countdown 0; +#X obj 260 44 inlet; +#X obj 210 237 f; +#X obj 254 256 + 1; +#X obj 615 584 del 100; +#X msg 615 606 0; +#X msg 665 553 stop; +#X obj 592 669 s seq3-\$1-led; +#X obj 307 555 outlet; +#X obj 207 43 sel 0; +#X obj 207 209 spigot 0; +#X msg 260 174 1; +#X msg 353 294 0; +#X msg 367 172 0; +#X obj 592 519 t f b b; +#X obj 499 438 t b; +#X msg 499 463 1; +#X obj 260 76 t b b b, f 31; +#X obj 508 90 r cgSc-\$1-aux; +#X obj 508 112 sel 1; +#X msg 474 114 1; +#X obj 508 145 spigot 0; +#X obj 508 181 t b b; +#X msg 623 206 0; +#X obj 508 211 t b b b; +#X obj 207 454 t b b b b, f 22; +#X obj 508 385 v seq3-\$1-state; +#X obj 540 360 s seq3-\$1-actions; +#X obj 508 328 t f f; +#X msg 508 294 0; +#X msg 207 546 2; +#X obj 207 286 sel 4, f 13; +#X msg 401 146 2; +#X obj 570 -1 inlet beat; +#X connect 0 0 16 0; +#X connect 1 0 2 0; +#X connect 1 0 30 0; +#X connect 2 0 1 1; +#X connect 3 0 4 0; +#X connect 4 0 6 0; +#X connect 5 0 3 0; +#X connect 8 0 9 0; +#X connect 9 0 1 0; +#X connect 10 0 9 1; +#X connect 11 0 9 1; +#X connect 12 0 1 1; +#X connect 13 0 6 0; +#X connect 13 1 3 0; +#X connect 13 2 5 0; +#X connect 14 0 15 0; +#X connect 15 0 13 0; +#X connect 16 0 10 0; +#X connect 16 1 12 0; +#X connect 16 1 31 0; +#X connect 16 2 19 0; +#X connect 17 0 18 0; +#X connect 18 0 20 0; +#X connect 19 0 20 1; +#X connect 20 0 21 0; +#X connect 21 0 23 0; +#X connect 21 1 22 0; +#X connect 22 0 20 1; +#X connect 23 0 28 0; +#X connect 23 1 5 0; +#X connect 23 2 11 0; +#X connect 24 0 29 0; +#X connect 24 1 11 0; +#X connect 24 2 7 0; +#X connect 24 3 22 0; +#X connect 24 3 5 0; +#X connect 27 0 25 0; +#X connect 27 1 26 0; +#X connect 28 0 27 0; +#X connect 29 0 6 0; +#X connect 30 0 24 0; +#X connect 30 1 14 0; +#X connect 31 0 6 0; +#X connect 32 0 8 0; +#X restore 223 116 pd countdown; +#X msg 268 217 arm; +#X obj 268 394 s \$0-arg-2-seq; +#X obj 268 244 t a b; +#X obj 349 268 v seq3-\$1-od; +#X obj 268 312 list prepend; +#X obj 268 334 list trim; +#X obj 349 290 ==; +#X text 304 216 arm the opposite; +#X msg 432 296 0 stop \, 1 stop; +#X obj 223 67 sel 5 3, f 124; +#X obj 655 164 spigot 0; +#X obj 655 186 t b b; +#X msg 738 168 0; +#X msg 527 101 1; +#X obj 434 229 s seq3-\$1-overdub-on; +#X msg 434 201 1; +#X obj 655 305 v seq3-\$1-od; +#X obj 655 331 ==; +#X obj 655 353 v seq3-\$1-od; +#X text 709 328 switch; +#X obj 678 277 s \$0-save-current; +#X obj 223 172 t b b b b b, f 35; +#X obj 829 465 s seq3-\$1-overdub-on; +#X obj 655 214 t b b b; +#X obj 829 298 spigot 0; +#X obj 829 320 t b b; +#X msg 912 302 0; +#X msg 701 235 1; +#X msg 829 437 0; +#X obj 829 241 sel 1; +#X obj 829 342 t b b, f 7; +#X obj 875 397 f; +#X obj 875 441 s \$0-arg-2-seq; +#X msg 875 419 \$1 stop; +#X obj 507 170 loadbang; +#X msg 507 192 0; +#X obj 425 28 inlet; +#X obj 137 277 s \$0-play-local; +#X obj 828 219 r cgSc-\$4-aux; +#X connect 0 0 12 0; +#X connect 2 0 24 0; +#X connect 3 0 5 0; +#X connect 5 0 7 0; +#X connect 5 1 6 0; +#X connect 6 0 9 0; +#X connect 7 0 8 0; +#X connect 8 0 4 0; +#X connect 9 0 7 1; +#X connect 11 0 4 0; +#X connect 12 0 2 0; +#X connect 12 1 13 0; +#X connect 13 0 14 0; +#X connect 14 0 26 0; +#X connect 14 1 15 0; +#X connect 15 0 13 1; +#X connect 16 0 13 1; +#X connect 18 0 17 0; +#X connect 19 0 20 0; +#X connect 19 0 34 1; +#X connect 20 0 21 0; +#X connect 24 0 40 0; +#X connect 24 1 3 0; +#X connect 24 2 11 0; +#X connect 24 3 18 0; +#X connect 24 4 16 0; +#X connect 26 0 19 0; +#X connect 26 1 23 0; +#X connect 26 2 30 0; +#X connect 27 0 28 0; +#X connect 28 0 33 0; +#X connect 28 1 29 0; +#X connect 29 0 27 1; +#X connect 30 0 27 1; +#X connect 31 0 25 0; +#X connect 32 0 27 0; +#X connect 33 0 31 0; +#X connect 33 1 34 0; +#X connect 34 0 36 0; +#X connect 36 0 35 0; +#X connect 37 0 38 0; +#X connect 38 0 17 0; +#X connect 39 0 2 1; +#X connect 41 0 32 0; +#X restore 864 408 pd overdub; +#X obj 87 243 t a a; +#X obj 384 347 r seq3-\$1-quan; +#N canvas 714 78 1178 708 save-the-txts 0; +#X obj 31 669 s \$0-arg-2-seq; +#X obj 63 593 v seq3-\$1-od; +#X obj 31 617 list prepend; +#X obj 31 639 list trim; +#X obj 31 569 t a b; +#X obj 84 355 symbol \$3; +#X obj 31 381 pack 0 s; +#X obj 84 327 loadbang; +#X obj 49 176 r \$0-current-slot; +#X obj 31 204 f; +#X obj 284 210 array define \$0-slot-tracker 14; +#X obj 284 24 loadbang; +#X obj 297 126 r saveState; +#X msg 31 510 write \$2/seq\$1x.txt; +#X msg 61 534 write \$2/seq\$1y.txt; +#X obj 189 361 tabread \$0-slot-tracker; +#X text 267 313 get current toggle; +#X obj 189 383 ==; +#X text 221 383 switch it; +#X obj 31 473 route 0 1; +#X obj 31 445 list prepend, f 13; +#X obj 189 405 t f f, f 11; +#X obj 263 451 tabwrite \$0-slot-tracker; +#X obj 189 336 t f f, f 30; +#X text 280 432 write it to tracker; +#X obj 189 314 unpack 0 s; +#X obj 31 226 t f f; +#X obj 591 606 s \$0-arg-2-seq; +#X obj 591 554 list prepend; +#X obj 591 576 list trim; +#X obj 591 466 t a b; +#X obj 644 212 symbol \$3; +#X obj 591 258 pack 0 s; +#X obj 644 186 loadbang; +#X obj 672 261 tabread \$0-slot-tracker; +#X obj 591 310 list prepend; +#X obj 591 372 route 0 1; +#X obj 591 205 t f f; +#X obj 623 508 v seq3-\$1-od; +#X msg 591 432 read \$2/seq\$1x.txt; +#X msg 621 403 read \$2/seq\$1y.txt; +#X obj 609 149 r \$0-current-slot; +#X obj 591 177 f; +#X obj 591 52 inlet read-bang; +#X obj 31 39 inlet write-bang; +#X obj 284 46 symbol \$3; +#X msg 284 86 read \$1/slot-tracker.txt; +#X msg 297 182 write \$1/slot-tracker.txt; +#X obj 297 148 symbol \$3; +#X connect 1 0 2 1; +#X connect 2 0 3 0; +#X connect 3 0 0 0; +#X connect 4 0 2 0; +#X connect 4 1 1 0; +#X connect 5 0 6 1; +#X connect 6 0 20 0; +#X connect 7 0 5 0; +#X connect 8 0 9 1; +#X connect 9 0 26 0; +#X connect 11 0 45 0; +#X connect 12 0 48 0; +#X connect 13 0 4 0; +#X connect 14 0 4 0; +#X connect 15 0 17 0; +#X connect 17 0 21 0; +#X connect 19 0 13 0; +#X connect 19 1 14 0; +#X connect 20 0 19 0; +#X connect 21 0 20 1; +#X connect 21 1 22 0; +#X connect 23 0 15 0; +#X connect 23 1 22 1; +#X connect 25 0 23 0; +#X connect 26 0 6 0; +#X connect 26 1 25 0; +#X connect 28 0 29 0; +#X connect 29 0 27 0; +#X connect 30 0 28 0; +#X connect 30 1 38 0; +#X connect 31 0 32 1; +#X connect 32 0 35 0; +#X connect 33 0 31 0; +#X connect 34 0 35 1; +#X connect 35 0 36 0; +#X connect 36 0 39 0; +#X connect 36 1 40 0; +#X connect 37 0 32 0; +#X connect 37 1 34 0; +#X connect 38 0 28 1; +#X connect 39 0 30 0; +#X connect 40 0 30 0; +#X connect 41 0 42 1; +#X connect 42 0 37 0; +#X connect 43 0 42 0; +#X connect 44 0 9 0; +#X connect 45 0 46 0; +#X connect 46 0 10 0; +#X connect 47 0 10 0; +#X connect 48 0 47 0; +#X restore 77 639 pd save-the-txts; +#N canvas 109 134 1108 695 change-and-load-slot 0; +#X obj 164 38 inlet; +#X obj 164 526 sel 1, f 12; +#X obj 537 308 s \$0-current-slot; +#X obj 164 78 change -1; +#X msg 318 585 0; +#X obj 412 321 v seq3-\$1-od; +#X obj 412 343 ==; +#X obj 412 365 v seq3-\$1-od; +#X text 466 340 switch; +#X text 550 288 change the slot number; +#X obj 288 426 s \$0-read-current; +#X text 328 406 open new slot; +#X text 191 506 if playing \, play; +#X obj 318 667 v seq3-\$1-state; +#X obj 350 642 s seq3-\$1-actions; +#X obj 318 610 t f f; +#X obj 910 322 v seq3-\$1-state; +#X obj 164 504 f; +#X text 852 301 get the state before turning off; +#X obj 164 172 t b b b f b b b, f 107; +#X obj 661 267 s \$0-save-current; +#X text 394 303 don't need this; +#X text 324 16 if a port is changed and a rec happens save \, if no +change to .txt than dont save; +#X msg 196 125 1; +#X obj 714 50 r seq3-\$1-actions; +#X obj 661 219 spigot 0; +#X msg 734 222 0; +#X msg 714 139 1; +#X obj 661 241 t b b; +#X obj 164 100 t f b; +#X obj 164 641 s \$0-play-local; +#X obj 196 601 v seq3-\$1-state; +#X msg 196 574 1; +#X obj 164 548 t b b; +#X obj 795 244 s \$0-stop-local; +#X obj 245 548 t b; +#X obj 530 59 r seq3-\$1-actions; +#X obj 530 81 sel 1; +#X obj 714 72 sel 3 5 6; +#X obj 763 117 s \$0-save-current; +#X obj 759 96 del 50; +#X connect 0 0 3 0; +#X connect 1 0 33 0; +#X connect 1 1 35 0; +#X connect 3 0 29 0; +#X connect 4 0 15 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 15 0 13 0; +#X connect 15 1 14 0; +#X connect 16 0 17 1; +#X connect 17 0 1 0; +#X connect 19 0 17 0; +#X connect 19 1 10 0; +#X connect 19 3 2 0; +#X connect 19 4 25 0; +#X connect 19 5 34 0; +#X connect 19 6 16 0; +#X connect 24 0 38 0; +#X connect 25 0 28 0; +#X connect 26 0 25 1; +#X connect 27 0 25 1; +#X connect 28 0 20 0; +#X connect 28 1 26 0; +#X connect 29 0 19 0; +#X connect 29 1 23 0; +#X connect 32 0 31 0; +#X connect 33 0 30 0; +#X connect 33 1 32 0; +#X connect 35 0 4 0; +#X connect 36 0 37 0; +#X connect 37 0 25 0; +#X connect 38 0 27 0; +#X connect 38 1 27 0; +#X connect 38 2 40 0; +#X connect 40 0 39 0; +#X restore 601 134 pd change-and-load-slot; +#X text 448 229 arg 3: path to folder where to save 28 textfiles; +#N canvas 5 50 1009 708 THE-2-SEQS 0; +#X obj 398 800 outlet; +#N canvas 14 50 468 388 flush-stuck-notes 0; +#X obj 167 212 bag; +#X msg 203 161 flush; +#X msg 160 254 \$1 0; +#X obj 124 157 t a a; +#X obj 137 354 outlet; +#X obj 101 22 inlet; +#X obj 258 20 inlet; +#X obj 238 107 bang; +#X obj 114 102 route note; +#X obj 248 61 route end stop; +#X obj 232 338 outlet other messages; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 4 0; +#X connect 3 0 4 0; +#X connect 3 1 0 0; +#X connect 5 0 8 0; +#X connect 6 0 9 0; +#X connect 7 0 1 0; +#X connect 8 0 3 0; +#X connect 8 1 10 0; +#X connect 9 0 7 0; +#X connect 9 1 7 0; +#X restore 132 408 pd flush-stuck-notes; +#X text 309 354 events and status out; +#N canvas 4 50 957 573 auto-knobs 0; +#X obj 154 51 inlet; +#X obj 147 149 auto-knob-out \$1 1; +#X obj 183 180 auto-knob-out \$1 2; +#X obj 201 210 auto-knob-out \$1 3; +#X obj 219 252 auto-knob-out \$1 4; +#X obj 154 73 t a a a a; +#X connect 0 0 5 0; +#X connect 5 0 1 0; +#X connect 5 1 2 0; +#X connect 5 2 3 0; +#X connect 5 3 4 0; +#X restore 199 534 pd auto-knobs; +#X obj 398 560 r \$0-pass; +#X obj 362 499 v seq3-\$1-state; +#X obj 394 474 s seq3-\$1-actions; +#X msg 362 425 3; +#X obj 304 373 symbol; +#X obj 164 573 seq-format-event note; +#X obj 132 491 t a a; +#N canvas 15 50 468 388 flush-stuck-notes 0; +#X obj 167 212 bag; +#X msg 203 161 flush; +#X msg 160 254 \$1 0; +#X obj 124 157 t a a; +#X obj 137 354 outlet; +#X obj 101 22 inlet; +#X obj 258 20 inlet; +#X obj 238 107 bang; +#X obj 114 102 route note; +#X obj 248 61 route end stop; +#X obj 232 338 outlet other messages; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 4 0; +#X connect 3 0 4 0; +#X connect 3 1 0 0; +#X connect 5 0 8 0; +#X connect 6 0 9 0; +#X connect 7 0 1 0; +#X connect 8 0 3 0; +#X connect 8 1 10 0; +#X connect 9 0 7 0; +#X connect 9 1 7 0; +#X restore 597 457 pd flush-stuck-notes; +#X text 850 417 events and status out; +#X obj 854 545 v seq3-\$1-state; +#X obj 877 521 s seq3-\$1-actions; +#X msg 854 471 3; +#X obj 776 420 symbol; +#X obj 776 326 r \$0-arg-2-seq; +#X obj 686 272 r \$0-events-in; +#X obj 776 347 route 1; +#X obj 234 238 r \$0-events-in; +#X obj 304 308 route 0; +#X obj 629 611 seq-format-event note; +#X obj 597 529 t a a; +#X obj 629 635 s \$0-overdub-R; +#X obj 164 597 s \$0-overdub-L; +#X obj 199 483 t a a; +#X obj 231 508 s \$0-overknobs-L; +#X obj 679 519 t a a; +#X obj 706 548 s \$0-overknobs-R; +#N canvas 4 50 1009 658 overdub-management 0; +#X obj 252 348 r \$0-overdub-R; +#X obj 238 327 r \$0-overknobs-R; +#X obj 238 438 outlet; +#X obj 238 408 spigot 0; +#X obj 291 376 r seq3-\$1-overdub-on; +#X connect 0 0 3 0; +#X connect 1 0 3 0; +#X connect 3 0 2 0; +#X connect 4 0 3 1; +#X restore 247 260 pd overdub-management; +#X obj 304 286 r \$0-arg-2-seq; +#N canvas 12 50 1052 658 overdub-management 0; +#X obj 238 408 outlet; +#X obj 238 295 r \$0-overknobs-L; +#X obj 252 316 r \$0-overdub-L; +#X obj 238 377 spigot 0; +#X obj 291 352 r seq3-\$1-overdub-on; +#X connect 1 0 3 0; +#X connect 2 0 3 0; +#X connect 3 0 0 0; +#X connect 4 0 3 1; +#X restore 716 297 pd overdub-management; +#X text 279 162 two sequencers to bounce back and forth for over dubbing +; +#X obj 362 447 t f f; +#X obj 854 495 t f f; +#X obj 370 25 inlet; +#X obj 132 339 seq seq\$1L, f 25; +#X obj 597 388 seq seq\$1R, f 26; +#X obj 303 398 sel end rec isPlaying, f 34; +#X obj 459 429 s seq3-\$1-playing; +#X obj 776 446 sel end rec isPlaying, f 34; +#X obj 931 478 s seq3-\$1-playing; +#X obj 443 592 loadbang; +#X obj 443 613 f \$5; +#X obj 398 661 spigot 1; +#X obj 443 634 ==; +#N canvas 13 50 476 382 latch 0; +#X text 191 93 THE LATCH!; +#X obj 137 58 inlet; +#X obj 137 316 outlet; +#N canvas 8 50 759 486 latch-notes 0; +#N canvas 1010 59 817 631 latcher 0; +#X obj 220 378 bag; +#X msg 317 311 flush; +#X obj 169 81 t a a, f 17; +#X obj 285 257 t a b; +#X obj 169 44 inlet; +#X obj 285 475 outlet; +#X obj 443 58 inlet; +#X obj 285 126 stripnote; +#X obj 285 228 pack, f 9; +#X obj 443 142 t b; +#X obj 169 103 unpack; +#X obj 169 156 swap; +#X obj 169 198 pack; +#X obj 169 220 route 0; +#X obj 220 400 pack 1 0; +#X obj 169 241 pack 0 100; +#X connect 0 0 14 0; +#X connect 1 0 0 0; +#X connect 2 0 10 0; +#X connect 2 1 7 0; +#X connect 3 0 5 0; +#X connect 3 1 1 0; +#X connect 4 0 2 0; +#X connect 6 0 9 0; +#X connect 7 0 8 0; +#X connect 7 1 8 1; +#X connect 8 0 3 0; +#X connect 9 0 1 0; +#X connect 10 0 11 0; +#X connect 10 1 11 1; +#X connect 11 0 12 0; +#X connect 11 1 12 1; +#X connect 12 0 13 0; +#X connect 13 0 15 0; +#X connect 14 0 5 0; +#X connect 15 0 0 0; +#X restore 43 413 pd latcher; +#X obj 173 298 spigot 1; +#X obj 43 298 spigot 0; +#X obj 226 272 == 0; +#X obj 193 134 inlet; +#X obj 43 626 outlet; +#X obj 43 106 inlet; +#X text 241 135 bang enable / disables latch; +#X text 44 53 incoming notes get sent through latch if enabled \, or +directly to output if disabled; +#X obj 309 298 b; +#X obj 193 159 t f f b, f 17; +#X connect 0 0 5 0; +#X connect 1 0 5 0; +#X connect 2 0 0 0; +#X connect 3 0 1 1; +#X connect 4 0 10 0; +#X connect 6 0 2 0; +#X connect 6 0 1 0; +#X connect 9 0 0 1; +#X connect 10 0 2 1; +#X connect 10 1 3 0; +#X connect 10 2 9 0; +#X restore 137 273 pd latch-notes; +#X obj 186 182 r seq3-\$1-togLatch; +#X connect 1 0 3 0; +#X connect 3 0 2 0; +#X connect 4 0 3 1; +#X restore 398 727 pd latch; +#X text 475 729 latch incoming notes; +#N canvas 97 144 923 588 knob-recycles 0; +#X obj 35 19 inlet; +#X obj 35 559 outlet; +#X obj 64 154 knob-recycle 1; +#X obj 84 180 knob-recycle 2; +#X obj 96 199 knob-recycle 3; +#X obj 102 224 knob-recycle 4; +#X obj 35 41 t a a a a; +#X connect 0 0 6 0; +#X connect 2 0 1 0; +#X connect 3 0 1 0; +#X connect 4 0 1 0; +#X connect 5 0 1 0; +#X connect 6 0 2 0; +#X connect 6 1 3 0; +#X connect 6 2 4 0; +#X connect 6 3 5 0; +#X restore 199 455 pd knob-recycles; +#N canvas 4 50 957 573 auto-knobs 0; +#X obj 154 51 inlet; +#X obj 147 149 auto-knob-out \$1 1; +#X obj 183 180 auto-knob-out \$1 2; +#X obj 201 210 auto-knob-out \$1 3; +#X obj 219 252 auto-knob-out \$1 4; +#X obj 154 73 t a a a a; +#X connect 0 0 5 0; +#X connect 5 0 1 0; +#X connect 5 1 2 0; +#X connect 5 2 3 0; +#X connect 5 3 4 0; +#X restore 683 576 pd auto-knobs; +#N canvas 97 144 923 588 knob-recycles 0; +#X obj 35 19 inlet; +#X obj 35 559 outlet; +#X obj 64 154 knob-recycle 1; +#X obj 84 180 knob-recycle 2; +#X obj 96 199 knob-recycle 3; +#X obj 102 224 knob-recycle 4; +#X obj 35 41 t a a a a; +#X connect 0 0 6 0; +#X connect 2 0 1 0; +#X connect 3 0 1 0; +#X connect 4 0 1 0; +#X connect 5 0 1 0; +#X connect 6 0 2 0; +#X connect 6 1 3 0; +#X connect 6 2 4 0; +#X connect 6 3 5 0; +#X restore 679 487 pd knob-recycles; +#X connect 1 0 10 0; +#X connect 1 1 49 0; +#X connect 4 0 45 0; +#X connect 7 0 34 0; +#X connect 8 0 39 0; +#X connect 9 0 25 0; +#X connect 10 0 47 0; +#X connect 10 1 9 0; +#X connect 11 0 23 0; +#X connect 11 1 51 0; +#X connect 15 0 35 0; +#X connect 16 0 41 0; +#X connect 17 0 19 0; +#X connect 18 0 38 1; +#X connect 19 0 38 2; +#X connect 20 0 37 1; +#X connect 21 0 37 2; +#X connect 22 0 24 0; +#X connect 23 0 47 0; +#X connect 23 1 22 0; +#X connect 26 0 3 0; +#X connect 26 1 27 0; +#X connect 28 0 50 0; +#X connect 28 1 29 0; +#X connect 30 0 37 1; +#X connect 31 0 21 0; +#X connect 32 0 38 1; +#X connect 34 0 5 0; +#X connect 34 1 6 0; +#X connect 35 0 13 0; +#X connect 35 1 14 0; +#X connect 36 0 37 0; +#X connect 36 0 38 0; +#X connect 37 0 1 0; +#X connect 37 1 1 1; +#X connect 37 1 8 0; +#X connect 38 0 11 0; +#X connect 38 1 11 1; +#X connect 38 1 16 0; +#X connect 39 1 7 0; +#X connect 39 2 40 0; +#X connect 41 1 15 0; +#X connect 41 2 42 0; +#X connect 43 0 44 0; +#X connect 44 0 46 0; +#X connect 45 0 47 0; +#X connect 46 0 45 1; +#X connect 47 0 0 0; +#X connect 49 0 26 0; +#X connect 51 0 28 0; +#X restore 837 470 pd THE-2-SEQS; +#X obj 837 683 outlet; +#N canvas 214 62 1220 815 undo 0; +#X obj 94 21 r seq3-\$1-actions; +#X obj 94 67 sel 6; +#X obj 424 298 r \$0-current-slot; +#X obj 406 326 f; +#X obj 545 496 tabread \$0-slot-tracker; +#X obj 545 550 tabwrite \$0-slot-tracker; +#X obj 94 459 t f f; +#X obj 94 501 v seq3-\$1-state; +#X obj 126 481 s seq3-\$1-actions; +#X obj 545 448 t f f; +#X obj 735 746 s \$0-arg-2-seq; +#X obj 735 694 list prepend; +#X obj 735 716 list trim; +#X obj 735 606 t a b; +#X obj 735 512 route 0 1; +#X obj 767 628 v seq3-\$1-od; +#X msg 735 572 read \$2/seq\$1x.txt; +#X msg 765 543 read \$2/seq\$1y.txt; +#X obj 788 408 symbol \$3; +#X obj 735 434 pack 0 s; +#X obj 788 382 loadbang; +#X obj 900 398 tabread \$0-slot-tracker; +#X obj 735 486 list prepend; +#X obj 406 268 t b; +#X obj 161 68 v seq3-\$1-state; +#X obj 94 237 sel 1, f 45; +#X obj 94 264 t b b b, f 19; +#X msg 224 399 0 stop \, 1 stop; +#X obj 224 431 s \$0-arg-2-seq; +#X obj 406 348 t b f f f, f 71; +#X obj 406 378 v seq3-\$1-od; +#X obj 406 422 v seq3-\$1-od; +#X obj 94 43 t f b, f 10; +#X obj 94 189 f; +#X obj 94 135 spigot, f 24; +#X obj 321 31 r seq3-\$1-actions; +#X obj 321 53 sel 3; +#X msg 321 75 1; +#X msg 309 139 0; +#X msg 94 374 1; +#X text 388 80 a record of new info and a slot change arms the undo +; +#N canvas 8 50 618 562 undo-flash 0; +#X obj 134 160 f; +#X obj 165 160 + 1; +#X obj 252 179 t b; +#X msg 172 105 0; +#X msg 185 82 stop; +#X obj 134 136 del 100; +#X obj 134 192 % 2; +#X obj 134 214 sel 1; +#X obj 220 149 sel 4; +#X obj 99 61 t b b b b; +#X obj 98 14 inlet; +#X obj 166 272 outlet; +#X obj 236 238 t b; +#X obj 236 260 outlet done; +#X msg 135 236 4; +#X connect 0 0 1 0; +#X connect 0 0 6 0; +#X connect 0 0 8 0; +#X connect 1 0 0 1; +#X connect 2 0 5 0; +#X connect 3 0 0 1; +#X connect 4 0 5 0; +#X connect 5 0 0 0; +#X connect 6 0 7 0; +#X connect 7 0 14 0; +#X connect 7 1 11 0; +#X connect 8 0 12 0; +#X connect 8 1 2 0; +#X connect 9 0 0 0; +#X connect 9 1 5 0; +#X connect 9 2 3 0; +#X connect 9 3 4 0; +#X connect 10 0 9 0; +#X connect 12 0 13 0; +#X connect 14 0 11 0; +#X restore 256 558 pd undo-flash; +#X obj 256 698 s seq3-\$1-led; +#X obj 344 649 f; +#X obj 377 584 r seq3-\$1-led; +#X obj 359 612 f; +#X obj 94 157 t b b b; +#X obj 256 528 t b b; +#X obj 900 420 ==; +#X obj 545 522 ==; +#X obj 406 400 ==; +#X connect 0 0 32 0; +#X connect 1 0 34 0; +#X connect 2 0 3 1; +#X connect 3 0 29 0; +#X connect 4 0 49 0; +#X connect 6 0 7 0; +#X connect 6 1 8 0; +#X connect 9 0 4 0; +#X connect 9 1 5 1; +#X connect 11 0 12 0; +#X connect 12 0 10 0; +#X connect 13 0 11 0; +#X connect 13 1 15 0; +#X connect 14 0 16 0; +#X connect 14 1 17 0; +#X connect 15 0 11 1; +#X connect 16 0 13 0; +#X connect 17 0 13 0; +#X connect 18 0 19 1; +#X connect 19 0 22 0; +#X connect 20 0 18 0; +#X connect 21 0 48 0; +#X connect 22 0 14 0; +#X connect 23 0 3 0; +#X connect 24 0 33 1; +#X connect 25 0 26 0; +#X connect 25 1 23 0; +#X connect 26 0 39 0; +#X connect 26 1 3 0; +#X connect 26 2 27 0; +#X connect 27 0 28 0; +#X connect 29 0 30 0; +#X connect 29 1 9 0; +#X connect 29 2 19 0; +#X connect 29 3 21 0; +#X connect 30 0 50 0; +#X connect 32 0 1 0; +#X connect 32 1 24 0; +#X connect 33 0 25 0; +#X connect 34 0 46 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 37 0 34 1; +#X connect 38 0 34 1; +#X connect 39 0 6 0; +#X connect 41 0 42 0; +#X connect 41 1 43 0; +#X connect 43 0 42 0; +#X connect 44 0 45 1; +#X connect 45 0 43 1; +#X connect 46 0 33 0; +#X connect 46 1 38 0; +#X connect 46 2 47 0; +#X connect 47 0 41 0; +#X connect 47 1 45 0; +#X connect 48 0 22 1; +#X connect 49 0 5 0; +#X connect 50 0 31 0; +#X restore 849 316 pd undo; +#X obj 77 581 r \$0-save-current; +#X obj 170 615 r \$0-read-current; +#N canvas 13 50 1582 798 record-new 0; +#X obj 237 45 r seq3-\$1-actions; +#X obj 694 252 v seq3-\$1-od; +#X obj 694 278 ==; +#X obj 694 300 v seq3-\$1-od; +#X text 748 275 switch; +#X obj 726 224 s \$0-save-current; +#X text 716 57 record; +#X msg 237 166 arm; +#X obj 237 343 s \$0-arg-2-seq; +#X obj 237 193 t a b; +#X obj 318 217 v seq3-\$1-od; +#X obj 237 261 list prepend; +#X obj 237 283 list trim; +#X obj 318 239 ==; +#X text 273 165 arm the opposite; +#X obj 237 72 sel 2 3, f 131; +#X msg 454 247 0 stop \, 1 stop; +#X text 779 160 if the opposite is triggered; +#X obj 694 117 spigot 0; +#X obj 694 139 t b b; +#X msg 777 121 0; +#X obj 237 123 t b b b, f 24; +#X msg 435 158 1; +#X obj 694 201 t b b; +#X connect 0 0 15 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 7 0 9 0; +#X connect 9 0 11 0; +#X connect 9 1 10 0; +#X connect 10 0 13 0; +#X connect 11 0 12 0; +#X connect 12 0 8 0; +#X connect 13 0 11 1; +#X connect 15 0 21 0; +#X connect 15 1 18 0; +#X connect 16 0 8 0; +#X connect 18 0 19 0; +#X connect 19 0 23 0; +#X connect 19 1 20 0; +#X connect 20 0 18 1; +#X connect 21 0 7 0; +#X connect 21 1 16 0; +#X connect 21 2 22 0; +#X connect 22 0 18 1; +#X connect 23 0 1 0; +#X connect 23 1 5 0; +#X restore 848 252 pd record-new; +#N canvas 615 50 1261 754 play+stop 0; +#X obj 475 274 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 358 360 spigot; +#X obj 436 359 spigot; +#X text 502 274 lock start to beat; +#X obj 475 108 loadbang; +#X obj 436 325 ==; +#X obj 475 192 sel 0 1 2, f 28; +#X msg 475 214 0; +#X msg 539 221 1; +#X obj 475 130 f \$2; +#X obj 358 564 s \$0-arg-2-seq; +#X obj 358 444 t a b; +#X obj 439 488 v seq3-\$1-od; +#X obj 358 512 list prepend; +#X obj 358 534 list trim; +#X obj 518 143 r seq3-1-quan; +#X msg 166 388 0 stop \, 1 stop; +#X obj 297 107 sel 0 1 2 3 4 5, f 21; +#X text 675 38 everytime a seq is changed check which txt to read from(x +or y); +#X obj 297 69 r seq3-\$1-actions; +#X obj 358 234 t b b, f 6; +#X obj 358 169 r \$0-play-local; +#X msg 358 388 play; +#X msg 436 387 play-sync; +#X obj 102 233 r \$0-stop-local; +#X connect 0 0 5 0; +#X connect 0 0 2 1; +#X connect 1 0 22 0; +#X connect 2 0 23 0; +#X connect 4 0 9 0; +#X connect 5 0 1 1; +#X connect 6 0 7 0; +#X connect 6 1 8 0; +#X connect 6 2 8 0; +#X connect 7 0 0 0; +#X connect 8 0 0 0; +#X connect 9 0 6 0; +#X connect 11 0 13 0; +#X connect 11 1 12 0; +#X connect 12 0 13 1; +#X connect 13 0 14 0; +#X connect 14 0 10 0; +#X connect 15 0 6 0; +#X connect 16 0 10 0; +#X connect 17 0 16 0; +#X connect 17 1 20 0; +#X connect 19 0 17 0; +#X connect 20 0 1 0; +#X connect 20 1 2 0; +#X connect 21 0 20 0; +#X connect 22 0 11 0; +#X connect 23 0 11 0; +#X connect 24 0 16 0; +#X restore 848 284 pd play+stop; +#X obj 84 489 r saveState; +#X obj 84 511 s \$0-save-current; +#X obj 859 154 s \$0-beat-clock-local; +#X obj 837 357 r \$0-beat-clock-local; +#X obj 837 379 t f f; +#X obj 863 637 noteout, f 9; +#X obj 863 607 unpack; +#X obj 914 610 r midiOutCh; +#X text 449 190 arg 1: unique number; +#X obj 859 72 inlet beat-clock; +#X text 448 249 arg 4: number to match shortcut (cgSc); +#X text 452 272 arg 5: pass through mute? 0: on. 1: off (default 0) +; +#X msg 971 553 0; +#X obj 971 581 s midiOutGate; +#X obj 837 543 t a a; +#X obj 971 492 loadbang; +#X obj 971 520 del 1000; +#X text 469 301 arg 6 midi out on/off; +#X obj 863 578 spigot \$6; +#X connect 1 0 0 0; +#X connect 2 0 25 0; +#X connect 2 1 3 0; +#X connect 5 0 2 0; +#X connect 6 0 7 0; +#X connect 12 0 22 0; +#X connect 12 0 17 0; +#X connect 13 0 15 0; +#X connect 16 0 15 0; +#X connect 17 0 23 0; +#X connect 19 0 28 0; +#X connect 22 0 18 0; +#X connect 23 0 18 0; +#X connect 25 0 13 0; +#X connect 25 1 4 0; +#X connect 26 0 23 0; +#X connect 30 0 51 0; +#X connect 33 0 27 0; +#X connect 34 0 27 1; +#X connect 37 0 38 0; +#X connect 40 0 41 0; +#X connect 41 0 30 0; +#X connect 41 1 24 0; +#X connect 43 0 42 0; +#X connect 43 1 42 1; +#X connect 44 0 42 2; +#X connect 46 0 39 0; +#X connect 49 0 50 0; +#X connect 51 0 31 0; +#X connect 51 1 55 0; +#X connect 52 0 53 0; +#X connect 53 0 49 0; +#X connect 55 0 43 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/seq3-simple.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/seq3-simple.pd new file mode 100755 index 0000000..42a5e87 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/seq3-simple.pd @@ -0,0 +1,501 @@ +#N canvas 243 50 1534 925 10; +#X obj 311 781 outlet; +#N canvas 11 50 867 431 latch 0; +#X text 482 130 THE LATCH!; +#X msg 523 237 1; +#X msg 555 237 0; +#X obj 428 95 inlet; +#X obj 428 313 outlet; +#X obj 523 192 sel 4; +#X obj 555 212 t b; +#N canvas 8 50 759 486 latch-notes 0; +#N canvas 1010 59 817 631 latcher 0; +#X obj 220 378 bag; +#X msg 317 311 flush; +#X obj 169 81 t a a, f 17; +#X obj 285 257 t a b; +#X obj 169 44 inlet; +#X obj 285 475 outlet; +#X obj 443 58 inlet; +#X obj 285 126 stripnote; +#X obj 285 228 pack, f 9; +#X obj 443 142 t b; +#X obj 169 103 unpack; +#X obj 169 156 swap; +#X obj 169 198 pack; +#X obj 169 220 route 0; +#X obj 220 400 pack 1 0; +#X obj 169 241 pack 0 100; +#X connect 0 0 14 0; +#X connect 1 0 0 0; +#X connect 2 0 10 0; +#X connect 2 1 7 0; +#X connect 3 0 5 0; +#X connect 3 1 1 0; +#X connect 4 0 2 0; +#X connect 6 0 9 0; +#X connect 7 0 8 0; +#X connect 7 1 8 1; +#X connect 8 0 3 0; +#X connect 9 0 1 0; +#X connect 10 0 11 0; +#X connect 10 1 11 1; +#X connect 11 0 12 0; +#X connect 11 1 12 1; +#X connect 12 0 13 0; +#X connect 13 0 15 0; +#X connect 14 0 5 0; +#X connect 15 0 0 0; +#X restore 43 413 pd latcher; +#X obj 173 298 spigot 1; +#X obj 43 298 spigot 0; +#X obj 226 272 == 0; +#X obj 193 134 inlet; +#X obj 43 626 outlet; +#X obj 43 106 inlet; +#X text 241 135 bang enable / disables latch; +#X text 44 53 incoming notes get sent through latch if enabled \, or +directly to output if disabled; +#X obj 309 298 b; +#X obj 193 159 t f f b, f 17; +#X connect 0 0 5 0; +#X connect 1 0 5 0; +#X connect 2 0 0 0; +#X connect 3 0 1 1; +#X connect 4 0 10 0; +#X connect 6 0 2 0; +#X connect 6 0 1 0; +#X connect 9 0 0 1; +#X connect 10 0 2 1; +#X connect 10 1 3 0; +#X connect 10 2 9 0; +#X restore 428 270 pd latch-notes; +#X obj 523 167 r seq3-\$1-actions; +#X connect 1 0 7 1; +#X connect 2 0 7 1; +#X connect 3 0 7 0; +#X connect 5 0 1 0; +#X connect 5 1 6 0; +#X connect 6 0 2 0; +#X connect 7 0 4 0; +#X connect 8 0 5 0; +#X restore 269 135 pd latch; +#N canvas 236 50 1524 881 states 0; +#X obj 226 17 inlet; +#X msg 1180 222 stop; +#X msg 1121 221 0; +#X text 1156 223 =; +#X text 1156 253 =; +#X msg 1121 251 1; +#X msg 1180 252 start; +#X text 1156 283 =; +#X msg 1121 281 2; +#X msg 1180 282 recenable; +#X text 125 516 when something is recorded switch the variable to 3 +; +#X text 1156 313 =; +#X msg 1120 311 3; +#X msg 1180 312 record; +#X text 1156 343 =; +#X msg 1120 341 4; +#X msg 1179 341 latch on; +#X text 112 580 latch off is simply in all of these \, eg right outlet +of select; +#X obj 129 660 r cg-midi-start; +#X obj 129 733 t f f, f 17; +#X obj 129 764 v seq3-\$1-state; +#X obj 245 764 s seq3-\$1-actions; +#X obj 129 682 t b; +#X msg 129 704 1; +#X obj 379 730 t f f, f 17; +#X obj 379 764 v seq3-\$1-state; +#X obj 495 764 s seq3-\$1-actions; +#X obj 379 682 t b; +#X obj 379 659 r cg-midi-stop; +#X msg 379 705 0; +#X text 533 14 the states controlled by the new shortcut approach; +#X obj 226 407 t f f; +#X obj 226 449 v seq3-\$1-state; +#X obj 258 429 s seq3-\$1-actions; +#X text 285 14 Controls State with 0-4; +#X obj 291 295 v seq3-\$1-state; +#X msg 226 127 0; +#X msg 291 361 0; +#X msg 365 376 1; +#X obj 423 323 v seq3-\$1-state; +#X obj 423 352 sel 4, f 14; +#X obj 518 381 t b; +#X msg 518 403 4; +#X obj 423 444 t f f; +#X obj 423 486 v seq3-\$1-state; +#X obj 455 466 s seq3-\$1-actions; +#X msg 423 377 0; +#X obj 291 317 sel 1, f 14; +#X obj 365 353 t b; +#X obj 357 130 v seq3-\$1-state; +#X obj 357 152 sel 2, f 7; +#X msg 357 175 0; +#X obj 403 175 t b; +#X obj 357 223 t f f; +#X obj 357 265 v seq3-\$1-state; +#X obj 389 245 s seq3-\$1-actions; +#X msg 403 198 2; +#X text 449 164 if 2 is on turn off \, otherwise turn on 2; +#X obj 1020 561 t b b b, f 22; +#X msg 1037 633 stop; +#X obj 1156 766 f 0; +#X obj 1142 625 sel 0 1 2 3 4, f 21; +#X msg 1142 647 0; +#X msg 1174 669 3; +#X msg 1211 663 6; +#X msg 1286 694 1; +#X msg 1260 659 4; +#X msg 1095 594 7; +#X obj 1020 663 del 50; +#X obj 1020 491 spigot; +#X obj 1095 797 f 0; +#X obj 1059 461 r seq3-\$1-actions; +#X obj 1142 603 r seq3-\$1-actions; +#X obj 1096 817 s seq3-\$1-led; +#X obj 569 184 v seq3-\$1-state; +#X obj 664 242 t b; +#X obj 569 305 t f f; +#X obj 569 347 v seq3-\$1-state; +#X obj 601 327 s seq3-\$1-actions; +#X obj 569 213 sel 1, f 14; +#X msg 569 238 1; +#X msg 664 264 1; +#X obj 1216 449 sel 0 1 2 3 4, f 21; +#X msg 1216 471 0; +#X msg 1248 493 3; +#X msg 1285 487 6; +#X msg 1316 502 1; +#X msg 1334 483 4; +#X obj 1216 427 r seq3-\$1-actions; +#X obj 1216 532 s seq3-\$1-led; +#X obj 1020 399 r beat-clock; +#X obj 1020 421 sel 0; +#X obj 1020 513 spigot \$2; +#X text 341 52 0 stops everything \, 1 is play toggle \, 2 is rec enabled +\, 3 is latch toggle \, 4 play and if playing keep playing \, 5 toggle +quantize; +#X obj 226 105 sel 0 1 2 3 4 5, f 84; +#X obj 760 284 t f f; +#X obj 792 306 s seq3-\$1-quan; +#X obj 760 326 v seq3-\$1-quan; +#X obj 760 154 v seq3-\$1-quan; +#X obj 760 196 sel 0 1; +#X msg 760 218 1; +#X msg 791 218 0; +#X obj 1091 485 r seq3-\$1-quan; +#X obj 835 224 loadbang; +#X obj 835 246 \$2; +#X connect 0 0 94 0; +#X connect 18 0 22 0; +#X connect 19 0 20 0; +#X connect 19 1 21 0; +#X connect 22 0 23 0; +#X connect 23 0 19 0; +#X connect 24 0 25 0; +#X connect 24 1 26 0; +#X connect 27 0 29 0; +#X connect 28 0 27 0; +#X connect 29 0 24 0; +#X connect 31 0 32 0; +#X connect 31 1 33 0; +#X connect 35 0 47 0; +#X connect 36 0 31 0; +#X connect 37 0 31 0; +#X connect 38 0 31 0; +#X connect 39 0 40 0; +#X connect 40 0 46 0; +#X connect 40 1 41 0; +#X connect 41 0 42 0; +#X connect 42 0 43 0; +#X connect 43 0 44 0; +#X connect 43 1 45 0; +#X connect 46 0 43 0; +#X connect 47 0 37 0; +#X connect 47 1 48 0; +#X connect 48 0 38 0; +#X connect 49 0 50 0; +#X connect 50 0 51 0; +#X connect 50 1 52 0; +#X connect 51 0 53 0; +#X connect 52 0 56 0; +#X connect 53 0 54 0; +#X connect 53 1 55 0; +#X connect 56 0 53 0; +#X connect 58 0 68 0; +#X connect 58 1 67 0; +#X connect 58 2 59 0; +#X connect 59 0 68 0; +#X connect 60 0 70 0; +#X connect 61 0 62 0; +#X connect 61 1 63 0; +#X connect 61 2 64 0; +#X connect 61 3 65 0; +#X connect 61 4 66 0; +#X connect 62 0 60 1; +#X connect 62 0 70 0; +#X connect 63 0 60 1; +#X connect 64 0 60 1; +#X connect 65 0 60 1; +#X connect 66 0 60 1; +#X connect 67 0 70 0; +#X connect 68 0 60 0; +#X connect 69 0 92 0; +#X connect 70 0 73 0; +#X connect 71 0 69 1; +#X connect 72 0 61 0; +#X connect 74 0 79 0; +#X connect 75 0 81 0; +#X connect 76 0 77 0; +#X connect 76 1 78 0; +#X connect 79 0 80 0; +#X connect 79 1 75 0; +#X connect 80 0 76 0; +#X connect 81 0 76 0; +#X connect 82 0 83 0; +#X connect 82 1 84 0; +#X connect 82 2 85 0; +#X connect 82 3 86 0; +#X connect 82 4 87 0; +#X connect 83 0 89 0; +#X connect 84 0 89 0; +#X connect 85 0 89 0; +#X connect 86 0 89 0; +#X connect 87 0 89 0; +#X connect 88 0 82 0; +#X connect 90 0 91 0; +#X connect 91 0 69 0; +#X connect 92 0 58 0; +#X connect 94 0 36 0; +#X connect 94 1 35 0; +#X connect 94 2 49 0; +#X connect 94 3 39 0; +#X connect 94 4 74 0; +#X connect 94 5 98 0; +#X connect 95 0 97 0; +#X connect 95 1 96 0; +#X connect 98 0 99 0; +#X connect 99 0 100 0; +#X connect 99 1 101 0; +#X connect 100 0 95 0; +#X connect 101 0 95 0; +#X connect 102 0 92 1; +#X connect 103 0 104 0; +#X connect 104 0 95 0; +#X restore 695 93 pd states; +#X obj 695 67 inlet aux; +#X obj 519 234 r seq3-\$1-actions; +#X obj 519 256 sel 2, f 12; +#X obj 269 84 t a a; +#N canvas 9 50 1183 836 countem 0; +#X obj 443 416 s seq3-\$1-count-notes; +#X obj 346 183 inlet; +#X obj 440 380 + 1; +#X msg 402 333 -1; +#X msg 445 333 1; +#X obj 364 303 t b b; +#X obj 364 394 max 0; +#X obj 424 302 t b b; +#X obj 346 205 unpack 0 0; +#X obj 413 231 sel 0; +#X obj 364 372 f 0; +#X connect 1 0 8 0; +#X connect 2 0 10 1; +#X connect 2 0 0 0; +#X connect 3 0 2 1; +#X connect 4 0 2 1; +#X connect 5 0 10 0; +#X connect 5 1 3 0; +#X connect 6 0 2 0; +#X connect 7 0 10 0; +#X connect 7 1 4 0; +#X connect 8 1 9 0; +#X connect 9 0 5 0; +#X connect 9 1 7 0; +#X connect 10 0 6 0; +#X restore 301 109 pd countem; +#X obj 269 161 t a a; +#X obj 301 190 s \$0-pass; +#X obj 269 62 inlet notes, f 17; +#X obj 16 446 r seq3-\$1-actions; +#X floatatom 16 468 5 0 0 0 - - -, f 5; +#X text 4 11 arg 1: unique number; +#X text 694 115 state control; +#X text 393 108 count the incoming notes; +#X text 346 137 latch incoming notes; +#X text 329 172 incoming notes get passed to the outlet; +#X text 6 425 heads up display of states; +#X obj 1193 359 loadbang; +#X msg 1115 510 quantize-length \$1; +#X obj 269 257 seq-format-event note; +#X msg 719 440 play; +#X msg 795 439 play-sync; +#N canvas 14 50 468 388 flush-stuck-notes 0; +#X obj 167 212 bag; +#X msg 203 161 flush; +#X msg 160 254 \$1 0; +#X obj 124 157 t a a; +#X obj 137 354 outlet; +#X obj 101 22 inlet; +#X obj 258 20 inlet; +#X obj 238 107 bang; +#X obj 114 102 route note; +#X obj 248 61 route end stop; +#X obj 232 338 outlet other messages; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 4 0; +#X connect 3 0 4 0; +#X connect 3 1 0 0; +#X connect 5 0 8 0; +#X connect 6 0 9 0; +#X connect 7 0 1 0; +#X connect 8 0 3 0; +#X connect 8 1 10 0; +#X connect 9 0 7 0; +#X connect 9 1 7 0; +#X restore 311 664 pd flush-stuck-notes; +#X text 594 554 beat clock \, events \, controls in; +#X text 496 614 events and status out; +#X text 1136 486 round seq length to multiple of beats; +#X text 1243 443 loop or not; +#X obj 400 503 r \$0-events-in; +#X obj 269 327 s \$0-events-in; +#N canvas 21 50 1296 821 the-knobs 0; +#X obj 280 211 r knob1; +#X obj 414 205 r knob2; +#X obj 532 208 r knob3; +#X obj 673 208 r knob4; +#X obj 503 439 outlet; +#X obj 221 295 seq-format-event knob1; +#X obj 401 293 seq-format-event knob2; +#X obj 566 292 seq-format-event knob3; +#X obj 747 289 seq-format-event knob4; +#X connect 0 0 5 0; +#X connect 1 0 6 0; +#X connect 2 0 7 0; +#X connect 3 0 8 0; +#X connect 5 0 4 0; +#X connect 6 0 4 0; +#X connect 7 0 4 0; +#X connect 8 0 4 0; +#X restore 308 289 pd the-knobs; +#X msg 1193 441 loop 1; +#X obj 1115 412 f \$2; +#X obj 656 231 r seq3-\$1-actions; +#X obj 834 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 719 412 spigot; +#X obj 795 411 spigot; +#X text 861 326 lock start to beat; +#X obj 834 140 loadbang; +#X obj 723 309 t b; +#X obj 795 367 ==; +#X obj 834 244 sel 0 1 2, f 28; +#X msg 834 266 0; +#X msg 898 293 1; +#X obj 834 182 f \$2; +#X text 956 196 see the quantize stuff for the global quantize options +with arg2; +#X text 1046 250 0 = no q at all. 1+2 wait for beat to start seq; +#X obj 1115 536 s \$0-arg-2-seq; +#X obj 490 553 r \$0-arg-2-seq; +#X obj 719 486 s \$0-arg-2-seq; +#X obj 519 353 s \$0-arg-2-seq; +#N canvas 10 50 1276 866 auto-knobs 0; +#X obj 435 470 s seq3-\$1-k1; +#X obj 771 398 s seq3-\$1-k4; +#X obj 679 426 s seq3-\$1-k3; +#X obj 547 448 s seq3-\$1-k2; +#X obj 435 181 inlet; +#X text 849 417 <--- drop these as receives in the parent patches knobs! +; +#X obj 435 295 route knob1 knob2 knob3 knob4, f 64; +#X connect 4 0 6 0; +#X connect 6 0 0 0; +#X connect 6 1 3 0; +#X connect 6 2 2 0; +#X connect 6 3 1 0; +#X restore 448 744 pd auto-knobs; +#X obj 338 724 r \$0-pass; +#X obj 490 659 sel end rec, f 34; +#X obj 607 714 t f f; +#X obj 607 756 v seq3-\$1-state; +#X obj 639 736 s seq3-\$1-actions; +#X msg 607 692 3; +#X obj 490 633 symbol; +#X obj 311 599 seq seq\$1, f 26; +#X obj 719 354 t b b b; +#X obj 656 270 sel 0 1 3, f 10; +#X msg 653 437 stop; +#X obj 935 69 inlet save and recall; +#X obj 935 95 s \$0-arg-2-seq; +#X msg 519 303 arm; +#X text 4 31 arg 2: 0 no sync \, 1 sync; +#X obj 15 56 inlet beat-clock; +#X obj 15 78 s \$0-beat-clock; +#X obj 311 471 r \$0-beat-clock; +#X obj 851 214 r seq3-\$1-quan; +#X obj 1060 373 r seq3-\$1-quan; +#X connect 1 0 8 0; +#X connect 3 0 2 0; +#X connect 4 0 5 0; +#X connect 5 0 66 0; +#X connect 6 0 1 0; +#X connect 6 1 7 0; +#X connect 8 0 21 0; +#X connect 8 1 9 0; +#X connect 10 0 6 0; +#X connect 11 0 12 0; +#X connect 19 0 32 0; +#X connect 19 0 33 0; +#X connect 20 0 48 0; +#X connect 21 0 30 0; +#X connect 22 0 50 0; +#X connect 23 0 50 0; +#X connect 24 0 0 0; +#X connect 24 1 52 0; +#X connect 29 0 60 1; +#X connect 31 0 30 0; +#X connect 32 0 48 0; +#X connect 33 0 20 0; +#X connect 34 0 62 0; +#X connect 35 0 41 0; +#X connect 35 0 37 1; +#X connect 36 0 22 0; +#X connect 37 0 23 0; +#X connect 39 0 45 0; +#X connect 40 0 63 0; +#X connect 41 0 36 1; +#X connect 42 0 43 0; +#X connect 42 1 44 0; +#X connect 42 2 44 0; +#X connect 43 0 35 0; +#X connect 44 0 35 0; +#X connect 45 0 42 0; +#X connect 49 0 60 2; +#X connect 53 0 0 0; +#X connect 54 1 58 0; +#X connect 55 0 56 0; +#X connect 55 1 57 0; +#X connect 58 0 55 0; +#X connect 59 0 54 0; +#X connect 60 0 24 0; +#X connect 60 1 24 1; +#X connect 60 1 59 0; +#X connect 61 0 36 0; +#X connect 61 1 37 0; +#X connect 62 0 40 0; +#X connect 62 1 61 0; +#X connect 62 3 40 0; +#X connect 63 0 50 0; +#X connect 64 0 65 0; +#X connect 66 0 51 0; +#X connect 68 0 69 0; +#X connect 70 0 60 0; +#X connect 71 0 42 0; +#X connect 72 0 20 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/seq3.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/seq3.pd new file mode 100755 index 0000000..4492db9 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/seq3.pd @@ -0,0 +1,1522 @@ +#N canvas 4 50 1185 708 10; +#N canvas 4 50 1905 999 states 1; +#X obj 187 17 inlet; +#X msg 1346 13 stop; +#X msg 1287 12 0; +#X text 1322 14 =; +#X text 1322 44 =; +#X msg 1287 42 1; +#X msg 1346 43 start; +#X text 1322 74 =; +#X msg 1287 72 2; +#X msg 1346 73 recenable; +#X text 125 546 when something is recorded switch the variable to 3 +; +#X text 1322 104 =; +#X msg 1286 102 3; +#X msg 1346 103 record; +#X text 112 610 latch off is simply in all of these \, eg right outlet +of select; +#X obj 129 660 r cg-midi-start; +#X obj 129 733 t f f, f 17; +#X obj 129 764 v seq3-\$1-state; +#X obj 245 764 s seq3-\$1-actions; +#X obj 129 682 t b; +#X msg 129 704 1; +#X obj 379 730 t f f, f 17; +#X obj 379 764 v seq3-\$1-state; +#X obj 495 764 s seq3-\$1-actions; +#X obj 379 682 t b; +#X obj 379 659 r cg-midi-stop; +#X msg 379 705 0; +#X text 533 14 the states controlled by the new shortcut approach; +#X obj 227 494 v seq3-\$1-state; +#X obj 259 469 s seq3-\$1-actions; +#X obj 254 308 v seq3-\$1-state; +#X msg 226 157 0; +#X msg 254 377 0; +#X msg 328 392 1; +#X obj 328 369 t b; +#X obj 404 179 v seq3-\$1-state; +#X obj 404 201 sel 2, f 7; +#X msg 404 224 0; +#X obj 450 224 t b; +#X obj 404 334 v seq3-\$1-state; +#X obj 436 314 s seq3-\$1-actions; +#X msg 450 247 2; +#X text 425 147 if 2 is on turn off \, otherwise turn on 2; +#X obj 870 591 t b b b, f 22; +#X msg 887 663 stop; +#X obj 1156 766 f 0; +#X msg 1142 647 0; +#X msg 1175 669 3; +#X msg 1208 663 6; +#X msg 945 624 7; +#X obj 870 693 del 50; +#X obj 870 526 spigot; +#X obj 1095 797 f 0; +#X obj 978 416 r seq3-\$1-actions; +#X obj 1142 603 r seq3-\$1-actions; +#X obj 1095 826 s seq3-\$1-led; +#X obj 679 193 v seq3-\$1-state; +#X obj 774 251 t b; +#X obj 679 376 v seq3-\$1-state; +#X obj 711 356 s seq3-\$1-actions; +#X obj 679 222 sel 1, f 14; +#X msg 679 261 1; +#X msg 774 273 1; +#X msg 1216 381 0; +#X msg 1248 403 3; +#X msg 1285 397 6; +#X obj 1216 337 r seq3-\$1-actions; +#X obj 870 449 r beat-clock; +#X obj 870 471 sel 0; +#X text 1322 164 =; +#X msg 1286 162 5; +#X msg 1345 162 overdub; +#X obj 858 154 v seq3-\$1-state; +#X obj 858 176 sel 5; +#X msg 858 198 0; +#X msg 890 220 5; +#X obj 858 340 v seq3-\$1-state; +#X obj 890 313 s seq3-\$1-actions; +#X msg 1308 662 2; +#X msg 1373 394 2; +#X obj 870 562 spigot \$2; +#X obj 930 537 r seq3-\$1-quan; +#X obj 1292 692 r seq3-\$1-overdub-on; +#X obj 1292 716 + 1; +#X obj 1269 743 f; +#X obj 890 198 t b b; +#X msg 934 218 0; +#X text 1322 194 =; +#X msg 1286 192 6; +#X msg 1345 192 undo; +#X obj 1024 343 v seq3-\$1-state; +#X obj 1056 316 s seq3-\$1-actions; +#X msg 1024 233 6; +#X obj 1216 359 sel 0 1 2 3 4 5 6, f 28; +#X obj 1142 625 sel 0 1 2 3 4 5 6, f 32; +#X obj 1216 562 s seq3-\$1-led; +#X obj 1216 537 f; +#X obj 404 272 t f f; +#X obj 679 314 t f f; +#X obj 858 258 t f f; +#X obj 1024 261 t f f; +#X text 248 13 Controls State with 0-6; +#X obj 978 438 sel 0 5 6; +#X obj 1038 467 t b; +#X msg 1038 489 1; +#X msg 998 482 0; +#X obj 1364 418 r seq3-\$1-overdub-on; +#X obj 1364 442 + 1; +#X obj 1341 469 f; +#X obj 254 333 sel 1 6, f 11; +#X obj 187 66 route 3; +#X obj 98 137 t b; +#X text 1289 137 latch seperate now; +#X obj 80 275 s seq3-\$1-togLatch; +#X obj 80 241 % 2; +#X obj 130 201 + 1; +#X obj 681 444 r seq3-\$1-togLatch; +#X msg 696 652 stop; +#X obj 750 782 s seq3-\$1-led; +#X obj 679 682 del 178; +#X obj 679 542 sel 1 0, f 10; +#X obj 679 590 t b f b, f 22; +#X msg 679 563 4; +#X msg 710 566 1; +#X obj 144 122 loadbang; +#X obj 681 465 t b f; +#X obj 680 511 spigot 0; +#X msg 681 486 1; +#X obj 227 437 t f f; +#X obj 226 114 sel 0 1 2 3 4 5 6 7, f 121; +#X text 341 59 0 stops everything \, 1 is play toggle \, 2 is rec enabled +\, 3 is latch toggle \, 4 play and if playing keep playing \, 5 overdub +\, 6 undo-request \, 7 kill latch; +#X obj 98 201 f 0; +#X msg 144 143 0; +#X connect 0 0 110 0; +#X connect 15 0 19 0; +#X connect 16 0 17 0; +#X connect 16 1 18 0; +#X connect 19 0 20 0; +#X connect 20 0 16 0; +#X connect 21 0 22 0; +#X connect 21 1 23 0; +#X connect 24 0 26 0; +#X connect 25 0 24 0; +#X connect 26 0 21 0; +#X connect 30 0 109 0; +#X connect 31 0 128 0; +#X connect 32 0 128 0; +#X connect 33 0 128 0; +#X connect 34 0 33 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 36 1 38 0; +#X connect 37 0 97 0; +#X connect 38 0 41 0; +#X connect 41 0 97 0; +#X connect 43 0 50 0; +#X connect 43 1 49 0; +#X connect 43 2 44 0; +#X connect 44 0 50 0; +#X connect 45 0 52 0; +#X connect 46 0 45 1; +#X connect 46 0 52 0; +#X connect 47 0 45 1; +#X connect 48 0 45 1; +#X connect 49 0 52 0; +#X connect 50 0 45 0; +#X connect 51 0 80 0; +#X connect 52 0 55 0; +#X connect 53 0 102 0; +#X connect 54 0 94 0; +#X connect 56 0 60 0; +#X connect 57 0 62 0; +#X connect 60 0 61 0; +#X connect 60 1 57 0; +#X connect 61 0 98 0; +#X connect 62 0 98 0; +#X connect 63 0 96 0; +#X connect 64 0 96 0; +#X connect 65 0 96 0; +#X connect 66 0 93 0; +#X connect 67 0 68 0; +#X connect 68 0 51 0; +#X connect 72 0 73 0; +#X connect 73 0 74 0; +#X connect 73 1 85 0; +#X connect 74 0 99 0; +#X connect 75 0 99 0; +#X connect 78 0 45 1; +#X connect 79 0 96 0; +#X connect 80 0 43 0; +#X connect 81 0 80 1; +#X connect 82 0 83 0; +#X connect 83 0 84 1; +#X connect 84 0 45 1; +#X connect 85 0 75 0; +#X connect 85 1 86 0; +#X connect 86 0 99 0; +#X connect 92 0 100 0; +#X connect 93 0 63 0; +#X connect 93 1 64 0; +#X connect 93 2 65 0; +#X connect 93 3 108 0; +#X connect 94 0 46 0; +#X connect 94 1 47 0; +#X connect 94 2 48 0; +#X connect 94 3 84 0; +#X connect 96 0 95 0; +#X connect 97 0 39 0; +#X connect 97 1 40 0; +#X connect 98 0 58 0; +#X connect 98 1 59 0; +#X connect 99 0 76 0; +#X connect 99 1 77 0; +#X connect 100 0 90 0; +#X connect 100 1 91 0; +#X connect 102 0 105 0; +#X connect 102 1 105 0; +#X connect 102 2 105 0; +#X connect 102 3 103 0; +#X connect 103 0 104 0; +#X connect 104 0 51 1; +#X connect 105 0 51 1; +#X connect 106 0 107 0; +#X connect 107 0 108 1; +#X connect 108 0 96 0; +#X connect 109 0 32 0; +#X connect 109 1 32 0; +#X connect 109 2 34 0; +#X connect 110 0 111 0; +#X connect 110 1 129 0; +#X connect 111 0 131 0; +#X connect 114 0 113 0; +#X connect 115 0 131 1; +#X connect 116 0 125 0; +#X connect 117 0 119 0; +#X connect 119 0 45 0; +#X connect 120 0 122 0; +#X connect 120 1 123 0; +#X connect 121 0 119 0; +#X connect 121 1 118 0; +#X connect 121 2 117 0; +#X connect 122 0 121 0; +#X connect 123 0 121 0; +#X connect 124 0 132 0; +#X connect 125 0 127 0; +#X connect 125 1 126 0; +#X connect 126 0 120 0; +#X connect 127 0 126 1; +#X connect 128 0 28 0; +#X connect 128 1 29 0; +#X connect 129 0 31 0; +#X connect 129 1 30 0; +#X connect 129 2 35 0; +#X connect 129 4 56 0; +#X connect 129 5 72 0; +#X connect 129 6 92 0; +#X connect 129 7 132 0; +#X connect 131 0 115 0; +#X connect 131 0 114 0; +#X connect 132 0 131 0; +#X restore 462 102 pd states; +#X obj 462 56 inlet aux; +#X obj 87 146 t a a; +#N canvas 9 50 1183 836 countem 0; +#X obj 443 416 s seq3-\$1-count-notes; +#X obj 346 183 inlet; +#X obj 440 380 + 1; +#X msg 402 333 -1; +#X msg 445 333 1; +#X obj 364 303 t b b; +#X obj 364 394 max 0; +#X obj 424 302 t b b; +#X obj 346 205 unpack 0 0; +#X obj 413 231 sel 0; +#X obj 364 372 f 0; +#X connect 1 0 8 0; +#X connect 2 0 10 1; +#X connect 2 0 0 0; +#X connect 3 0 2 1; +#X connect 4 0 2 1; +#X connect 5 0 10 0; +#X connect 5 1 3 0; +#X connect 6 0 2 0; +#X connect 7 0 10 0; +#X connect 7 1 4 0; +#X connect 8 1 9 0; +#X connect 9 0 5 0; +#X connect 9 1 7 0; +#X connect 10 0 6 0; +#X restore 119 171 pd countem; +#X obj 114 269 s \$0-pass; +#X obj 87 64 inlet notes, f 17; +#X obj 393 590 r seq3-\$1-actions; +#X floatatom 393 612 5 0 0 0 - - -; +#X text 447 120 state control; +#X text 211 170 count the incoming notes; +#X text 128 254 incoming notes get passed to the outlet; +#X text 376 575 heads up display of states; +#X obj 517 340 loadbang; +#X obj 87 317 seq-format-event note; +#X text 460 467 round seq length to multiple of beats; +#X obj 87 399 s \$0-events-in; +#N canvas 4 50 1009 708 the-knobs 0; +#X obj 280 211 r knob1; +#X obj 414 205 r knob2; +#X obj 532 208 r knob3; +#X obj 673 208 r knob4; +#X obj 503 439 outlet; +#X obj 221 295 seq-format-event knob1; +#X obj 401 293 seq-format-event knob2; +#X obj 566 292 seq-format-event knob3; +#X obj 747 289 seq-format-event knob4; +#X connect 0 0 5 0; +#X connect 1 0 6 0; +#X connect 2 0 7 0; +#X connect 3 0 8 0; +#X connect 5 0 4 0; +#X connect 6 0 4 0; +#X connect 7 0 4 0; +#X connect 8 0 4 0; +#X restore 126 361 pd the-knobs; +#X obj 439 393 f \$2; +#X obj 439 517 s \$0-arg-2-seq; +#X obj 601 56 inlet save and recall; +#X text 448 209 arg 2: 0 no sync \, 1 sync; +#X text 603 404 loop or not; +#X msg 517 423 0 loop 1 \, 1 loop 1; +#X msg 438 499 0 quantize-length \$1 \, 1 quantize-length \$1; +#N canvas 326 50 1155 609 overdub 0; +#X obj 223 31 r seq3-\$1-actions; +#X text 243 4 overdub; +#N canvas 23 50 739 692 countdown 0; +#X obj 260 44 inlet; +#X obj 210 237 f; +#X obj 254 256 + 1; +#X obj 615 584 del 100; +#X msg 615 606 0; +#X msg 665 553 stop; +#X obj 592 669 s seq3-\$1-led; +#X obj 307 555 outlet; +#X obj 207 43 sel 0; +#X obj 207 209 spigot 0; +#X msg 260 174 1; +#X msg 353 294 0; +#X msg 367 172 0; +#X obj 592 519 t f b b; +#X obj 499 438 t b; +#X msg 499 463 1; +#X obj 260 76 t b b b, f 31; +#X obj 508 90 r cgSc-\$1-aux; +#X obj 508 112 sel 1; +#X msg 474 114 1; +#X obj 508 145 spigot 0; +#X obj 508 181 t b b; +#X msg 623 206 0; +#X obj 508 211 t b b b; +#X obj 207 454 t b b b b, f 22; +#X obj 508 385 v seq3-\$1-state; +#X obj 540 360 s seq3-\$1-actions; +#X obj 508 328 t f f; +#X msg 508 294 0; +#X msg 207 546 2; +#X obj 207 286 sel 4, f 13; +#X msg 401 146 2; +#X obj 570 -1 inlet beat; +#X connect 0 0 16 0; +#X connect 1 0 2 0; +#X connect 1 0 30 0; +#X connect 2 0 1 1; +#X connect 3 0 4 0; +#X connect 4 0 6 0; +#X connect 5 0 3 0; +#X connect 8 0 9 0; +#X connect 9 0 1 0; +#X connect 10 0 9 1; +#X connect 11 0 9 1; +#X connect 12 0 1 1; +#X connect 13 0 6 0; +#X connect 13 1 3 0; +#X connect 13 2 5 0; +#X connect 14 0 15 0; +#X connect 15 0 13 0; +#X connect 16 0 10 0; +#X connect 16 1 12 0; +#X connect 16 1 31 0; +#X connect 16 2 19 0; +#X connect 17 0 18 0; +#X connect 18 0 20 0; +#X connect 19 0 20 1; +#X connect 20 0 21 0; +#X connect 21 0 23 0; +#X connect 21 1 22 0; +#X connect 22 0 20 1; +#X connect 23 0 28 0; +#X connect 23 1 5 0; +#X connect 23 2 11 0; +#X connect 24 0 29 0; +#X connect 24 1 11 0; +#X connect 24 2 7 0; +#X connect 24 3 22 0; +#X connect 24 3 5 0; +#X connect 27 0 25 0; +#X connect 27 1 26 0; +#X connect 28 0 27 0; +#X connect 29 0 6 0; +#X connect 30 0 24 0; +#X connect 30 1 14 0; +#X connect 31 0 6 0; +#X connect 32 0 8 0; +#X restore 223 116 pd countdown; +#X msg 268 217 arm; +#X obj 268 394 s \$0-arg-2-seq; +#X obj 268 244 t a b; +#X obj 349 268 v seq3-\$1-od; +#X obj 268 312 list prepend; +#X obj 268 334 list trim; +#X obj 349 290 ==; +#X text 304 216 arm the opposite; +#X msg 432 296 0 stop \, 1 stop; +#X obj 223 67 sel 5 3, f 124; +#X obj 655 164 spigot 0; +#X obj 655 186 t b b; +#X msg 738 168 0; +#X msg 527 101 1; +#X obj 434 229 s seq3-\$1-overdub-on; +#X msg 434 201 1; +#X obj 655 305 v seq3-\$1-od; +#X obj 655 331 ==; +#X obj 655 353 v seq3-\$1-od; +#X text 709 328 switch; +#X obj 678 277 s \$0-save-current; +#X obj 223 172 t b b b b b, f 35; +#X obj 829 465 s seq3-\$1-overdub-on; +#X obj 655 214 t b b b; +#X obj 829 298 spigot 0; +#X obj 829 320 t b b; +#X msg 912 302 0; +#X msg 701 235 1; +#X msg 829 437 0; +#X obj 829 241 sel 1; +#X obj 829 342 t b b, f 7; +#X obj 875 397 f; +#X obj 875 441 s \$0-arg-2-seq; +#X msg 875 419 \$1 stop; +#X obj 507 170 loadbang; +#X msg 507 192 0; +#X obj 425 28 inlet; +#X obj 137 277 s \$0-play-local; +#X obj 828 219 r cgSc-\$4-aux; +#X connect 0 0 12 0; +#X connect 2 0 24 0; +#X connect 3 0 5 0; +#X connect 5 0 7 0; +#X connect 5 1 6 0; +#X connect 6 0 9 0; +#X connect 7 0 8 0; +#X connect 8 0 4 0; +#X connect 9 0 7 1; +#X connect 11 0 4 0; +#X connect 12 0 2 0; +#X connect 12 1 13 0; +#X connect 13 0 14 0; +#X connect 14 0 26 0; +#X connect 14 1 15 0; +#X connect 15 0 13 1; +#X connect 16 0 13 1; +#X connect 18 0 17 0; +#X connect 19 0 20 0; +#X connect 19 0 34 1; +#X connect 20 0 21 0; +#X connect 24 0 40 0; +#X connect 24 1 3 0; +#X connect 24 2 11 0; +#X connect 24 3 18 0; +#X connect 24 4 16 0; +#X connect 26 0 19 0; +#X connect 26 1 23 0; +#X connect 26 2 30 0; +#X connect 27 0 28 0; +#X connect 28 0 33 0; +#X connect 28 1 29 0; +#X connect 29 0 27 1; +#X connect 30 0 27 1; +#X connect 31 0 25 0; +#X connect 32 0 27 0; +#X connect 33 0 31 0; +#X connect 33 1 34 0; +#X connect 34 0 36 0; +#X connect 36 0 35 0; +#X connect 37 0 38 0; +#X connect 38 0 17 0; +#X connect 39 0 2 1; +#X connect 41 0 32 0; +#X restore 864 438 pd overdub; +#X obj 87 243 t a a; +#X obj 384 347 r seq3-\$1-quan; +#N canvas 714 78 1178 708 save-the-txts 0; +#X obj 31 669 s \$0-arg-2-seq; +#X obj 63 593 v seq3-\$1-od; +#X obj 31 617 list prepend; +#X obj 31 639 list trim; +#X obj 31 569 t a b; +#X obj 84 355 symbol \$3; +#X obj 31 381 pack 0 s; +#X obj 84 327 loadbang; +#X obj 49 176 r \$0-current-slot; +#X obj 31 204 f; +#X obj 284 210 array define \$0-slot-tracker 14; +#X obj 284 24 loadbang; +#X obj 297 126 r saveState; +#X msg 31 510 write \$2/seq\$1x.txt; +#X msg 61 534 write \$2/seq\$1y.txt; +#X obj 189 361 tabread \$0-slot-tracker; +#X text 267 313 get current toggle; +#X obj 189 383 ==; +#X text 221 383 switch it; +#X obj 31 473 route 0 1; +#X obj 31 445 list prepend, f 13; +#X obj 189 405 t f f, f 11; +#X obj 263 451 tabwrite \$0-slot-tracker; +#X obj 189 336 t f f, f 30; +#X text 280 432 write it to tracker; +#X obj 189 314 unpack 0 s; +#X obj 31 226 t f f; +#X obj 591 606 s \$0-arg-2-seq; +#X obj 591 554 list prepend; +#X obj 591 576 list trim; +#X obj 591 466 t a b; +#X obj 644 212 symbol \$3; +#X obj 591 258 pack 0 s; +#X obj 644 186 loadbang; +#X obj 672 261 tabread \$0-slot-tracker; +#X obj 591 310 list prepend; +#X obj 591 372 route 0 1; +#X obj 591 205 t f f; +#X obj 623 508 v seq3-\$1-od; +#X msg 591 432 read \$2/seq\$1x.txt; +#X msg 621 403 read \$2/seq\$1y.txt; +#X obj 609 149 r \$0-current-slot; +#X obj 591 177 f; +#X obj 591 52 inlet read-bang; +#X obj 31 39 inlet write-bang; +#X obj 284 46 symbol \$3; +#X msg 284 86 read \$1/slot-tracker.txt; +#X msg 297 182 write \$1/slot-tracker.txt; +#X obj 297 148 symbol \$3; +#X connect 1 0 2 1; +#X connect 2 0 3 0; +#X connect 3 0 0 0; +#X connect 4 0 2 0; +#X connect 4 1 1 0; +#X connect 5 0 6 1; +#X connect 6 0 20 0; +#X connect 7 0 5 0; +#X connect 8 0 9 1; +#X connect 9 0 26 0; +#X connect 11 0 45 0; +#X connect 12 0 48 0; +#X connect 13 0 4 0; +#X connect 14 0 4 0; +#X connect 15 0 17 0; +#X connect 17 0 21 0; +#X connect 19 0 13 0; +#X connect 19 1 14 0; +#X connect 20 0 19 0; +#X connect 21 0 20 1; +#X connect 21 1 22 0; +#X connect 23 0 15 0; +#X connect 23 1 22 1; +#X connect 25 0 23 0; +#X connect 26 0 6 0; +#X connect 26 1 25 0; +#X connect 28 0 29 0; +#X connect 29 0 27 0; +#X connect 30 0 28 0; +#X connect 30 1 38 0; +#X connect 31 0 32 1; +#X connect 32 0 35 0; +#X connect 33 0 31 0; +#X connect 34 0 35 1; +#X connect 35 0 36 0; +#X connect 36 0 39 0; +#X connect 36 1 40 0; +#X connect 37 0 32 0; +#X connect 37 1 34 0; +#X connect 38 0 28 1; +#X connect 39 0 30 0; +#X connect 40 0 30 0; +#X connect 41 0 42 1; +#X connect 42 0 37 0; +#X connect 43 0 42 0; +#X connect 44 0 9 0; +#X connect 45 0 46 0; +#X connect 46 0 10 0; +#X connect 47 0 10 0; +#X connect 48 0 47 0; +#X restore 77 639 pd save-the-txts; +#N canvas 109 134 1108 695 change-and-load-slot 0; +#X obj 164 38 inlet; +#X obj 164 526 sel 1, f 12; +#X obj 537 308 s \$0-current-slot; +#X obj 164 78 change -1; +#X msg 318 585 0; +#X obj 412 321 v seq3-\$1-od; +#X obj 412 343 ==; +#X obj 412 365 v seq3-\$1-od; +#X text 466 340 switch; +#X text 550 288 change the slot number; +#X obj 288 426 s \$0-read-current; +#X text 328 406 open new slot; +#X text 191 506 if playing \, play; +#X obj 318 667 v seq3-\$1-state; +#X obj 350 642 s seq3-\$1-actions; +#X obj 318 610 t f f; +#X obj 910 322 v seq3-\$1-state; +#X obj 164 504 f; +#X text 852 301 get the state before turning off; +#X obj 164 172 t b b b f b b b, f 107; +#X obj 661 267 s \$0-save-current; +#X text 394 303 don't need this; +#X text 324 16 if a port is changed and a rec happens save \, if no +change to .txt than dont save; +#X msg 196 125 1; +#X obj 714 50 r seq3-\$1-actions; +#X obj 661 219 spigot 0; +#X msg 734 222 0; +#X msg 714 139 1; +#X obj 661 241 t b b; +#X obj 164 100 t f b; +#X obj 164 641 s \$0-play-local; +#X obj 196 601 v seq3-\$1-state; +#X msg 196 574 1; +#X obj 164 548 t b b; +#X obj 795 244 s \$0-stop-local; +#X obj 245 548 t b; +#X obj 530 59 r seq3-\$1-actions; +#X obj 530 81 sel 1; +#X obj 714 72 sel 3 5 6; +#X obj 763 117 s \$0-save-current; +#X obj 759 96 del 50; +#X connect 0 0 3 0; +#X connect 1 0 33 0; +#X connect 1 1 35 0; +#X connect 3 0 29 0; +#X connect 4 0 15 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 15 0 13 0; +#X connect 15 1 14 0; +#X connect 16 0 17 1; +#X connect 17 0 1 0; +#X connect 19 0 17 0; +#X connect 19 1 10 0; +#X connect 19 3 2 0; +#X connect 19 4 25 0; +#X connect 19 5 34 0; +#X connect 19 6 16 0; +#X connect 24 0 38 0; +#X connect 25 0 28 0; +#X connect 26 0 25 1; +#X connect 27 0 25 1; +#X connect 28 0 20 0; +#X connect 28 1 26 0; +#X connect 29 0 19 0; +#X connect 29 1 23 0; +#X connect 32 0 31 0; +#X connect 33 0 30 0; +#X connect 33 1 32 0; +#X connect 35 0 4 0; +#X connect 36 0 37 0; +#X connect 37 0 25 0; +#X connect 38 0 27 0; +#X connect 38 1 27 0; +#X connect 38 2 40 0; +#X connect 40 0 39 0; +#X restore 601 134 pd change-and-load-slot; +#X text 448 229 arg 3: path to folder where to save 28 textfiles; +#N canvas 39 50 1159 834 THE-2-SEQS 0; +#X obj 398 800 outlet; +#N canvas 14 50 468 388 flush-stuck-notes 0; +#X obj 167 212 bag; +#X msg 203 161 flush; +#X msg 160 254 \$1 0; +#X obj 124 157 t a a; +#X obj 137 354 outlet; +#X obj 101 22 inlet; +#X obj 258 20 inlet; +#X obj 238 107 bang; +#X obj 114 102 route note; +#X obj 248 61 route end stop; +#X obj 232 338 outlet other messages; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 4 0; +#X connect 3 0 4 0; +#X connect 3 1 0 0; +#X connect 5 0 8 0; +#X connect 6 0 9 0; +#X connect 7 0 1 0; +#X connect 8 0 3 0; +#X connect 8 1 10 0; +#X connect 9 0 7 0; +#X connect 9 1 7 0; +#X restore 132 408 pd flush-stuck-notes; +#X text 309 354 events and status out; +#N canvas 13 50 1276 866 auto-knobs 0; +#X obj 435 470 s seq3-\$1-k1; +#X obj 771 398 s seq3-\$1-k4; +#X obj 679 426 s seq3-\$1-k3; +#X obj 547 448 s seq3-\$1-k2; +#X obj 435 181 inlet; +#X text 849 417 <--- drop these as receives in the parent patches knobs! +; +#X obj 435 295 route knob1 knob2 knob3 knob4, f 64; +#X obj 461 627 ctlout 21 1; +#X obj 616 659 ctlout 22 1; +#X obj 784 663 ctlout 23 1; +#X obj 964 660 ctlout 24 1; +#X obj 535 593 r midiOutCh; +#X obj 690 627 r midiOutCh; +#X obj 858 627 r midiOutCh; +#X obj 1038 613 r midiOutCh; +#X obj 477 553 * 127; +#X obj 476 578 i; +#X obj 645 565 * 127; +#X obj 644 590 i; +#X obj 799 569 * 127; +#X obj 798 594 i; +#X obj 967 578 * 127; +#X obj 966 603 i; +#X connect 4 0 6 0; +#X connect 6 0 0 0; +#X connect 6 0 15 0; +#X connect 6 1 3 0; +#X connect 6 1 17 0; +#X connect 6 2 2 0; +#X connect 6 2 19 0; +#X connect 6 3 1 0; +#X connect 6 3 21 0; +#X connect 11 0 7 2; +#X connect 12 0 8 2; +#X connect 13 0 9 2; +#X connect 14 0 10 2; +#X connect 15 0 16 0; +#X connect 16 0 7 0; +#X connect 17 0 18 0; +#X connect 18 0 8 0; +#X connect 19 0 20 0; +#X connect 20 0 9 0; +#X connect 21 0 22 0; +#X connect 22 0 10 0; +#X restore 199 534 pd auto-knobs; +#X obj 398 560 r \$0-pass; +#X obj 362 499 v seq3-\$1-state; +#X obj 394 474 s seq3-\$1-actions; +#X msg 362 425 3; +#X obj 304 373 symbol; +#X obj 164 573 seq-format-event note; +#X obj 132 491 t a a; +#N canvas 15 50 468 388 flush-stuck-notes 0; +#X obj 167 212 bag; +#X msg 203 161 flush; +#X msg 160 254 \$1 0; +#X obj 124 157 t a a; +#X obj 137 354 outlet; +#X obj 101 22 inlet; +#X obj 258 20 inlet; +#X obj 238 107 bang; +#X obj 114 102 route note; +#X obj 248 61 route end stop; +#X obj 232 338 outlet other messages; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 4 0; +#X connect 3 0 4 0; +#X connect 3 1 0 0; +#X connect 5 0 8 0; +#X connect 6 0 9 0; +#X connect 7 0 1 0; +#X connect 8 0 3 0; +#X connect 8 1 10 0; +#X connect 9 0 7 0; +#X connect 9 1 7 0; +#X restore 597 457 pd flush-stuck-notes; +#X text 850 417 events and status out; +#N canvas 10 50 1276 866 auto-knobs 0; +#X obj 435 470 s seq3-\$1-k1; +#X obj 771 398 s seq3-\$1-k4; +#X obj 679 426 s seq3-\$1-k3; +#X obj 537 440 s seq3-\$1-k2; +#X obj 435 181 inlet; +#X text 849 417 <--- drop these as receives in the parent patches knobs! +; +#X obj 435 295 route knob1 knob2 knob3 knob4, f 64; +#X obj 461 627 ctlout 21 1; +#X obj 616 659 ctlout 22 1; +#X obj 784 663 ctlout 23 1; +#X obj 964 660 ctlout 24 1; +#X obj 535 593 r midiOutCh; +#X obj 690 627 r midiOutCh; +#X obj 858 627 r midiOutCh; +#X obj 1038 613 r midiOutCh; +#X obj 477 553 * 127; +#X obj 476 578 i; +#X obj 645 565 * 127; +#X obj 644 590 i; +#X obj 799 569 * 127; +#X obj 798 594 i; +#X obj 967 578 * 127; +#X obj 966 603 i; +#X connect 4 0 6 0; +#X connect 6 0 0 0; +#X connect 6 0 15 0; +#X connect 6 1 3 0; +#X connect 6 1 17 0; +#X connect 6 2 2 0; +#X connect 6 2 19 0; +#X connect 6 3 1 0; +#X connect 6 3 21 0; +#X connect 11 0 7 2; +#X connect 12 0 8 2; +#X connect 13 0 9 2; +#X connect 14 0 10 2; +#X connect 15 0 16 0; +#X connect 16 0 7 0; +#X connect 17 0 18 0; +#X connect 18 0 8 0; +#X connect 19 0 20 0; +#X connect 20 0 9 0; +#X connect 21 0 22 0; +#X connect 22 0 10 0; +#X restore 679 577 pd auto-knobs; +#X obj 854 545 v seq3-\$1-state; +#X obj 877 521 s seq3-\$1-actions; +#X msg 854 471 3; +#X obj 776 420 symbol; +#X obj 776 326 r \$0-arg-2-seq; +#X obj 686 272 r \$0-events-in; +#X obj 776 347 route 1; +#X obj 234 238 r \$0-events-in; +#X obj 304 308 route 0; +#X obj 629 611 seq-format-event note; +#X obj 597 529 t a a; +#X obj 629 635 s \$0-overdub-R; +#X obj 164 597 s \$0-overdub-L; +#X obj 199 483 t a a; +#X obj 231 508 s \$0-overknobs-L; +#X obj 679 519 t a a; +#X obj 706 548 s \$0-overknobs-R; +#N canvas 605 210 923 588 knob-recycle 0; +#X obj 35 19 inlet; +#X obj 35 120 route knob1 knob2 knob3 knob4, f 117; +#X obj 88 212 r knob1; +#X msg 132 264 stop; +#X obj 88 237 t b b b, f 13; +#X msg 88 317 1; +#X msg 176 293 0; +#X obj 88 359 change -1; +#X obj 35 385 spigot 0; +#X obj 35 407 list prepend knob1; +#X obj 35 559 outlet; +#X obj 35 429 list trim; +#X msg 272 264 stop; +#X obj 228 237 t b b b, f 13; +#X msg 228 317 1; +#X msg 316 293 0; +#X obj 228 359 change -1; +#X obj 175 385 spigot 0; +#X obj 175 429 list trim; +#X obj 88 295 del 500; +#X obj 228 295 del 500; +#X msg 442 264 stop; +#X obj 398 237 t b b b, f 13; +#X msg 398 317 1; +#X msg 486 293 0; +#X obj 398 359 change -1; +#X obj 345 385 spigot 0; +#X obj 345 429 list trim; +#X msg 771 264 stop; +#X obj 727 237 t b b b, f 13; +#X msg 727 317 1; +#X msg 815 293 0; +#X obj 727 359 change -1; +#X obj 674 385 spigot 0; +#X obj 674 429 list trim; +#X obj 398 295 del 500; +#X obj 727 295 del 500; +#X obj 727 212 r knob4; +#X obj 674 406 list prepend knob4; +#X obj 398 212 r knob3; +#X obj 345 407 list prepend knob3; +#X obj 175 407 list prepend knob2; +#X obj 228 212 r knob2; +#X connect 0 0 1 0; +#X connect 1 0 8 0; +#X connect 1 1 17 0; +#X connect 1 2 26 0; +#X connect 1 3 33 0; +#X connect 2 0 4 0; +#X connect 3 0 19 0; +#X connect 4 0 19 0; +#X connect 4 1 3 0; +#X connect 4 2 6 0; +#X connect 5 0 7 0; +#X connect 6 0 7 0; +#X connect 7 0 8 1; +#X connect 8 0 9 0; +#X connect 9 0 11 0; +#X connect 11 0 10 0; +#X connect 12 0 20 0; +#X connect 13 0 20 0; +#X connect 13 1 12 0; +#X connect 13 2 15 0; +#X connect 14 0 16 0; +#X connect 15 0 16 0; +#X connect 16 0 17 1; +#X connect 17 0 41 0; +#X connect 18 0 10 0; +#X connect 19 0 5 0; +#X connect 20 0 14 0; +#X connect 21 0 35 0; +#X connect 22 0 35 0; +#X connect 22 1 21 0; +#X connect 22 2 24 0; +#X connect 23 0 25 0; +#X connect 24 0 25 0; +#X connect 25 0 26 1; +#X connect 26 0 40 0; +#X connect 27 0 10 0; +#X connect 28 0 36 0; +#X connect 29 0 36 0; +#X connect 29 1 28 0; +#X connect 29 2 31 0; +#X connect 30 0 32 0; +#X connect 31 0 32 0; +#X connect 32 0 33 1; +#X connect 33 0 38 0; +#X connect 34 0 10 0; +#X connect 35 0 23 0; +#X connect 36 0 30 0; +#X connect 37 0 29 0; +#X connect 38 0 34 0; +#X connect 39 0 22 0; +#X connect 40 0 27 0; +#X connect 41 0 18 0; +#X connect 42 0 13 0; +#X restore 199 455 pd knob-recycle; +#N canvas 609 198 923 588 knob-recycle 0; +#X obj 35 19 inlet; +#X obj 35 120 route knob1 knob2 knob3 knob4, f 117; +#X obj 88 212 r knob1; +#X msg 132 264 stop; +#X obj 88 237 t b b b, f 13; +#X msg 88 317 1; +#X msg 176 293 0; +#X obj 88 359 change -1; +#X obj 35 385 spigot 0; +#X obj 35 407 list prepend knob1; +#X obj 35 559 outlet; +#X obj 35 429 list trim; +#X msg 272 264 stop; +#X obj 228 237 t b b b, f 13; +#X msg 228 317 1; +#X msg 316 293 0; +#X obj 228 359 change -1; +#X obj 175 385 spigot 0; +#X obj 175 429 list trim; +#X obj 88 295 del 500; +#X obj 228 295 del 500; +#X msg 442 264 stop; +#X obj 398 237 t b b b, f 13; +#X msg 398 317 1; +#X msg 486 293 0; +#X obj 398 359 change -1; +#X obj 345 385 spigot 0; +#X obj 345 429 list trim; +#X msg 771 264 stop; +#X obj 727 237 t b b b, f 13; +#X msg 727 317 1; +#X msg 815 293 0; +#X obj 727 359 change -1; +#X obj 674 385 spigot 0; +#X obj 674 429 list trim; +#X obj 398 295 del 500; +#X obj 727 295 del 500; +#X obj 727 212 r knob4; +#X obj 674 406 list prepend knob4; +#X obj 398 212 r knob3; +#X obj 345 407 list prepend knob3; +#X obj 175 407 list prepend knob2; +#X obj 228 212 r knob2; +#X connect 0 0 1 0; +#X connect 1 0 8 0; +#X connect 1 1 17 0; +#X connect 1 2 26 0; +#X connect 1 3 33 0; +#X connect 2 0 4 0; +#X connect 3 0 19 0; +#X connect 4 0 19 0; +#X connect 4 1 3 0; +#X connect 4 2 6 0; +#X connect 5 0 7 0; +#X connect 6 0 7 0; +#X connect 7 0 8 1; +#X connect 8 0 9 0; +#X connect 9 0 11 0; +#X connect 11 0 10 0; +#X connect 12 0 20 0; +#X connect 13 0 20 0; +#X connect 13 1 12 0; +#X connect 13 2 15 0; +#X connect 14 0 16 0; +#X connect 15 0 16 0; +#X connect 16 0 17 1; +#X connect 17 0 41 0; +#X connect 18 0 10 0; +#X connect 19 0 5 0; +#X connect 20 0 14 0; +#X connect 21 0 35 0; +#X connect 22 0 35 0; +#X connect 22 1 21 0; +#X connect 22 2 24 0; +#X connect 23 0 25 0; +#X connect 24 0 25 0; +#X connect 25 0 26 1; +#X connect 26 0 40 0; +#X connect 27 0 10 0; +#X connect 28 0 36 0; +#X connect 29 0 36 0; +#X connect 29 1 28 0; +#X connect 29 2 31 0; +#X connect 30 0 32 0; +#X connect 31 0 32 0; +#X connect 32 0 33 1; +#X connect 33 0 38 0; +#X connect 34 0 10 0; +#X connect 35 0 23 0; +#X connect 36 0 30 0; +#X connect 37 0 29 0; +#X connect 38 0 34 0; +#X connect 39 0 22 0; +#X connect 40 0 27 0; +#X connect 41 0 18 0; +#X connect 42 0 13 0; +#X restore 679 492 pd knob-recycle; +#N canvas 12 50 1052 658 overdub-management 0; +#X obj 252 348 r \$0-overdub-R; +#X obj 238 327 r \$0-overknobs-R; +#X obj 238 438 outlet; +#X obj 238 408 spigot 0; +#X obj 291 376 r seq3-\$1-overdub-on; +#X connect 0 0 3 0; +#X connect 1 0 3 0; +#X connect 3 0 2 0; +#X connect 4 0 3 1; +#X restore 247 260 pd overdub-management; +#X obj 304 286 r \$0-arg-2-seq; +#N canvas 12 50 1052 658 overdub-management 0; +#X obj 238 408 outlet; +#X obj 238 295 r \$0-overknobs-L; +#X obj 252 316 r \$0-overdub-L; +#X obj 238 377 spigot 0; +#X obj 291 352 r seq3-\$1-overdub-on; +#X connect 1 0 3 0; +#X connect 2 0 3 0; +#X connect 3 0 0 0; +#X connect 4 0 3 1; +#X restore 716 297 pd overdub-management; +#X text 279 162 two sequencers to bounce back and forth for over dubbing +; +#X obj 362 447 t f f; +#X obj 854 495 t f f; +#X obj 370 25 inlet; +#X obj 132 339 seq seq\$1L, f 25; +#X obj 597 388 seq seq\$1R, f 26; +#X obj 303 398 sel end rec isPlaying, f 34; +#X obj 459 429 s seq3-\$1-playing; +#X obj 776 446 sel end rec isPlaying, f 34; +#X obj 931 478 s seq3-\$1-playing; +#X obj 443 592 loadbang; +#X obj 443 613 f \$5; +#X obj 398 661 spigot 1; +#X obj 443 634 ==; +#N canvas 13 50 476 382 latch 0; +#X text 191 93 THE LATCH!; +#X obj 137 58 inlet; +#X obj 137 316 outlet; +#N canvas 8 50 759 486 latch-notes 0; +#N canvas 1010 59 817 631 latcher 0; +#X obj 220 378 bag; +#X msg 317 311 flush; +#X obj 169 81 t a a, f 17; +#X obj 285 257 t a b; +#X obj 169 44 inlet; +#X obj 285 475 outlet; +#X obj 443 58 inlet; +#X obj 285 126 stripnote; +#X obj 285 228 pack, f 9; +#X obj 443 142 t b; +#X obj 169 103 unpack; +#X obj 169 156 swap; +#X obj 169 198 pack; +#X obj 169 220 route 0; +#X obj 220 400 pack 1 0; +#X obj 169 241 pack 0 100; +#X connect 0 0 14 0; +#X connect 1 0 0 0; +#X connect 2 0 10 0; +#X connect 2 1 7 0; +#X connect 3 0 5 0; +#X connect 3 1 1 0; +#X connect 4 0 2 0; +#X connect 6 0 9 0; +#X connect 7 0 8 0; +#X connect 7 1 8 1; +#X connect 8 0 3 0; +#X connect 9 0 1 0; +#X connect 10 0 11 0; +#X connect 10 1 11 1; +#X connect 11 0 12 0; +#X connect 11 1 12 1; +#X connect 12 0 13 0; +#X connect 13 0 15 0; +#X connect 14 0 5 0; +#X connect 15 0 0 0; +#X restore 43 413 pd latcher; +#X obj 173 298 spigot 1; +#X obj 43 298 spigot 0; +#X obj 226 272 == 0; +#X obj 193 134 inlet; +#X obj 43 626 outlet; +#X obj 43 106 inlet; +#X text 241 135 bang enable / disables latch; +#X text 44 53 incoming notes get sent through latch if enabled \, or +directly to output if disabled; +#X obj 309 298 b; +#X obj 193 159 t f f b, f 17; +#X connect 0 0 5 0; +#X connect 1 0 5 0; +#X connect 2 0 0 0; +#X connect 3 0 1 1; +#X connect 4 0 10 0; +#X connect 6 0 2 0; +#X connect 6 0 1 0; +#X connect 9 0 0 1; +#X connect 10 0 2 1; +#X connect 10 1 3 0; +#X connect 10 2 9 0; +#X restore 137 273 pd latch-notes; +#X obj 186 182 r seq3-\$1-togLatch; +#X connect 1 0 3 0; +#X connect 3 0 2 0; +#X connect 4 0 3 1; +#X restore 398 727 pd latch; +#X text 475 729 latch incoming notes; +#X connect 1 0 10 0; +#X connect 1 1 31 0; +#X connect 4 0 48 0; +#X connect 7 0 37 0; +#X connect 8 0 42 0; +#X connect 9 0 26 0; +#X connect 10 0 50 0; +#X connect 10 1 9 0; +#X connect 11 0 24 0; +#X connect 11 1 32 0; +#X connect 16 0 38 0; +#X connect 17 0 44 0; +#X connect 18 0 20 0; +#X connect 19 0 41 1; +#X connect 20 0 41 2; +#X connect 21 0 40 1; +#X connect 22 0 40 2; +#X connect 23 0 25 0; +#X connect 24 0 50 0; +#X connect 24 1 23 0; +#X connect 27 0 3 0; +#X connect 27 1 28 0; +#X connect 29 0 13 0; +#X connect 29 1 30 0; +#X connect 31 0 27 0; +#X connect 32 0 29 0; +#X connect 33 0 40 1; +#X connect 34 0 22 0; +#X connect 35 0 41 1; +#X connect 37 0 5 0; +#X connect 37 1 6 0; +#X connect 38 0 14 0; +#X connect 38 1 15 0; +#X connect 39 0 40 0; +#X connect 39 0 41 0; +#X connect 40 0 1 0; +#X connect 40 1 1 1; +#X connect 40 1 8 0; +#X connect 41 0 11 0; +#X connect 41 1 11 1; +#X connect 41 1 17 0; +#X connect 42 1 7 0; +#X connect 42 2 43 0; +#X connect 44 1 16 0; +#X connect 44 2 45 0; +#X connect 46 0 47 0; +#X connect 47 0 49 0; +#X connect 48 0 50 0; +#X connect 49 0 48 1; +#X connect 50 0 0 0; +#X restore 837 500 pd THE-2-SEQS; +#X obj 837 713 outlet; +#N canvas 214 62 1220 815 undo 0; +#X obj 94 21 r seq3-\$1-actions; +#X obj 94 67 sel 6; +#X obj 424 298 r \$0-current-slot; +#X obj 406 326 f; +#X obj 545 496 tabread \$0-slot-tracker; +#X obj 545 550 tabwrite \$0-slot-tracker; +#X obj 94 459 t f f; +#X obj 94 501 v seq3-\$1-state; +#X obj 126 481 s seq3-\$1-actions; +#X obj 545 448 t f f; +#X obj 735 746 s \$0-arg-2-seq; +#X obj 735 694 list prepend; +#X obj 735 716 list trim; +#X obj 735 606 t a b; +#X obj 735 512 route 0 1; +#X obj 767 628 v seq3-\$1-od; +#X msg 735 572 read \$2/seq\$1x.txt; +#X msg 765 543 read \$2/seq\$1y.txt; +#X obj 788 408 symbol \$3; +#X obj 735 434 pack 0 s; +#X obj 788 382 loadbang; +#X obj 900 398 tabread \$0-slot-tracker; +#X obj 735 486 list prepend; +#X obj 406 268 t b; +#X obj 161 68 v seq3-\$1-state; +#X obj 94 237 sel 1, f 45; +#X obj 94 264 t b b b, f 19; +#X msg 224 399 0 stop \, 1 stop; +#X obj 224 431 s \$0-arg-2-seq; +#X obj 406 348 t b f f f, f 71; +#X obj 406 378 v seq3-\$1-od; +#X obj 406 422 v seq3-\$1-od; +#X obj 94 43 t f b, f 10; +#X obj 94 189 f; +#X obj 94 135 spigot, f 24; +#X obj 321 31 r seq3-\$1-actions; +#X obj 321 53 sel 3; +#X msg 321 75 1; +#X msg 309 139 0; +#X msg 94 374 1; +#X text 388 80 a record of new info and a slot change arms the undo +; +#N canvas 8 50 618 562 undo-flash 0; +#X obj 134 160 f; +#X obj 165 160 + 1; +#X obj 252 179 t b; +#X msg 172 105 0; +#X msg 185 82 stop; +#X obj 134 136 del 100; +#X obj 134 192 % 2; +#X obj 134 214 sel 1; +#X obj 220 149 sel 4; +#X obj 99 61 t b b b b; +#X obj 98 14 inlet; +#X obj 166 272 outlet; +#X obj 236 238 t b; +#X obj 236 260 outlet done; +#X msg 135 236 4; +#X connect 0 0 1 0; +#X connect 0 0 6 0; +#X connect 0 0 8 0; +#X connect 1 0 0 1; +#X connect 2 0 5 0; +#X connect 3 0 0 1; +#X connect 4 0 5 0; +#X connect 5 0 0 0; +#X connect 6 0 7 0; +#X connect 7 0 14 0; +#X connect 7 1 11 0; +#X connect 8 0 12 0; +#X connect 8 1 2 0; +#X connect 9 0 0 0; +#X connect 9 1 5 0; +#X connect 9 2 3 0; +#X connect 9 3 4 0; +#X connect 10 0 9 0; +#X connect 12 0 13 0; +#X connect 14 0 11 0; +#X restore 256 558 pd undo-flash; +#X obj 256 698 s seq3-\$1-led; +#X obj 344 649 f; +#X obj 377 584 r seq3-\$1-led; +#X obj 359 612 f; +#X obj 94 157 t b b b; +#X obj 256 528 t b b; +#X obj 900 420 ==; +#X obj 545 522 ==; +#X obj 406 400 ==; +#X connect 0 0 32 0; +#X connect 1 0 34 0; +#X connect 2 0 3 1; +#X connect 3 0 29 0; +#X connect 4 0 49 0; +#X connect 6 0 7 0; +#X connect 6 1 8 0; +#X connect 9 0 4 0; +#X connect 9 1 5 1; +#X connect 11 0 12 0; +#X connect 12 0 10 0; +#X connect 13 0 11 0; +#X connect 13 1 15 0; +#X connect 14 0 16 0; +#X connect 14 1 17 0; +#X connect 15 0 11 1; +#X connect 16 0 13 0; +#X connect 17 0 13 0; +#X connect 18 0 19 1; +#X connect 19 0 22 0; +#X connect 20 0 18 0; +#X connect 21 0 48 0; +#X connect 22 0 14 0; +#X connect 23 0 3 0; +#X connect 24 0 33 1; +#X connect 25 0 26 0; +#X connect 25 1 23 0; +#X connect 26 0 39 0; +#X connect 26 1 3 0; +#X connect 26 2 27 0; +#X connect 27 0 28 0; +#X connect 29 0 30 0; +#X connect 29 1 9 0; +#X connect 29 2 19 0; +#X connect 29 3 21 0; +#X connect 30 0 50 0; +#X connect 32 0 1 0; +#X connect 32 1 24 0; +#X connect 33 0 25 0; +#X connect 34 0 46 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 37 0 34 1; +#X connect 38 0 34 1; +#X connect 39 0 6 0; +#X connect 41 0 42 0; +#X connect 41 1 43 0; +#X connect 43 0 42 0; +#X connect 44 0 45 1; +#X connect 45 0 43 1; +#X connect 46 0 33 0; +#X connect 46 1 38 0; +#X connect 46 2 47 0; +#X connect 47 0 41 0; +#X connect 47 1 45 0; +#X connect 48 0 22 1; +#X connect 49 0 5 0; +#X connect 50 0 31 0; +#X restore 849 316 pd undo; +#X obj 77 581 r \$0-save-current; +#X obj 170 615 r \$0-read-current; +#N canvas 13 50 1582 798 record-new 0; +#X obj 237 45 r seq3-\$1-actions; +#X obj 694 252 v seq3-\$1-od; +#X obj 694 278 ==; +#X obj 694 300 v seq3-\$1-od; +#X text 748 275 switch; +#X obj 726 224 s \$0-save-current; +#X text 716 57 record; +#X msg 237 166 arm; +#X obj 237 343 s \$0-arg-2-seq; +#X obj 237 193 t a b; +#X obj 318 217 v seq3-\$1-od; +#X obj 237 261 list prepend; +#X obj 237 283 list trim; +#X obj 318 239 ==; +#X text 273 165 arm the opposite; +#X obj 237 72 sel 2 3, f 131; +#X msg 454 247 0 stop \, 1 stop; +#X text 779 160 if the opposite is triggered; +#X obj 694 117 spigot 0; +#X obj 694 139 t b b; +#X msg 777 121 0; +#X obj 237 123 t b b b, f 24; +#X msg 435 158 1; +#X obj 694 201 t b b; +#X connect 0 0 15 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 7 0 9 0; +#X connect 9 0 11 0; +#X connect 9 1 10 0; +#X connect 10 0 13 0; +#X connect 11 0 12 0; +#X connect 12 0 8 0; +#X connect 13 0 11 1; +#X connect 15 0 21 0; +#X connect 15 1 18 0; +#X connect 16 0 8 0; +#X connect 18 0 19 0; +#X connect 19 0 23 0; +#X connect 19 1 20 0; +#X connect 20 0 18 1; +#X connect 21 0 7 0; +#X connect 21 1 16 0; +#X connect 21 2 22 0; +#X connect 22 0 18 1; +#X connect 23 0 1 0; +#X connect 23 1 5 0; +#X restore 848 252 pd record-new; +#N canvas 615 50 1261 754 play+stop 0; +#X obj 475 274 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 358 360 spigot; +#X obj 436 359 spigot; +#X text 502 274 lock start to beat; +#X obj 475 108 loadbang; +#X obj 436 325 ==; +#X obj 475 192 sel 0 1 2, f 28; +#X msg 475 214 0; +#X msg 539 221 1; +#X obj 475 130 f \$2; +#X obj 358 564 s \$0-arg-2-seq; +#X obj 358 444 t a b; +#X obj 439 488 v seq3-\$1-od; +#X obj 358 512 list prepend; +#X obj 358 534 list trim; +#X obj 518 143 r seq3-1-quan; +#X msg 166 388 0 stop \, 1 stop; +#X obj 297 107 sel 0 1 2 3 4 5, f 21; +#X text 675 38 everytime a seq is changed check which txt to read from(x +or y); +#X obj 297 69 r seq3-\$1-actions; +#X obj 358 234 t b b, f 6; +#X obj 358 169 r \$0-play-local; +#X msg 358 388 play; +#X msg 436 387 play-sync; +#X obj 102 233 r \$0-stop-local; +#X connect 0 0 5 0; +#X connect 0 0 2 1; +#X connect 1 0 22 0; +#X connect 2 0 23 0; +#X connect 4 0 9 0; +#X connect 5 0 1 1; +#X connect 6 0 7 0; +#X connect 6 1 8 0; +#X connect 6 2 8 0; +#X connect 7 0 0 0; +#X connect 8 0 0 0; +#X connect 9 0 6 0; +#X connect 11 0 13 0; +#X connect 11 1 12 0; +#X connect 12 0 13 1; +#X connect 13 0 14 0; +#X connect 14 0 10 0; +#X connect 15 0 6 0; +#X connect 16 0 10 0; +#X connect 17 0 16 0; +#X connect 17 1 20 0; +#X connect 19 0 17 0; +#X connect 20 0 1 0; +#X connect 20 1 2 0; +#X connect 21 0 20 0; +#X connect 22 0 11 0; +#X connect 23 0 11 0; +#X connect 24 0 16 0; +#X restore 848 284 pd play+stop; +#X obj 84 489 r saveState; +#X obj 84 511 s \$0-save-current; +#X obj 859 154 s \$0-beat-clock-local; +#X obj 837 387 r \$0-beat-clock-local; +#X obj 837 409 t f f; +#X obj 863 667 noteout, f 9; +#X obj 863 637 unpack; +#X obj 914 640 r midiOutCh; +#X text 449 190 arg 1: unique number; +#X obj 859 72 inlet beat-clock; +#X text 448 249 arg 4: number to match shortcut (cgSc); +#X text 452 272 arg 5: pass through mute? 0: on. 1: off (default 0) +; +#X msg 971 583 0; +#X obj 971 611 s midiOutGate; +#X obj 837 573 t a a; +#X obj 971 522 loadbang; +#X obj 971 550 del 1000; +#X text 469 301 arg 6 midi out on/off; +#X obj 863 608 spigot \$6; +#X connect 1 0 0 0; +#X connect 2 0 25 0; +#X connect 2 1 3 0; +#X connect 5 0 2 0; +#X connect 6 0 7 0; +#X connect 12 0 22 0; +#X connect 12 0 17 0; +#X connect 13 0 15 0; +#X connect 16 0 15 0; +#X connect 17 0 23 0; +#X connect 19 0 28 0; +#X connect 22 0 18 0; +#X connect 23 0 18 0; +#X connect 25 0 13 0; +#X connect 25 1 4 0; +#X connect 26 0 23 0; +#X connect 30 0 51 0; +#X connect 33 0 27 0; +#X connect 34 0 27 1; +#X connect 37 0 38 0; +#X connect 40 0 41 0; +#X connect 41 0 30 0; +#X connect 41 1 24 0; +#X connect 43 0 42 0; +#X connect 43 1 42 1; +#X connect 44 0 42 2; +#X connect 46 0 39 0; +#X connect 49 0 50 0; +#X connect 51 0 31 0; +#X connect 51 1 55 0; +#X connect 52 0 53 0; +#X connect 53 0 49 0; +#X connect 55 0 43 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut-mute-f.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut-mute-f.pd new file mode 100644 index 0000000..df6d409 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut-mute-f.pd @@ -0,0 +1,26 @@ +#N canvas 7 50 638 470 10; +#X msg 334 205 0; +#X obj 366 175 t b b; +#X msg 398 205 1; +#X obj 334 147 sel 1; +#X obj 239 282 spigot 1, f 14; +#X obj 239 80 inlet; +#X obj 239 221 f; +#X obj 239 364 outlet; +#X obj 506 77 inlet; +#X obj 506 99 t b; +#X obj 334 124 r cgSc-\$1-mute-print; +#X obj 258 167 del 1; +#X connect 0 0 4 1; +#X connect 1 0 11 0; +#X connect 1 1 2 0; +#X connect 2 0 4 1; +#X connect 3 0 0 0; +#X connect 3 1 1 0; +#X connect 4 0 7 0; +#X connect 5 0 6 0; +#X connect 6 0 4 0; +#X connect 8 0 9 0; +#X connect 9 0 6 0; +#X connect 10 0 3 0; +#X connect 11 0 6 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut-mute-list.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut-mute-list.pd new file mode 100644 index 0000000..1411f73 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut-mute-list.pd @@ -0,0 +1,33 @@ +#N canvas 473 218 958 612 10; +#X msg 334 225 0; +#X obj 366 105 t b b; +#X msg 398 225 1; +#X obj 239 282 spigot 1, f 14; +#X obj 239 80 inlet; +#X obj 239 304 outlet; +#X obj 239 200 list, f 9; +#X msg 239 177 69; +#X obj 239 137 t b a; +#X obj 239 222 route 69; +#X obj 651 35 inlet; +#X obj 651 57 t b; +#X obj 334 34 r cgSc-\$1-mute-print; +#X obj 368 196 del 1; +#X obj 334 77 sel 1; +#X connect 0 0 3 1; +#X connect 1 0 13 0; +#X connect 1 1 2 0; +#X connect 2 0 3 1; +#X connect 3 0 5 0; +#X connect 4 0 8 0; +#X connect 6 0 9 0; +#X connect 7 0 6 0; +#X connect 8 0 7 0; +#X connect 8 1 6 1; +#X connect 9 0 3 0; +#X connect 10 0 11 0; +#X connect 11 0 7 0; +#X connect 12 0 14 0; +#X connect 13 0 7 0; +#X connect 14 0 0 0; +#X connect 14 1 1 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut-mute-s.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut-mute-s.pd new file mode 100644 index 0000000..75d30d1 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut-mute-s.pd @@ -0,0 +1,22 @@ +#N canvas 7 50 1122 650 10; +#X msg 334 205 0; +#X obj 366 175 t b b; +#X msg 398 205 1; +#X obj 334 147 sel 1; +#X obj 239 282 spigot 1, f 14; +#X obj 218 80 inlet; +#X obj 239 304 outlet; +#X obj 239 221 symbol; +#X obj 334 124 r cgSc-\$1-muter; +#X obj 291 232 del 1; +#X connect 0 0 4 1; +#X connect 1 0 9 0; +#X connect 1 1 2 0; +#X connect 2 0 4 1; +#X connect 3 0 0 0; +#X connect 3 1 1 0; +#X connect 4 0 6 0; +#X connect 5 0 7 0; +#X connect 7 0 4 0; +#X connect 8 0 3 0; +#X connect 9 0 7 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut.pd b/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut.pd new file mode 100755 index 0000000..1748810 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/shortcut.pd @@ -0,0 +1,425 @@ +#N canvas 4 50 1009 712 10; +#X obj 73 89 inlet aux; +#N canvas 9 50 1163 752 print-grid 0; +#X obj 606 425 s oscOut; +#X msg 566 355 /oled/gFlip 3; +#X msg 655 328 /oled/gFillArea 3 0 8 128 56 0; +#X text 480 480 Line \, start x \, y \, end x \, y \, color (0 or 1) +; +#X obj 370 249 f; +#X obj 403 249 + 1; +#X obj 370 214 until; +#X msg 414 215 0; +#X obj 370 179 t a b; +#X msg 370 156 6; +#X obj 370 271 * 11; +#X msg 351 353 /oled/gLine 3 0 \$1 127 \$1 1; +#X obj 370 293 + 8; +#X msg 745 361 /oled/gClear 3 1; +#X obj 457 243 f; +#X obj 490 243 + 1; +#X obj 457 208 until; +#X msg 501 209 0; +#X obj 457 173 t a b; +#X msg 457 150 3; +#X msg 459 315 /oled/gLine 3 \$1 9 \$1 63 1; +#X obj 457 288 min 127; +#X obj 458 264 * 64; +#X obj 406 101 t b b b b; +#X obj 431 49 inlet; +#X connect 1 0 0 0; +#X connect 2 0 0 0; +#X connect 4 0 5 0; +#X connect 4 0 10 0; +#X connect 5 0 4 1; +#X connect 6 0 4 0; +#X connect 7 0 4 1; +#X connect 8 0 6 0; +#X connect 8 1 7 0; +#X connect 9 0 8 0; +#X connect 10 0 12 0; +#X connect 11 0 0 0; +#X connect 12 0 11 0; +#X connect 13 0 0 0; +#X connect 14 0 15 0; +#X connect 14 0 22 0; +#X connect 15 0 14 1; +#X connect 16 0 14 0; +#X connect 17 0 14 1; +#X connect 18 0 16 0; +#X connect 18 1 17 0; +#X connect 19 0 18 0; +#X connect 20 0 0 0; +#X connect 21 0 20 0; +#X connect 22 0 21 0; +#X connect 23 0 1 0; +#X connect 23 1 9 0; +#X connect 23 2 19 0; +#X connect 23 3 2 0; +#X connect 24 0 23 0; +#X restore 155 420 pd print-grid; +#X obj 74 314 sel 1 0, f 16; +#X obj 363 410 route 61 63 66 68 70 73 75 78 80 82, f 81; +#X text 142 342 go back to home screen; +#N canvas 910 426 871 385 re-print 0; +#X obj 96 30 inlet; +#X text 614 82 clear the screen; +#X msg 88 89 /oled/gFillArea 3 0 8 128 56 0; +#X obj 88 111 s oscOut; +#X connect 0 0 2 0; +#X connect 2 0 3 0; +#X restore 128 359 pd re-print; +#X obj 497 212 ==; +#N canvas 5 50 450 300 just-note-offs 0; +#X obj 67 16 inlet; +#X obj 67 38 unpack; +#X obj 67 89 sel 0; +#X obj 67 60 swap, f 6; +#X obj 67 116 f, f 7; +#X obj 67 138 pack 0 0; +#X obj 67 160 outlet; +#X connect 0 0 1 0; +#X connect 1 0 3 0; +#X connect 1 1 3 1; +#X connect 2 0 4 0; +#X connect 3 0 2 0; +#X connect 3 1 4 1; +#X connect 4 0 5 0; +#X connect 5 0 6 0; +#X restore 470 329 pd just-note-offs; +#X obj 144 617 outlet; +#X text 647 390 top line of keys "the black keys"; +#X text 598 328 so notes dont get stuck; +#X obj 444 249 spigot 1; +#X obj 363 249 spigot 0; +#X obj 74 395 t b b, f 12; +#X obj 683 189 s cgSc-\$1-aux; +#X obj 74 448 s cgSc-\$1-print!; +#X obj 870 442 sc-module \$1 10; +#X obj 310 65 moses 60; +#X obj 363 87 moses 84; +#X obj 310 35 unpack 0 0, f 23; +#X obj 363 117 pack 0 0; +#X obj 972 621 s cgSc-\$1-slots; +#N canvas 418 186 1307 642 slots 0; +#X obj 36 25 inlet; +#X obj 36 47 route 60 62 64 65 67 69 71 72 74 76 77 79 81 83, f 144 +; +#X obj 36 70 sel 0; +#X obj 68 93 t b; +#X obj 139 186 s \$0-white-keys; +#X msg 68 115 0; +#X obj 107 70 sel 0; +#X obj 139 93 t b; +#X msg 139 115 1; +#X obj 179 70 sel 0; +#X obj 211 93 t b; +#X obj 249 70 sel 0; +#X obj 281 93 t b; +#X msg 211 115 2; +#X msg 281 115 3; +#X obj 390 461 r \$0-white-keys; +#X obj 323 70 sel 0; +#X obj 355 93 t b; +#X obj 426 186 s \$0-white-keys; +#X obj 394 70 sel 0; +#X obj 426 93 t b; +#X obj 466 70 sel 0; +#X obj 498 93 t b; +#X obj 536 70 sel 0; +#X obj 568 93 t b; +#X msg 355 115 4; +#X msg 426 115 5; +#X msg 498 115 6; +#X msg 568 115 7; +#X obj 606 70 sel 0; +#X obj 638 93 t b; +#X obj 709 186 s \$0-white-keys; +#X obj 677 70 sel 0; +#X obj 709 93 t b; +#X obj 749 70 sel 0; +#X obj 781 93 t b; +#X obj 819 70 sel 0; +#X obj 851 93 t b; +#X obj 893 70 sel 0; +#X obj 925 93 t b; +#X obj 996 186 s \$0-white-keys; +#X obj 964 70 sel 0; +#X obj 996 93 t b; +#X msg 638 115 8; +#X msg 709 114 9; +#X msg 781 115 10; +#X msg 851 115 11; +#X msg 925 115 12; +#X msg 996 115 13; +#X obj 390 483 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 1 1 6 0; +#X connect 1 2 9 0; +#X connect 1 3 11 0; +#X connect 1 4 16 0; +#X connect 1 5 19 0; +#X connect 1 6 21 0; +#X connect 1 7 23 0; +#X connect 1 8 29 0; +#X connect 1 9 32 0; +#X connect 1 10 34 0; +#X connect 1 11 36 0; +#X connect 1 12 38 0; +#X connect 1 13 41 0; +#X connect 2 1 3 0; +#X connect 3 0 5 0; +#X connect 5 0 4 0; +#X connect 6 1 7 0; +#X connect 7 0 8 0; +#X connect 8 0 4 0; +#X connect 9 1 10 0; +#X connect 10 0 13 0; +#X connect 11 1 12 0; +#X connect 12 0 14 0; +#X connect 13 0 4 0; +#X connect 14 0 4 0; +#X connect 15 0 49 0; +#X connect 16 1 17 0; +#X connect 17 0 25 0; +#X connect 19 1 20 0; +#X connect 20 0 26 0; +#X connect 21 1 22 0; +#X connect 22 0 27 0; +#X connect 23 1 24 0; +#X connect 24 0 28 0; +#X connect 25 0 18 0; +#X connect 26 0 18 0; +#X connect 27 0 18 0; +#X connect 28 0 18 0; +#X connect 29 1 30 0; +#X connect 30 0 43 0; +#X connect 32 1 33 0; +#X connect 33 0 44 0; +#X connect 34 1 35 0; +#X connect 35 0 45 0; +#X connect 36 1 37 0; +#X connect 37 0 46 0; +#X connect 38 1 39 0; +#X connect 39 0 47 0; +#X connect 41 1 42 0; +#X connect 42 0 48 0; +#X connect 43 0 31 0; +#X connect 44 0 31 0; +#X connect 45 0 31 0; +#X connect 46 0 31 0; +#X connect 47 0 40 0; +#X connect 48 0 40 0; +#X restore 972 509 pd slots; +#X obj 845 45 inlet manual-reprint; +#X obj 117 281 t b b; +#X obj 898 84 r cgSc-\$1-aux; +#X obj 845 107 spigot 0; +#X obj 363 139 t a a; +#N canvas 754 195 1143 710 print-slots 0; +#X obj 126 540 s oscOut; +#X msg 39 391 /oled/gFlip 3; +#X obj 264 362 f; +#X obj 218 332 t b a a b b b; +#X msg 343 509 /oled/gClear 3 1; +#X obj 676 543 s oscOut; +#X msg 589 394 /oled/gFlip 3; +#X obj 814 365 f; +#X obj 768 335 t b a a b b b; +#X msg 893 512 /oled/gClear 3 1; +#X obj 294 286 moses 10; +#X obj 294 215 + 1; +#X text 359 281 center single digits; +#X msg 352 475 /oled/gBox 3 34 8 56 56 1; +#X msg 902 479 /oled/gBox 3 34 8 56 56 1; +#X msg 347 433 /oled/gFillArea 3 34 8 56 56 0; +#X msg 895 436 /oled/gFillArea 3 34 8 56 56 0; +#X msg 264 386 /oled/gPrintln 3 54 22 32 0 \$1; +#X msg 154 409 /oled/gPrintln 3 54 22 32 1 \$1; +#X msg 814 391 /oled/gPrintln 3 46 22 32 0 \$1; +#X msg 703 412 /oled/gPrintln 3 46 22 32 1 \$1; +#X obj 414 218 del 500; +#X msg 535 174 stop; +#X obj 293 149 t f b b, f 35; +#X obj 293 13 r cgSc-\$1-slots; +#X obj 414 250 outlet; +#X obj 294 175 pipe 5; +#X obj 293 115 spigot 0; +#X obj 338 43 loadbang; +#X obj 338 65 del 20; +#X msg 338 87 1; +#X obj 478 50 r cgSc-1-mute-print; +#X connect 1 0 0 0; +#X connect 2 0 17 0; +#X connect 3 0 1 0; +#X connect 3 1 18 0; +#X connect 3 2 2 1; +#X connect 3 3 2 0; +#X connect 3 4 13 0; +#X connect 3 5 15 0; +#X connect 4 0 0 0; +#X connect 6 0 5 0; +#X connect 7 0 19 0; +#X connect 8 0 6 0; +#X connect 8 1 20 0; +#X connect 8 2 7 1; +#X connect 8 3 7 0; +#X connect 8 4 14 0; +#X connect 8 5 16 0; +#X connect 9 0 5 0; +#X connect 10 0 3 0; +#X connect 10 1 8 0; +#X connect 11 0 10 0; +#X connect 13 0 0 0; +#X connect 14 0 5 0; +#X connect 15 0 0 0; +#X connect 16 0 5 0; +#X connect 17 0 0 0; +#X connect 18 0 0 0; +#X connect 19 0 5 0; +#X connect 20 0 5 0; +#X connect 21 0 25 0; +#X connect 22 0 21 0; +#X connect 23 0 26 0; +#X connect 23 1 21 0; +#X connect 23 2 22 0; +#X connect 24 0 27 0; +#X connect 26 0 11 0; +#X connect 27 0 23 0; +#X connect 28 0 29 0; +#X connect 29 0 30 0; +#X connect 30 0 27 1; +#X connect 31 0 27 1; +#X restore 791 13 pd print-slots; +#X text 31 13 Arg 1: match number to seq3; +#X text 31 33 Arg 2: Midi in on/off; +#X obj 588 471 sc-module \$1 5; +#X obj 532 492 sc-module \$1 4; +#X obj 475 535 sc-module \$1 3; +#X obj 701 523 sc-module \$1 7; +#X obj 645 567 sc-module \$1 6; +#X obj 359 589 sc-module \$1 1; +#X obj 419 564 sc-module \$1 2; +#X obj 757 495 sc-module \$1 8; +#X obj 814 471 sc-module \$1 9; +#X text 1043 509 bottom keys/white keys; +#X obj 310 11 r notesRaw; +#N canvas 4 50 450 300 cancel-print-if-press-is-short 0; +#X obj 79 12 inlet; +#X obj 79 53 sel 0 1, f 21; +#X msg 79 103 0; +#X obj 79 74 t b b; +#X msg 194 130 stop; +#X msg 142 189 1; +#X obj 79 251 outlet; +#X obj 142 78 t b b; +#X obj 79 223 change -1; +#X obj 142 168 del 220; +#X connect 0 0 1 0; +#X connect 1 0 3 0; +#X connect 1 1 7 0; +#X connect 2 0 8 0; +#X connect 3 0 2 0; +#X connect 3 1 4 0; +#X connect 4 0 9 0; +#X connect 5 0 8 0; +#X connect 7 0 9 0; +#X connect 7 1 4 0; +#X connect 8 0 6 0; +#X connect 9 0 5 0; +#X restore 74 194 pd cancel-print-if-press-is-short; +#X obj 74 215 t f f; +#N canvas 4 50 450 300 midi-in 0; +#X obj 63 195 outlet; +#X obj 71 93 notein; +#N canvas 6 50 1280 956 chsel 0; +#X obj 187 417 pack; +#X obj 207 372 f; +#X obj 168 372 f; +#X obj 237 123 f; +#X obj 152 87 t b f; +#X obj 237 145 sel 1; +#X obj 237 325 t b b; +#X obj 342 33 r midiCh; +#X obj 117 35 inlet; +#X obj 199 37 inlet; +#X obj 274 39 inlet; +#X obj 186 444 outlet; +#X obj 325 173 spigot; +#X obj 364 129 == 0; +#X obj 302 246 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X connect 0 0 11 0; +#X connect 1 0 0 1; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X connect 4 1 2 1; +#X connect 5 0 6 0; +#X connect 5 1 12 0; +#X connect 6 0 2 0; +#X connect 6 1 1 0; +#X connect 7 0 5 1; +#X connect 7 0 13 0; +#X connect 8 0 4 0; +#X connect 9 0 1 1; +#X connect 10 0 3 1; +#X connect 12 0 14 0; +#X connect 13 0 12 1; +#X connect 14 0 6 0; +#X restore 64 165 pd chsel; +#X connect 1 0 2 0; +#X connect 1 1 2 1; +#X connect 1 2 2 2; +#X connect 2 0 0 0; +#X restore 84 509 pd midi-in; +#X obj 84 530 spigot \$2; +#X text 40 488 midi notes to seq but cant control the shortcuts; +#X obj 74 160 t f f f f, f 102; +#X obj 101 236 s cgSc-\$1-mute-print; +#X connect 0 0 47 0; +#X connect 2 0 13 0; +#X connect 2 1 5 0; +#X connect 3 0 36 0; +#X connect 3 1 37 0; +#X connect 3 2 33 0; +#X connect 3 3 32 0; +#X connect 3 4 31 0; +#X connect 3 5 35 0; +#X connect 3 6 34 0; +#X connect 3 7 38 0; +#X connect 3 8 39 0; +#X connect 3 9 16 0; +#X connect 3 10 22 0; +#X connect 6 0 11 1; +#X connect 7 0 8 0; +#X connect 11 0 8 0; +#X connect 12 0 3 0; +#X connect 12 0 7 0; +#X connect 13 0 15 0; +#X connect 13 1 1 0; +#X connect 17 1 18 0; +#X connect 18 0 20 0; +#X connect 19 0 17 0; +#X connect 19 1 20 1; +#X connect 20 0 27 0; +#X connect 22 0 21 0; +#X connect 23 0 26 0; +#X connect 24 0 13 0; +#X connect 24 1 5 0; +#X connect 25 0 26 1; +#X connect 26 0 24 0; +#X connect 27 0 12 0; +#X connect 27 1 11 0; +#X connect 28 0 26 0; +#X connect 41 0 19 0; +#X connect 42 0 43 0; +#X connect 43 0 2 0; +#X connect 43 1 48 0; +#X connect 44 0 45 0; +#X connect 45 0 8 0; +#X connect 47 0 42 0; +#X connect 47 1 12 1; +#X connect 47 2 6 0; +#X connect 47 3 14 0; diff --git a/Samplers/Tapey/cg-pdlib-local/sequencer/slot-tracker.txt b/Samplers/Tapey/cg-pdlib-local/sequencer/slot-tracker.txt new file mode 100644 index 0000000..d4b70c5 --- /dev/null +++ b/Samplers/Tapey/cg-pdlib-local/sequencer/slot-tracker.txt @@ -0,0 +1,14 @@ +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 diff --git a/Samplers/Tapey/knobs.txt b/Samplers/Tapey/knobs.txt new file mode 100644 index 0000000..7ea25ee --- /dev/null +++ b/Samplers/Tapey/knobs.txt @@ -0,0 +1 @@ +0.71261 0.561095 0.197458 0.220919; diff --git a/Samplers/Tapey/lfo.pd b/Samplers/Tapey/lfo.pd new file mode 100644 index 0000000..4ca69e3 --- /dev/null +++ b/Samplers/Tapey/lfo.pd @@ -0,0 +1,75 @@ +#N canvas 626 193 450 606 10; +#X obj 25 238 osc~ 0.01; +#X obj 26 441 outlet~; +#X obj 25 29 r wob-rate; +#X obj 160 72 sel 0; +#X msg 160 93 0; +#X obj 193 92 t b; +#X msg 193 113 1; +#X obj 160 144 change -1; +#X obj 26 411 *~; +#X obj 160 165 lop~ 20; +#X obj 294 10 inlet; +#X obj 25 50 t a a a, f 23; +#X obj 95 158 lop~ 10; +#X obj 25 269 *~, f 12; +#X obj 294 52 / 127; +#X obj 25 71 sig~; +#X obj 25 92 +~; +#X obj 294 94 lop~ 100; +#X obj 95 137 * 0.005; +#X obj 294 73 * 0.15; +#N canvas 4 50 450 300 warble 0; +#X obj 37 25 inlet~; +#X obj 38 268 outlet~; +#X obj 168 103 random 1000; +#X obj 168 154 * 0.001; +#X obj 167 46 inlet; +#X obj 37 177 *~; +#X obj 168 196 lop~ 200; +#X obj 168 124 - 500; +#X obj 168 77 metro 50; +#X connect 0 0 5 0; +#X connect 2 0 7 0; +#X connect 3 0 6 0; +#X connect 4 0 8 0; +#X connect 5 0 1 0; +#X connect 6 0 5 1; +#X connect 7 0 3 0; +#X connect 8 0 2 0; +#X restore 24 197 pd warble; +#X obj 294 31 unpack; +#X obj 350 207 sel 0; +#X obj 378 241 t b; +#X msg 350 228 0; +#X msg 378 262 1; +#X connect 0 0 13 0; +#X connect 2 0 11 0; +#X connect 3 0 4 0; +#X connect 3 1 5 0; +#X connect 4 0 7 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 9 0; +#X connect 8 0 1 0; +#X connect 9 0 8 1; +#X connect 10 0 21 0; +#X connect 11 0 15 0; +#X connect 11 1 18 0; +#X connect 11 2 3 0; +#X connect 12 0 13 1; +#X connect 13 0 8 0; +#X connect 14 0 19 0; +#X connect 15 0 16 0; +#X connect 16 0 20 0; +#X connect 17 0 16 1; +#X connect 18 0 12 0; +#X connect 19 0 17 0; +#X connect 20 0 0 0; +#X connect 21 0 14 0; +#X connect 21 1 22 0; +#X connect 22 0 24 0; +#X connect 22 1 23 0; +#X connect 23 0 25 0; +#X connect 24 0 20 1; +#X connect 25 0 20 1; diff --git a/Samplers/Tapey/main.pd b/Samplers/Tapey/main.pd new file mode 100644 index 0000000..67bcd4d --- /dev/null +++ b/Samplers/Tapey/main.pd @@ -0,0 +1,750 @@ +#N canvas 532 241 892 525 10; +#X declare -path cg-pdlib-local/externals; +#X declare -path cg-pdlib-local/metronome; +#X declare -path cg-pdlib-local/sequencer; +#X declare -path cg-pdlib-local/sampling; +#X obj 292 376 r seq3-1-led; +#N canvas 19 51 625 625 metro-here 0; +#X obj 369 147 r seq3-1-actions, f 19; +#X obj 312 345 f; +#X msg 407 250 0; +#X obj 439 250 t b b; +#X msg 445 280 1; +#X obj 312 292 del 1; +#X obj 54 303 s beat-clock; +#X obj 176 83 loadbang; +#X msg 53 121 1; +#X obj 203 353 list, f 7; +#X obj 203 375 route 69; +#X obj 203 281 t b a; +#X msg 203 323 69; +#X msg 176 105 120; +#X obj 177 221 pack, f 10; +#X obj 212 189 t b a; +#X obj 54 151 metronome360 0, f 18; +#X obj 319 117 s seq3-1-quan; +#X obj 400 338 f; +#X obj 203 397 spigot 1; +#X obj 312 367 spigot 1, f 14; +#X obj 296 472 r cgSc-1-slots; +#X obj 296 498 + 1; +#X obj 203 552 print-line5 1, f 16; +#X obj 319 88 r metro-state; +#X obj 486 346 loadbang; +#X obj 296 519 f; +#X obj 486 388 t b b; +#X obj 312 428 f; +#X obj 486 367 del 1; +#X obj 407 179 r cgSc-1-mute-print; +#X obj 407 202 sel 1; +#X connect 0 0 1 0; +#X connect 1 0 20 0; +#X connect 2 0 18 0; +#X connect 3 0 5 0; +#X connect 3 1 4 0; +#X connect 4 0 18 0; +#X connect 5 0 1 0; +#X connect 5 0 12 0; +#X connect 7 0 13 0; +#X connect 7 0 8 0; +#X connect 8 0 16 0; +#X connect 9 0 10 0; +#X connect 10 0 19 0; +#X connect 11 0 12 0; +#X connect 11 1 9 1; +#X connect 12 0 9 0; +#X connect 13 0 16 1; +#X connect 14 0 11 0; +#X connect 15 0 14 0; +#X connect 15 1 14 1; +#X connect 16 0 6 0; +#X connect 16 1 15 0; +#X connect 16 2 14 0; +#X connect 18 0 19 1; +#X connect 18 0 20 1; +#X connect 19 0 23 0; +#X connect 20 0 28 0; +#X connect 21 0 22 0; +#X connect 22 0 26 0; +#X connect 24 0 17 0; +#X connect 25 0 29 0; +#X connect 26 0 23 2; +#X connect 27 0 28 0; +#X connect 27 1 26 0; +#X connect 28 0 23 1; +#X connect 29 0 27 0; +#X connect 30 0 31 0; +#X connect 31 0 2 0; +#X connect 31 1 3 0; +#X restore 437 44 pd metro-here; +#X obj 23 46 r aux; +#X obj 89 123 r cgSc-1-slots; +#X obj 140 46 r \$0-reprint-port; +#X obj 122 144 r beat-clock; +#N canvas 787 330 860 595 slot-saver-1 0; +#X obj 167 38 r cgSc-1-slots; +#X obj 30 68 loadbang; +#X msg 30 140 0; +#X obj 30 161 tabread \$0-slot; +#X obj 199 225 array define \$0-slot; +#X obj 30 110 t b b; +#X msg 199 138 read slot.txt; +#X msg 243 186 write slot.txt; +#X obj 243 160 r saveState; +#X obj 167 58 t a b; +#X msg 220 84 0; +#X obj 167 107 tabwrite \$0-slot; +#X obj 30 185 s cgSc-1-slots; +#X connect 0 0 9 0; +#X connect 1 0 5 0; +#X connect 2 0 3 0; +#X connect 3 0 12 0; +#X connect 5 0 2 0; +#X connect 5 1 6 0; +#X connect 6 0 4 0; +#X connect 7 0 4 0; +#X connect 8 0 7 0; +#X connect 9 0 11 0; +#X connect 9 1 10 0; +#X connect 10 0 11 1; +#X restore 440 9 pd slot-saver-1; +#X obj 23 77 shortcut 1 1, f 20; +#N canvas 100 74 1124 789 seq3-5option-control 0; +#X obj 139 278 outlet; +#X obj 65 121 t b; +#X msg 65 143 2; +#X obj 298 126 t b; +#X msg 298 148 3; +#X text 437 5 when aux is pressed after recording starts immediatley +end the rec and play the loop; +#X obj 170 70 sel 0; +#X obj 202 94 t b; +#X msg 202 116 1; +#X obj 33 66 r cgSc-1-2; +#X obj 171 48 r cgSc-1-1; +#X obj 33 88 sel 0; +#X obj 266 99 sel 0; +#X obj 317 272 r seq3-1-actions; +#X obj 317 294 sel 1, f 12; +#X obj 398 327 t b, f 4; +#X obj 317 445 s cgSc-1-1label; +#X obj 507 308 r seq3-1-actions; +#X obj 588 353 t b, f 4; +#X obj 507 329 sel 2 3, f 12; +#X obj 978 320 t b, f 4; +#X msg 978 355 Latch:Off; +#X msg 896 355 Latch:On; +#X obj 507 441 s cgSc-1-2label; +#X text 521 279 print to the shortcut menu; +#X obj 378 141 f 0; +#X obj 130 0 r midi-start; +#X msg 130 22 4; +#X obj 373 105 r midi-stop; +#X obj 507 125 t b; +#X obj 475 98 sel 0; +#X msg 507 147 5; +#X obj 192 487 r seq3-1-actions; +#X obj 273 532 t b, f 4; +#X obj 192 508 sel 5, f 12; +#X obj 317 373 f; +#X msg 317 403 \$1Seq:Stop; +#X obj 398 372 f; +#X msg 398 402 \$1Seq:Play; +#X msg 507 399 \$1Rec:Armd; +#X msg 588 397 \$1Rec:On; +#X msg 659 398 \$1Rec:Off; +#X obj 507 374 f; +#X obj 582 373 f; +#X obj 649 370 f; +#X obj 273 554 f; +#X obj 192 560 f; +#X msg 192 607 \$1Dub:On; +#X obj 201 286 r cgSc-1-slots; +#X obj 201 329 t b f f; +#X obj 166 439 s seq3-1-actions; +#X obj 166 415 v seq3-1-state; +#X obj 201 309 + 1; +#X obj 668 299 + 1; +#X obj 668 251 r cgSc-1-slots; +#X obj 321 507 + 1; +#X obj 321 483 r cgSc-1-slots; +#X obj 559 76 sel 1; +#X obj 612 80 r seq3-1-actions; +#X obj 559 174 t b b; +#X msg 640 152 0; +#X obj 559 152 spigot 0; +#X msg 612 129 1; +#X msg 559 196 1; +#X obj 192 650 s cgSc-1-3label; +#X obj 475 71 r cgSc-1-3; +#X obj 559 52 r cgSc-1-aux; +#X obj 896 398 s cgSc-1-5label; +#X obj 267 72 r cgSc-1-5; +#X obj 358 53 t b; +#X obj 326 26 sel 0; +#X obj 326 2 r cgSc-1-4; +#X msg 358 75 6; +#X obj 465 480 r seq3-1-actions; +#X obj 507 558 f; +#X obj 584 501 + 1; +#X obj 584 477 r cgSc-1-slots; +#X obj 465 643 s cgSc-1-4label; +#X obj 612 104 sel 3, f 12; +#X msg 273 607 \$1Dub:Off; +#X obj 465 501 sel 6, f 10; +#X obj 532 526 t b; +#X obj 465 585 spigot 1; +#X obj 552 582 spigot 0; +#X obj 675 510 r seq3-1-actions; +#X obj 675 532 sel 3; +#X obj 591 537 ==; +#X obj 637 564 f; +#X msg 637 533 1; +#X msg 708 615 0; +#X msg 552 607 \$1:Undo; +#X msg 465 610 \$1:Undid; +#X obj 465 523 t b b; +#X obj 31 189 loadbang; +#X msg 70 229 0; +#X obj 23 341 r init-1-slot; +#X obj 23 363 s cgSc-1-slots; +#X obj 896 255 r seq3-1-togLatch; +#X obj 896 296 sel 1, f 12; +#X obj 104 167 r kill-seq; +#X obj 211 138 r kill-latch; +#X msg 211 159 7; +#X connect 1 0 2 0; +#X connect 2 0 0 0; +#X connect 3 0 4 0; +#X connect 4 0 0 0; +#X connect 6 1 7 0; +#X connect 7 0 8 0; +#X connect 8 0 0 0; +#X connect 9 0 11 0; +#X connect 10 0 6 0; +#X connect 11 1 1 0; +#X connect 12 1 3 0; +#X connect 13 0 14 0; +#X connect 14 0 35 0; +#X connect 14 1 15 0; +#X connect 15 0 37 0; +#X connect 17 0 19 0; +#X connect 18 0 44 0; +#X connect 19 0 42 0; +#X connect 19 1 43 0; +#X connect 19 2 18 0; +#X connect 20 0 21 0; +#X connect 21 0 67 0; +#X connect 22 0 67 0; +#X connect 25 0 0 0; +#X connect 26 0 27 0; +#X connect 27 0 0 0; +#X connect 28 0 25 0; +#X connect 29 0 31 0; +#X connect 30 1 29 0; +#X connect 31 0 0 0; +#X connect 32 0 34 0; +#X connect 33 0 45 0; +#X connect 34 0 46 0; +#X connect 34 1 33 0; +#X connect 35 0 36 0; +#X connect 36 0 16 0; +#X connect 37 0 38 0; +#X connect 38 0 16 0; +#X connect 39 0 23 0; +#X connect 40 0 23 0; +#X connect 41 0 23 0; +#X connect 42 0 39 0; +#X connect 43 0 40 0; +#X connect 44 0 41 0; +#X connect 45 0 79 0; +#X connect 46 0 47 0; +#X connect 47 0 64 0; +#X connect 48 0 52 0; +#X connect 49 0 51 0; +#X connect 49 1 35 1; +#X connect 49 2 37 1; +#X connect 51 0 50 0; +#X connect 52 0 49 0; +#X connect 53 0 44 1; +#X connect 53 0 43 1; +#X connect 53 0 42 1; +#X connect 54 0 53 0; +#X connect 55 0 45 1; +#X connect 55 0 46 1; +#X connect 56 0 55 0; +#X connect 57 0 61 0; +#X connect 58 0 78 0; +#X connect 59 0 63 0; +#X connect 59 1 60 0; +#X connect 60 0 61 1; +#X connect 61 0 59 0; +#X connect 62 0 61 1; +#X connect 63 0 0 0; +#X connect 65 0 30 0; +#X connect 66 0 57 0; +#X connect 68 0 12 0; +#X connect 69 0 72 0; +#X connect 70 1 69 0; +#X connect 71 0 70 0; +#X connect 72 0 0 0; +#X connect 73 0 80 0; +#X connect 74 0 82 0; +#X connect 74 0 83 0; +#X connect 75 0 74 1; +#X connect 76 0 75 0; +#X connect 78 0 62 0; +#X connect 79 0 64 0; +#X connect 80 0 92 0; +#X connect 80 1 81 0; +#X connect 81 0 74 0; +#X connect 82 0 91 0; +#X connect 83 0 90 0; +#X connect 84 0 85 0; +#X connect 85 0 88 0; +#X connect 86 0 82 1; +#X connect 87 0 86 0; +#X connect 87 0 83 1; +#X connect 88 0 87 0; +#X connect 89 0 87 0; +#X connect 90 0 77 0; +#X connect 91 0 77 0; +#X connect 92 0 74 0; +#X connect 92 1 89 0; +#X connect 93 0 94 0; +#X connect 94 0 0 0; +#X connect 95 0 96 0; +#X connect 97 0 98 0; +#X connect 98 0 22 0; +#X connect 98 1 20 0; +#X connect 99 0 94 0; +#X connect 100 0 101 0; +#X connect 101 0 0 0; +#X restore 56 102 pd seq3-5option-control; +#X obj 23 165 seq3 1 0 ../../sequences 1 0 1, f 17; +#X obj 719 190 catch~ samp_voice_out; +#X obj 719 292 throw~ outL; +#X obj 735 270 throw~ outR; +#X obj 718 242 *~ 0.9; +#N canvas 4 50 958 670 sound-in 0; +#X obj 225 87 r~ inL; +#X obj 296 87 r~ inR; +#X obj 296 108 *~ 0.707; +#X obj 225 109 *~ 0.707; +#X obj 357 378 lop~ 5; +#X obj 226 428 *~; +#X obj 492 291 * 100; +#X obj 492 333 i; +#X obj 225 220 hip~ 5; +#X obj 225 464 s~ samp-sound-in; +#X obj 140 298 s~ samp-sound-in-control; +#X obj 383 540 s samp-trig-percent; +#X obj 383 490 loadbang; +#X obj 357 311 pow 2; +#X obj 357 231 r knob1; +#X obj 492 407 s screenLine1; +#X obj 492 379 shortcut-mute-list 1; +#X msg 492 355 1: Input Vol: \$1%; +#X msg 383 511 0.1; +#X obj 357 252 t a a; +#X obj 225 241 lop~ 15000; +#X obj 225 262 lop~ 15000; +#X connect 0 0 3 0; +#X connect 1 0 2 0; +#X connect 2 0 8 0; +#X connect 3 0 8 0; +#X connect 4 0 5 1; +#X connect 5 0 9 0; +#X connect 6 0 7 0; +#X connect 7 0 17 0; +#X connect 8 0 20 0; +#X connect 8 0 10 0; +#X connect 12 0 18 0; +#X connect 13 0 4 0; +#X connect 14 0 19 0; +#X connect 16 0 15 0; +#X connect 17 0 16 0; +#X connect 18 0 11 0; +#X connect 19 0 13 0; +#X connect 19 1 6 0; +#X connect 20 0 21 0; +#X connect 21 0 5 0; +#X restore 308 43 pd sound-in; +#N canvas 4 50 1145 618 knobs 0; +#X obj 100 42 r knob2; +#X obj 126 132 s global-pitch; +#X obj 100 63 * 48; +#X obj 100 84 - 24; +#X obj 100 105 i; +#X obj 72 311 s screenLine2; +#X obj 79 141 moses 0; +#X msg 124 213 2: Tune: +\$1; +#X obj 40 163 moses 0; +#X msg 127 170 2: Tune: \$1; +#X msg 40 190 2: Tune: \$1; +#X obj 72 267 shortcut-mute-list 1; +#X obj 292 49 r knob3; +#X obj 320 216 s ramp-time; +#X obj 292 110 pow 2; +#X obj 292 152 i; +#X obj 292 325 shortcut-mute-list 1; +#X obj 292 369 s screenLine3; +#X msg 292 290 3: Ramp Time: \$1ms; +#X obj 166 34 r seq3-1-k2; +#X obj 298 82 r seq3-1-k3; +#X obj 559 45 r knob4; +#X obj 291 174 + 5; +#X obj 292 132 * 995; +#X obj 559 294 s wob-rate; +#X obj 693 196 shortcut-mute-list 1; +#X obj 693 219 s screenLine4; +#X obj 559 148 t a a; +#X obj 559 169 *; +#X obj 637 128 i; +#X obj 637 107 * 100; +#X obj 559 66 t a a; +#X obj 613 39 r seq3-1-k4; +#X obj 559 190 * 10; +#X msg 693 170 4: Warble: \$1%; +#X connect 0 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 0 6 0; +#X connect 6 0 8 0; +#X connect 6 1 7 0; +#X connect 7 0 11 0; +#X connect 8 0 10 0; +#X connect 8 1 9 0; +#X connect 9 0 11 0; +#X connect 10 0 11 0; +#X connect 11 0 5 0; +#X connect 12 0 14 0; +#X connect 14 0 23 0; +#X connect 15 0 22 0; +#X connect 16 0 17 0; +#X connect 18 0 16 0; +#X connect 19 0 2 0; +#X connect 20 0 14 0; +#X connect 21 0 31 0; +#X connect 22 0 18 0; +#X connect 22 0 13 0; +#X connect 23 0 15 0; +#X connect 25 0 26 0; +#X connect 27 0 28 0; +#X connect 27 1 28 1; +#X connect 28 0 33 0; +#X connect 29 0 34 0; +#X connect 30 0 29 0; +#X connect 31 0 27 0; +#X connect 31 1 30 0; +#X connect 32 0 31 0; +#X connect 33 0 24 0; +#X connect 34 0 25 0; +#X restore 309 16 pd knobs; +#X obj 399 221 r samp-states; +#X obj 399 242 route 1; +#X obj 399 263 sel 0 1 2, f 15; +#X msg 428 352 6; +#X obj 428 411 s led; +#X msg 457 352 1; +#X obj 314 224 r seq3-1-led; +#X obj 319 317 f, f 7; +#X obj 23 253 t a a, f 20; +#X obj 140 296 spigot; +#X obj 23 294 spigot; +#N canvas 603 382 758 398 poly-mode 0; +#X obj 39 9 inlet; +#X obj 35 176 pack 0 0 0; +#X obj 35 197 route 1 2 3 4 5 6 7 8, f 82; +#X obj 39 60 t a a; +#X obj 66 90 bag; +#X obj 110 4 inlet; +#X obj 66 111 pack 0 0; +#X msg 110 57 flush; +#X obj 110 25 t b; +#X obj 35 239 new-mello-voice 1; +#X obj 76 220 new-mello-voice 2; +#X obj 166 246 new-mello-voice 3; +#X obj 206 226 new-mello-voice 4; +#X obj 304 247 new-mello-voice 5; +#X obj 447 247 new-mello-voice 7; +#X obj 347 226 new-mello-voice 6; +#X obj 472 226 new-mello-voice 8; +#X obj 35 155 poly 8 1, f 10; +#X connect 0 0 3 0; +#X connect 1 0 2 0; +#X connect 2 0 9 0; +#X connect 2 1 10 0; +#X connect 2 2 11 0; +#X connect 2 3 12 0; +#X connect 2 4 13 0; +#X connect 2 5 15 0; +#X connect 2 6 14 0; +#X connect 2 7 16 0; +#X connect 3 0 17 0; +#X connect 3 1 4 0; +#X connect 4 0 6 0; +#X connect 5 0 8 0; +#X connect 6 0 17 0; +#X connect 7 0 4 0; +#X connect 8 0 7 0; +#X connect 17 0 1 0; +#X connect 17 1 1 1; +#X connect 17 2 1 2; +#X restore 23 334 pd poly-mode; +#X obj 173 255 ==; +#N canvas 683 340 452 289 switch 0; +#X obj 108 60 r cgSc-1-7; +#X obj 170 141 + 1; +#X obj 135 163 % 2; +#X obj 108 83 sel 0; +#X obj 135 112 t b; +#X obj 135 244 outlet; +#X obj 225 248 s cgSc-1-7label; +#X msg 145 225 Mode:Mono; +#X msg 279 198 Mode:Poly; +#X obj 146 194 sel 0 1; +#X obj 43 46 loadbang; +#X obj 135 142 f 1; +#X connect 0 0 3 0; +#X connect 1 0 11 1; +#X connect 2 0 5 0; +#X connect 2 0 9 0; +#X connect 3 1 4 0; +#X connect 4 0 11 0; +#X connect 7 0 6 0; +#X connect 8 0 6 0; +#X connect 9 0 7 0; +#X connect 9 1 8 0; +#X connect 10 0 11 0; +#X connect 11 0 1 0; +#X connect 11 0 2 0; +#X restore 134 191 pd switch; +#X obj 134 218 t b f f; +#X obj 92 286 t b b; +#N canvas 846 148 792 873 aux-footswitch 0; +#X msg 191 515 \; samp-1-arm bang; +#X obj 116 33 r cgSc-1-6; +#X obj 103 57 sel 0; +#X obj 308 391 r aux; +#X obj 321 419 r fs; +#X obj 103 8 r fs; +#X obj 40 515 s cgSc-1-6label; +#X obj 52 357 loadbang; +#X msg 40 458 SampRec:_; +#X msg 112 487 SampRec:X; +#X obj 308 462 sel 0; +#X obj 191 459 t b b; +#X obj 218 489 s kill-seq; +#X obj 17 274 r samp-states; +#X obj 17 295 route 1; +#X obj 17 316 sel 0 1 2; +#X obj 561 311 s glob-sync-lock; +#X obj 561 166 change -1; +#X obj 582 200 sel 0 1, f 30; +#X msg 582 221 Sync:Off; +#X msg 669 225 Sync:On; +#X obj 535 63 sel 0; +#X obj 562 89 t b; +#X obj 595 111 + 1; +#X obj 562 131 % 2; +#X obj 611 272 s cgSc-1-8label; +#X obj 535 42 r cgSc-1-8; +#X obj 481 157 loadbang; +#X msg 481 178 1; +#X obj 67 435 v \$0-rec; +#X obj 40 388 t b b; +#X msg 67 411 0; +#X obj 130 98 v \$0-rec; +#X obj 130 77 t b; +#X obj 130 119 sel 0 1, f 44; +#X obj 211 350 v \$0-rec; +#X msg 211 326 1; +#X obj 335 691 v \$0-rec; +#X msg 335 667 0; +#X obj 335 586 v \$0-rec; +#X obj 335 562 t b, f 12; +#X obj 335 607 sel 1; +#X obj 335 634 t b b; +#X obj 523 525 change -1; +#X obj 509 554 sel 0 1, f 30; +#X obj 497 422 sel 0; +#X obj 524 448 t b; +#X obj 557 470 + 1; +#X obj 524 490 % 2; +#X obj 524 469 f 1; +#X obj 498 401 r cgSc-1-9; +#X obj 538 626 s cgSc-1-9label; +#X obj 523 671 s backwards; +#X msg 507 575 Rvrse:Off; +#X msg 596 579 Rvrse:On; +#X msg 675 616 -1; +#X msg 488 619 1; +#X obj 615 486 loadbang; +#X msg 615 507 0; +#X obj 562 110 f 0; +#X obj 398 247 s kill-latch; +#X msg 260 305 \; samp-1-arm bang; +#X obj 303 277 v \$0-rec; +#X msg 303 253 0; +#X msg 287 178 stop; +#X obj 260 199 del 1000; +#X msg 166 179 stop; +#X obj 139 200 del 1000; +#X obj 260 157 t b b b; +#X obj 249 217 t b b, f 15; +#X obj 130 298 t b b b b, f 14; +#X obj 139 158 t b b b; +#X obj 328 165 r ramp-time; +#X connect 1 0 2 0; +#X connect 2 1 33 0; +#X connect 3 0 10 0; +#X connect 4 0 10 0; +#X connect 5 0 2 0; +#X connect 7 0 30 0; +#X connect 8 0 6 0; +#X connect 9 0 6 0; +#X connect 10 1 40 0; +#X connect 11 0 0 0; +#X connect 11 1 12 0; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 15 0 30 0; +#X connect 17 0 16 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 18 1 20 0; +#X connect 19 0 25 0; +#X connect 20 0 25 0; +#X connect 21 1 22 0; +#X connect 22 0 59 0; +#X connect 23 0 59 1; +#X connect 24 0 17 0; +#X connect 26 0 21 0; +#X connect 27 0 28 0; +#X connect 28 0 18 0; +#X connect 28 0 16 0; +#X connect 30 0 8 0; +#X connect 30 1 31 0; +#X connect 31 0 29 0; +#X connect 32 0 34 0; +#X connect 33 0 32 0; +#X connect 34 0 71 0; +#X connect 34 1 68 0; +#X connect 36 0 35 0; +#X connect 38 0 37 0; +#X connect 39 0 41 0; +#X connect 40 0 39 0; +#X connect 41 0 42 0; +#X connect 42 0 38 0; +#X connect 42 1 11 0; +#X connect 43 0 44 0; +#X connect 44 0 53 0; +#X connect 44 0 56 0; +#X connect 44 1 54 0; +#X connect 44 1 55 0; +#X connect 45 1 46 0; +#X connect 46 0 49 0; +#X connect 47 0 49 1; +#X connect 48 0 43 0; +#X connect 49 0 47 0; +#X connect 49 0 48 0; +#X connect 50 0 45 0; +#X connect 53 0 51 0; +#X connect 54 0 51 0; +#X connect 55 0 52 0; +#X connect 56 0 52 0; +#X connect 57 0 58 0; +#X connect 58 0 44 0; +#X connect 59 0 23 0; +#X connect 59 0 24 0; +#X connect 63 0 62 0; +#X connect 64 0 65 0; +#X connect 65 0 69 0; +#X connect 66 0 67 0; +#X connect 67 0 70 0; +#X connect 68 0 65 0; +#X connect 68 1 64 0; +#X connect 68 2 60 0; +#X connect 69 0 61 0; +#X connect 69 1 63 0; +#X connect 70 0 11 0; +#X connect 70 2 9 0; +#X connect 70 3 36 0; +#X connect 71 0 67 0; +#X connect 71 1 66 0; +#X connect 71 2 60 0; +#X connect 72 0 65 1; +#X connect 72 0 67 1; +#X restore 307 71 pd aux-footswitch; +#N canvas 4 50 934 487 emulate 0; +#X msg 205 243 const 0; +#X text 408 133 this keeps track of the progress playback mode; +#X obj 198 162 r new-recording!; +#X obj 206 270 array define -k tape-lOOps 128; +#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.10822 0 +0 0 0 0 0 0 0 0.00157519 0.999906 0.708864 0 0 0.180809 0 0 0.908152 +0 0 0 0.00845761 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; +#X connect 0 0 3 0; +#X connect 2 0 0 0; +#X restore 305 94 pd emulate 127 tape loops; +#X obj 612 60 r~ samp-sound-in; +#N canvas 486 174 450 300 cg-pdlib-local 0; +#X obj 502 35 r cgSc-1-slots; +#X obj 60 98 declare -path cg-pdlib-local/externals; +#X obj 60 128 declare -path cg-pdlib-local/metronome; +#X obj 56 186 declare -path cg-pdlib-local/sequencer; +#X obj 60 160 declare -path cg-pdlib-local/sampling; +#X restore 9 14 pd cg-pdlib-local; +#X obj 655 101 r~ samp-sound-in-control; +#N canvas 554 70 450 300 mono-mode 0; +#X obj 34 15 inlet note; +#X obj 330 12 inlet stop; +#X obj 34 57 order-notes; +#X obj 330 33 t b; +#X obj 34 118 new-mono-voice 9; +#X connect 0 0 2 0; +#X connect 1 0 3 0; +#X connect 2 0 4 0; +#X connect 2 1 4 1; +#X connect 3 0 4 1; +#X restore 140 333 pd mono-mode; +#X obj 483 309 s new-recording!; +#X obj 611 148 load-rec-sample samp 1 20000 sounds 0; +#X connect 0 0 20 0; +#X connect 2 0 7 0; +#X connect 3 0 9 2; +#X connect 4 0 7 1; +#X connect 5 0 9 3; +#X connect 7 0 9 0; +#X connect 8 0 9 1; +#X connect 9 0 24 0; +#X connect 10 0 13 0; +#X connect 13 0 11 0; +#X connect 13 0 12 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 18 0 23 0; +#X connect 18 1 19 0; +#X connect 18 2 21 0; +#X connect 18 2 38 0; +#X connect 19 0 20 0; +#X connect 21 0 20 0; +#X connect 22 0 23 1; +#X connect 23 0 20 0; +#X connect 24 0 26 0; +#X connect 24 1 25 0; +#X connect 25 0 37 0; +#X connect 26 0 27 0; +#X connect 28 0 25 1; +#X connect 29 0 30 0; +#X connect 30 0 31 0; +#X connect 30 1 26 1; +#X connect 30 2 28 0; +#X connect 31 0 27 1; +#X connect 31 1 37 1; +#X connect 34 0 39 0; +#X connect 36 0 39 1; diff --git a/Samplers/Tapey/mono-voice.pd b/Samplers/Tapey/mono-voice.pd new file mode 100644 index 0000000..2d39652 --- /dev/null +++ b/Samplers/Tapey/mono-voice.pd @@ -0,0 +1,243 @@ +#N canvas 869 74 639 848 10; +#X obj 13 11 inlet; +#X obj 46 154 sel 0, f 67; +#X obj 155 816 throw~ samp_voice_out; +#X obj 156 673 *~, f 60; +#X obj 512 619 vline~; +#X obj 210 484 r \$0-duration-s; +#X obj 154 524 *~, f 10; +#X obj 156 747 hip~ 5; +#X obj 154 599 tabread4~; +#X obj 201 561 r \$0-2-tabread; +#X obj 176 455 s~ \$0-phazzee; +#X obj 352 496 r~ \$0-phazzee; +#X obj 351 521 -~ 0.5; +#X obj 351 542 *~ 0.5; +#X obj 351 614 clip~ 0 1; +#X obj 351 564 cos~; +#X obj 156 725 *~ 0.7; +#X obj 512 640 pow~ 2; +#X obj 155 642 *~, f 33; +#N canvas 757 138 944 678 load-n-stuff 0; +#X obj 331 251 t b a, f 15; +#X msg 331 273 0; +#X obj 76 235 / 261.626; +#X obj 76 257 / 2; +#X obj 38 363 /, f 9; +#X obj 76 212 mtof; +#X obj 38 341 f; +#X obj 76 276 t b a; +#X obj 38 299 r \$0-duration; +#X obj 38 416 /; +#X msg 38 394 1000 \$1; +#X obj 94 130 r global-pitch; +#X obj 76 186 +, f 8; +#X obj 94 152 t b a; +#X obj 331 422 s \$0-duration; +#X obj 360 372 s \$0-duration-s; +#X obj 571 301 snapshot~; +#X obj 468 399 s \$0-2-tabread; +#X obj 571 278 r~ \$0-phazzee; +#X obj 278 13 inlet; +#X obj 88 23 inlet; +#X obj 38 497 outlet; +#X msg 468 369 set samp-\$1; +#X msg 418 274 symbol samp-\$1-length; +#X obj 331 297 text get, f 15; +#X obj 76 100 t f f, f 43; +#X obj 631 403 tabwrite tape-lOOps; +#X msg 331 187 1; +#X msg 468 196 1; +#X obj 742 214 tabread tape-lOOps; +#X obj 742 275 outlet; +#X obj 331 134 t b b f f f b, f 81; +#X msg 814 173 0; +#X obj 742 241 spigot 0; +#X obj 814 194 spigot 1; +#X obj 786 64 r glob-sync-lock; +#X obj 774 180 ==; +#X obj 331 397 /; +#X obj 430 488 samplerate~; +#X obj 430 448 loadbang; +#X obj 430 509 * 0.001; +#X obj 140 386 r backwards; +#X obj 140 407 t b a; +#X obj 38 457 * 1, f 10; +#X connect 0 0 1 0; +#X connect 0 1 23 0; +#X connect 1 0 24 0; +#X connect 2 0 3 0; +#X connect 3 0 7 0; +#X connect 4 0 10 0; +#X connect 5 0 2 0; +#X connect 6 0 4 0; +#X connect 7 0 6 0; +#X connect 7 1 4 1; +#X connect 8 0 6 0; +#X connect 9 0 43 0; +#X connect 10 0 9 0; +#X connect 11 0 13 0; +#X connect 12 0 5 0; +#X connect 13 0 12 0; +#X connect 13 1 12 1; +#X connect 16 0 26 0; +#X connect 18 0 16 0; +#X connect 19 0 25 0; +#X connect 20 0 16 0; +#X connect 22 0 17 0; +#X connect 23 0 24 3; +#X connect 24 0 15 0; +#X connect 24 0 37 0; +#X connect 25 0 12 0; +#X connect 25 1 31 0; +#X connect 27 0 0 0; +#X connect 28 0 22 0; +#X connect 29 0 33 0; +#X connect 31 0 27 0; +#X connect 31 1 28 0; +#X connect 31 3 26 1; +#X connect 31 4 29 0; +#X connect 31 5 32 0; +#X connect 32 0 34 0; +#X connect 33 0 30 0; +#X connect 34 0 30 0; +#X connect 35 0 34 1; +#X connect 35 0 36 0; +#X connect 36 0 33 1; +#X connect 37 0 14 0; +#X connect 38 0 40 0; +#X connect 39 0 38 0; +#X connect 40 0 37 1; +#X connect 41 0 42 0; +#X connect 42 0 43 0; +#X connect 42 1 43 1; +#X connect 43 0 21 0; +#X restore 153 240 pd load-n-stuff; +#X obj 153 434 phasor~, f 13; +#X obj 46 175 t b b b; +#X obj 505 269 / 127; +#X obj 505 290 sqrt; +#X obj 65 225 del, f 11; +#X msg 85 200 stop; +#X msg 46 268 0; +#X obj 153 332 vline~; +#X obj 153 353 pow~ 2; +#X obj 153 292 pack 0 0; +#X obj 198 265 r ramp-time; +#X obj 65 246 t b b; +#X obj 129 182 r ramp-time; +#X obj 13 53 unpack; +#X obj 351 593 *~ 50; +#X obj 153 273 sqrt; +#X obj 42 326 pack 0 0; +#X obj 72 285 r ramp-time; +#X obj 153 374 +~, f 12; +#X obj 72 306 + 20; +#X obj 155 770 lop~ 16000; +#X obj 155 794 lop~ 16000; +#X obj 238 65 lfo; +#X obj 210 504 - 2; +#X obj 155 555 +~ 1; +#X msg 512 554 \$1 10; +#X msg 574 546 0 10; +#X obj 129 203 - 10; +#X obj 520 22 inlet kill; +#X obj 520 43 t b; +#X msg 520 64 0; +#X obj 319 279 r backwards; +#X obj 319 300 lop~ 10; +#X obj 154 404 *~, f 24; +#X obj 13 32 t a a, f 38; +#X obj 408 229 f; +#X obj 13 74 swap, f 6; +#X obj 462 195 t a b b; +#X msg 262 319 stop; +#X obj 243 348 del 8; +#X obj 156 694 *~, f 39; +#X obj 457 622 vline~; +#X obj 457 643 pow~ 2; +#X msg 444 585 0 8 \, 1 8 8; +#X obj 242 296 t b b b a; +#X obj 243 376 f; +#X obj 272 250 sel 0; +#X msg 272 271 0; +#X connect 0 0 54 0; +#X connect 1 0 21 0; +#X connect 1 1 57 0; +#X connect 3 0 60 0; +#X connect 4 0 17 0; +#X connect 5 0 43 0; +#X connect 6 0 44 0; +#X connect 7 0 40 0; +#X connect 8 0 18 0; +#X connect 9 0 8 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 15 0; +#X connect 14 0 18 1; +#X connect 15 0 34 0; +#X connect 16 0 7 0; +#X connect 17 0 3 1; +#X connect 18 0 3 0; +#X connect 19 0 35 0; +#X connect 19 1 66 0; +#X connect 20 0 6 0; +#X connect 20 0 10 0; +#X connect 21 0 26 0; +#X connect 21 1 24 0; +#X connect 21 2 25 0; +#X connect 22 0 23 0; +#X connect 23 0 45 0; +#X connect 24 0 31 0; +#X connect 25 0 24 0; +#X connect 26 0 36 0; +#X connect 27 0 28 0; +#X connect 28 0 38 0; +#X connect 29 0 27 0; +#X connect 30 0 29 1; +#X connect 31 0 19 0; +#X connect 31 1 46 0; +#X connect 32 0 47 0; +#X connect 33 0 56 0; +#X connect 33 1 56 1; +#X connect 34 0 14 0; +#X connect 35 0 29 0; +#X connect 36 0 27 0; +#X connect 37 0 39 0; +#X connect 38 0 53 0; +#X connect 39 0 36 1; +#X connect 40 0 41 0; +#X connect 41 0 2 0; +#X connect 42 0 38 1; +#X connect 43 0 6 1; +#X connect 44 0 8 0; +#X connect 45 0 4 0; +#X connect 46 0 4 0; +#X connect 47 0 24 1; +#X connect 48 0 49 0; +#X connect 49 0 50 0; +#X connect 50 0 1 0; +#X connect 51 0 52 0; +#X connect 52 0 53 1; +#X connect 53 0 20 0; +#X connect 54 0 33 0; +#X connect 54 1 42 0; +#X connect 55 0 19 1; +#X connect 56 0 1 0; +#X connect 56 1 55 1; +#X connect 57 0 22 0; +#X connect 57 1 55 0; +#X connect 57 2 25 0; +#X connect 58 0 59 0; +#X connect 59 0 65 0; +#X connect 60 0 16 0; +#X connect 61 0 62 0; +#X connect 62 0 60 1; +#X connect 63 0 61 0; +#X connect 64 0 59 0; +#X connect 64 1 58 0; +#X connect 64 2 63 0; +#X connect 64 3 65 1; +#X connect 65 0 20 1; +#X connect 66 0 67 0; +#X connect 67 0 64 0; diff --git a/Samplers/Tapey/new-mello-voice.pd b/Samplers/Tapey/new-mello-voice.pd new file mode 100644 index 0000000..9fa8a0a --- /dev/null +++ b/Samplers/Tapey/new-mello-voice.pd @@ -0,0 +1,282 @@ +#N canvas 208 71 653 892 10; +#X obj 13 11 inlet; +#X obj 13 154 sel 0, f 77; +#X obj 122 836 throw~ samp_voice_out; +#X obj 123 693 *~, f 60; +#X obj 479 639 vline~; +#X obj 177 504 r \$0-duration-s; +#X obj 121 544 *~, f 10; +#X obj 123 767 hip~ 5; +#X obj 121 619 tabread4~; +#X obj 168 581 r \$0-2-tabread; +#X obj 142 474 s~ \$0-phazzee; +#X obj 319 516 r~ \$0-phazzee; +#X obj 318 541 -~ 0.5; +#X obj 318 562 *~ 0.5; +#X obj 318 634 clip~ 0 1; +#X obj 318 584 cos~; +#X obj 123 745 *~ 0.7; +#X obj 479 660 pow~ 2; +#X obj 122 662 *~, f 33; +#N canvas 757 138 944 678 load-n-stuff 0; +#X obj 331 251 t b a, f 15; +#X msg 331 273 0; +#X obj 76 235 / 261.626; +#X obj 76 257 / 2; +#X obj 38 363 /, f 9; +#X obj 76 212 mtof; +#X obj 38 341 f; +#X obj 76 276 t b a; +#X obj 38 299 r \$0-duration; +#X obj 38 416 /; +#X msg 38 394 1000 \$1; +#X obj 94 130 r global-pitch; +#X obj 76 186 +, f 8; +#X obj 94 152 t b a; +#X obj 331 422 s \$0-duration; +#X obj 360 372 s \$0-duration-s; +#X obj 571 301 snapshot~; +#X obj 468 399 s \$0-2-tabread; +#X obj 571 278 r~ \$0-phazzee; +#X obj 278 13 inlet; +#X obj 88 23 inlet; +#X obj 38 477 outlet; +#X msg 468 369 set samp-\$1; +#X msg 418 274 symbol samp-\$1-length; +#X obj 331 297 text get, f 15; +#X obj 76 100 t f f, f 43; +#X obj 631 403 tabwrite tape-lOOps; +#X msg 331 187 1; +#X msg 468 196 1; +#X obj 742 214 tabread tape-lOOps; +#X obj 742 275 outlet; +#X obj 331 134 t b b f f f b, f 81; +#X msg 814 173 0; +#X obj 742 241 spigot 0; +#X obj 814 194 spigot 1; +#X obj 786 64 r glob-sync-lock; +#X obj 774 180 ==; +#X obj 331 397 /; +#X obj 430 488 samplerate~; +#X obj 430 448 loadbang; +#X obj 430 509 * 0.001; +#X connect 0 0 1 0; +#X connect 0 1 23 0; +#X connect 1 0 24 0; +#X connect 2 0 3 0; +#X connect 3 0 7 0; +#X connect 4 0 10 0; +#X connect 5 0 2 0; +#X connect 6 0 4 0; +#X connect 7 0 6 0; +#X connect 7 1 4 1; +#X connect 8 0 6 0; +#X connect 9 0 21 0; +#X connect 10 0 9 0; +#X connect 11 0 13 0; +#X connect 12 0 5 0; +#X connect 13 0 12 0; +#X connect 13 1 12 1; +#X connect 16 0 26 0; +#X connect 18 0 16 0; +#X connect 19 0 25 0; +#X connect 20 0 16 0; +#X connect 22 0 17 0; +#X connect 23 0 24 3; +#X connect 24 0 15 0; +#X connect 24 0 37 0; +#X connect 25 0 12 0; +#X connect 25 1 31 0; +#X connect 27 0 0 0; +#X connect 28 0 22 0; +#X connect 29 0 33 0; +#X connect 31 0 27 0; +#X connect 31 1 28 0; +#X connect 31 3 26 1; +#X connect 31 4 29 0; +#X connect 31 5 32 0; +#X connect 32 0 34 0; +#X connect 33 0 30 0; +#X connect 34 0 30 0; +#X connect 35 0 34 1; +#X connect 35 0 36 0; +#X connect 36 0 33 1; +#X connect 37 0 14 0; +#X connect 38 0 40 0; +#X connect 39 0 38 0; +#X connect 40 0 37 1; +#X restore 160 228 pd load-n-stuff; +#X obj 120 442 phasor~, f 26; +#X obj 13 175 t b b b; +#X obj 472 269 / 127; +#X obj 472 290 sqrt; +#X obj 32 225 del, f 11; +#X msg 52 200 stop; +#X msg 13 268 0; +#X obj 120 352 vline~; +#X obj 120 373 pow~ 2; +#X obj 120 312 pack 0 0; +#X obj 165 285 r ramp-time; +#X obj 32 246 t b b; +#X obj 96 182 r ramp-time; +#X obj 13 53 unpack; +#X obj 318 613 *~ 50; +#X obj 120 273 sqrt; +#X obj 9 326 pack 0 0; +#X obj 39 285 r ramp-time; +#X obj 120 394 +~, f 12; +#X obj 39 306 + 20; +#X obj 122 790 lop~ 16000; +#X obj 122 811 lop~ 16000; +#X obj 124 57 lfo; +#X obj 177 524 - 2; +#X obj 122 575 +~ 1; +#X msg 479 574 \$1 10; +#X msg 541 566 0 10; +#X obj 96 203 - 10; +#X obj 520 22 inlet kill; +#X obj 520 43 t b; +#X msg 520 64 0; +#X obj 231 362 r backwards; +#X obj 231 383 lop~ 10; +#X obj 120 415 *~, f 19; +#X obj 13 79 swap, f 6; +#X obj 415 242 f; +#X obj 13 31 t a a, f 19; +#X obj 472 192 t a b b; +#X msg 342 309 stop; +#X obj 323 338 del 8; +#X obj 322 286 t b b b a; +#X obj 323 366 f; +#X obj 479 595 t a b; +#X obj 540 594 t a b; +#N canvas 467 107 450 300 are-you-on? 0; +#X obj 72 21 inlet; +#X msg 172 159 stop; +#X obj 151 190 del 10; +#X obj 151 128 t b b a; +#X obj 164 220 f; +#X obj 164 241 v \$0-on?; +#X connect 0 0 3 0; +#X connect 1 0 2 0; +#X connect 2 0 4 0; +#X connect 3 0 2 0; +#X connect 3 1 1 0; +#X connect 3 2 4 1; +#X connect 4 0 5 0; +#X restore 541 664 pd are-you-on?; +#X msg 586 634 0; +#X msg 540 635 1, f 5; +#N canvas 4 50 450 300 if-on-duck 0; +#X obj 65 64 v \$0-on?; +#X obj 65 21 inlet; +#X obj 103 129 f; +#X obj 65 42 t b a a, f 16; +#X obj 211 133 f; +#X obj 65 85 sel 0 1, f 21; +#X obj 103 150 outlet no-duck; +#X obj 211 154 outlet duck; +#X connect 0 0 5 0; +#X connect 1 0 3 0; +#X connect 2 0 6 0; +#X connect 3 0 0 0; +#X connect 3 1 2 1; +#X connect 3 2 4 1; +#X connect 4 0 7 0; +#X connect 5 0 2 0; +#X connect 5 1 4 0; +#X restore 247 254 pd if-on-duck; +#X obj 123 714 *~, f 42; +#X obj 402 641 vline~; +#X obj 402 662 pow~ 2; +#X msg 402 613 0 8 \, 1 8 8; +#X obj 416 540 loadbang; +#X msg 416 561 1 0; +#X connect 0 0 56 0; +#X connect 1 0 21 0; +#X connect 1 1 57 0; +#X connect 3 0 68 0; +#X connect 4 0 17 0; +#X connect 5 0 43 0; +#X connect 6 0 44 0; +#X connect 7 0 40 0; +#X connect 8 0 18 0; +#X connect 9 0 8 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 15 0; +#X connect 14 0 18 1; +#X connect 15 0 34 0; +#X connect 16 0 7 0; +#X connect 17 0 3 1; +#X connect 18 0 3 0; +#X connect 19 0 35 0; +#X connect 19 1 67 0; +#X connect 20 0 6 0; +#X connect 20 0 10 0; +#X connect 21 0 26 0; +#X connect 21 1 24 0; +#X connect 21 2 25 0; +#X connect 22 0 23 0; +#X connect 23 0 45 0; +#X connect 24 0 31 0; +#X connect 25 0 24 0; +#X connect 26 0 36 0; +#X connect 27 0 28 0; +#X connect 28 0 38 0; +#X connect 29 0 27 0; +#X connect 30 0 29 1; +#X connect 31 0 19 0; +#X connect 31 1 46 0; +#X connect 32 0 47 0; +#X connect 33 0 54 0; +#X connect 33 1 54 1; +#X connect 34 0 14 0; +#X connect 35 0 29 0; +#X connect 36 0 27 0; +#X connect 37 0 39 0; +#X connect 38 0 53 0; +#X connect 39 0 36 1; +#X connect 40 0 41 0; +#X connect 41 0 2 0; +#X connect 42 0 38 1; +#X connect 43 0 6 1; +#X connect 44 0 8 0; +#X connect 45 0 62 0; +#X connect 46 0 63 0; +#X connect 47 0 24 1; +#X connect 48 0 49 0; +#X connect 49 0 50 0; +#X connect 50 0 1 0; +#X connect 51 0 52 0; +#X connect 52 0 53 1; +#X connect 53 0 20 0; +#X connect 54 0 1 0; +#X connect 54 1 55 1; +#X connect 55 0 19 1; +#X connect 56 0 33 0; +#X connect 56 1 42 0; +#X connect 57 0 22 0; +#X connect 57 1 55 0; +#X connect 57 2 25 0; +#X connect 58 0 59 0; +#X connect 59 0 61 0; +#X connect 60 0 59 0; +#X connect 60 1 58 0; +#X connect 60 2 71 0; +#X connect 60 3 61 1; +#X connect 61 0 20 1; +#X connect 62 0 4 0; +#X connect 62 1 66 0; +#X connect 63 0 4 0; +#X connect 63 1 65 0; +#X connect 65 0 64 0; +#X connect 66 0 64 0; +#X connect 67 0 20 1; +#X connect 67 1 60 0; +#X connect 68 0 16 0; +#X connect 69 0 70 0; +#X connect 70 0 68 1; +#X connect 71 0 69 0; +#X connect 72 0 73 0; +#X connect 73 0 69 0; diff --git a/Samplers/Tapey/new-mono-voice.pd b/Samplers/Tapey/new-mono-voice.pd new file mode 100644 index 0000000..5839036 --- /dev/null +++ b/Samplers/Tapey/new-mono-voice.pd @@ -0,0 +1,293 @@ +#N canvas 869 71 717 903 10; +#X obj 13 11 inlet; +#X obj 13 154 sel 0, f 77; +#X obj 122 846 throw~ samp_voice_out; +#X obj 123 693 *~, f 60; +#X obj 479 639 vline~; +#X obj 177 504 r \$0-duration-s; +#X obj 121 544 *~, f 10; +#X obj 123 777 hip~ 5; +#X obj 121 619 tabread4~; +#X obj 168 581 r \$0-2-tabread; +#X obj 142 474 s~ \$0-phazzee; +#X obj 319 516 r~ \$0-phazzee; +#X obj 318 541 -~ 0.5; +#X obj 318 562 *~ 0.5; +#X obj 318 634 clip~ 0 1; +#X obj 318 584 cos~; +#X obj 123 755 *~ 0.7; +#X obj 479 660 pow~ 2; +#X obj 122 662 *~, f 33; +#N canvas 757 138 944 678 load-n-stuff 0; +#X obj 331 251 t b a, f 15; +#X msg 331 273 0; +#X obj 76 235 / 261.626; +#X obj 76 257 / 2; +#X obj 38 363 /, f 9; +#X obj 76 212 mtof; +#X obj 38 341 f; +#X obj 76 276 t b a; +#X obj 38 299 r \$0-duration; +#X obj 38 416 /; +#X msg 38 394 1000 \$1; +#X obj 94 130 r global-pitch; +#X obj 76 186 +, f 8; +#X obj 94 152 t b a; +#X obj 331 422 s \$0-duration; +#X obj 360 372 s \$0-duration-s; +#X obj 571 301 snapshot~; +#X obj 468 399 s \$0-2-tabread; +#X obj 571 278 r~ \$0-phazzee; +#X obj 278 13 inlet; +#X obj 88 23 inlet; +#X obj 38 477 outlet; +#X msg 468 369 set samp-\$1; +#X msg 418 274 symbol samp-\$1-length; +#X obj 331 297 text get, f 15; +#X obj 76 100 t f f, f 43; +#X obj 631 403 tabwrite tape-lOOps; +#X msg 331 187 1; +#X msg 468 196 1; +#X obj 742 214 tabread tape-lOOps; +#X obj 742 275 outlet; +#X obj 331 134 t b b f f f b, f 81; +#X msg 814 173 0; +#X obj 742 241 spigot 0; +#X obj 814 194 spigot 1; +#X obj 786 64 r glob-sync-lock; +#X obj 774 180 ==; +#X obj 331 397 /; +#X obj 430 488 samplerate~; +#X obj 430 448 loadbang; +#X obj 430 509 * 0.001; +#X connect 0 0 1 0; +#X connect 0 1 23 0; +#X connect 1 0 24 0; +#X connect 2 0 3 0; +#X connect 3 0 7 0; +#X connect 4 0 10 0; +#X connect 5 0 2 0; +#X connect 6 0 4 0; +#X connect 7 0 6 0; +#X connect 7 1 4 1; +#X connect 8 0 6 0; +#X connect 9 0 21 0; +#X connect 10 0 9 0; +#X connect 11 0 13 0; +#X connect 12 0 5 0; +#X connect 13 0 12 0; +#X connect 13 1 12 1; +#X connect 16 0 26 0; +#X connect 18 0 16 0; +#X connect 19 0 25 0; +#X connect 20 0 16 0; +#X connect 22 0 17 0; +#X connect 23 0 24 3; +#X connect 24 0 15 0; +#X connect 24 0 37 0; +#X connect 25 0 12 0; +#X connect 25 1 31 0; +#X connect 27 0 0 0; +#X connect 28 0 22 0; +#X connect 29 0 33 0; +#X connect 31 0 27 0; +#X connect 31 1 28 0; +#X connect 31 3 26 1; +#X connect 31 4 29 0; +#X connect 31 5 32 0; +#X connect 32 0 34 0; +#X connect 33 0 30 0; +#X connect 34 0 30 0; +#X connect 35 0 34 1; +#X connect 35 0 36 0; +#X connect 36 0 33 1; +#X connect 37 0 14 0; +#X connect 38 0 40 0; +#X connect 39 0 38 0; +#X connect 40 0 37 1; +#X restore 160 228 pd load-n-stuff; +#X obj 120 442 phasor~, f 26; +#X obj 13 175 t b b b; +#X obj 472 269 / 127; +#X obj 472 290 sqrt; +#X obj 32 225 del, f 11; +#X msg 52 200 stop; +#X msg 13 268 0; +#X obj 120 352 vline~; +#X obj 120 373 pow~ 2; +#X obj 120 312 pack 0 0; +#X obj 165 285 r ramp-time; +#X obj 32 246 t b b; +#X obj 96 182 r ramp-time; +#X obj 13 53 unpack; +#X obj 318 613 *~ 50; +#X obj 120 273 sqrt; +#X obj 9 326 pack 0 0; +#X obj 39 285 r ramp-time; +#X obj 120 394 +~, f 12; +#X obj 39 306 + 20; +#X obj 122 800 lop~ 16000; +#X obj 122 821 lop~ 16000; +#X obj 124 57 lfo; +#X obj 177 524 - 2; +#X obj 122 575 +~ 1; +#X msg 479 574 \$1 10; +#X msg 541 566 0 10; +#X obj 96 203 - 10; +#X obj 520 22 inlet kill; +#X obj 520 43 t b; +#X msg 520 64 0; +#X obj 231 362 r backwards; +#X obj 231 383 lop~ 10; +#X obj 120 415 *~, f 19; +#X obj 13 79 swap, f 6; +#X obj 415 242 f; +#X obj 13 31 t a a, f 19; +#X obj 472 192 t a b b; +#X msg 345 346 stop; +#X obj 326 375 del 8; +#X obj 325 323 t b b b a; +#X obj 326 403 f; +#X obj 479 595 t a b; +#X obj 540 594 t a b; +#N canvas 467 107 450 300 are-you-on? 0; +#X obj 72 21 inlet; +#X msg 172 159 stop; +#X obj 151 190 del 10; +#X obj 151 128 t b b a; +#X obj 164 220 f; +#X obj 164 241 v \$0-on?; +#X connect 0 0 3 0; +#X connect 1 0 2 0; +#X connect 2 0 4 0; +#X connect 3 0 2 0; +#X connect 3 1 1 0; +#X connect 3 2 4 1; +#X connect 4 0 5 0; +#X restore 541 664 pd are-you-on?; +#X msg 586 634 0; +#X msg 540 635 1, f 5; +#N canvas 4 50 450 300 if-on-duck 0; +#X obj 65 64 v \$0-on?; +#X obj 65 21 inlet; +#X obj 103 129 f; +#X obj 65 42 t b a a, f 16; +#X obj 211 133 f; +#X obj 65 85 sel 0 1, f 21; +#X obj 103 150 outlet no-duck; +#X obj 211 154 outlet duck; +#X connect 0 0 5 0; +#X connect 1 0 3 0; +#X connect 2 0 6 0; +#X connect 3 0 0 0; +#X connect 3 1 2 1; +#X connect 3 2 4 1; +#X connect 4 0 7 0; +#X connect 5 0 2 0; +#X connect 5 1 4 0; +#X restore 247 254 pd if-on-duck; +#X obj 322 278 sel 0; +#X obj 247 275 sel 0; +#X msg 322 299 0; +#X msg 247 296 0; +#X obj 123 714 *~, f 28; +#X obj 402 641 vline~; +#X obj 402 662 pow~ 2; +#X msg 402 613 0 8 \, 1 8 8; +#X obj 416 540 loadbang; +#X msg 416 561 1 0; +#X obj -242 560 loadbang; +#X msg -242 581 1 0; +#X connect 0 0 56 0; +#X connect 1 0 21 0; +#X connect 1 1 57 0; +#X connect 3 0 72 0; +#X connect 4 0 17 0; +#X connect 5 0 43 0; +#X connect 6 0 44 0; +#X connect 7 0 40 0; +#X connect 8 0 18 0; +#X connect 9 0 8 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 15 0; +#X connect 14 0 18 1; +#X connect 15 0 34 0; +#X connect 16 0 7 0; +#X connect 17 0 3 1; +#X connect 18 0 3 0; +#X connect 19 0 35 0; +#X connect 19 1 67 0; +#X connect 20 0 6 0; +#X connect 20 0 10 0; +#X connect 21 0 26 0; +#X connect 21 1 24 0; +#X connect 21 2 25 0; +#X connect 22 0 23 0; +#X connect 23 0 45 0; +#X connect 24 0 31 0; +#X connect 25 0 24 0; +#X connect 26 0 36 0; +#X connect 27 0 28 0; +#X connect 28 0 38 0; +#X connect 29 0 27 0; +#X connect 30 0 29 1; +#X connect 31 0 19 0; +#X connect 31 1 46 0; +#X connect 32 0 47 0; +#X connect 33 0 54 0; +#X connect 33 1 54 1; +#X connect 34 0 14 0; +#X connect 35 0 29 0; +#X connect 36 0 27 0; +#X connect 37 0 39 0; +#X connect 38 0 53 0; +#X connect 39 0 36 1; +#X connect 40 0 41 0; +#X connect 41 0 2 0; +#X connect 42 0 38 1; +#X connect 43 0 6 1; +#X connect 44 0 8 0; +#X connect 45 0 62 0; +#X connect 46 0 63 0; +#X connect 47 0 24 1; +#X connect 48 0 49 0; +#X connect 49 0 50 0; +#X connect 50 0 1 0; +#X connect 51 0 52 0; +#X connect 52 0 53 1; +#X connect 53 0 20 0; +#X connect 54 0 1 0; +#X connect 54 1 55 1; +#X connect 55 0 19 1; +#X connect 56 0 33 0; +#X connect 56 1 42 0; +#X connect 57 0 22 0; +#X connect 57 1 55 0; +#X connect 57 2 25 0; +#X connect 58 0 59 0; +#X connect 59 0 61 0; +#X connect 60 0 59 0; +#X connect 60 1 58 0; +#X connect 60 2 75 0; +#X connect 60 3 61 1; +#X connect 61 0 20 1; +#X connect 62 0 4 0; +#X connect 62 1 66 0; +#X connect 63 0 4 0; +#X connect 63 1 65 0; +#X connect 65 0 64 0; +#X connect 66 0 64 0; +#X connect 67 0 69 0; +#X connect 67 1 68 0; +#X connect 68 0 70 0; +#X connect 69 0 71 0; +#X connect 70 0 60 0; +#X connect 71 0 20 1; +#X connect 72 0 16 0; +#X connect 73 0 74 0; +#X connect 74 0 72 1; +#X connect 75 0 73 0; +#X connect 76 0 77 0; +#X connect 77 0 73 0; +#X connect 78 0 79 0; diff --git a/Samplers/Tapey/order-notes.pd b/Samplers/Tapey/order-notes.pd new file mode 100644 index 0000000..ef5af74 --- /dev/null +++ b/Samplers/Tapey/order-notes.pd @@ -0,0 +1,90 @@ +#N canvas 957 268 875 539 10; +#X obj 35 8 inlet notes; +#N canvas 4 50 774 654 count-note-ons 0; +#X obj 67 43 unpack 0 0; +#X obj 124 72 sel 0; +#X obj 180 105 t b b; +#X obj 113 99 t b b; +#X msg 207 129 1; +#X msg 142 142 -1; +#X obj 193 195 min 8; +#X obj 193 216 max 0; +#X obj 163 174 f; +#X obj 193 174 + 0; +#X obj 163 433 s \$0-note-ons; +#X obj 63 17 inlet; +#X msg 338 349 clear; +#X obj 311 293 sel 0; +#X obj 311 313 t b b; +#X obj 338 376 text define \$0-order-notes; +#X obj 193 237 t a a; +#X obj 311 334 outlet; +#X connect 0 1 1 0; +#X connect 1 0 3 0; +#X connect 1 1 2 0; +#X connect 2 0 8 0; +#X connect 2 1 4 0; +#X connect 3 0 8 0; +#X connect 3 1 5 0; +#X connect 4 0 9 1; +#X connect 5 0 9 1; +#X connect 6 0 7 0; +#X connect 7 0 8 1; +#X connect 7 0 16 0; +#X connect 8 0 9 0; +#X connect 9 0 6 0; +#X connect 11 0 0 0; +#X connect 12 0 15 0; +#X connect 13 0 14 0; +#X connect 14 0 17 0; +#X connect 14 1 12 0; +#X connect 16 0 10 0; +#X connect 16 1 13 0; +#X restore 362 58 pd count-note-ons; +#X obj 255 86 unpack; +#X obj 255 107 swap, f 6; +#X obj 255 208 f; +#X obj 255 178 sel 0, f 43; +#X obj 288 135 t f f; +#X obj 255 229 text search \$0-order-notes; +#X obj 255 250 sel -1; +#X obj 288 275 text delete \$0-order-notes; +#X obj 499 235 f; +#X obj 506 204 t b a; +#X obj 499 256 pack 0 0; +#X obj 499 327 text insert \$0-order-notes; +#X obj 92 192 text get \$0-order-notes; +#X obj 92 168 f 0; +#X obj 92 414 outlet; +#X obj 50 56 r \$0-note-ons; +#X obj 35 82 f; +#X obj 35 102 sel 0; +#X obj 35 29 t b a a, f 55; +#X obj 62 126 t b; +#X obj 195 410 outlet bang-off; +#X connect 0 0 20 0; +#X connect 1 0 22 0; +#X connect 2 0 3 0; +#X connect 2 1 3 1; +#X connect 3 0 5 0; +#X connect 3 1 6 0; +#X connect 4 0 7 0; +#X connect 5 0 4 0; +#X connect 5 1 11 0; +#X connect 6 0 4 1; +#X connect 6 1 10 1; +#X connect 7 0 8 0; +#X connect 8 1 9 0; +#X connect 10 0 12 0; +#X connect 11 0 10 0; +#X connect 11 1 12 1; +#X connect 12 0 13 0; +#X connect 14 0 16 0; +#X connect 15 0 14 0; +#X connect 17 0 18 1; +#X connect 18 0 19 0; +#X connect 19 1 21 0; +#X connect 20 0 18 0; +#X connect 20 1 2 0; +#X connect 20 2 1 0; +#X connect 21 0 15 0; diff --git a/Samplers/Tapey/sequences/seq0x.txt b/Samplers/Tapey/sequences/seq0x.txt new file mode 100644 index 0000000..0b66b6f --- /dev/null +++ b/Samplers/Tapey/sequences/seq0x.txt @@ -0,0 +1,46 @@ +0 length 1787; +0 note 60 100; +195 note 60 0; +211 note 64 100; +219 note 67 100; +228 note 71 100; +290 note 71 0; +294 note 64 0; +304 note 67 0; +333 note 60 100; +572 note 74 100; +573 note 64 100; +576 note 67 100; +578 note 60 0; +579 note 71 100; +681 note 74 0; +696 note 64 0; +699 note 67 0; +700 note 71 0; +805 note 60 100; +1002 note 64 100; +1006 note 67 100; +1010 note 71 100; +1010 note 74 100; +1010 note 60 0; +1135 note 74 0; +1148 note 64 0; +1153 note 67 0; +1154 note 71 0; +1224 note 60 100; +1359 note 60 0; +1363 note 65 100; +1366 note 69 100; +1373 note 76 100; +1374 note 72 100; +1484 note 76 0; +1490 note 65 0; +1502 note 72 0; +1503 note 69 0; +1579 note 65 100; +1583 note 76 100; +1583 note 69 100; +1588 note 72 100; +1785 note 69 0; +1786 note 72 0; +1786 note 76 0; diff --git a/Samplers/Tapey/sequences/seq0y.txt b/Samplers/Tapey/sequences/seq0y.txt new file mode 100644 index 0000000..88a3ecb --- /dev/null +++ b/Samplers/Tapey/sequences/seq0y.txt @@ -0,0 +1,19 @@ +0 length 883; +0 note 72 100; +45 note 72 0; +105 note 72 100; +138 note 72 0; +213 note 72 100; +242 note 72 0; +305 note 72 100; +344 note 72 0; +412 note 72 100; +448 note 72 0; +518 note 72 100; +556 note 72 0; +618 note 72 100; +655 note 72 0; +719 note 72 100; +756 note 72 0; +811 note 72 100; +858 note 72 0; diff --git a/Samplers/Tapey/sequences/seq10x.txt b/Samplers/Tapey/sequences/seq10x.txt new file mode 100644 index 0000000..a9a3d4e --- /dev/null +++ b/Samplers/Tapey/sequences/seq10x.txt @@ -0,0 +1,15 @@ +0 length 910; +0 note 76 100; +118 note 60 100; +204 note 76 0; +240 note 65 100; +404 note 71 100; +504 note 76 100; +516 note 65 0; +517 note 69 100; +543 note 71 0; +551 note 72 100; +586 note 60 0; +679 note 69 0; +724 note 72 0; +740 note 76 0; diff --git a/Samplers/Tapey/sequences/seq10y.txt b/Samplers/Tapey/sequences/seq10y.txt new file mode 100644 index 0000000..15d7426 --- /dev/null +++ b/Samplers/Tapey/sequences/seq10y.txt @@ -0,0 +1,12 @@ +0 length 1280; +0 note 72 100; +0 note 69 100; +45 note 60 100; +527 note 66 100; +607 note 79 100; +751 note 60 0; +791 note 66 0; +799 note 69 0; +820 note 66 100; +913 note 70 100; +935 note 66 0; diff --git a/Samplers/Tapey/sequences/seq11x.txt b/Samplers/Tapey/sequences/seq11x.txt new file mode 100644 index 0000000..3075261 --- /dev/null +++ b/Samplers/Tapey/sequences/seq11x.txt @@ -0,0 +1,139 @@ +0 length 3009; +0 note 71 100; +5 note 77 100; +6 note 81 100; +9 note 74 100; +272 knob4 0.0273705; +300 knob4 0.0811339; +329 knob4 0.128055; +361 knob4 0.158358; +388 knob4 0.186706; +417 knob4 0.240469; +446 knob4 0.292278; +478 knob4 0.312805; +505 knob4 0.319648; +523 note 74 0; +528 note 71 0; +531 note 77 0; +535 note 81 0; +622 knob4 0.313783; +648 note 71 100; +651 knob4 0.28348; +659 note 74 100; +660 note 77 100; +668 note 81 100; +681 knob4 0.256109; +711 knob4 0.243402; +741 knob4 0.240469; +799 knob4 0.226784; +819 note 74 0; +823 note 81 0; +826 note 71 0; +826 note 77 0; +828 knob4 0.223851; +857 knob4 0.273705; +888 knob4 0.339198; +915 knob4 0.369501; +938 note 71 100; +939 note 77 100; +946 knob4 0.377322; +949 note 74 100; +949 note 81 100; +1040 note 81 0; +1056 note 74 0; +1064 knob4 0.347019; +1065 note 71 0; +1065 note 77 0; +1092 knob4 0.292278; +1121 knob4 0.272727; +1149 knob4 0.26784; +1192 note 77 100; +1194 note 71 100; +1197 note 74 100; +1279 note 71 0; +1283 note 74 0; +1297 note 77 0; +1360 knob3 0.136852; +1372 note 77 100; +1380 note 71 100; +1382 note 74 100; +1389 knob3 0.207234; +1406 note 81 100; +1418 knob3 0.290323; +1446 knob3 0.363636; +1475 knob3 0.420332; +1504 knob3 0.468231; +1534 knob3 0.488759; +1562 knob3 0.509286; +1592 knob3 0.54741; +1620 knob3 0.576735; +1622 note 74 0; +1626 note 71 0; +1634 note 77 0; +1635 note 81 0; +1651 knob3 0.583578; +1706 note 77 100; +1710 note 71 100; +1718 note 81 100; +1726 note 74 100; +1799 knob3 0.620723; +1828 knob3 0.661779; +1857 knob3 0.713587; +1886 knob3 0.752688; +1907 note 81 0; +1915 knob3 0.777126; +1917 note 74 0; +1921 note 71 0; +1929 note 77 0; +1945 knob3 0.782991; +2003 knob3 0.779081; +2031 knob3 0.755621; +2052 note 77 100; +2061 knob3 0.719453; +2065 note 74 100; +2075 note 71 100; +2090 knob3 0.679374; +2119 knob3 0.617791; +2132 note 81 100; +2149 knob3 0.541544; +2177 knob3 0.470186; +2206 knob3 0.414467; +2236 knob3 0.358749; +2259 note 74 0; +2266 knob3 0.314761; +2267 note 71 0; +2283 note 77 0; +2287 note 81 0; +2295 knob3 0.293255; +2325 knob3 0.270772; +2355 knob3 0.243402; +2387 knob3 0.218964; +2388 note 77 100; +2390 note 81 100; +2401 note 71 100; +2404 note 74 100; +2415 knob3 0.187683; +2444 knob3 0.162268; +2474 knob3 0.142717; +2501 note 81 0; +2503 knob3 0.127077; +2509 note 71 0; +2512 note 74 0; +2523 note 77 0; +2531 knob3 0.113392; +2560 knob3 0.102639; +2590 knob3 0.086999; +2599 note 77 100; +2605 note 74 100; +2610 note 71 100; +2619 knob3 0.0508309; +2621 note 81 100; +2648 knob3 0; +2717 note 81 0; +2730 note 71 0; +2731 note 74 0; +2739 note 77 0; +2809 note 77 100; +2813 note 74 100; +2815 note 71 100; +2820 note 81 100; diff --git a/Samplers/Tapey/sequences/seq11y.txt b/Samplers/Tapey/sequences/seq11y.txt new file mode 100644 index 0000000..a8d3637 --- /dev/null +++ b/Samplers/Tapey/sequences/seq11y.txt @@ -0,0 +1,44 @@ +0 length 2808; +0 note 69 100; +51 note 69 0; +65 note 71 100; +170 note 71 0; +194 note 72 100; +296 note 60 100; +355 note 72 0; +497 note 64 100; +815 note 64 0; +845 note 74 100; +849 note 60 0; +858 note 83 100; +954 note 74 0; +972 note 83 0; +1158 note 83 100; +1174 note 76 100; +1182 note 79 100; +1299 note 76 0; +1305 note 79 0; +1323 note 83 0; +1484 note 81 100; +1485 note 74 100; +1511 note 77 100; +2128 knob2 0.553275; +2155 knob2 0.695015; +2186 knob2 0.848485; +2215 knob2 0.890518; +2243 knob2 0.852395; +2272 knob2 0.800587; +2302 knob2 0.734115; +2331 knob2 0.637341; +2359 knob2 0.55523; +2388 knob2 0.534702; +2418 knob2 0.593353; +2447 knob2 0.646139; +2476 knob2 0.665689; +2504 knob2 0.692082; +2533 knob2 0.730205; +2563 knob2 0.757576; +2592 knob2 0.764418; +2740 note 74 0; +2743 note 77 0; +2757 note 81 0; diff --git a/Samplers/Tapey/sequences/seq12x.txt b/Samplers/Tapey/sequences/seq12x.txt new file mode 100644 index 0000000..767c8ec --- /dev/null +++ b/Samplers/Tapey/sequences/seq12x.txt @@ -0,0 +1,32 @@ +0 length 1431; +0 note 74 100; +83 note 72 100; +107 note 74 0; +155 note 72 0; +163 note 60 100; +263 note 64 100; +343 note 60 0; +381 note 64 0; +383 note 71 100; +484 note 64 100; +493 note 71 0; +626 note 64 0; +653 note 71 100; +759 note 71 0; +785 note 65 100; +885 note 69 100; +886 note 65 0; +1037 note 71 100; +1044 note 69 0; +1086 note 72 100; +1101 note 71 0; +1251 note 74 100; +1255 note 72 0; +1283 note 76 100; +1287 note 74 0; +1310 note 77 100; +1314 note 76 0; +1340 note 79 100; +1342 note 77 0; +1372 note 81 100; +1377 note 79 0; diff --git a/Samplers/Tapey/sequences/seq12y.txt b/Samplers/Tapey/sequences/seq12y.txt new file mode 100644 index 0000000..da3a6ab --- /dev/null +++ b/Samplers/Tapey/sequences/seq12y.txt @@ -0,0 +1,11 @@ +0 length 1208; +0 note 77 100; +176 note 77 0; +204 note 60 100; +362 note 64 100; +658 note 74 100; +855 note 64 0; +865 note 60 0; +919 note 76 100; +974 note 74 0; +1172 note 76 0; diff --git a/Samplers/Tapey/sequences/seq13x.txt b/Samplers/Tapey/sequences/seq13x.txt new file mode 100644 index 0000000..1a2f0ad --- /dev/null +++ b/Samplers/Tapey/sequences/seq13x.txt @@ -0,0 +1,15 @@ +0 length 2493; +0 note 60 100; +741 note 60 0; +745 note 83 100; +943 note 83 0; +1092 note 60 100; +1894 note 83 100; +1897 note 60 0; +1900 note 60 100; +1903 note 60 0; +2037 note 80 100; +2068 note 83 0; +2187 note 76 100; +2189 note 80 0; +2433 note 76 0; diff --git a/Samplers/Tapey/sequences/seq13y.txt b/Samplers/Tapey/sequences/seq13y.txt new file mode 100644 index 0000000..1a2f0ad --- /dev/null +++ b/Samplers/Tapey/sequences/seq13y.txt @@ -0,0 +1,15 @@ +0 length 2493; +0 note 60 100; +741 note 60 0; +745 note 83 100; +943 note 83 0; +1092 note 60 100; +1894 note 83 100; +1897 note 60 0; +1900 note 60 100; +1903 note 60 0; +2037 note 80 100; +2068 note 83 0; +2187 note 76 100; +2189 note 80 0; +2433 note 76 0; diff --git a/Samplers/Tapey/sequences/seq1x.txt b/Samplers/Tapey/sequences/seq1x.txt new file mode 100644 index 0000000..b980aab --- /dev/null +++ b/Samplers/Tapey/sequences/seq1x.txt @@ -0,0 +1,22 @@ +0 length 653; +0 note 60 100; +86 note 64 100; +96 note 60 0; +153 note 67 100; +171 note 71 100; +205 note 64 0; +257 note 67 0; +268 note 60 100; +276 note 71 0; +336 note 60 0; +337 note 71 100; +408 note 67 100; +466 note 64 100; +489 note 71 0; +499 note 60 100; +518 note 67 0; +541 note 64 0; +566 note 60 0; +573 note 71 100; +584 note 64 100; +597 note 67 100; diff --git a/Samplers/Tapey/sequences/seq1y.txt b/Samplers/Tapey/sequences/seq1y.txt new file mode 100644 index 0000000..ee159a5 --- /dev/null +++ b/Samplers/Tapey/sequences/seq1y.txt @@ -0,0 +1,27 @@ +0 length 794; +0 note 60 100; +83 note 65 100; +126 note 60 0; +168 note 69 100; +214 note 72 100; +243 note 65 0; +246 note 69 0; +256 note 76 100; +295 note 72 0; +300 note 60 100; +314 note 76 0; +387 note 60 0; +392 note 76 100; +407 note 72 100; +472 note 69 100; +479 note 76 0; +485 note 60 100; +522 note 72 0; +525 note 69 0; +597 note 60 0; +606 note 67 100; +640 note 67 0; +678 note 60 100; +688 note 60 0; +702 note 62 100; +787 note 62 0; diff --git a/Samplers/Tapey/sequences/seq2x.txt b/Samplers/Tapey/sequences/seq2x.txt new file mode 100644 index 0000000..4c6d7ef --- /dev/null +++ b/Samplers/Tapey/sequences/seq2x.txt @@ -0,0 +1,21 @@ +0 length 2153; +0 note 74 100; +3 note 81 100; +234 note 81 0; +238 note 74 0; +286 note 60 100; +299 note 65 100; +547 note 65 0; +561 note 60 0; +638 note 79 100; +638 note 72 100; +1007 note 72 0; +1017 note 79 0; +1290 note 79 100; +1295 note 72 100; +1620 note 72 0; +1623 note 79 0; +1730 note 72 100; +1731 note 79 100; +2124 note 79 0; +2132 note 72 0; diff --git a/Samplers/Tapey/sequences/seq2y.txt b/Samplers/Tapey/sequences/seq2y.txt new file mode 100644 index 0000000..4c6d7ef --- /dev/null +++ b/Samplers/Tapey/sequences/seq2y.txt @@ -0,0 +1,21 @@ +0 length 2153; +0 note 74 100; +3 note 81 100; +234 note 81 0; +238 note 74 0; +286 note 60 100; +299 note 65 100; +547 note 65 0; +561 note 60 0; +638 note 79 100; +638 note 72 100; +1007 note 72 0; +1017 note 79 0; +1290 note 79 100; +1295 note 72 100; +1620 note 72 0; +1623 note 79 0; +1730 note 72 100; +1731 note 79 100; +2124 note 79 0; +2132 note 72 0; diff --git a/Samplers/Tapey/sequences/seq3x.txt b/Samplers/Tapey/sequences/seq3x.txt new file mode 100644 index 0000000..684bb5d --- /dev/null +++ b/Samplers/Tapey/sequences/seq3x.txt @@ -0,0 +1,17 @@ +0 length 1184; +0 note 65 100; +89 note 65 0; +149 note 60 100; +258 note 60 0; +299 note 67 100; +363 note 67 0; +441 note 67 100; +528 note 67 0; +597 note 69 100; +703 note 69 0; +756 note 60 100; +879 note 60 0; +900 note 67 100; +973 note 67 0; +1032 note 69 100; +1124 note 69 0; diff --git a/Samplers/Tapey/sequences/seq3y.txt b/Samplers/Tapey/sequences/seq3y.txt new file mode 100644 index 0000000..94cf6da --- /dev/null +++ b/Samplers/Tapey/sequences/seq3y.txt @@ -0,0 +1,17 @@ +0 length 1181; +0 note 67 100; +133 note 67 0; +148 note 60 100; +285 note 60 0; +287 note 65 100; +420 note 65 0; +450 note 60 100; +569 note 60 0; +600 note 67 100; +666 note 67 0; +738 note 67 100; +825 note 67 0; +895 note 69 100; +984 note 69 0; +1030 note 69 100; +1105 note 69 0; diff --git a/Samplers/Tapey/sequences/seq4x.txt b/Samplers/Tapey/sequences/seq4x.txt new file mode 100644 index 0000000..b2a9c5d --- /dev/null +++ b/Samplers/Tapey/sequences/seq4x.txt @@ -0,0 +1,15 @@ +0 length 1465; +0 note 69 100; +122 note 69 0; +140 note 60 100; +343 note 67 100; +518 note 67 0; +555 note 65 100; +677 note 69 100; +801 note 69 0; +884 note 71 100; +940 note 65 0; +963 note 65 100; +1294 note 65 0; +1362 note 60 0; +1399 note 71 0; diff --git a/Samplers/Tapey/sequences/seq4y.txt b/Samplers/Tapey/sequences/seq4y.txt new file mode 100644 index 0000000..684bb5d --- /dev/null +++ b/Samplers/Tapey/sequences/seq4y.txt @@ -0,0 +1,17 @@ +0 length 1184; +0 note 65 100; +89 note 65 0; +149 note 60 100; +258 note 60 0; +299 note 67 100; +363 note 67 0; +441 note 67 100; +528 note 67 0; +597 note 69 100; +703 note 69 0; +756 note 60 100; +879 note 60 0; +900 note 67 100; +973 note 67 0; +1032 note 69 100; +1124 note 69 0; diff --git a/Samplers/Tapey/sequences/seq5x.txt b/Samplers/Tapey/sequences/seq5x.txt new file mode 100644 index 0000000..b345a3b --- /dev/null +++ b/Samplers/Tapey/sequences/seq5x.txt @@ -0,0 +1,23 @@ +0 length 2115; +0 note 72 100; +76 note 72 0; +170 note 72 100; +294 note 74 100; +320 note 72 0; +370 note 76 100; +393 note 74 0; +455 note 77 100; +474 note 76 0; +1137 note 74 100; +1180 note 77 0; +1252 note 72 100; +1277 note 74 0; +1396 note 67 100; +1511 note 72 0; +1748 note 65 100; +1792 note 67 0; +1819 note 72 100; +1883 note 76 100; +1965 note 65 0; +2042 note 76 0; +2071 note 72 0; diff --git a/Samplers/Tapey/sequences/seq5y.txt b/Samplers/Tapey/sequences/seq5y.txt new file mode 100644 index 0000000..ad5ecda --- /dev/null +++ b/Samplers/Tapey/sequences/seq5y.txt @@ -0,0 +1,34 @@ +0 length 1623; +0 note 74 100; +31 note 74 0; +108 note 74 100; +150 note 74 0; +186 note 60 100; +256 note 60 0; +273 note 74 100; +309 note 74 0; +345 note 60 100; +409 note 60 0; +417 note 74 100; +452 note 74 0; +515 note 74 100; +562 note 74 0; +594 note 62 100; +651 note 62 0; +677 note 72 100; +713 note 72 0; +775 note 72 100; +828 note 72 0; +857 note 64 100; +913 note 64 0; +940 note 71 100; +978 note 71 0; +1033 note 71 100; +1077 note 71 0; +1103 note 65 100; +1147 note 65 0; +1165 note 69 100; +1325 note 72 100; +1361 note 69 0; +1487 note 77 100; +1493 note 72 0; diff --git a/Samplers/Tapey/sequences/seq6x.txt b/Samplers/Tapey/sequences/seq6x.txt new file mode 100644 index 0000000..d86721d --- /dev/null +++ b/Samplers/Tapey/sequences/seq6x.txt @@ -0,0 +1,6 @@ +0 length 803; +0 note 69 100; +100 note 69 0; +167 note 60 100; +571 note 71 100; +589 note 60 0; diff --git a/Samplers/Tapey/sequences/seq6y.txt b/Samplers/Tapey/sequences/seq6y.txt new file mode 100644 index 0000000..1263713 --- /dev/null +++ b/Samplers/Tapey/sequences/seq6y.txt @@ -0,0 +1,9 @@ +0 length 1661; +0 note 60 100; +190 note 64 100; +414 note 67 100; +598 note 71 100; +860 note 76 100; +939 note 76 0; +1164 note 74 100; +1655 note 74 0; diff --git a/Samplers/Tapey/sequences/seq7x.txt b/Samplers/Tapey/sequences/seq7x.txt new file mode 100644 index 0000000..3fc8ece --- /dev/null +++ b/Samplers/Tapey/sequences/seq7x.txt @@ -0,0 +1,10 @@ +0 length 1456; +0 note 60 100; +176 note 79 100; +291 note 79 0; +491 note 79 100; +563 note 79 0; +752 note 79 100; +844 note 79 0; +1062 note 74 100; +1297 note 74 0; diff --git a/Samplers/Tapey/sequences/seq7y.txt b/Samplers/Tapey/sequences/seq7y.txt new file mode 100644 index 0000000..76adfa6 --- /dev/null +++ b/Samplers/Tapey/sequences/seq7y.txt @@ -0,0 +1,17 @@ +0 length 3385; +0 note 62 100; +135 note 65 100; +326 note 69 100; +480 note 72 100; +714 note 76 100; +1759 note 79 100; +2210 note 83 100; +3292 note 69 0; +3294 note 72 0; +3297 note 62 0; +3298 note 65 0; +3340 note 76 0; +3345 note 79 0; +3351 note 83 0; +3351 note 83 100; +3354 note 83 0; diff --git a/Samplers/Tapey/sequences/seq8x.txt b/Samplers/Tapey/sequences/seq8x.txt new file mode 100644 index 0000000..4f776a0 --- /dev/null +++ b/Samplers/Tapey/sequences/seq8x.txt @@ -0,0 +1,17 @@ +0 length 3018; +0 note 72 100; +104 note 72 0; +185 note 72 100; +275 note 72 0; +361 note 72 100; +655 note 72 0; +713 note 72 100; +1056 note 72 0; +1116 note 72 100; +1229 note 72 0; +1309 note 72 100; +1449 note 72 0; +1529 note 72 100; +1850 note 72 0; +1883 note 72 100; +2274 note 60 100; diff --git a/Samplers/Tapey/sequences/seq8y.txt b/Samplers/Tapey/sequences/seq8y.txt new file mode 100644 index 0000000..4ec0ebc --- /dev/null +++ b/Samplers/Tapey/sequences/seq8y.txt @@ -0,0 +1,17 @@ +0 length 1135; +0 note 67 100; +54 note 67 0; +76 note 69 100; +136 note 69 0; +157 note 71 100; +228 note 71 0; +251 note 72 100; +429 note 72 0; +430 note 60 100; +594 note 62 100; +629 note 60 0; +685 note 62 0; +762 note 67 100; +821 note 67 0; +917 note 65 100; +984 note 65 0; diff --git a/Samplers/Tapey/sequences/seq9x.txt b/Samplers/Tapey/sequences/seq9x.txt new file mode 100644 index 0000000..15d7426 --- /dev/null +++ b/Samplers/Tapey/sequences/seq9x.txt @@ -0,0 +1,12 @@ +0 length 1280; +0 note 72 100; +0 note 69 100; +45 note 60 100; +527 note 66 100; +607 note 79 100; +751 note 60 0; +791 note 66 0; +799 note 69 0; +820 note 66 100; +913 note 70 100; +935 note 66 0; diff --git a/Samplers/Tapey/sequences/seq9y.txt b/Samplers/Tapey/sequences/seq9y.txt new file mode 100644 index 0000000..462b499 --- /dev/null +++ b/Samplers/Tapey/sequences/seq9y.txt @@ -0,0 +1,15 @@ +0 length 1121; +0 note 60 100; +0 note 64 100; +15 note 65 100; +418 note 65 0; +419 note 60 0; +424 note 64 0; +523 note 69 100; +565 note 76 100; +668 note 75 100; +715 note 75 0; +729 note 73 100; +974 note 73 0; +978 note 69 0; +981 note 76 0; diff --git a/Samplers/Tapey/sequences/slot-tracker.txt b/Samplers/Tapey/sequences/slot-tracker.txt new file mode 100644 index 0000000..aeaa266 --- /dev/null +++ b/Samplers/Tapey/sequences/slot-tracker.txt @@ -0,0 +1,14 @@ +0 +1 +1 +0 +0 +1 +1 +0 +0 +0 +0 +0 +0 +0 diff --git a/Samplers/Tapey/slot.txt b/Samplers/Tapey/slot.txt new file mode 100644 index 0000000..2ceeae6 --- /dev/null +++ b/Samplers/Tapey/slot.txt @@ -0,0 +1,100 @@ +1 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 diff --git a/Samplers/Tapey/sounds/1.wav b/Samplers/Tapey/sounds/1.wav new file mode 100644 index 0000000..3e809c0 Binary files /dev/null and b/Samplers/Tapey/sounds/1.wav differ diff --git a/Samplers/Tapey/voice-lfo.pd b/Samplers/Tapey/voice-lfo.pd new file mode 100644 index 0000000..1d0865e --- /dev/null +++ b/Samplers/Tapey/voice-lfo.pd @@ -0,0 +1,69 @@ +#N canvas 709 264 710 716 10; +#X obj 126 329 osc~, f 10; +#X obj 127 77 r wob-rate; +#X obj 235 10 inlet; +#X obj 409 97 / 127; +#X obj 235 92 / 127; +#X obj 235 163 * 1; +#X obj 409 168 * 1; +#X obj 126 593 outlet~; +#X obj 183 280 sel 0; +#X obj 127 159 t a a; +#X msg 183 301 0; +#X obj 243 53 stripnote; +#X obj 127 216 lop~ 100; +#X obj 267 341 lop~ 100; +#X obj 209 252 lop~ 100; +#X msg 300 491 1; +#X obj 300 472 t b; +#X obj 126 553 *~; +#X obj 284 534 change -1; +#X obj 254 492 t b; +#X msg 254 511 0; +#X obj 284 555 lop~ 100; +#X obj 126 350 *~ 0.5; +#X obj 126 371 +~ 0.5; +#X floatatom 82 200 5 0 0 0 - - -; +#X obj 66 100 r knob4; +#X obj 37 288 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 37 308 metro 50; +#X obj 37 329 snapshot~; +#X floatatom 37 350 5 0 0 0 - - -; +#X obj 127 237 *~; +#X obj 424 138 r wob-depth-rel-vel; +#X obj 250 128 r wob-depth-rel-note; +#X obj 125 402 *~ 0.01, f 24; +#X connect 0 0 22 0; +#X connect 2 0 11 0; +#X connect 3 0 6 0; +#X connect 4 0 5 0; +#X connect 5 0 14 0; +#X connect 6 0 13 0; +#X connect 8 0 10 0; +#X connect 8 0 19 0; +#X connect 8 1 16 0; +#X connect 9 0 8 0; +#X connect 9 1 12 0; +#X connect 9 1 24 0; +#X connect 10 0 0 1; +#X connect 11 0 4 0; +#X connect 11 1 3 0; +#X connect 12 0 30 0; +#X connect 14 0 30 1; +#X connect 15 0 18 0; +#X connect 16 0 15 0; +#X connect 17 0 7 0; +#X connect 18 0 21 0; +#X connect 19 0 20 0; +#X connect 20 0 18 0; +#X connect 21 0 17 1; +#X connect 22 0 23 0; +#X connect 23 0 33 0; +#X connect 25 0 9 0; +#X connect 26 0 27 0; +#X connect 27 0 28 0; +#X connect 28 0 29 0; +#X connect 30 0 0 0; +#X connect 30 0 28 0; +#X connect 33 0 17 0;