Merge branch 'master' of https://github.com/critterandguitari/Organel…

…le_Patches

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.

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.

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;

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;