diff --git a/DJ Patch Record/LICENSE.txt b/DJ Patch Record/LICENSE.txt new file mode 100755 index 0000000..b6e3a93 --- /dev/null +++ b/DJ Patch Record/LICENSE.txt @@ -0,0 +1,18 @@ +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. + +--- Begin BSD 3-Clause License --- + +Copyright (c) 2016, 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/DJ Patch Record/README.txt b/DJ Patch Record/README.txt new file mode 100755 index 0000000..013b457 --- /dev/null +++ b/DJ Patch Record/README.txt @@ -0,0 +1 @@ +DJ Patch Record is a 'beat-juggling' sample looper. It loops one of ten of your recorded samples. The fun part is that this patch places two independent playheads on the looping sample. Change the relative position and playback speed of the second playhead to the master playhead for phasing, echo, simultaneous forward & backward playback, and detuned effects. Knob3 sets the master playhead speed (-200% to +200%). Knob4 sets the second playhead speed (-200% to +200%). The keys set the position of the second playhead in relation to the master. Knob1 selects from 10 different samples of your recordings. Knob2 is a steep crossfader modeled after battle dj-mixers. A quick press on the Aux/Footswitch starts and stops playback. A long press will record enable a new track. \ No newline at end of file diff --git a/DJ Patch Record/array-waveform-print-record.pd b/DJ Patch Record/array-waveform-print-record.pd new file mode 100755 index 0000000..595bb96 --- /dev/null +++ b/DJ Patch Record/array-waveform-print-record.pd @@ -0,0 +1,87 @@ +#N canvas 538 127 1121 748 10; +#X obj 109 31 inlet; +#X text 283 43 arg 1: waveform name; +#X obj 219 238 f 0; +#X obj 219 267 i; +#X obj 219 189 until; +#X msg 219 163 128; +#X msg 293 183 0; +#X obj 219 327 * 0.5; +#X obj 219 349 + 0.5; +#X obj 219 398 * 64; +#X obj 219 421 i; +#X obj 139 623 s oscOut; +#X obj 544 500 t l; +#X obj 145 531 list append; +#X obj 145 577 list trim; +#X obj 441 499 list prepend; +#X obj 250 238 + 34; +#X obj 219 298 tabread \$1; +#X obj 202 30 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X msg 589 565 /oled/gClear 0 1; +#X msg 145 480 sendtyped /oled/gWaveform ib 0; +#X obj 219 371 * -1; +#X msg 32 503 /oled/gFlip 3; +#X obj 115 86 t b b; +#X obj 147 117 t b b b b b b b b, f 56; +#X msg 621 525 /oled/gShowInfoBar 0 0; +#X obj 589 494 t b b; +#X obj 574 48 inlet; +#X obj 596 104 symbol; +#X msg 596 151 set \$1; +#X obj 574 70 t b a; +#X text 793 397 get size of sample in samples; +#X msg 354 210 \; djrec-get-size \$1 bang; +#X obj 355 257 r djrec-get-size-return; +#X obj 354 166 symbol; +#X obj 354 188 t s s, f 8; +#X obj 355 304 / 128; +#X obj 355 279 route big; +#X connect 0 0 23 0; +#X connect 2 0 3 0; +#X connect 2 0 16 0; +#X connect 3 0 17 0; +#X connect 4 0 2 0; +#X connect 5 0 4 0; +#X connect 6 0 2 1; +#X connect 7 0 8 0; +#X connect 8 0 21 0; +#X connect 9 0 10 0; +#X connect 10 0 15 0; +#X connect 12 0 15 1; +#X connect 13 0 14 0; +#X connect 14 0 11 0; +#X connect 15 0 13 1; +#X connect 15 0 12 0; +#X connect 16 0 2 1; +#X connect 17 0 7 0; +#X connect 18 0 23 0; +#X connect 19 0 11 0; +#X connect 20 0 13 0; +#X connect 21 0 9 0; +#X connect 22 0 11 0; +#X connect 23 0 22 0; +#X connect 23 1 24 0; +#X connect 24 1 20 0; +#X connect 24 2 5 0; +#X connect 24 3 6 0; +#X connect 24 4 34 0; +#X connect 24 5 15 0; +#X connect 24 6 15 1; +#X connect 24 7 26 0; +#X connect 25 0 11 0; +#X connect 26 0 19 0; +#X connect 26 1 25 0; +#X connect 27 0 30 0; +#X connect 28 0 29 0; +#X connect 28 0 34 1; +#X connect 29 0 17 0; +#X connect 30 0 23 0; +#X connect 30 1 28 0; +#X connect 33 0 37 0; +#X connect 34 0 35 0; +#X connect 35 0 32 0; +#X connect 35 1 37 1; +#X connect 36 0 16 1; +#X connect 37 0 36 0; diff --git a/DJ Patch Record/cg-load-array-record.pd b/DJ Patch Record/cg-load-array-record.pd new file mode 100755 index 0000000..00c5f1b --- /dev/null +++ b/DJ Patch Record/cg-load-array-record.pd @@ -0,0 +1,203 @@ +#N canvas 158 50 1758 998 10; +#N canvas 0 50 450 250 (subpatch) 0; +#X array \$1-\$2 264600 float 2; +#X coords 0 1 264600 -1 200 140 1 0 0; +#X restore 1067 98 graph; +#X text 1072 53 this is the array \, automatically named by the first +argument (look in properties for this object); +#X text 471 11 ***use this object with cg-looper***; +#X obj 317 159 r~ inL; +#X obj 368 159 r~ inR; +#X obj 772 564 timer; +#X obj 772 594 * 44.1; +#X text 821 641 time length of recording in samples; +#X msg 137 643 stop; +#X obj 25 871 soundfiler; +#X obj 25 578 t b b; +#X msg 1007 464 stop; +#X msg 987 512 0; +#X obj 763 229 i; +#X obj 772 618 expr if($f1 < 4410 \, 4410 \, $f1); +#X text 824 657 it must be at least 4410 cause this; +#X text 827 675 is what the player assumes; +#X obj 763 251 change -1; +#X obj 772 701 s \$0-dur; +#X obj 350 402 threshold~ 0.01 5 0.1 5; +#X obj 350 377 *~; +#X obj 350 423 t b b, f 8; +#X msg 368 345 0; +#X msg 419 344 1; +#X text 380 377 incoming signal above 0.01 triggers record.; +#X text 417 424 than immediatley disable; +#X obj 349 774 r \$0-2-tabwrite; +#X obj 137 669 s \$0-2-tabwrite; +#X text 33 8 arg1: unique name for recorder; +#X text 23 72 this object records sounds and saves them automatically +as waves. than it can be read by cg-load-array.; +#X obj 368 285 r \$0-rec-switch; +#X obj 368 307 sel 0 1, f 15; +#X obj 318 325 *~ 1; +#X obj 403 456 r \$0-rec-switch; +#X obj 332 696 *~; +#X obj 350 575 spigot 0; +#X obj 350 649 vline~; +#X obj 403 478 sel 0 1, f 21; +#X obj 403 500 t b b; +#X msg 403 526 0; +#X msg 475 501 1; +#X text 72 499 short delay to make up for threshold; +#X obj 877 357 r \$0-record!; +#X obj 763 286 sel 0 1, f 33; +#X obj 877 384 t b b b; +#X obj 97 577 r \$0-stop-record!; +#X obj 877 333 s \$0-rec-switch; +#X msg 877 310 1; +#X obj 823 435 s \$0-rec-switch; +#X msg 823 412 0; +#X obj 763 378 t b b b b; +#X obj 836 532 s \$0-stop-record!; +#X obj 25 710 f; +#X obj 43 678 r \$0-dur; +#X obj 923 410 s \$0-2-tabwrite; +#X obj 987 489 delay 6000; +#X obj 350 597 t b b, f 8; +#X obj 403 627 s \$0-record!; +#X msg 350 627 1 5; +#X obj 350 671 *~; +#X obj 804 502 t b b; +#X msg 435 586 0 9; +#X obj 553 819 f; +#X obj 571 781 r \$0-dur; +#X obj 25 542 r saveState; +#X obj 553 731 r djrec-get-size; +#X obj 553 753 route \$1-\$2; +#X text 33 28 arg2: assign instance number(these two arguments are +merged 'dj-1'; +#X obj 83 718 loadbang; +#X obj 83 740 symbol \$1; +#X obj 25 770 pack 0 s \$2, f 17; +#X msg 25 839 write -nframes \$1 sounds/sound-\$3.wav \$2-\$3; +#X obj 553 891 s djrec-get-size-return; +#X obj 553 841 list prepend \$1-\$2; +#X obj 553 863 route list; +#X obj 1183 452 soundfiler; +#X obj 1183 295 loadbang; +#X obj 1183 317 symbol \$1; +#X obj 1183 351 pack s \$2, f 17; +#X msg 1183 420 read sounds/sound-\$2.wav \$1-\$2; +#X obj 1183 478 s \$0-dur; +#X obj 333 799 tabwrite~ \$1-\$2; +#X obj 58 339 r \$1-\$2-get-name; +#X obj 58 408 s return-name; +#X obj 58 361 f \$2; +#X obj 296 412 hip~ 5; +#X obj 816 36 r djrec-sample-sel; +#X obj 816 89 sel \$1-\$2; +#X obj 763 144 spigot 0; +#X msg 816 111 1; +#X msg 876 111 0; +#X obj 730 111 r djrec-aux; +#X obj 816 58 symbol; +#X obj 105 604 t b b; +#X obj 202 597 symbol \$1-\$2; +#X msg 202 619 \; \$1 normalize; +#X obj 987 534 s djrec-autostop; +#X obj 1008 381 s djrec-its-recording; +#X obj 490 245 r djrec-recDISabled; +#X msg 490 267 0; +#X obj 250 451 delwrite~ \$0-del 10; +#X obj 247 475 delread~ \$0-del 5; +#X obj 332 718 hip~ 5; +#X obj 332 740 lop~ 20000; +#X connect 3 0 32 0; +#X connect 4 0 32 0; +#X connect 5 0 6 0; +#X connect 6 0 14 0; +#X connect 8 0 27 0; +#X connect 10 0 52 0; +#X connect 10 1 8 0; +#X connect 11 0 55 0; +#X connect 12 0 96 0; +#X connect 13 0 17 0; +#X connect 14 0 18 0; +#X connect 17 0 43 0; +#X connect 19 0 21 0; +#X connect 20 0 19 0; +#X connect 21 0 35 0; +#X connect 21 1 22 0; +#X connect 22 0 20 1; +#X connect 23 0 20 1; +#X connect 26 0 81 0; +#X connect 30 0 31 0; +#X connect 31 0 22 0; +#X connect 31 1 23 0; +#X connect 32 0 20 0; +#X connect 32 0 85 0; +#X connect 33 0 37 0; +#X connect 34 0 102 0; +#X connect 35 0 56 0; +#X connect 36 0 59 0; +#X connect 36 0 59 1; +#X connect 37 0 38 0; +#X connect 37 1 40 0; +#X connect 38 0 39 0; +#X connect 38 1 61 0; +#X connect 39 0 35 1; +#X connect 40 0 35 1; +#X connect 42 0 44 0; +#X connect 42 0 97 0; +#X connect 43 0 50 0; +#X connect 43 1 47 0; +#X connect 44 0 5 0; +#X connect 44 1 55 0; +#X connect 44 2 54 0; +#X connect 45 0 93 0; +#X connect 47 0 46 0; +#X connect 49 0 48 0; +#X connect 50 1 11 0; +#X connect 50 2 60 0; +#X connect 50 3 49 0; +#X connect 52 0 70 0; +#X connect 53 0 52 1; +#X connect 55 0 12 0; +#X connect 56 0 58 0; +#X connect 56 1 57 0; +#X connect 58 0 36 0; +#X connect 59 0 34 1; +#X connect 60 0 5 1; +#X connect 60 1 51 0; +#X connect 61 0 36 0; +#X connect 62 0 73 0; +#X connect 63 0 62 1; +#X connect 64 0 10 0; +#X connect 65 0 66 0; +#X connect 66 0 62 0; +#X connect 68 0 69 0; +#X connect 69 0 70 1; +#X connect 70 0 71 0; +#X connect 71 0 9 0; +#X connect 73 0 74 0; +#X connect 74 0 72 0; +#X connect 75 0 80 0; +#X connect 76 0 77 0; +#X connect 77 0 78 0; +#X connect 78 0 79 0; +#X connect 79 0 75 0; +#X connect 82 0 84 0; +#X connect 84 0 83 0; +#X connect 85 0 100 0; +#X connect 86 0 92 0; +#X connect 87 0 89 0; +#X connect 87 1 90 0; +#X connect 88 0 13 0; +#X connect 89 0 88 1; +#X connect 90 0 88 1; +#X connect 91 0 88 0; +#X connect 92 0 87 0; +#X connect 93 1 8 0; +#X connect 94 0 95 0; +#X connect 98 0 99 0; +#X connect 99 0 31 0; +#X connect 101 0 34 0; +#X connect 102 0 103 0; +#X connect 103 0 81 0; diff --git a/DJ Patch Record/cg-looper-record.pd b/DJ Patch Record/cg-looper-record.pd new file mode 100755 index 0000000..ffd5b1c --- /dev/null +++ b/DJ Patch Record/cg-looper-record.pd @@ -0,0 +1,184 @@ +#N canvas 26 50 1209 950 10; +#X obj 559 653 phasor~, f 11; +#X obj 559 685 s~ \$0-phase; +#X obj 396 653 -~ 0.5; +#X obj 396 677 *~ 0.5; +#X obj 396 700 cos~; +#X obj 200 325 r \$0-chunk-size; +#X obj 395 631 r~ \$0-phase; +#X obj 181 409 *~; +#X obj 180 265 r~ \$0-phase; +#X obj 234 704 r \$0-pointer; +#X obj 130 99 inlet; +#X obj 462 97 inlet; +#X obj 462 119 s \$0-retrigger; +#X obj 396 744 clip~ 0 1; +#X obj 181 795 *~, f 31; +#X obj 287 145 s \$0-pointer; +#X obj 820 628 r \$0-pointer; +#X obj 572 436 t b f; +#X obj 560 213 r \$0-chunk-size; +#X text 611 318 convert to ms; +#X obj 181 952 outlet~; +#X obj 182 925 hip~ 5; +#X obj 572 406 r \$0-speed; +#X text 871 889 get size of sample in samples; +#X obj 560 374 /; +#X obj 182 190 s \$0-read-point; +#X obj 235 166 s \$0-speed; +#X obj 234 726 list prepend set; +#X obj 234 748 route list; +#X obj 633 623 r \$0-retrigger; +#X text 578 120 0-1 floating point; +#X obj 560 468 * 1, f 6; +#X obj 111 163 max 0.001; +#X obj 797 888 s \$0-size; +#X obj 181 541 +~, f 6; +#X obj 560 618 *~, f 8; +#X obj 130 124 route length read speed repoint switch; +#X obj 339 170 s \$0-switch; +#X obj 634 496 r \$0-switch; +#X text 427 174 0/1 off/on; +#X obj 820 734 symbol; +#X obj 181 707 +~ 1; +#X obj 560 285 *; +#X obj 583 238 r \$0-size; +#X obj 583 260 t b a; +#X obj 560 317 / 44.1; +#X obj 181 589 wrap~; +#X obj 181 677 *~, f 8; +#X obj 233 611 r \$0-size; +#X obj 111 232 s \$0-chunk-size; +#X obj 220 462 r \$0-read-point; +#X obj 182 159 max 0; +#X text 633 264 multiply by sample length; +#X text 592 372 divide by 1000ms to determine hz playback speed; +#X text 653 406 scale to set speed; +#X text 483 722 sets sharpness of the ends of window; +#X obj 307 655 loadbang; +#X obj 307 677 symbol \$1; +#X obj 181 773 tabread4~; +#X obj 796 578 loadbang; +#X obj 796 601 symbol \$1; +#X text 252 564 back to 0-1; +#X text 227 590 wrap around 0-1 to keep inside sample; +#X text 39 676 times sample length; +#X text 122 46 Argument 1: which table to read (use this object with +the cg-load-array); +#X text 118 16 Simple looper with wrap-around.; +#X text 174 98 control arguments; +#X obj 560 490 lop~ 100; +#X obj 324 838 outlet~; +#X text 385 840 playhead 0-1; +#X obj 634 518 sel 0 1; +#X obj 634 567 unpack 0 0; +#X msg 687 541 1 1000; +#X text 735 509 slow down brake \, fast start; +#X msg 560 352 1000 \$1; +#X obj 220 491 * 100000; +#X obj 181 563 /~ 100000; +#X text 259 347 scale to 100 \, 0; +#X obj 200 347 * 100000; +#X obj 233 633 - 2; +#X obj 634 591 lop~ 1.5; +#X msg 634 540 0 1.5; +#X msg 796 793 \; djrec-get-size \$1 bang; +#X obj 797 840 r djrec-get-size-return; +#X obj 797 862 route \$1; +#X obj 796 764 t s s; +#X obj 396 722 *~ 100, f 11; +#X obj 220 515 sig~; +#X obj 200 371 sig~; +#X obj 233 655 sig~; +#X obj 201 869 vline~; +#X obj 183 893 *~; +#X msg 201 846 0 5 \, 1 5 6; +#X obj 201 821 r \$0-duck; +#X obj 820 650 t a b b; +#X msg 948 681 stop; +#X obj 866 680 s \$0-duck; +#X obj 813 683 symbol; +#X obj 843 708 del 5; +#X connect 0 0 1 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 86 0; +#X connect 5 0 78 0; +#X connect 6 0 2 0; +#X connect 7 0 34 0; +#X connect 8 0 7 0; +#X connect 9 0 27 0; +#X connect 10 0 36 0; +#X connect 11 0 12 0; +#X connect 13 0 14 1; +#X connect 14 0 91 0; +#X connect 16 0 94 0; +#X connect 17 0 31 0; +#X connect 17 1 31 1; +#X connect 18 0 42 0; +#X connect 21 0 20 0; +#X connect 22 0 17 0; +#X connect 24 0 31 0; +#X connect 27 0 28 0; +#X connect 28 0 58 0; +#X connect 29 0 0 1; +#X connect 31 0 67 0; +#X connect 32 0 49 0; +#X connect 34 0 76 0; +#X connect 35 0 0 0; +#X connect 36 0 32 0; +#X connect 36 1 51 0; +#X connect 36 2 26 0; +#X connect 36 3 15 0; +#X connect 36 4 37 0; +#X connect 38 0 70 0; +#X connect 40 0 85 0; +#X connect 41 0 58 0; +#X connect 42 0 45 0; +#X connect 43 0 44 0; +#X connect 44 0 42 0; +#X connect 44 1 42 1; +#X connect 45 0 74 0; +#X connect 46 0 47 0; +#X connect 46 0 68 0; +#X connect 47 0 41 0; +#X connect 48 0 79 0; +#X connect 50 0 75 0; +#X connect 51 0 25 0; +#X connect 56 0 57 0; +#X connect 57 0 27 0; +#X connect 58 0 14 0; +#X connect 59 0 60 0; +#X connect 60 0 85 0; +#X connect 67 0 35 0; +#X connect 70 0 81 0; +#X connect 70 1 72 0; +#X connect 71 0 80 0; +#X connect 71 1 80 1; +#X connect 72 0 71 0; +#X connect 74 0 24 0; +#X connect 75 0 87 0; +#X connect 76 0 46 0; +#X connect 78 0 88 0; +#X connect 79 0 89 0; +#X connect 80 0 35 1; +#X connect 81 0 71 0; +#X connect 83 0 84 0; +#X connect 84 0 33 0; +#X connect 85 0 82 0; +#X connect 85 1 84 1; +#X connect 86 0 13 0; +#X connect 87 0 34 1; +#X connect 88 0 7 1; +#X connect 89 0 47 1; +#X connect 90 0 91 1; +#X connect 91 0 21 0; +#X connect 92 0 90 0; +#X connect 93 0 92 0; +#X connect 94 0 97 0; +#X connect 94 1 98 0; +#X connect 94 2 95 0; +#X connect 94 2 96 0; +#X connect 95 0 98 0; +#X connect 97 0 40 1; +#X connect 98 0 40 0; diff --git a/DJ Patch Record/folder_list-help.pd b/DJ Patch Record/folder_list-help.pd new file mode 100755 index 0000000..6b3892b --- /dev/null +++ b/DJ Patch Record/folder_list-help.pd @@ -0,0 +1,64 @@ +#N canvas 919 270 546 485 10; +#X msg 19 73 bang; +#X msg 27 355 bang; +#X obj 64 300 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 11 420 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X msg 176 255 symbol /usr/*; +#X text 54 73 list current directory; +#X text 160 237 set pattern without no output; +#X obj 27 386 folder_list; +#X obj 83 277 folder_list /*; +#X obj 83 298 print; +#X text 8 49 left/hot inlet gives immediate output using stored path +; +#X text 19 325 For UNIX people \, [folder_list] behaves just like "ls +-d1A"; +#X obj 28 419 print; +#X msg 91 146 symbol ~/*.*; +#X text 187 197 relative paths work; +#X msg 102 198 symbol ../*; +#X text 164 124 drive letters work on ReactOS/Windows; +#X msg 77 123 symbol C:/*; +#X text 190 148 all files with a dot in your home; +#X msg 40 98 symbol %USERPROFILE%/*; +#X text 203 99 ReactOS/Windows environment variables work; +#X text 262 218 nested wildcards work on UNIX; +#X msg 119 219 symbol /var/*/*.log; +#X text 188 170 patterns default to path that Pd launched from; +#X text 329 464 released under the GNU GPL; +#X text 15 449 (C) Copyright 2006 Hans-Christoph Steiner +; +#X text 8 5 Get a listing of files based on a wildcard pattern. On +UNIX \, it follows glob rules \, on ReactOS/Windows it follows the +cmd.exe rules.; +#X text 115 380 With no argument \, it defaults to the contents of +the folder of the current patch \, i.e. "/path/to/current/patch/*". +; +#X msg 97 173 symbol *.pd; +#N canvas 280 175 494 344 META 0; +#X text 12 145 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan +Wilkes for Pd version 0.42.; +#X text 12 25 LICENSE GPL v3; +#X text 12 125 AUTHOR Hans-Christoph Steiner; +#X text 12 45 DESCRIPTION get listing of files based on wildcard pattern +; +#X text 12 65 INLET_0 bang symbol; +#X text 12 85 INLET_1 symbol; +#X text 12 105 OUTLET_0 symbol; +#X text 12 5 KEYWORDS control filesystem patchfile_op; +#X restore 498 465 pd META; +#X connect 0 0 8 0; +#X connect 1 0 7 0; +#X connect 4 0 8 1; +#X connect 7 0 3 0; +#X connect 7 0 12 0; +#X connect 8 0 2 0; +#X connect 8 0 9 0; +#X connect 13 0 8 0; +#X connect 15 0 8 0; +#X connect 17 0 8 0; +#X connect 19 0 8 0; +#X connect 22 0 8 0; +#X connect 28 0 8 0; diff --git a/DJ Patch Record/folder_list.pd_linux b/DJ Patch Record/folder_list.pd_linux new file mode 100755 index 0000000..966443f Binary files /dev/null and b/DJ Patch Record/folder_list.pd_linux differ diff --git a/DJ Patch Record/knobs.txt b/DJ Patch Record/knobs.txt new file mode 100755 index 0000000..00eca7d --- /dev/null +++ b/DJ Patch Record/knobs.txt @@ -0,0 +1 @@ +0.851417 0.755621 0.754643 0.765396; diff --git a/DJ Patch Record/m_speedlimit-help.pd b/DJ Patch Record/m_speedlimit-help.pd new file mode 100755 index 0000000..a4a9207 --- /dev/null +++ b/DJ Patch Record/m_speedlimit-help.pd @@ -0,0 +1,26 @@ +#N canvas 357 235 570 396 10; +#X obj 128 264 t b b; +#X obj 128 298 timer; +#X floatatom 128 325 5 0 0 0 - - -; +#X obj 128 130 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X floatatom 188 130 5 0 0 0 - - -; +#X obj 128 354 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 237 167 5 0 0 1 limit(ms) - -; +#X obj 128 192 m_speedlimit 150; +#X text 37 9 m_speedlimit; +#X text 73 95 Works for any data that can be stored in [list].; +#X obj 128 155 metro 100; +#X text 73 34 Impose a limit on the speed of messages.; +#X text 73 58 Fast changing values are mapped to slower changing values +by dropping everything for the limit duration.; +#X connect 0 0 1 0; +#X connect 0 1 1 1; +#X connect 1 0 2 0; +#X connect 2 0 5 0; +#X connect 3 0 10 0; +#X connect 4 0 10 1; +#X connect 6 0 7 1; +#X connect 7 0 0 0; +#X connect 10 0 7 0; diff --git a/DJ Patch Record/m_speedlimit.pd b/DJ Patch Record/m_speedlimit.pd new file mode 100755 index 0000000..c2f1402 --- /dev/null +++ b/DJ Patch Record/m_speedlimit.pd @@ -0,0 +1,75 @@ +#N canvas 384 34 782 432 10; +#X obj 245 86 inlet; +#X obj 115 249 metro 100; +#X obj 115 69 inlet; +#N canvas 0 0 720 312 activity-monitor 0; +#X obj 108 74 inlet; +#X obj 108 103 b; +#X obj 108 160 delay 100; +#X obj 168 73 inlet; +#X obj 108 198 outlet; +#X text 198 132 if no activity for X msec \, then bang outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 4 0; +#X connect 3 0 2 1; +#X restore 161 192 pd activity-monitor; +#X msg 161 218 0; +#X msg 115 218 1; +#X obj 115 288 list append; +#X text 291 87 speed limit (ms); +#X obj 115 315 outlet; +#X obj 115 126 spigot 1; +#X obj 183 126 == 0; +#X obj 115 93 t a b a; +#X text 359 220 1) store data; +#X text 339 190 If data comes in:; +#X text 360 240 2) start activity monitor; +#X obj 420 55 loadbang; +#X obj 420 80 f \$1; +#X obj 420 108 select 0; +#X msg 420 130 100; +#X obj 245 160 f; +#X text 359 282 4) block system; +#X text 341 315 While blocked \, incoming data is sampled at metro +rate as long as there's activity.; +#X text 340 361 If there's no activity for a metro period \, stop the +metro and unblock the system to accept new data.; +#X text 359 261 3) start metro and output data; +#N canvas 172 83 586 377 LICENSE-GPL 0; +#X text 57 88 This program is free software: you can redistribute it +and/or modify it under the terms of the GNU General Public License +as published by the Free Software Foundation \, either version 3 of +the License \, or (at your option) any later version.; +#X text 58 168 This program is distributed in the hope that it will +be useful \, but WITHOUT ANY WARRANTY \; without even the implied warranty +of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +General Public License for more details.; +#X text 57 261 You should have received a copy of the GNU General Public +License along with this program. If not \, see . +; +#X text 61 54 Copyright (C) 2009 \, Reality Jockey Ltd.; +#X text 60 325 See the file LICENSE.txt for the full license text. +; +#X restore 502 19 pd LICENSE-GPL; +#X connect 0 0 19 0; +#X connect 1 0 6 0; +#X connect 2 0 11 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 0 10 0; +#X connect 5 0 1 0; +#X connect 5 0 10 0; +#X connect 6 0 8 0; +#X connect 9 0 5 0; +#X connect 10 0 9 1; +#X connect 11 0 9 0; +#X connect 11 1 3 0; +#X connect 11 2 6 1; +#X connect 15 0 16 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 17 1 19 0; +#X connect 18 0 19 0; +#X connect 19 0 3 1; +#X connect 19 0 1 1; diff --git a/DJ Patch Record/main.pd b/DJ Patch Record/main.pd new file mode 100755 index 0000000..fd2d59c --- /dev/null +++ b/DJ Patch Record/main.pd @@ -0,0 +1,661 @@ +#N canvas 358 66 936 558 10; +#X obj 131 350 throw~ outL; +#X obj 217 348 throw~ outR; +#N canvas 52 50 718 582 arrays 0; +#X obj 285 177 cg-load-array-record dj 10; +#X obj 287 143 cg-load-array-record dj 9; +#X obj 285 47 cg-load-array-record dj 6; +#X obj 65 107 cg-load-array-record dj 3; +#X obj 65 77 cg-load-array-record dj 2; +#X obj 65 47 cg-load-array-record dj 1; +#X obj 65 147 cg-load-array-record dj 4; +#X obj 66 177 cg-load-array-record dj 5; +#X obj 285 77 cg-load-array-record dj 7; +#X obj 285 107 cg-load-array-record dj 8; +#X restore 136 95 pd arrays; +#X text 210 96 load the samples into arrays to be read by the dualing +loopers; +#N canvas 65 50 1533 821 the 0; +#N canvas 463 102 1060 804 deck2 0; +#X msg 434 532 0; +#X msg 209 304 read \$1; +#X msg 290 392 speed \$1; +#X obj 310 336 t b a; +#X obj 290 369 *; +#X obj 290 289 r \$0-deck1-speed; +#X msg 537 432 length 1; +#X obj 60 165 inlet on/off; +#X obj 537 407 loadbang; +#X obj 610 113 inlet repoint; +#X obj 512 111 inlet speed; +#X obj 290 695 outlet~; +#X obj 300 41 inlet read, f 23; +#X obj 473 354 list prepend repoint; +#X obj 473 376 route list; +#X msg 58 317 switch \$1; +#X obj 60 190 sel 0 1; +#X obj 89 254 t f b; +#X msg 60 212 0; +#X msg 90 212 1, f 4; +#X obj 437 603 outlet~; +#X obj 113 35 inlet~ table 1 position; +#X obj 332 117 snapshot~; +#X obj 300 84 t f b; +#X obj 300 147 +; +#X obj 300 171 wrap; +#X obj 190 184 f, f 4; +#X msg 121 278 0; +#X obj 190 153 t b a; +#X obj 190 206 +, f 8; +#X obj 300 198 t f b b; +#X obj 290 665 *~; +#X obj 309 635 vline~; +#X obj 257 238 pipe 5.5; +#X obj 323 238 del 5.6; +#X msg 309 609 0 5 \, 1 5 6; +#X obj 68 294 pipe 2; +#X obj 290 553 cg-looper-record dj-1; +#X text 448 549 <---- standard critter and gutari looper; +#X connect 0 0 37 1; +#X connect 1 0 37 0; +#X connect 2 0 37 0; +#X connect 3 0 4 0; +#X connect 3 1 4 1; +#X connect 4 0 2 0; +#X connect 5 0 4 0; +#X connect 6 0 37 0; +#X connect 7 0 16 0; +#X connect 8 0 6 0; +#X connect 9 0 13 0; +#X connect 10 0 3 0; +#X connect 12 0 23 0; +#X connect 12 0 26 1; +#X connect 13 0 14 0; +#X connect 14 0 37 0; +#X connect 15 0 37 0; +#X connect 16 0 18 0; +#X connect 16 1 19 0; +#X connect 17 0 36 0; +#X connect 17 1 27 0; +#X connect 18 0 15 0; +#X connect 19 0 17 0; +#X connect 21 0 22 0; +#X connect 22 0 24 1; +#X connect 23 0 24 0; +#X connect 23 1 22 0; +#X connect 24 0 25 0; +#X connect 25 0 30 0; +#X connect 26 0 29 0; +#X connect 27 0 28 0; +#X connect 28 0 26 0; +#X connect 28 1 29 1; +#X connect 29 0 25 0; +#X connect 30 0 33 0; +#X connect 30 1 34 0; +#X connect 30 2 35 0; +#X connect 31 0 11 0; +#X connect 32 0 31 1; +#X connect 33 0 1 0; +#X connect 34 0 0 0; +#X connect 35 0 32 0; +#X connect 36 0 15 0; +#X connect 37 0 31 0; +#X connect 37 1 20 0; +#X restore 748 447 pd deck2; +#X obj 999 224 r knob4; +#X obj 999 288 int; +#X obj 762 202 r notes; +#N canvas 55 50 1061 805 deck1 0; +#X msg 433 529 0; +#X msg 209 304 read \$1; +#X msg 287 388 speed \$1; +#X msg 126 407 switch \$1; +#X msg 537 432 length 1; +#X obj 59 159 inlet on/off; +#X obj 537 407 loadbang; +#X obj 525 115 inlet repoint; +#X obj 430 116 inlet speed; +#X obj 290 705 outlet~; +#X obj 218 136 inlet read, f 23; +#X obj 292 326 t a a; +#X obj 323 356 s \$0-deck1-speed; +#X obj 487 617 outlet~, f 17; +#X obj 473 354 list prepend repoint; +#X obj 473 376 route list; +#X obj 128 280 sel 0 1; +#X obj 157 344 t f b; +#X msg 128 302 0; +#X msg 158 302 1, f 4; +#X obj 290 553 cg-looper-record dj-1; +#X obj 157 366 pipe 2; +#X text 448 549 <---- standard critter and gutari looper; +#X connect 0 0 20 1; +#X connect 1 0 20 0; +#X connect 2 0 20 0; +#X connect 3 0 20 0; +#X connect 4 0 20 0; +#X connect 5 0 16 0; +#X connect 6 0 4 0; +#X connect 7 0 14 0; +#X connect 8 0 11 0; +#X connect 10 0 1 0; +#X connect 11 0 2 0; +#X connect 11 1 12 0; +#X connect 14 0 15 0; +#X connect 15 0 20 0; +#X connect 16 0 18 0; +#X connect 16 1 19 0; +#X connect 17 0 21 0; +#X connect 17 1 0 0; +#X connect 18 0 3 0; +#X connect 19 0 17 0; +#X connect 20 0 9 0; +#X connect 20 1 13 0; +#X connect 21 0 3 0; +#X restore 177 353 pd deck1; +#X obj 171 220 loadbang; +#X msg 171 242 0; +#X obj 554 243 r \$0-on-off; +#N canvas 156 70 1353 921 print-things 0; +#X obj 413 224 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 286 316 * 126; +#X obj 286 338 i; +#X obj 303 673 s oscOut; +#X obj 332 508 list; +#X obj 303 640 t a a, f 18; +#X obj 332 530 route list; +#X msg 357 481 0; +#X text 354 658 previous area to invert(erase); +#X text 391 482 erase old session list; +#X msg 196 613 /oled/gFlip 3; +#X obj 286 476 t a b, f 7; +#X obj 271 515 t b a; +#X obj 413 244 t b b; +#X msg 634 186 dj-\$1; +#X obj 634 27 r knob1; +#X obj 634 121 i; +#X obj 634 143 + 1; +#X obj 633 99 * 9; +#X text 696 134 select 1 - 10 samples; +#X obj 715 317 s \$0-erase-playhead; +#X obj 445 304 s \$0-erase-playhead; +#X obj 357 451 r \$0-erase-playhead; +#X obj 634 165 change -1; +#X obj 286 71 inlet; +#X msg 303 613 /oled/gInvertArea 3 \$1 14 3 40; +#X msg 658 353 \; \$1-get-name bang; +#X obj 963 288 r return-name; +#X obj 658 330 symbol; +#X obj 963 469 route list; +#X obj 963 494 t b a, f 17; +#X obj 1056 809 s oscOut; +#X msg 963 519 /oled/gFlip 3; +#X msg 995 407 /oled/gFillArea 3 0 0 127 8 0; +#X obj 963 438 list prepend /oled/gPrintln 3 0 0 8 1; +#X obj 1013 329 t b b; +#X msg 1045 355 stop; +#X obj 1013 380 del 1000; +#X obj 413 274 array-waveform-print-record dj-5; +#X msg 934 350 Sample \$1; +#X obj 963 310 t f b; +#X obj 634 238 t a a a b, f 12; +#X obj 688 297 s djrec-sample-sel; +#X obj 634 217 symbol; +#X obj 710 176 sel 0; +#X obj 710 152 r djrec-aux; +#X obj 710 198 del 50; +#X obj 883 222 inlet; +#X obj 813 557 t a a b, f 10; +#X obj 883 244 * 100; +#X obj 883 266 i; +#X obj 866 586 list, f 5; +#X obj 866 608 route list; +#X obj 813 508 pack 0 0; +#X obj 813 481 - 4; +#X obj 286 360 t f f, f 20; +#X msg 810 636 /oled/gPrintln 3 \$1 5 8 1 \$2%; +#X msg 867 659 /oled/gPrintln 3 \$1 5 8 0 \$2%; +#X obj 634 49 spigot 1; +#X obj 1049 102 r djrec-its-recording; +#X obj 976 59 r djrec-start; +#X obj 917 89 r djrec-stop; +#X obj 1021 82 r djrec-recenabled; +#X obj 930 34 r djrec-autostop; +#X obj 917 111 b; +#X msg 917 133 1; +#X obj 964 111 b; +#X msg 964 133 0; +#X connect 0 0 13 0; +#X connect 1 0 2 0; +#X connect 2 0 55 0; +#X connect 4 0 6 0; +#X connect 5 0 3 0; +#X connect 5 1 4 1; +#X connect 6 0 3 0; +#X connect 7 0 4 1; +#X connect 10 0 3 0; +#X connect 11 0 12 0; +#X connect 11 1 4 0; +#X connect 12 0 10 0; +#X connect 12 1 25 0; +#X connect 13 0 38 0; +#X connect 13 1 21 0; +#X connect 14 0 43 0; +#X connect 15 0 58 0; +#X connect 16 0 17 0; +#X connect 17 0 23 0; +#X connect 18 0 16 0; +#X connect 22 0 7 0; +#X connect 23 0 14 0; +#X connect 24 0 1 0; +#X connect 25 0 5 0; +#X connect 27 0 40 0; +#X connect 28 0 26 0; +#X connect 29 0 30 0; +#X connect 30 0 32 0; +#X connect 30 1 31 0; +#X connect 32 0 31 0; +#X connect 33 0 31 0; +#X connect 34 0 29 0; +#X connect 35 0 37 0; +#X connect 35 1 36 0; +#X connect 36 0 37 0; +#X connect 37 0 33 0; +#X connect 39 0 34 0; +#X connect 40 0 39 0; +#X connect 40 1 33 0; +#X connect 40 1 35 0; +#X connect 41 0 28 0; +#X connect 41 1 38 1; +#X connect 41 2 42 0; +#X connect 41 3 20 0; +#X connect 43 0 41 0; +#X connect 44 0 46 0; +#X connect 45 0 44 0; +#X connect 46 0 43 0; +#X connect 47 0 49 0; +#X connect 48 0 56 0; +#X connect 48 1 51 1; +#X connect 48 2 51 0; +#X connect 49 0 50 0; +#X connect 50 0 53 1; +#X connect 51 0 52 0; +#X connect 52 0 57 0; +#X connect 53 0 48 0; +#X connect 54 0 53 0; +#X connect 55 0 11 0; +#X connect 55 1 54 0; +#X connect 56 0 31 0; +#X connect 57 0 31 0; +#X connect 58 0 18 0; +#X connect 59 0 66 0; +#X connect 60 0 64 0; +#X connect 61 0 64 0; +#X connect 62 0 66 0; +#X connect 63 0 64 0; +#X connect 64 0 65 0; +#X connect 65 0 58 1; +#X connect 66 0 67 0; +#X connect 67 0 58 1; +#X restore 455 583 pd print-things and knob1; +#X obj 177 565 *~; +#X obj 748 677 *~; +#X obj 249 450 *~; +#X obj 249 472 *~; +#X obj 195 501 sig~ 1; +#X obj 195 523 -~, f 8; +#X obj 818 587 *~; +#X obj 818 609 *~; +#X msg 818 515 1 \$1; +#X obj 818 537 -; +#X obj 765 628 sig~ 1; +#X obj 765 650 -~, f 8; +#X obj 818 631 *~; +#X obj 249 494 *~; +#N canvas 628 145 1140 768 print-deck2 0; +#X obj 286 236 * 126; +#X obj 294 258 i; +#X obj 571 722 s oscOut; +#X obj 514 502 list; +#X obj 456 610 t a a, f 18; +#X obj 514 524 route list; +#X msg 663 113 0; +#X text 465 626 previous area to invert(erase); +#X text 697 114 erase old session list; +#X obj 663 55 r \$0-erase-playhead; +#X obj 468 469 t a b, f 7; +#X obj 915 136 inlet; +#X obj 845 471 t a a b, f 10; +#X obj 416 389 t b a a a, f 44; +#X obj 286 280 change -1; +#X obj 915 158 * 100; +#X obj 915 180 i; +#X obj 898 500 list, f 5; +#X obj 898 522 route list; +#X obj 844 422 pack 0 0; +#X obj 286 101 inlet; +#X msg 456 583 /oled/gInvertArea 3 \$1 14 1 40; +#X msg 845 550 /oled/gPrintln 3 \$1 56 8 1 \$2%; +#X msg 899 573 /oled/gPrintln 3 \$1 56 8 0 \$2%; +#X obj 849 395 - 4; +#X obj 827 186 r \$0-on-off; +#X obj 827 208 sel 0 1; +#X msg 858 230 0; +#X msg 827 230 1; +#X obj 740 264 spigot; +#X obj 384 248 b; +#X connect 0 0 1 0; +#X connect 1 0 14 0; +#X connect 1 0 30 0; +#X connect 3 0 5 0; +#X connect 4 0 2 0; +#X connect 4 1 3 1; +#X connect 5 0 2 0; +#X connect 6 0 3 1; +#X connect 6 0 17 1; +#X connect 9 0 6 0; +#X connect 10 0 21 0; +#X connect 10 1 3 0; +#X connect 11 0 15 0; +#X connect 12 0 22 0; +#X connect 12 1 17 1; +#X connect 12 2 17 0; +#X connect 13 1 10 0; +#X connect 13 3 24 0; +#X connect 14 0 13 0; +#X connect 15 0 16 0; +#X connect 16 0 19 1; +#X connect 17 0 18 0; +#X connect 18 0 23 0; +#X connect 19 0 12 0; +#X connect 20 0 0 0; +#X connect 21 0 4 0; +#X connect 22 0 2 0; +#X connect 23 0 2 0; +#X connect 24 0 19 0; +#X connect 25 0 26 0; +#X connect 26 0 28 0; +#X connect 26 1 27 0; +#X connect 27 0 29 1; +#X connect 28 0 29 1; +#X connect 29 0 19 0; +#X connect 30 0 29 0; +#X restore 550 546 pd print-deck2; +#X obj 331 111 r knob3; +#X obj 999 349 t f f, f 14; +#X obj 550 518 snapshot~; +#X obj 455 467 metro 100; +#X obj 455 419 loadbang; +#X msg 455 441 1; +#X obj 491 441 s \$0-erase-playhead; +#X obj 455 489 t b b, f 14; +#X obj 455 517 snapshot~; +#N canvas 8 50 873 630 notes-in 0; +#X obj 268 105 stripnote; +#X obj 268 198 - 72; +#X obj 268 150 % 24; +#X obj 268 174 + 60; +#X obj 268 127 - 12; +#X obj 268 222 * 0.0625; +#X obj 268 82 inlet; +#X obj 268 336 outlet; +#X text 337 221 splits the keyboard into 1/16 steps; +#X text 326 144 wraps midi in to 60-83; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 4 0 2 0; +#X connect 5 0 7 0; +#X connect 6 0 0 0; +#X restore 762 228 pd notes-in; +#X obj 815 490 r \$0-xfade-control; +#X obj 247 405 r \$0-xfade-control; +#X obj 999 310 * 0.0625; +#X obj 999 246 * 64; +#X obj 999 268 - 32; +#X obj 249 428 lop~ 200; +#X obj 818 566 lop~ 200; +#X obj 554 265 t f f; +#X obj 820 261 xtra-saver notes; +#X obj 908 233 loadbang; +#X obj 846 333 r djrec-sample-sel; +#X obj 293 329 r djrec-sample-sel; +#X obj 176 592 throw~ djrec-main; +#X obj 747 713 throw~ djrec-main; +#X obj 331 180 int; +#X obj 331 241 t f f, f 14; +#X obj 331 202 * 0.0625; +#X obj 331 138 * 64; +#X obj 331 160 - 32; +#X obj 547 64 r knob2; +#X obj 576 95 * 100; +#X obj 576 117 i; +#X msg 576 139 Xfade:; +#X obj 547 187 s \$0-xfade-control; +#X text 624 65 knob 2 controls the mix. left (0) is deck1 right is +deck2 (1); +#X connect 0 0 10 0; +#X connect 0 1 26 0; +#X connect 1 0 37 0; +#X connect 2 0 36 0; +#X connect 3 0 33 0; +#X connect 4 0 9 0; +#X connect 4 1 32 0; +#X connect 4 1 0 1; +#X connect 5 0 6 0; +#X connect 6 0 4 1; +#X connect 7 0 41 0; +#X connect 9 0 46 0; +#X connect 10 0 47 0; +#X connect 11 0 12 0; +#X connect 11 0 12 1; +#X connect 12 0 22 0; +#X connect 12 0 22 1; +#X connect 13 0 14 0; +#X connect 14 0 9 1; +#X connect 15 0 16 0; +#X connect 15 0 16 1; +#X connect 16 0 21 0; +#X connect 16 0 21 1; +#X connect 17 0 18 0; +#X connect 18 0 40 0; +#X connect 19 0 20 0; +#X connect 20 0 10 1; +#X connect 21 0 20 1; +#X connect 22 0 14 1; +#X connect 24 0 51 0; +#X connect 25 0 0 3; +#X connect 25 1 23 1; +#X connect 26 0 23 0; +#X connect 27 0 31 0; +#X connect 28 0 29 0; +#X connect 28 0 30 0; +#X connect 29 0 27 0; +#X connect 31 0 32 0; +#X connect 31 1 26 0; +#X connect 32 0 8 0; +#X connect 33 0 42 0; +#X connect 33 0 0 2; +#X connect 34 0 17 0; +#X connect 35 0 39 0; +#X connect 36 0 25 0; +#X connect 37 0 38 0; +#X connect 38 0 2 0; +#X connect 39 0 11 0; +#X connect 39 0 11 1; +#X connect 40 0 15 0; +#X connect 40 0 15 1; +#X connect 41 0 4 0; +#X connect 41 1 0 0; +#X connect 42 0 0 2; +#X connect 43 0 42 1; +#X connect 44 0 0 4; +#X connect 45 0 4 3; +#X connect 48 0 50 0; +#X connect 49 0 4 2; +#X connect 49 1 8 1; +#X connect 50 0 49 0; +#X connect 51 0 52 0; +#X connect 52 0 48 0; +#X connect 53 0 54 0; +#X connect 53 0 57 0; +#X connect 54 0 55 0; +#X connect 55 0 56 0; +#X restore 132 144 pd the two 'decks'; +#X text 138 20 The Dj-Patch; +#X text 139 45 a 'beat juggling' patch. two looper play together with +different speeds and play positions; +#X text 265 310 catch the signal send out; +#X text 286 143 the guts of this patch; +#X obj 697 37 r~ inL; +#X obj 748 37 r~ inR; +#X obj 698 203 *~ 1; +#X obj 131 308 catch~ djrec-main; +#X obj 697 226 throw~ djrec-main; +#N canvas 9 50 1409 824 aux 0; +#X obj 1074 404 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +0 1; +#X text 1003 283 led lights; +#X obj 787 238 s djrec-aux; +#X obj 787 167 r djrec-autostop; +#X obj 1073 473 r djrec-its-recording; +#X obj 1073 520 v djrec-vari; +#X msg 1073 495 3; +#X obj 1074 433 s \$0-on-off; +#X obj 761 670 s led; +#X msg 801 634 3; +#X msg 761 634 0; +#X msg 835 634 6; +#X msg 873 633 1; +#X obj 365 290 f, f 9; +#X obj 242 476 sel 0 1 2 3, f 54; +#X obj 242 551 t b b; +#X msg 274 578 1; +#X obj 335 527 t b b; +#X msg 367 548 0; +#X msg 433 382 2; +#X msg 461 563 0; +#X obj 523 531 t b b b; +#X msg 569 555 1; +#X obj 365 262 del 500; +#X obj 242 305 spigot 0; +#X obj 365 344 t b b b b, f 15; +#X msg 467 373 0; +#X obj 242 283 sel 0; +#X obj 365 237 sel 1; +#X obj 365 316 sel 1; +#X obj 425 230 sel 1; +#X msg 425 253 1; +#X obj 344 196 t f f f f; +#X obj 344 156 r aux; +#X obj 389 156 r fs; +#X obj 242 362 v djrec-vari; +#X obj 433 404 v djrec-vari; +#X obj 274 601 v djrec-vari; +#X obj 367 570 v djrec-vari; +#X obj 461 585 v djrec-vari; +#X obj 569 577 v djrec-vari; +#X obj 242 661 s djrec-start; +#X obj 335 627 s djrec-stop; +#X obj 429 630 s djrec-stop; +#X obj 523 633 s djrec-start; +#X obj 1074 341 r djrec-start; +#X obj 1175 342 r djrec-stop; +#X msg 1074 363 1; +#X msg 1175 364 0; +#X obj 399 429 s djrec-stop; +#X msg 787 211 0; +#X obj 873 609 r djrec-its-recording; +#X obj 800 566 r djrec-start; +#X obj 741 596 r djrec-stop; +#X obj 366 451 s djrec-recenabled; +#X obj 737 147 r djrec-recenabled; +#X msg 737 169 1; +#X obj 845 589 r djrec-recenabled; +#X obj 754 541 r djrec-autostop; +#X obj 787 189 t b b; +#X obj 546 605 s djrec-stop-rec; +#X obj 868 190 r djrec-stop-rec; +#X msg 868 212 0; +#X msg 819 271 0; +#X obj 819 293 v djrec-vari; +#X text 219 115 aux and footswitch control record and playback states +; +#X text 760 700 the led light; +#X obj 496 507 s djrec-recDISabled; +#X obj 429 528 t b b b; +#X connect 0 0 7 0; +#X connect 3 0 59 0; +#X connect 4 0 6 0; +#X connect 6 0 5 0; +#X connect 9 0 8 0; +#X connect 10 0 8 0; +#X connect 11 0 8 0; +#X connect 12 0 8 0; +#X connect 13 0 29 0; +#X connect 14 0 15 0; +#X connect 14 1 17 0; +#X connect 14 2 68 0; +#X connect 14 3 21 0; +#X connect 15 0 41 0; +#X connect 15 1 16 0; +#X connect 16 0 37 0; +#X connect 17 0 42 0; +#X connect 17 1 18 0; +#X connect 18 0 38 0; +#X connect 19 0 36 0; +#X connect 20 0 39 0; +#X connect 21 0 44 0; +#X connect 21 1 60 0; +#X connect 21 2 22 0; +#X connect 22 0 40 0; +#X connect 23 0 13 0; +#X connect 24 0 35 0; +#X connect 25 0 54 0; +#X connect 25 1 49 0; +#X connect 25 2 19 0; +#X connect 25 3 26 0; +#X connect 26 0 24 1; +#X connect 27 0 24 0; +#X connect 28 0 23 0; +#X connect 29 0 25 0; +#X connect 30 0 31 0; +#X connect 31 0 24 1; +#X connect 32 0 27 0; +#X connect 32 1 28 0; +#X connect 32 2 13 1; +#X connect 32 3 30 0; +#X connect 33 0 32 0; +#X connect 34 0 32 0; +#X connect 35 0 14 0; +#X connect 45 0 47 0; +#X connect 46 0 48 0; +#X connect 47 0 0 0; +#X connect 48 0 0 0; +#X connect 50 0 2 0; +#X connect 51 0 12 0; +#X connect 52 0 9 0; +#X connect 53 0 10 0; +#X connect 55 0 56 0; +#X connect 56 0 2 0; +#X connect 57 0 11 0; +#X connect 58 0 10 0; +#X connect 59 0 50 0; +#X connect 59 1 63 0; +#X connect 61 0 62 0; +#X connect 62 0 2 0; +#X connect 63 0 64 0; +#X connect 68 0 43 0; +#X connect 68 1 20 0; +#X connect 68 2 67 0; +#X restore 131 248 pd aux data; +#X text 220 249 aux and footswitch control the states of play/stop +and record; +#X text 704 74 Audio in from L-R channels; +#X connect 9 0 11 0; +#X connect 10 0 11 0; +#X connect 11 0 13 0; +#X connect 12 0 0 0; +#X connect 12 0 1 0; diff --git a/DJ Patch Record/notes.txt b/DJ Patch Record/notes.txt new file mode 100755 index 0000000..0f57817 --- /dev/null +++ b/DJ Patch Record/notes.txt @@ -0,0 +1 @@ +0; diff --git a/DJ Patch Record/sounds/sound-0.wav b/DJ Patch Record/sounds/sound-0.wav new file mode 100755 index 0000000..9c5f6b2 Binary files /dev/null and b/DJ Patch Record/sounds/sound-0.wav differ diff --git a/DJ Patch Record/sounds/sound-1.wav b/DJ Patch Record/sounds/sound-1.wav new file mode 100755 index 0000000..c0f41d3 Binary files /dev/null and b/DJ Patch Record/sounds/sound-1.wav differ diff --git a/DJ Patch Record/sounds/sound-10.wav b/DJ Patch Record/sounds/sound-10.wav new file mode 100755 index 0000000..fd79d15 Binary files /dev/null and b/DJ Patch Record/sounds/sound-10.wav differ diff --git a/DJ Patch Record/sounds/sound-2.wav b/DJ Patch Record/sounds/sound-2.wav new file mode 100755 index 0000000..da7b187 Binary files /dev/null and b/DJ Patch Record/sounds/sound-2.wav differ diff --git a/DJ Patch Record/sounds/sound-3.wav b/DJ Patch Record/sounds/sound-3.wav new file mode 100755 index 0000000..b615ea5 Binary files /dev/null and b/DJ Patch Record/sounds/sound-3.wav differ diff --git a/DJ Patch Record/sounds/sound-4.wav b/DJ Patch Record/sounds/sound-4.wav new file mode 100755 index 0000000..b11a8be Binary files /dev/null and b/DJ Patch Record/sounds/sound-4.wav differ diff --git a/DJ Patch Record/sounds/sound-5.wav b/DJ Patch Record/sounds/sound-5.wav new file mode 100755 index 0000000..59f6778 Binary files /dev/null and b/DJ Patch Record/sounds/sound-5.wav differ diff --git a/DJ Patch Record/sounds/sound-6.wav b/DJ Patch Record/sounds/sound-6.wav new file mode 100755 index 0000000..f20fdc1 Binary files /dev/null and b/DJ Patch Record/sounds/sound-6.wav differ diff --git a/DJ Patch Record/sounds/sound-7.wav b/DJ Patch Record/sounds/sound-7.wav new file mode 100755 index 0000000..492eaa6 Binary files /dev/null and b/DJ Patch Record/sounds/sound-7.wav differ diff --git a/DJ Patch Record/sounds/sound-8.wav b/DJ Patch Record/sounds/sound-8.wav new file mode 100755 index 0000000..28b838c Binary files /dev/null and b/DJ Patch Record/sounds/sound-8.wav differ diff --git a/DJ Patch Record/sounds/sound-9.wav b/DJ Patch Record/sounds/sound-9.wav new file mode 100755 index 0000000..1cfd7f5 Binary files /dev/null and b/DJ Patch Record/sounds/sound-9.wav differ diff --git a/DJ Patch Record/strippath-help.pd b/DJ Patch Record/strippath-help.pd new file mode 100755 index 0000000..6b95106 --- /dev/null +++ b/DJ Patch Record/strippath-help.pd @@ -0,0 +1,22 @@ +#N canvas 1096 200 454 304 10; +#X symbolatom 113 196 0 0 0 0 - - -; +#X msg 113 109 symbol /this/is/a/testfile.txt; +#X msg 58 88 bang; +#X obj 58 109 getdir; +#N canvas 463 219 494 344 META 0; +#X text 12 125 RELEASE_DATE 2009-06-12; +#X text 12 145 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan +Wilkes for Pd version 0.42.; +#X text 12 105 AUTHOR d13@klingt.org; +#X text 12 25 LICENSE GPL v2; +#X text 12 45 DESCRIPTION remove path from a filename; +#X text 12 85 INLET_1 symbol; +#X text 12 65 INLET_0 bang symbol; +#X text 12 5 KEYWORDS control symbol_op filter; +#X restore 370 271 pd META; +#X text 112 24 remove path from a filename; +#X obj 113 163 strippath; +#X connect 1 0 6 0; +#X connect 2 0 3 0; +#X connect 3 0 6 0; +#X connect 6 0 0 0; diff --git a/DJ Patch Record/strippath.pd_linux b/DJ Patch Record/strippath.pd_linux new file mode 100755 index 0000000..ce2c2de Binary files /dev/null and b/DJ Patch Record/strippath.pd_linux differ diff --git a/DJ Patch Record/xtra-saver.pd b/DJ Patch Record/xtra-saver.pd new file mode 100755 index 0000000..2e1d92b --- /dev/null +++ b/DJ Patch Record/xtra-saver.pd @@ -0,0 +1,26 @@ +#N canvas 477 183 544 395 10; +#X obj 180 202 textfile; +#X obj 23 115 r saveState; +#X msg 180 87 clear \, add \$1; +#X msg 23 171 write \$1.txt; +#X obj 180 58 inlet parameter; +#X obj 310 58 inlet recall; +#X obj 21 29 loadbang; +#X msg 21 74 read \$1.txt; +#X msg 310 80 rewind \, bang; +#X text 146 6 saves one float \, use to save notes for instance; +#X obj 180 247 outlet to the parameter; +#X text 148 26 arg1: unique name; +#X obj 23 137 symbol \$1; +#X obj 21 51 symbol \$1; +#X connect 0 0 10 0; +#X connect 1 0 12 0; +#X connect 2 0 0 0; +#X connect 3 0 0 0; +#X connect 4 0 2 0; +#X connect 5 0 8 0; +#X connect 6 0 13 0; +#X connect 7 0 0 0; +#X connect 8 0 0 0; +#X connect 12 0 3 0; +#X connect 13 0 7 0; diff --git a/DJ Patch/LICENSE.txt b/DJ Patch/LICENSE.txt new file mode 100755 index 0000000..b6e3a93 --- /dev/null +++ b/DJ Patch/LICENSE.txt @@ -0,0 +1,18 @@ +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. + +--- Begin BSD 3-Clause License --- + +Copyright (c) 2016, 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/DJ Patch/array-waveform-print.pd b/DJ Patch/array-waveform-print.pd new file mode 100755 index 0000000..4ad08c2 --- /dev/null +++ b/DJ Patch/array-waveform-print.pd @@ -0,0 +1,78 @@ +#N canvas 856 99 874 721 10; +#X obj 109 31 inlet; +#X text 283 43 arg 1: waveform name; +#X obj 219 238 f 0; +#X obj 219 267 i; +#X obj 219 189 until; +#X msg 219 163 128; +#X msg 293 183 0; +#X obj 219 327 * 0.5; +#X obj 219 349 + 0.5; +#X obj 219 398 * 64; +#X obj 219 421 i; +#X obj 139 623 s oscOut; +#X obj 544 500 t l; +#X obj 145 531 list append; +#X obj 145 577 list trim; +#X obj 441 499 list prepend; +#X obj 250 238 + 34; +#X obj 219 298 tabread \$1; +#X obj 352 185 array size \$1; +#X obj 352 207 / 128; +#X obj 202 30 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X msg 589 565 /oled/gClear 0 1; +#X msg 145 480 sendtyped /oled/gWaveform ib 0; +#X obj 219 371 * -1; +#X msg 32 503 /oled/gFlip 3; +#X obj 115 86 t b b; +#X obj 147 117 t b b b b b b b b, f 56; +#X msg 621 525 /oled/gShowInfoBar 0 0; +#X obj 589 494 t b b; +#X obj 574 48 inlet; +#X obj 596 104 symbol; +#X msg 597 153 set \$1; +#X obj 574 70 t b a; +#X connect 0 0 25 0; +#X connect 2 0 3 0; +#X connect 2 0 16 0; +#X connect 3 0 17 0; +#X connect 4 0 2 0; +#X connect 5 0 4 0; +#X connect 6 0 2 1; +#X connect 7 0 8 0; +#X connect 8 0 23 0; +#X connect 9 0 10 0; +#X connect 10 0 15 0; +#X connect 12 0 15 1; +#X connect 13 0 14 0; +#X connect 14 0 11 0; +#X connect 15 0 13 1; +#X connect 15 0 12 0; +#X connect 16 0 2 1; +#X connect 17 0 7 0; +#X connect 18 0 19 0; +#X connect 19 0 16 1; +#X connect 20 0 25 0; +#X connect 21 0 11 0; +#X connect 22 0 13 0; +#X connect 23 0 9 0; +#X connect 24 0 11 0; +#X connect 25 0 24 0; +#X connect 25 1 26 0; +#X connect 26 1 22 0; +#X connect 26 2 5 0; +#X connect 26 3 6 0; +#X connect 26 4 18 0; +#X connect 26 5 15 0; +#X connect 26 6 15 1; +#X connect 26 7 28 0; +#X connect 27 0 11 0; +#X connect 28 0 21 0; +#X connect 28 1 27 0; +#X connect 29 0 32 0; +#X connect 30 0 18 1; +#X connect 30 0 31 0; +#X connect 31 0 17 0; +#X connect 32 0 25 0; +#X connect 32 1 30 0; diff --git a/DJ Patch/cg-load-array.pd b/DJ Patch/cg-load-array.pd new file mode 100755 index 0000000..60734a3 --- /dev/null +++ b/DJ Patch/cg-load-array.pd @@ -0,0 +1,46 @@ +#N canvas 371 145 980 611 10; +#X obj 126 350 soundfiler; +#N canvas 0 50 450 250 (subpatch) 0; +#X array \$1 211680 float 2; +#X coords 0 1 211680 -1 200 140 1 0 0; +#X restore 502 119 graph; +#X obj 126 270 pack s s; +#X obj 198 213 symbol \$1; +#X text 9 11 arg 1: name of array for refencing with tabread~/tabread4~ +(example: array-1); +#X obj 126 415 symbol \$1; +#X msg 126 447 \; \$1 normalize; +#X obj 126 382 b; +#X text 165 381 convert this to a bang; +#X text 197 414 recall arg1 (\$1); +#X text 269 211 get name of array; +#X text 222 452 this is a command to normalize the array (\$1); +#X text 499 73 this is the array \, automatically named by the first +argument (look in properties for this object); +#X text 192 269 pack it together; +#X text 317 305 compose the request for soundfiler; +#X text 201 343 outputs length in samples when done loading \, we just +want done loading bang so...; +#X text 471 11 ***use this object with cg-looper***; +#X obj 54 112 r \$1-repoint; +#X msg 126 305 read -resize sounds/\$1 \$2; +#X obj 54 136 t a a b, f 21; +#X obj 15 80 r \$1-get-name; +#X obj 15 188 s return-name; +#X obj 15 102 b; +#X obj 15 163 list; +#X text 53 164 store filename for recalling; +#X text 119 81 arg1-get-name and bang reutrns the name; +#X connect 0 0 7 0; +#X connect 2 0 18 0; +#X connect 3 0 2 1; +#X connect 5 0 6 0; +#X connect 7 0 5 0; +#X connect 17 0 19 0; +#X connect 18 0 0 0; +#X connect 19 0 23 1; +#X connect 19 1 2 0; +#X connect 19 2 3 0; +#X connect 20 0 22 0; +#X connect 22 0 23 0; +#X connect 23 0 21 0; diff --git a/DJ Patch/cg-looper.pd b/DJ Patch/cg-looper.pd new file mode 100755 index 0000000..632086a --- /dev/null +++ b/DJ Patch/cg-looper.pd @@ -0,0 +1,180 @@ +#N canvas 656 70 1150 878 10; +#X obj 559 653 phasor~, f 11; +#X obj 559 685 s~ \$0-phase; +#X obj 396 653 -~ 0.5; +#X obj 396 677 *~ 0.5; +#X obj 396 700 cos~; +#X obj 200 298 r \$0-chunk-size; +#X obj 395 631 r~ \$0-phase; +#X obj 181 409 *~; +#X obj 180 265 r~ \$0-phase; +#X obj 234 704 r \$0-pointer; +#X obj 130 99 inlet; +#X obj 462 97 inlet; +#X obj 462 119 s \$0-retrigger; +#X obj 396 744 clip~ 0 1; +#X obj 181 795 *~, f 31; +#X obj 287 145 s \$0-pointer; +#X obj 796 662 r \$0-pointer; +#X obj 572 436 t b f; +#X obj 560 213 r \$0-chunk-size; +#X text 611 318 convert to ms; +#X obj 181 937 outlet~; +#X obj 181 917 hip~ 5; +#X obj 572 406 r \$0-speed; +#X text 870 819 get size of sample in samples; +#X obj 560 374 /; +#X obj 182 190 s \$0-read-point; +#X obj 235 166 s \$0-speed; +#X obj 234 726 list prepend set; +#X obj 234 748 route list; +#X obj 633 623 r \$0-retrigger; +#X text 578 120 0-1 floating point; +#X obj 796 794 array size \$1; +#X obj 560 468 * 1, f 6; +#X obj 111 163 max 0.001; +#X obj 796 818 s \$0-size; +#X obj 181 541 +~, f 6; +#X obj 560 618 *~, f 8; +#X obj 130 124 route length read speed repoint switch; +#X obj 339 170 s \$0-switch; +#X obj 634 496 r \$0-switch; +#X text 427 174 0/1 off/on; +#X obj 884 765 symbol; +#X obj 181 707 +~ 1; +#X obj 560 285 *; +#X obj 583 238 r \$0-size; +#X obj 583 260 t b a; +#X obj 560 317 / 44.1; +#X obj 181 589 wrap~; +#X obj 181 677 *~, f 8; +#X obj 233 611 r \$0-size; +#X obj 111 232 s \$0-chunk-size; +#X obj 220 462 r \$0-read-point; +#X obj 182 159 max 0; +#X text 633 264 multiply by sample length; +#X text 592 372 divide by 1000ms to determine hz playback speed; +#X text 653 406 scale to set speed; +#X text 483 722 sets sharpness of the ends of window; +#X obj 307 655 loadbang; +#X obj 307 677 symbol \$1; +#X obj 181 773 tabread4~; +#X obj 757 600 loadbang; +#X obj 757 623 symbol \$1; +#X text 259 371 smooth changes; +#X text 252 564 back to 0-1; +#X text 227 590 wrap around 0-1 to keep inside sample; +#X text 39 676 times sample length; +#X text 122 46 Argument 1: which table to read (use this object with +the cg-load-array); +#X text 118 16 Simple looper with wrap-around.; +#X text 174 98 control arguments; +#X obj 560 490 lop~ 100; +#X obj 396 722 *~ 5, f 11; +#X obj 324 838 outlet~; +#X text 385 840 playhead 0-1; +#X obj 634 518 sel 0 1; +#X obj 634 567 unpack 0 0; +#X msg 687 541 1 1000; +#X text 735 509 slow down brake \, fast start; +#X obj 220 515 lop~ 20000; +#X obj 200 372 lop~ 200; +#X obj 233 655 lop~ 200; +#X msg 560 352 1000 \$1; +#X obj 220 491 * 100000; +#X obj 181 563 /~ 100000; +#X text 259 320 scale to 100 \, 0; +#X obj 200 320 * 100000; +#X obj 233 633 - 2; +#X obj 634 591 lop~ 1.5; +#X msg 634 540 0 1.5; +#X obj 200 869 vline~; +#X obj 182 893 *~; +#X msg 200 846 0 5 \, 1 5 6; +#X obj 200 821 r \$0-duck; +#X obj 900 713 s \$0-duck; +#X obj 887 740 symbol; +#X obj 795 717 del 5; +#X obj 796 684 t b a b, f 14; +#X obj 797 743 t b b; +#X connect 0 0 1 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 70 0; +#X connect 5 0 84 0; +#X connect 6 0 2 0; +#X connect 7 0 35 0; +#X connect 8 0 7 0; +#X connect 9 0 27 0; +#X connect 10 0 37 0; +#X connect 11 0 12 0; +#X connect 13 0 14 1; +#X connect 14 0 89 0; +#X connect 16 0 95 0; +#X connect 17 0 32 0; +#X connect 17 1 32 1; +#X connect 18 0 43 0; +#X connect 21 0 20 0; +#X connect 22 0 17 0; +#X connect 24 0 32 0; +#X connect 27 0 28 0; +#X connect 28 0 59 0; +#X connect 29 0 0 1; +#X connect 31 0 34 0; +#X connect 32 0 69 0; +#X connect 33 0 50 0; +#X connect 35 0 82 0; +#X connect 36 0 0 0; +#X connect 37 0 33 0; +#X connect 37 1 52 0; +#X connect 37 2 26 0; +#X connect 37 3 15 0; +#X connect 37 4 38 0; +#X connect 39 0 73 0; +#X connect 41 0 31 1; +#X connect 42 0 59 0; +#X connect 43 0 46 0; +#X connect 44 0 45 0; +#X connect 45 0 43 0; +#X connect 45 1 43 1; +#X connect 46 0 80 0; +#X connect 46 0 70 1; +#X connect 47 0 48 0; +#X connect 47 0 71 0; +#X connect 48 0 42 0; +#X connect 49 0 85 0; +#X connect 51 0 81 0; +#X connect 52 0 25 0; +#X connect 57 0 58 0; +#X connect 58 0 27 0; +#X connect 59 0 14 0; +#X connect 60 0 61 0; +#X connect 61 0 95 0; +#X connect 69 0 36 0; +#X connect 70 0 13 0; +#X connect 73 0 87 0; +#X connect 73 1 75 0; +#X connect 74 0 86 0; +#X connect 74 1 86 1; +#X connect 75 0 74 0; +#X connect 77 0 35 1; +#X connect 78 0 7 1; +#X connect 79 0 48 1; +#X connect 80 0 24 0; +#X connect 81 0 77 0; +#X connect 82 0 47 0; +#X connect 84 0 78 0; +#X connect 85 0 79 0; +#X connect 86 0 36 1; +#X connect 87 0 74 0; +#X connect 88 0 89 1; +#X connect 89 0 21 0; +#X connect 90 0 88 0; +#X connect 91 0 90 0; +#X connect 93 0 41 1; +#X connect 94 0 96 0; +#X connect 95 0 94 0; +#X connect 95 1 93 0; +#X connect 95 2 92 0; +#X connect 96 0 31 0; +#X connect 96 1 41 0; diff --git a/DJ Patch/folder_list-help.pd b/DJ Patch/folder_list-help.pd new file mode 100755 index 0000000..6b3892b --- /dev/null +++ b/DJ Patch/folder_list-help.pd @@ -0,0 +1,64 @@ +#N canvas 919 270 546 485 10; +#X msg 19 73 bang; +#X msg 27 355 bang; +#X obj 64 300 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 11 420 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X msg 176 255 symbol /usr/*; +#X text 54 73 list current directory; +#X text 160 237 set pattern without no output; +#X obj 27 386 folder_list; +#X obj 83 277 folder_list /*; +#X obj 83 298 print; +#X text 8 49 left/hot inlet gives immediate output using stored path +; +#X text 19 325 For UNIX people \, [folder_list] behaves just like "ls +-d1A"; +#X obj 28 419 print; +#X msg 91 146 symbol ~/*.*; +#X text 187 197 relative paths work; +#X msg 102 198 symbol ../*; +#X text 164 124 drive letters work on ReactOS/Windows; +#X msg 77 123 symbol C:/*; +#X text 190 148 all files with a dot in your home; +#X msg 40 98 symbol %USERPROFILE%/*; +#X text 203 99 ReactOS/Windows environment variables work; +#X text 262 218 nested wildcards work on UNIX; +#X msg 119 219 symbol /var/*/*.log; +#X text 188 170 patterns default to path that Pd launched from; +#X text 329 464 released under the GNU GPL; +#X text 15 449 (C) Copyright 2006 Hans-Christoph Steiner +; +#X text 8 5 Get a listing of files based on a wildcard pattern. On +UNIX \, it follows glob rules \, on ReactOS/Windows it follows the +cmd.exe rules.; +#X text 115 380 With no argument \, it defaults to the contents of +the folder of the current patch \, i.e. "/path/to/current/patch/*". +; +#X msg 97 173 symbol *.pd; +#N canvas 280 175 494 344 META 0; +#X text 12 145 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan +Wilkes for Pd version 0.42.; +#X text 12 25 LICENSE GPL v3; +#X text 12 125 AUTHOR Hans-Christoph Steiner; +#X text 12 45 DESCRIPTION get listing of files based on wildcard pattern +; +#X text 12 65 INLET_0 bang symbol; +#X text 12 85 INLET_1 symbol; +#X text 12 105 OUTLET_0 symbol; +#X text 12 5 KEYWORDS control filesystem patchfile_op; +#X restore 498 465 pd META; +#X connect 0 0 8 0; +#X connect 1 0 7 0; +#X connect 4 0 8 1; +#X connect 7 0 3 0; +#X connect 7 0 12 0; +#X connect 8 0 2 0; +#X connect 8 0 9 0; +#X connect 13 0 8 0; +#X connect 15 0 8 0; +#X connect 17 0 8 0; +#X connect 19 0 8 0; +#X connect 22 0 8 0; +#X connect 28 0 8 0; diff --git a/DJ Patch/folder_list.pd_linux b/DJ Patch/folder_list.pd_linux new file mode 100755 index 0000000..966443f Binary files /dev/null and b/DJ Patch/folder_list.pd_linux differ diff --git a/DJ Patch/knobs.txt b/DJ Patch/knobs.txt new file mode 100755 index 0000000..0a4107a --- /dev/null +++ b/DJ Patch/knobs.txt @@ -0,0 +1 @@ +0.99609 0.793744 0.630499 0.755621; diff --git a/DJ Patch/m_speedlimit-help.pd b/DJ Patch/m_speedlimit-help.pd new file mode 100755 index 0000000..a4a9207 --- /dev/null +++ b/DJ Patch/m_speedlimit-help.pd @@ -0,0 +1,26 @@ +#N canvas 357 235 570 396 10; +#X obj 128 264 t b b; +#X obj 128 298 timer; +#X floatatom 128 325 5 0 0 0 - - -; +#X obj 128 130 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X floatatom 188 130 5 0 0 0 - - -; +#X obj 128 354 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 237 167 5 0 0 1 limit(ms) - -; +#X obj 128 192 m_speedlimit 150; +#X text 37 9 m_speedlimit; +#X text 73 95 Works for any data that can be stored in [list].; +#X obj 128 155 metro 100; +#X text 73 34 Impose a limit on the speed of messages.; +#X text 73 58 Fast changing values are mapped to slower changing values +by dropping everything for the limit duration.; +#X connect 0 0 1 0; +#X connect 0 1 1 1; +#X connect 1 0 2 0; +#X connect 2 0 5 0; +#X connect 3 0 10 0; +#X connect 4 0 10 1; +#X connect 6 0 7 1; +#X connect 7 0 0 0; +#X connect 10 0 7 0; diff --git a/DJ Patch/m_speedlimit.pd b/DJ Patch/m_speedlimit.pd new file mode 100755 index 0000000..c2f1402 --- /dev/null +++ b/DJ Patch/m_speedlimit.pd @@ -0,0 +1,75 @@ +#N canvas 384 34 782 432 10; +#X obj 245 86 inlet; +#X obj 115 249 metro 100; +#X obj 115 69 inlet; +#N canvas 0 0 720 312 activity-monitor 0; +#X obj 108 74 inlet; +#X obj 108 103 b; +#X obj 108 160 delay 100; +#X obj 168 73 inlet; +#X obj 108 198 outlet; +#X text 198 132 if no activity for X msec \, then bang outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 4 0; +#X connect 3 0 2 1; +#X restore 161 192 pd activity-monitor; +#X msg 161 218 0; +#X msg 115 218 1; +#X obj 115 288 list append; +#X text 291 87 speed limit (ms); +#X obj 115 315 outlet; +#X obj 115 126 spigot 1; +#X obj 183 126 == 0; +#X obj 115 93 t a b a; +#X text 359 220 1) store data; +#X text 339 190 If data comes in:; +#X text 360 240 2) start activity monitor; +#X obj 420 55 loadbang; +#X obj 420 80 f \$1; +#X obj 420 108 select 0; +#X msg 420 130 100; +#X obj 245 160 f; +#X text 359 282 4) block system; +#X text 341 315 While blocked \, incoming data is sampled at metro +rate as long as there's activity.; +#X text 340 361 If there's no activity for a metro period \, stop the +metro and unblock the system to accept new data.; +#X text 359 261 3) start metro and output data; +#N canvas 172 83 586 377 LICENSE-GPL 0; +#X text 57 88 This program is free software: you can redistribute it +and/or modify it under the terms of the GNU General Public License +as published by the Free Software Foundation \, either version 3 of +the License \, or (at your option) any later version.; +#X text 58 168 This program is distributed in the hope that it will +be useful \, but WITHOUT ANY WARRANTY \; without even the implied warranty +of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +General Public License for more details.; +#X text 57 261 You should have received a copy of the GNU General Public +License along with this program. If not \, see . +; +#X text 61 54 Copyright (C) 2009 \, Reality Jockey Ltd.; +#X text 60 325 See the file LICENSE.txt for the full license text. +; +#X restore 502 19 pd LICENSE-GPL; +#X connect 0 0 19 0; +#X connect 1 0 6 0; +#X connect 2 0 11 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 0 10 0; +#X connect 5 0 1 0; +#X connect 5 0 10 0; +#X connect 6 0 8 0; +#X connect 9 0 5 0; +#X connect 10 0 9 1; +#X connect 11 0 9 0; +#X connect 11 1 3 0; +#X connect 11 2 6 1; +#X connect 15 0 16 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 17 1 19 0; +#X connect 18 0 19 0; +#X connect 19 0 3 1; +#X connect 19 0 1 1; diff --git a/DJ Patch/main.pd b/DJ Patch/main.pd new file mode 100755 index 0000000..0fb3c60 --- /dev/null +++ b/DJ Patch/main.pd @@ -0,0 +1,536 @@ +#N canvas 260 50 878 757 10; +#X obj 221 550 throw~ outL; +#X obj 307 548 throw~ outR; +#N canvas 24 50 718 582 arrays 0; +#X obj 378 216 cg-load-array dj-1; +#X obj 97 210 folder_list; +#X obj 97 261 f; +#X obj 130 261 + 1; +#X obj 97 138 t b b, f 9; +#X msg 157 162 0; +#X msg 97 185 symbol sounds/*.*; +#X msg 97 334 \; dj-\$1-repoint \$2; +#X obj 97 233 t b a, f 13; +#X obj 97 283 + 1; +#X obj 97 112 loadbang; +#X obj 185 270 strippath; +#X obj 97 310 pack 0 s; +#X obj 55 83 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X text 78 85 manually reload samples; +#X text 220 138 get contents of sounds folder and load the first 10 +to the arrays. samples are loaded alphabetically accroding to the OG's +operating system; +#X obj 376 441 cg-load-array dj-9; +#X obj 377 271 cg-load-array dj-3; +#X obj 377 301 cg-load-array dj-4; +#X obj 377 329 cg-load-array dj-5; +#X obj 376 359 cg-load-array dj-6; +#X obj 376 389 cg-load-array dj-7; +#X obj 376 416 cg-load-array dj-8; +#X obj 376 469 cg-load-array dj-10; +#X obj 378 241 cg-load-array dj-2; +#X connect 1 0 8 0; +#X connect 2 0 3 0; +#X connect 2 0 9 0; +#X connect 3 0 2 1; +#X connect 4 0 6 0; +#X connect 4 1 5 0; +#X connect 5 0 2 1; +#X connect 6 0 1 0; +#X connect 8 0 2 0; +#X connect 8 1 11 0; +#X connect 9 0 12 0; +#X connect 10 0 4 0; +#X connect 11 0 12 1; +#X connect 12 0 7 0; +#X connect 13 0 4 0; +#X restore 226 115 pd arrays; +#X obj 225 265 r aux; +#X obj 275 265 r fs; +#X obj 225 287 sel 1; +#X obj 275 287 sel 1; +#X obj 225 318 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 225 438 s \$0-on-off; +#X obj 248 414 s led; +#X obj 248 344 sel 0 1; +#X msg 288 378 3; +#X msg 248 378 0; +#X text 370 378 led lights; +#X text 300 116 load the samples into arrays to be read by the dualing +loopers; +#X obj 221 508 catch~ dj-main; +#N canvas 36 50 1533 821 the 0; +#N canvas 843 91 1060 804 deck2 0; +#X msg 399 532 0; +#X msg 209 304 read \$1; +#X msg 290 392 speed \$1; +#X obj 310 336 t b a; +#X obj 290 369 *; +#X obj 290 288 r \$0-deck1-speed; +#X msg 537 432 length 1; +#X obj 60 165 inlet on/off; +#X obj 537 407 loadbang; +#X obj 607 110 inlet repoint; +#X obj 512 111 inlet speed; +#X obj 300 41 inlet read, f 23; +#X obj 473 354 list prepend repoint; +#X obj 473 376 route list; +#X msg 58 317 switch \$1; +#X obj 60 190 sel 0 1; +#X obj 89 254 t f b; +#X msg 60 212 0; +#X msg 90 212 1, f 4; +#X obj 398 619 outlet~; +#X obj 113 35 inlet~ table 1 position; +#X obj 332 117 snapshot~; +#X obj 300 84 t f b; +#X obj 300 147 +; +#X obj 300 171 wrap; +#X obj 190 184 f, f 4; +#X msg 121 278 0; +#X obj 190 153 t b a; +#X obj 190 206 +, f 6; +#X obj 300 208 t f b b, f 14; +#X obj 290 675 *~; +#X obj 309 645 vline~; +#X obj 257 248 pipe 5.5; +#X obj 347 246 del 5.6; +#X msg 309 619 0 5 \, 1 5 6; +#X obj 290 705 outlet~; +#X obj 290 553 cg-looper dj-1, f 16; +#X connect 0 0 36 1; +#X connect 1 0 36 0; +#X connect 2 0 36 0; +#X connect 3 0 4 0; +#X connect 3 1 4 1; +#X connect 4 0 2 0; +#X connect 5 0 4 0; +#X connect 6 0 36 0; +#X connect 7 0 15 0; +#X connect 8 0 6 0; +#X connect 9 0 12 0; +#X connect 10 0 3 0; +#X connect 11 0 22 0; +#X connect 11 0 25 1; +#X connect 12 0 13 0; +#X connect 13 0 36 0; +#X connect 14 0 36 0; +#X connect 15 0 17 0; +#X connect 15 1 18 0; +#X connect 16 0 14 0; +#X connect 16 1 26 0; +#X connect 17 0 14 0; +#X connect 18 0 16 0; +#X connect 20 0 21 0; +#X connect 21 0 23 1; +#X connect 22 0 23 0; +#X connect 22 1 21 0; +#X connect 23 0 24 0; +#X connect 24 0 29 0; +#X connect 25 0 28 0; +#X connect 26 0 27 0; +#X connect 27 0 25 0; +#X connect 27 1 28 1; +#X connect 28 0 24 0; +#X connect 29 0 32 0; +#X connect 29 1 33 0; +#X connect 29 2 34 0; +#X connect 30 0 35 0; +#X connect 31 0 30 1; +#X connect 32 0 1 0; +#X connect 33 0 0 0; +#X connect 34 0 31 0; +#X connect 36 0 30 0; +#X connect 36 1 19 0; +#X restore 774 533 pd deck2; +#X obj 1116 275 r knob4; +#X obj 1116 339 int; +#X obj 788 288 r notes; +#N canvas 697 50 1061 805 deck1 0; +#X msg 385 532 0; +#X msg 209 304 read \$1; +#X msg 287 388 speed \$1; +#X msg 126 407 switch \$1; +#X msg 537 432 length 1; +#X obj 59 159 inlet on/off; +#X obj 537 407 loadbang; +#X obj 525 115 inlet repoint; +#X obj 430 116 inlet speed; +#X obj 290 625 outlet~; +#X obj 218 136 inlet read, f 23; +#X obj 292 326 t a a; +#X obj 323 356 s \$0-deck1-speed; +#X obj 487 617 outlet~, f 17; +#X obj 473 354 list prepend repoint; +#X obj 473 376 route list; +#X obj 128 280 sel 0 1; +#X obj 157 344 t f b; +#X msg 128 302 0; +#X msg 158 302 1, f 4; +#X obj 290 553 cg-looper dj-1, f 18; +#X connect 0 0 20 1; +#X connect 1 0 20 0; +#X connect 2 0 20 0; +#X connect 3 0 20 0; +#X connect 4 0 20 0; +#X connect 5 0 16 0; +#X connect 6 0 4 0; +#X connect 7 0 14 0; +#X connect 8 0 11 0; +#X connect 10 0 1 0; +#X connect 11 0 2 0; +#X connect 11 1 12 0; +#X connect 14 0 15 0; +#X connect 15 0 20 0; +#X connect 16 0 18 0; +#X connect 16 1 19 0; +#X connect 17 0 3 0; +#X connect 17 1 0 0; +#X connect 18 0 3 0; +#X connect 19 0 17 0; +#X connect 20 0 9 0; +#X connect 20 1 13 0; +#X restore 203 439 pd deck1; +#X obj 872 419 r \$0-sample-sel; +#X obj 282 371 r \$0-sample-sel; +#X obj 197 306 loadbang; +#X msg 197 328 0; +#X obj 580 329 r \$0-on-off; +#N canvas 131 80 1204 812 print-things 0; +#X obj 462 154 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 286 246 * 126; +#X obj 286 268 i; +#X obj 465 583 s oscOut; +#X obj 494 418 list; +#X obj 465 550 t a a, f 18; +#X obj 494 440 route list; +#X msg 519 391 0; +#X text 516 568 previous area to invert(erase); +#X text 553 392 erase old session list; +#X msg 358 523 /oled/gFlip 3; +#X obj 448 386 t a b, f 7; +#X obj 433 425 t b a; +#X obj 462 174 t b b; +#X obj 462 204 array-waveform-print dj-5; +#X msg 634 146 dj-\$1; +#X obj 634 37 r knob1; +#X obj 634 81 i; +#X obj 634 168 t a a b, f 12; +#X obj 674 197 s \$0-sample-sel; +#X obj 634 103 + 1; +#X obj 634 59 * 9; +#X text 696 94 select 1 - 10 samples; +#X obj 734 217 s \$0-erase-playhead; +#X obj 494 234 s \$0-erase-playhead; +#X obj 519 361 r \$0-erase-playhead; +#X obj 634 125 change -1; +#X obj 286 71 inlet; +#X msg 465 523 /oled/gInvertArea 3 \$1 14 3 40; +#X msg 671 274 \; \$1-get-name bang; +#X obj 1292 256 r return-name; +#X obj 671 251 symbol; +#X obj 1292 437 route list; +#X obj 1292 462 t b a, f 17; +#X obj 899 620 s oscOut; +#X msg 1292 487 /oled/gFlip 3; +#X obj 1292 277 t a b; +#X msg 1324 375 /oled/gFillArea 3 0 0 127 8 0; +#X obj 1292 406 list prepend /oled/gPrintln 3 0 0 8 1; +#X obj 1342 297 t b b; +#X msg 1374 323 stop; +#X obj 1342 348 del 1000; +#X msg 700 40 1; +#X obj 1131 131 inlet; +#X obj 762 439 t a a b, f 10; +#X obj 1131 153 * 100; +#X obj 1131 175 i; +#X obj 815 468 list, f 5; +#X obj 815 490 route list; +#X obj 761 390 pack 0 0; +#X obj 761 363 - 4; +#X obj 286 290 t f f, f 11; +#X msg 816 541 /oled/gPrintln 3 \$1 5 8 0 \$2%; +#X msg 762 518 /oled/gPrintln 3 \$1 5 8 1 \$2%; +#X connect 0 0 13 0; +#X connect 1 0 2 0; +#X connect 2 0 51 0; +#X connect 4 0 6 0; +#X connect 5 0 3 0; +#X connect 5 1 4 1; +#X connect 6 0 3 0; +#X connect 7 0 4 1; +#X connect 10 0 3 0; +#X connect 11 0 12 0; +#X connect 11 1 4 0; +#X connect 12 0 10 0; +#X connect 12 1 28 0; +#X connect 13 0 14 0; +#X connect 13 1 24 0; +#X connect 15 0 18 0; +#X connect 16 0 21 0; +#X connect 17 0 20 0; +#X connect 18 0 14 1; +#X connect 18 0 31 0; +#X connect 18 1 19 0; +#X connect 18 2 23 0; +#X connect 20 0 26 0; +#X connect 21 0 17 0; +#X connect 25 0 7 0; +#X connect 26 0 15 0; +#X connect 27 0 1 0; +#X connect 28 0 5 0; +#X connect 30 0 36 0; +#X connect 31 0 29 0; +#X connect 32 0 33 0; +#X connect 33 0 35 0; +#X connect 33 1 34 0; +#X connect 35 0 34 0; +#X connect 36 0 38 0; +#X connect 36 1 37 0; +#X connect 36 1 39 0; +#X connect 37 0 34 0; +#X connect 38 0 32 0; +#X connect 39 0 41 0; +#X connect 39 1 40 0; +#X connect 40 0 41 0; +#X connect 41 0 37 0; +#X connect 42 0 21 0; +#X connect 43 0 45 0; +#X connect 44 0 53 0; +#X connect 44 1 47 1; +#X connect 44 2 47 0; +#X connect 45 0 46 0; +#X connect 46 0 49 1; +#X connect 47 0 48 0; +#X connect 48 0 52 0; +#X connect 49 0 44 0; +#X connect 50 0 49 0; +#X connect 51 0 11 0; +#X connect 51 1 50 0; +#X connect 52 0 34 0; +#X connect 53 0 34 0; +#X restore 481 669 pd print-things and knob1; +#X obj 955 109 r knob2; +#X obj 984 140 * 100; +#X obj 984 162 i; +#X msg 984 184 Xfade:; +#X obj 203 651 *~; +#X obj 774 763 *~; +#X obj 275 536 *~; +#X obj 275 558 *~; +#X obj 221 587 sig~ 1; +#X obj 221 609 -~, f 8; +#X obj 844 673 *~; +#X obj 844 695 *~; +#X msg 844 601 1 \$1; +#X obj 844 623 -; +#X obj 791 714 sig~ 1; +#X obj 791 736 -~, f 8; +#X obj 773 799 throw~ dj-main; +#X obj 202 678 throw~ dj-main; +#X obj 844 717 *~; +#X obj 275 580 *~; +#N canvas 627 148 1140 768 print-deck2 0; +#X obj 286 236 * 126; +#X obj 294 258 i; +#X obj 571 722 s oscOut; +#X obj 514 502 list; +#X obj 456 610 t a a, f 18; +#X obj 514 524 route list; +#X msg 663 113 0; +#X text 465 626 previous area to invert(erase); +#X text 697 114 erase old session list; +#X obj 663 55 r \$0-erase-playhead; +#X obj 468 469 t a b, f 7; +#X obj 915 136 inlet; +#X obj 845 471 t a a b, f 10; +#X obj 416 389 t b a a a, f 44; +#X obj 286 280 change -1; +#X obj 915 158 * 100; +#X obj 915 180 i; +#X obj 898 500 list, f 5; +#X obj 898 522 route list; +#X obj 844 422 pack 0 0; +#X obj 286 101 inlet; +#X msg 456 583 /oled/gInvertArea 3 \$1 14 1 40; +#X msg 845 550 /oled/gPrintln 3 \$1 56 8 1 \$2%; +#X msg 899 573 /oled/gPrintln 3 \$1 56 8 0 \$2%; +#X obj 849 395 - 4; +#X obj 827 186 r \$0-on-off; +#X obj 827 208 sel 0 1; +#X msg 858 230 0; +#X msg 827 230 1; +#X obj 740 264 spigot; +#X obj 384 248 b; +#X connect 0 0 1 0; +#X connect 1 0 14 0; +#X connect 1 0 30 0; +#X connect 3 0 5 0; +#X connect 4 0 2 0; +#X connect 4 1 3 1; +#X connect 5 0 2 0; +#X connect 6 0 3 1; +#X connect 6 0 17 1; +#X connect 9 0 6 0; +#X connect 10 0 21 0; +#X connect 10 1 3 0; +#X connect 11 0 15 0; +#X connect 12 0 22 0; +#X connect 12 1 17 1; +#X connect 12 2 17 0; +#X connect 13 1 10 0; +#X connect 13 3 24 0; +#X connect 14 0 13 0; +#X connect 15 0 16 0; +#X connect 16 0 19 1; +#X connect 17 0 18 0; +#X connect 18 0 23 0; +#X connect 19 0 12 0; +#X connect 20 0 0 0; +#X connect 21 0 4 0; +#X connect 22 0 2 0; +#X connect 23 0 2 0; +#X connect 24 0 19 0; +#X connect 25 0 26 0; +#X connect 26 0 28 0; +#X connect 26 1 27 0; +#X connect 27 0 29 1; +#X connect 28 0 29 1; +#X connect 29 0 19 0; +#X connect 30 0 29 0; +#X restore 576 632 pd print-deck2; +#X obj 291 133 r knob3; +#X obj 873 488 t f f; +#X obj 576 604 snapshot~; +#X obj 481 553 metro 100; +#X obj 481 505 loadbang; +#X msg 481 527 1; +#X obj 517 527 s \$0-erase-playhead; +#X obj 481 575 t b b, f 14; +#X obj 481 603 snapshot~; +#N canvas 7 50 873 630 notes-in 0; +#X obj 268 105 stripnote; +#X obj 268 198 - 72; +#X obj 268 150 % 24; +#X obj 268 174 + 60; +#X obj 268 127 - 12; +#X obj 268 222 * 0.0625; +#X obj 268 82 inlet; +#X obj 268 336 outlet; +#X text 337 221 splits the keyboard into 1/16 steps; +#X text 326 144 wraps midi in to 60-83; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 4 0 2 0; +#X connect 5 0 7 0; +#X connect 6 0 0 0; +#X restore 788 314 pd notes-in; +#X obj 955 232 s \$0-xfade-control; +#X obj 841 576 r \$0-xfade-control; +#X obj 273 491 r \$0-xfade-control; +#X obj 1116 361 * 0.0625; +#X obj 1116 297 * 64; +#X obj 1116 319 - 32; +#X obj 275 514 lop~ 200; +#X obj 844 652 lop~ 200; +#X obj 580 351 t f f; +#X obj 846 347 xtra-saver notes; +#X obj 955 309 loadbang; +#X obj 284 223 int; +#X obj 284 245 * 0.0625; +#X obj 284 181 * 64; +#X obj 284 203 - 32; +#X obj 284 267 t f f; +#X msg 693 176 -0.0945; +#X connect 0 0 16 0; +#X connect 0 1 34 0; +#X connect 1 0 46 0; +#X connect 2 0 45 0; +#X connect 3 0 41 0; +#X connect 4 0 15 0; +#X connect 4 1 40 0; +#X connect 4 1 0 1; +#X connect 5 0 0 4; +#X connect 6 0 4 3; +#X connect 7 0 8 0; +#X connect 8 0 4 1; +#X connect 9 0 50 0; +#X connect 11 0 12 0; +#X connect 11 0 42 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 15 0 28 0; +#X connect 16 0 27 0; +#X connect 17 0 18 0; +#X connect 17 0 18 1; +#X connect 18 0 30 0; +#X connect 18 0 30 1; +#X connect 19 0 20 0; +#X connect 20 0 15 1; +#X connect 21 0 22 0; +#X connect 21 0 22 1; +#X connect 22 0 29 0; +#X connect 22 0 29 1; +#X connect 23 0 24 0; +#X connect 24 0 49 0; +#X connect 25 0 26 0; +#X connect 26 0 16 1; +#X connect 29 0 26 1; +#X connect 30 0 20 1; +#X connect 32 0 55 0; +#X connect 33 0 0 3; +#X connect 33 1 31 1; +#X connect 34 0 31 0; +#X connect 35 0 39 0; +#X connect 36 0 37 0; +#X connect 36 0 38 0; +#X connect 37 0 35 0; +#X connect 39 0 40 0; +#X connect 39 1 34 0; +#X connect 40 0 10 0; +#X connect 41 0 51 0; +#X connect 41 0 0 2; +#X connect 43 0 23 0; +#X connect 44 0 48 0; +#X connect 45 0 33 0; +#X connect 46 0 47 0; +#X connect 47 0 2 0; +#X connect 48 0 17 0; +#X connect 48 0 17 1; +#X connect 49 0 21 0; +#X connect 49 0 21 1; +#X connect 50 0 4 0; +#X connect 50 1 0 0; +#X connect 51 0 0 2; +#X connect 52 0 51 1; +#X connect 53 0 54 0; +#X connect 54 0 57 0; +#X connect 55 0 56 0; +#X connect 56 0 53 0; +#X connect 57 0 4 2; +#X connect 57 1 10 1; +#X connect 58 0 0 2; +#X connect 58 0 51 0; +#X restore 222 204 pd the two 'decks'; +#X text 228 10 The Dj-Patch; +#X text 229 35 a 'beat juggling' patch. two looper play together with +different speeds and play positions; +#X text 335 510 catch the signal send out; +#X text 376 203 the guts of this patch; +#X connect 3 0 5 0; +#X connect 4 0 6 0; +#X connect 5 0 7 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 7 0 10 0; +#X connect 10 0 12 0; +#X connect 10 1 11 0; +#X connect 11 0 9 0; +#X connect 12 0 9 0; +#X connect 15 0 0 0; +#X connect 15 0 1 0; diff --git a/DJ Patch/notes.txt b/DJ Patch/notes.txt new file mode 100755 index 0000000..05f32fc --- /dev/null +++ b/DJ Patch/notes.txt @@ -0,0 +1 @@ +-0.094; diff --git a/DJ Patch/sounds/GabDrum2.wav b/DJ Patch/sounds/GabDrum2.wav new file mode 100755 index 0000000..8278e28 Binary files /dev/null and b/DJ Patch/sounds/GabDrum2.wav differ diff --git a/DJ Patch/sounds/Guitar 6.wav b/DJ Patch/sounds/Guitar 6.wav new file mode 100755 index 0000000..5fe2d4c Binary files /dev/null and b/DJ Patch/sounds/Guitar 6.wav differ diff --git a/DJ Patch/sounds/OpenHiAgro.wav b/DJ Patch/sounds/OpenHiAgro.wav new file mode 100755 index 0000000..47e509a Binary files /dev/null and b/DJ Patch/sounds/OpenHiAgro.wav differ diff --git a/DJ Patch/sounds/bass-tape 7.aif b/DJ Patch/sounds/bass-tape 7.aif new file mode 100755 index 0000000..85114b9 Binary files /dev/null and b/DJ Patch/sounds/bass-tape 7.aif differ diff --git a/DJ Patch/sounds/drum-loop-tape3.aif b/DJ Patch/sounds/drum-loop-tape3.aif new file mode 100755 index 0000000..884eb02 Binary files /dev/null and b/DJ Patch/sounds/drum-loop-tape3.aif differ diff --git a/DJ Patch/sounds/long kick.wav b/DJ Patch/sounds/long kick.wav new file mode 100755 index 0000000..47e5a11 Binary files /dev/null and b/DJ Patch/sounds/long kick.wav differ diff --git a/DJ Patch/sounds/septavox3.wav b/DJ Patch/sounds/septavox3.wav new file mode 100755 index 0000000..cbf827b Binary files /dev/null and b/DJ Patch/sounds/septavox3.wav differ diff --git a/DJ Patch/sounds/tom groove.wav b/DJ Patch/sounds/tom groove.wav new file mode 100755 index 0000000..9fc6b20 Binary files /dev/null and b/DJ Patch/sounds/tom groove.wav differ diff --git a/DJ Patch/sounds/tom groove5.wav b/DJ Patch/sounds/tom groove5.wav new file mode 100755 index 0000000..2581239 Binary files /dev/null and b/DJ Patch/sounds/tom groove5.wav differ diff --git a/DJ Patch/sounds/vocal promo.wav b/DJ Patch/sounds/vocal promo.wav new file mode 100755 index 0000000..cba001f Binary files /dev/null and b/DJ Patch/sounds/vocal promo.wav differ diff --git a/DJ Patch/strippath-help.pd b/DJ Patch/strippath-help.pd new file mode 100755 index 0000000..6b95106 --- /dev/null +++ b/DJ Patch/strippath-help.pd @@ -0,0 +1,22 @@ +#N canvas 1096 200 454 304 10; +#X symbolatom 113 196 0 0 0 0 - - -; +#X msg 113 109 symbol /this/is/a/testfile.txt; +#X msg 58 88 bang; +#X obj 58 109 getdir; +#N canvas 463 219 494 344 META 0; +#X text 12 125 RELEASE_DATE 2009-06-12; +#X text 12 145 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan +Wilkes for Pd version 0.42.; +#X text 12 105 AUTHOR d13@klingt.org; +#X text 12 25 LICENSE GPL v2; +#X text 12 45 DESCRIPTION remove path from a filename; +#X text 12 85 INLET_1 symbol; +#X text 12 65 INLET_0 bang symbol; +#X text 12 5 KEYWORDS control symbol_op filter; +#X restore 370 271 pd META; +#X text 112 24 remove path from a filename; +#X obj 113 163 strippath; +#X connect 1 0 6 0; +#X connect 2 0 3 0; +#X connect 3 0 6 0; +#X connect 6 0 0 0; diff --git a/DJ Patch/strippath.pd_linux b/DJ Patch/strippath.pd_linux new file mode 100755 index 0000000..ce2c2de Binary files /dev/null and b/DJ Patch/strippath.pd_linux differ diff --git a/DJ Patch/xtra-saver.pd b/DJ Patch/xtra-saver.pd new file mode 100755 index 0000000..2e1d92b --- /dev/null +++ b/DJ Patch/xtra-saver.pd @@ -0,0 +1,26 @@ +#N canvas 477 183 544 395 10; +#X obj 180 202 textfile; +#X obj 23 115 r saveState; +#X msg 180 87 clear \, add \$1; +#X msg 23 171 write \$1.txt; +#X obj 180 58 inlet parameter; +#X obj 310 58 inlet recall; +#X obj 21 29 loadbang; +#X msg 21 74 read \$1.txt; +#X msg 310 80 rewind \, bang; +#X text 146 6 saves one float \, use to save notes for instance; +#X obj 180 247 outlet to the parameter; +#X text 148 26 arg1: unique name; +#X obj 23 137 symbol \$1; +#X obj 21 51 symbol \$1; +#X connect 0 0 10 0; +#X connect 1 0 12 0; +#X connect 2 0 0 0; +#X connect 3 0 0 0; +#X connect 4 0 2 0; +#X connect 5 0 8 0; +#X connect 6 0 13 0; +#X connect 7 0 0 0; +#X connect 8 0 0 0; +#X connect 12 0 3 0; +#X connect 13 0 7 0;