Skip to content
Permalink
29e84706d0
Switch branches/tags

Name already in use

A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?

masheen/johnsz2.pd

Go to file
 
 
Cannot retrieve contributors at this time
executable file 243 lines (243 sloc) 6.45 KB
Raw Blame
#N canvas 0 23 1680 951 12;
#X obj 206 1 receive johnsz2_tempo;
#X obj 483 1 receive johnsz2_control;
#X obj 804 6 inlet;
#X obj 464 728 outlet;
#X obj 238 350 f;
#X floatatom 238 374 5 0 0 0 - - -;
#X obj 282 350 + 1;
#X obj 238 400 % 16;
#X floatatom 238 425 5 0 0 0 - - -;
#X floatatom 230 584 5 0 0 0 - - -;
#X obj 230 607 mtof;
#X floatatom 231 632 5 0 0 0 - - -;
#X obj 395 459 s mycoolbang;
#X floatatom 321 82 5 0 0 0 - - -;
#X obj 325 24 r mycoolbang;
#X obj 321 114 * 200;
#X msg 400 752 0 200;
#X obj 337 787 line~;
#X obj 224 782 *~;
#X obj 555 24 list prepend set;
#X obj 555 48 list trim;
#X msg 550 81 johnsz2 key 1 q 113;
#X obj 684 8 inlet~;
#X obj 493 107 unpack f f f f f;
#X floatatom 550 242 5 0 0 0 - - -;
#X floatatom 563 222 5 0 0 0 - - -;
#X floatatom 575 202 5 0 0 0 - - -;
#X floatatom 589 182 5 0 0 0 - - -;
#X floatatom 601 162 5 0 0 0 - - -;
#N canvas 0 50 450 250 (subpatch) 0;
#X array melody_johnsz2 16 float 3;
#A 0 70 63 0 65 0 0 71 0 70 70 63 0 66 70 0 80;
#X coords 0 127 16 0 200 140 1 0 0;
#X restore 687 49 graph;
#N canvas 0 50 450 250 (subpatch) 0;
#X array durations_johnsz2 16 float 3;
#A 0 1 1 1 1 2 2 4 4 1 1 1 1 2 2 4 8;
#X coords 0 10 16 0 200 140 1 0 0;
#X restore 895 49 graph;
#X obj 225 918 outlet~;
#X obj 206 26 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 378 853 loadbang;
#X text 443 796 ROB - need to initialize your volume \; use loadbang
to send a bang at the start of the patch (when it is loaded);
#X obj 239 890 throw~ johnsz2_audio_1;
#X obj 218 459 tabread melody_johnsz2;
#X obj 322 52 tabread durations_johnsz2;
#X msg 825 210 \; melody_johnsz2 0 70 63 0 65 0 0 71 0 70 70 63 0 66
70 0;
#X msg 825 247 \; durations_johnsz2 0 1 1 1 1 2 2 4 4 1 1 1 1 2 2 4
8;
#X msg 309 754 1 200;
#X obj 1132 725 keyname;
#X obj 1036 775 key up;
#X text 951 8 johnsz2 == Zach J;
#X obj 251 152 f;
#X obj 309 159 + 1;
#X floatatom 250 180 5 0 0 0 - - -;
#X obj 612 600 osc~;
#X floatatom 630 489 5 0 0 0 - - -;
#X obj 505 453 tabread vibrato_johnsz2;
#X obj 623 523 +~ 1;
#X obj 629 556 *~ 0.5;
#X obj 238 721 *~;
#X obj 228 686 osc~;
#X obj 352 181 tabread durations_johnsz2;
#X floatatom 352 202 5 0 0 0 - - -;
#X floatatom 252 257 5 0 0 0 - - -;
#X msg 263 106 0;
#X obj 250 222 expr $f1 >= $f2;
#X obj 314 283 select 0 1;
#X obj 242 288 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 333 319 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 294 314 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 547 271 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 385 318 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 317 527 5 0 0 0 - - -;
#X obj 317 550 mtof;
#X floatatom 318 575 5 0 0 0 - - -;
#X obj 317 598 osc~;
#X obj 318 501 + 7;
#X msg 365 597 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array vibrato_johnsz2 16 float 3;
#A 0 0 0 0 5 0 0 8 0 0 0 0 8 8 0 0 0;
#X coords 0 20 16 0 200 140 1 0 0;
#X restore 1103 55 graph;
#X msg 825 284 \; vibrato_johnsz2 0 0 0 0 5 0 0 8 0 0 0 0 8 8 0;
#X msg 417 598 0.3;
#X obj 316 635 *~ 0.3;
#X floatatom 685 316 5 0 0 0 - - -;
#X obj 686 398 select 97;
#X obj 768 397 select 119;
#X obj 861 398 select 115;
#X obj 948 399 select 100;
#X floatatom 772 521 5 0 0 0 - - -;
#X floatatom 873 529 5 0 0 0 - - -;
#X obj 768 423 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 861 423 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 812 500 + 1;
#X obj 772 497 i;
#X obj 865 499 i;
#X msg 698 427 7;
#X obj 697 456 i 7;
#X obj 914 502 - 1;
#X floatatom 478 511 5 0 0 0 - - -;
#X obj 478 534 mtof;
#X floatatom 479 559 15 0 0 0 - - -;
#X obj 478 582 osc~;
#X obj 479 485 + 7;
#X msg 526 581 0;
#X msg 578 582 0.3;
#X obj 477 619 *~ 0.3;
#X text 1040 392 W and S keys raise and lower the notes in the chord.
They each can only move in one direction;
#X obj 20 31 list trim;
#X obj 20 77 route key;
#X obj 20 101 unpack f s f;
#X floatatom 20 125 5 0 0 0 - - -;
#X symbolatom 61 126 10 0 0 0 - - -;
#X floatatom 138 126 5 0 0 0 - - -;
#X obj 138 149 s key_\$0;
#X obj 20 148 s keyname_\$0;
#X obj 4 2 receive johnsz2_control;
#X obj 20 53 route johnsz2;
#X obj 685 292 r key_\$0;
#X obj 747 292 key;
#X text 426 898 Rob - disabled for now;
#X text 1499 44 Zachary Johnson;
#X msg 286 808 1;
#X connect 0 0 32 0;
#X connect 1 0 19 0;
#X connect 1 0 23 0;
#X connect 4 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 4 1;
#X connect 7 0 8 0;
#X connect 8 0 12 0;
#X connect 8 0 36 0;
#X connect 8 0 54 0;
#X connect 8 0 49 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 53 0;
#X connect 13 0 15 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 31 0;
#X connect 18 0 35 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 23 0 24 0;
#X connect 23 1 25 0;
#X connect 23 2 26 0;
#X connect 23 3 27 0;
#X connect 23 4 28 0;
#X connect 24 0 63 0;
#X connect 32 0 4 0;
#X connect 33 0 40 0;
#X connect 33 0 87 0;
#X connect 36 0 9 0;
#X connect 36 0 69 0;
#X connect 36 0 94 0;
#X connect 37 0 13 0;
#X connect 40 0 17 0;
#X connect 44 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 44 1;
#X connect 46 0 58 0;
#X connect 47 0 18 1;
#X connect 48 0 50 0;
#X connect 49 0 48 0;
#X connect 50 0 51 0;
#X connect 51 0 47 0;
#X connect 52 0 18 0;
#X connect 53 0 52 0;
#X connect 54 0 55 0;
#X connect 55 0 58 1;
#X connect 56 0 60 0;
#X connect 56 0 59 0;
#X connect 57 0 44 0;
#X connect 58 0 56 0;
#X connect 59 0 62 0;
#X connect 59 1 61 0;
#X connect 59 2 64 0;
#X connect 61 0 4 0;
#X connect 61 0 57 0;
#X connect 65 0 66 0;
#X connect 66 0 67 0;
#X connect 67 0 68 0;
#X connect 68 0 74 0;
#X connect 69 0 65 0;
#X connect 70 0 74 1;
#X connect 73 0 74 1;
#X connect 74 0 52 1;
#X connect 75 0 76 0;
#X connect 75 0 77 0;
#X connect 75 0 78 0;
#X connect 75 0 79 0;
#X connect 77 0 82 0;
#X connect 78 0 83 0;
#X connect 80 0 69 1;
#X connect 81 0 94 1;
#X connect 82 0 85 0;
#X connect 83 0 86 0;
#X connect 84 0 85 1;
#X connect 85 0 80 0;
#X connect 85 0 84 0;
#X connect 86 0 81 0;
#X connect 86 0 89 0;
#X connect 87 0 88 0;
#X connect 88 0 85 0;
#X connect 88 0 86 0;
#X connect 89 0 86 1;
#X connect 90 0 91 0;
#X connect 91 0 92 0;
#X connect 92 0 93 0;
#X connect 93 0 97 0;
#X connect 94 0 90 0;
#X connect 95 0 97 1;
#X connect 96 0 97 1;
#X connect 97 0 52 1;
#X connect 99 0 108 0;
#X connect 100 0 101 0;
#X connect 101 0 102 0;
#X connect 101 1 103 0;
#X connect 101 2 104 0;
#X connect 102 0 106 0;
#X connect 104 0 105 0;
#X connect 107 0 99 0;
#X connect 108 0 100 0;
#X connect 109 0 75 0;
#X connect 113 0 18 1;