hamilr4.pd

#N canvas 0 23 1920 1129 12;
#X obj 112 997 outlet;
#X obj 53 997 outlet~;
#X text 184 995 Two outlets: the first is an audio outlet (note the
"~") and the second is for data;
#X obj 0 -2 cnv 15 1920 90 empty empty empty 20 12 0 14 -233017 -66577
0;
#X text 9 11 Two inlets: the first is for audio (note the "~") and
the second is for data;
#X obj 19 58 inlet~;
#X obj 79 58 inlet;
#X obj 1030 56 receive hamilr4_tempo;
#X obj 1184 56 receive hamilr4_control;
#X obj 1030 97 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1184 119 list trim;
#X msg 1184 140 1 2 3 4 5;
#X obj 1184 98 list prepend set;
#X text 1030 0 Two named receives \, one for tempo (receives a "bang"
event from the global clock metro) and the other receives a list of
control data... this can be any size.;
#X obj 823 272 osc~ 740;
#X obj 893 272 osc~ 840;
#N canvas 0 23 450 300 notes 0;
#X msg 983 782 masheen_meter_no_text;
#X msg 984 728 \; masheen_meter_no_text scale \$1;
#X msg 984 697 0;
#X msg 985 825 \; foo7_rcv label_pos \$1 \$2;
#X text 701 667 Sends to set properties of meter text:;
#X obj 1265 673 f;
#X msg 1243 652 bang;
#X floatatom 1281 651 3 50 88 0 - - -;
#X floatatom 1316 673 3 0 37 0 - - -;
#X obj 1265 696 pack 0 0;
#X text 1343 673 y-label;
#X text 1309 651 x-label;
#X obj 1285 788 f;
#X msg 1263 767 bang;
#X floatatom 1301 766 3 0 2 0 - - -;
#X floatatom 1336 788 3 8 36 0 - - -;
#X obj 1285 811 pack 0 0;
#X text 1329 766 font;
#X text 1365 788 height;
#X msg 1285 837 \; foo7_rcv label_font \$1 \$2;
#X msg 1265 721 \; foo7_rcv label_po`s \$1 \$2;
#X msg 783 745 \; foo7_rcv label hello;
#X connect 2 0 1 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 5 1;
#X connect 8 0 9 1;
#X connect 9 0 20 0;
#X connect 12 0 16 0;
#X connect 13 0 12 0;
#X connect 14 0 12 1;
#X connect 15 0 16 1;
#X connect 16 0 19 0;
#X restore 1786 62 pd notes;
#X obj 1628 429 channel;
#X obj 1717 429 channel;
#X obj 1628 886 throw~ main_out_left;
#X obj 1708 850 throw~ main_out_right;
#N canvas 0 23 450 300 gate~ 0;
#X obj 70 51 inlet~;
#X obj 139 51 inlet;
#X obj 70 132 *~;
#X obj 70 156 outlet~;
#X obj 139 80 expr 1 - $f1;
#X obj 140 132 *~;
#X obj 140 156 outlet~;
#X connect 0 0 2 0;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X restore 1628 395 pd gate~;
#X obj 1810 380 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#N canvas 0 23 450 300 gate~ 0;
#X obj 70 51 inlet~;
#X obj 139 51 inlet;
#X obj 70 132 *~;
#X obj 70 156 outlet~;
#X obj 139 80 expr 1 - $f1;
#X obj 140 132 *~;
#X obj 140 156 outlet~;
#X connect 0 0 2 0;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X restore 1717 395 pd gate~;
#X obj 1628 328 catch~ hamilr4_audio_1;
#X obj 1717 351 catch~ hamilr4_audio_2;
#N canvas 0 23 450 300 hamilr4_throws 0;
#X obj 77 28 inlet~;
#X obj 77 130 throw~ hamilr4_audio_1;
#X obj 148 103 throw~ hamilr4_audio_2;
#X obj 148 31 inlet~;
#X connect 0 0 1 0;
#X connect 3 0 2 0;
#X restore 817 326 pd hamilr4_throws;
#N canvas 1117 23 693 620 throws 0;
#X obj 59 541 throw~ bartoa_audio_1;
#X obj 79 522 throw~ deegaj_audio_1;
#X obj 99 503 throw~ houchl_audio_1;
#X obj 119 484 throw~ johnsz2_audio_1;
#X obj 139 465 throw~ martse_audio_1;
#X obj 159 446 throw~ mucelj_audio_1;
#X obj 179 427 throw~ nelsoc5_audio_1;
#X obj 199 408 throw~ nik_audio_1;
#X obj 219 389 throw~ novaa_audio_1;
#X obj 239 370 throw~ ortegm3_audio_1;
#X obj 259 351 throw~ persow_audio_1;
#X obj 279 332 throw~ plancs_audio_1;
#X obj 298 313 throw~ quarlm_audio_1;
#X obj 318 294 throw~ rothgj_audio_1;
#X obj 338 275 throw~ schans2_audio_1;
#X obj 358 256 throw~ sheny13_audio_1;
#X obj 378 237 throw~ smith32_audio_1;
#X obj 398 218 throw~ takakh_audio_1;
#X obj 418 199 throw~ villan2_audio_1;
#X obj 438 180 throw~ zhaox10_audio_1;
#X obj 458 161 throw~ zhuy16_audio_1;
#X obj 73 138 osc~ 240;
#X text 58 79 Mono audio throws for each user;
#X restore 1786 16 pd throws;
#N canvas 298 91 1121 615 tests 0;
#N canvas 1117 23 693 620 throws_mono_test 0;
#X obj 59 541 throw~ bartoa_audio_1;
#X obj 79 522 throw~ deegaj_audio_1;
#X obj 99 503 throw~ houchl_audio_1;
#X obj 119 484 throw~ johnsz2_audio_1;
#X obj 139 465 throw~ martse_audio_1;
#X obj 159 446 throw~ mucelj_audio_1;
#X obj 179 427 throw~ nelsoc5_audio_1;
#X obj 199 408 throw~ nik_audio_1;
#X obj 219 389 throw~ novaa_audio_1;
#X obj 239 370 throw~ ortegm3_audio_1;
#X obj 259 351 throw~ persow_audio_1;
#X obj 279 332 throw~ plancs_audio_1;
#X obj 298 313 throw~ quarlm_audio_1;
#X obj 318 294 throw~ rothgj_audio_1;
#X obj 338 275 throw~ schans2_audio_1;
#X obj 358 256 throw~ sheny13_audio_1;
#X obj 378 237 throw~ smith32_audio_1;
#X obj 398 218 throw~ takakh_audio_1;
#X obj 418 199 throw~ villan2_audio_1;
#X obj 438 180 throw~ zhaox10_audio_1;
#X obj 458 161 throw~ zhuy16_audio_1;
#X text 70 86 Mono audio throws - same signal for each user;
#X obj 67 136 inlet~;
#X connect 22 0 0 0;
#X connect 22 0 1 0;
#X connect 22 0 2 0;
#X connect 22 0 3 0;
#X connect 22 0 4 0;
#X connect 22 0 5 0;
#X connect 22 0 6 0;
#X connect 22 0 7 0;
#X connect 22 0 8 0;
#X connect 22 0 9 0;
#X connect 22 0 10 0;
#X connect 22 0 11 0;
#X connect 22 0 12 0;
#X connect 22 0 13 0;
#X connect 22 0 14 0;
#X connect 22 0 15 0;
#X connect 22 0 16 0;
#X connect 22 0 17 0;
#X connect 22 0 18 0;
#X connect 22 0 19 0;
#X connect 22 0 20 0;
#X restore 46 143 pd throws_mono_test;
#X obj 46 53 osc~ 440;
#X obj 451 125 channel;
#X obj 540 125 channel;
#X text 123 92 Send test signal to all channels;
#X obj 451 552 throw~ main_out_left;
#X obj 540 529 throw~ main_out_right;
#N canvas 0 23 450 300 gate~ 0;
#X obj 70 51 inlet~;
#X obj 139 51 inlet;
#X obj 70 132 *~;
#X obj 70 156 outlet~;
#X obj 139 80 expr 1 - $f1;
#X obj 140 132 *~;
#X obj 140 156 outlet~;
#X connect 0 0 2 0;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X restore 46 118 pd gate~;
#X obj 99 91 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#N canvas 0 23 450 300 gate~ 0;
#X obj 70 51 inlet~;
#X obj 139 51 inlet;
#X obj 70 132 *~;
#X obj 70 156 outlet~;
#X obj 139 80 expr 1 - $f1;
#X obj 140 132 *~;
#X obj 140 156 outlet~;
#X connect 0 0 2 0;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X restore 451 91 pd gate~;
#X obj 633 76 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#N canvas 0 23 450 300 gate~ 0;
#X obj 70 51 inlet~;
#X obj 139 51 inlet;
#X obj 70 132 *~;
#X obj 70 156 outlet~;
#X obj 139 80 expr 1 - $f1;
#X obj 140 132 *~;
#X obj 140 156 outlet~;
#X connect 0 0 2 0;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X restore 540 91 pd gate~;
#X obj 540 59 osc~ 520;
#X obj 451 59 osc~ 420;
#X text 400 29 Send test signal to main outs;
#X connect 1 0 7 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 7 0 0 0;
#X connect 8 0 7 1;
#X connect 9 0 2 0;
#X connect 10 0 11 1;
#X connect 10 0 9 1;
#X connect 11 0 3 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X restore 1786 38 pd tests;
#X obj 976 312 throw~ bartoa_audio_1;
#X obj 946 342 throw~ deegaj_audio_1;
#N canvas 363 307 898 556 karplus_strong 0;
#N canvas 707 129 520 633 strummer 0;
#X obj 110 36 inlet;
#X obj 247 15 inlet;
#X text 290 37 strum speed inlet and default value;
#X obj 72 582 outlet;
#X obj 124 585 outlet;
#X obj 172 591 outlet;
#X obj 217 591 outlet;
#X obj 263 591 outlet;
#X obj 310 591 outlet;
#X obj 110 62 metro 250;
#X obj 110 89 i 0;
#X obj 110 114 + 1;
#X obj 110 315 route 0 1 2 3 4 5 6 7;
#X obj 110 143 % 8;
#X obj 155 106 i;
#X obj 154 195 == 0;
#X obj 110 166 t f f;
#X obj 154 218 route 1;
#X obj 110 357 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 247 71 s \$0-strum_speed;
#X obj 272 353 r \$0-strum_speed;
#X obj 183 520 i 52;
#X obj 109 465 i 40;
#X obj 148 483 i 49;
#X obj 218 538 i 55;
#X obj 257 543 i 59;
#X obj 293 563 i 64;
#N canvas 101 96 589 438 chords 0;
#X obj 249 26 inlet;
#X obj 82 265 outlet;
#X obj 132 265 outlet;
#X obj 180 264 outlet;
#X obj 227 265 outlet;
#X obj 276 266 outlet;
#X obj 330 266 outlet;
#X obj 144 201 unpack f f f f f f;
#X msg 202 125 40 45 52 57 61 64;
#X msg 326 126 43 47 52 55 59 67;
#X msg 81 124 40 47 52 55 59 64;
#X obj 249 52 random 4;
#X obj 250 80 route 0 1 2 3;
#X msg 451 124 42 47 54 59 62 64;
#X text 348 50 randomly choose one of four chords \, and output the
midi pitches for each of the six strings.;
#X connect 0 0 11 0;
#X connect 7 0 1 0;
#X connect 7 1 2 0;
#X connect 7 2 3 0;
#X connect 7 3 4 0;
#X connect 7 4 5 0;
#X connect 7 5 6 0;
#X connect 8 0 7 0;
#X connect 9 0 7 0;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 12 0 10 0;
#X connect 12 1 8 0;
#X connect 12 2 9 0;
#X connect 12 3 13 0;
#X connect 13 0 7 0;
#X restore 28 320 pd chords;
#X text 152 162 Generate a simple 8 note strum pattern;
#X text 209 220 Every 8 notes \, randomly change chords;
#X obj 247 39 i 15;
#X obj 148 415 del 15;
#X obj 183 437 del 15;
#X obj 218 458 del 15;
#X obj 257 480 del 15;
#X obj 293 512 del 15;
#X connect 0 0 9 0;
#X connect 1 0 30 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 18 0;
#X connect 12 3 18 0;
#X connect 12 5 18 0;
#X connect 12 7 18 0;
#X connect 13 0 14 0;
#X connect 13 0 16 0;
#X connect 14 0 10 1;
#X connect 15 0 17 0;
#X connect 16 0 12 0;
#X connect 16 1 15 0;
#X connect 17 0 27 0;
#X connect 18 0 22 0;
#X connect 18 0 31 0;
#X connect 20 0 31 1;
#X connect 20 0 32 1;
#X connect 20 0 33 1;
#X connect 20 0 34 1;
#X connect 20 0 35 1;
#X connect 21 0 5 0;
#X connect 22 0 3 0;
#X connect 23 0 4 0;
#X connect 24 0 6 0;
#X connect 25 0 7 0;
#X connect 26 0 8 0;
#X connect 27 0 22 0;
#X connect 27 1 23 0;
#X connect 27 2 21 0;
#X connect 27 3 24 0;
#X connect 27 4 25 0;
#X connect 27 5 26 0;
#X connect 30 0 19 0;
#X connect 31 0 23 0;
#X connect 31 0 32 0;
#X connect 32 0 21 0;
#X connect 32 0 33 0;
#X connect 33 0 24 0;
#X connect 33 0 34 0;
#X connect 34 0 25 0;
#X connect 34 0 35 0;
#X connect 35 0 26 0;
#X restore 334 153 pd strummer;
#X obj 496 187 hsl 180 15 1 40 0 0 empty \$0-width_ctrl width -2 -8
1 10 -262144 -1 -1 3213 1;
#X obj 495 218 hsl 180 15 0.9 0.999 0 0 empty \$0-decay_ctrl decay
-2 -8 1 10 -262144 -1 -1 17177 1;
#X obj 495 248 hsl 180 15 100 8000 0 0 empty \$0-cutoff_ctrl cutoff
-2 -8 1 10 -262144 -1 -1 12689 1;
#N canvas 287 351 847 508 plucked_instrument 0;
#X obj 22 63 inlet;
#X obj 92 60 inlet;
#X obj 175 60 inlet;
#X obj 241 59 inlet;
#X obj 311 60 inlet;
#X obj 374 63 inlet;
#X obj 473 65 inlet;
#X obj 515 65 inlet;
#X obj 557 65 inlet;
#X text 17 16 6 inlets representing the six strings of our instrument.
A midi note integer message to any inlet excites that particular string
at the specified pitch.;
#X text 469 46 Width \, decay \, and cutoff inlets;
#X obj 21 165 karpluck~;
#X obj 21 373 outlet~;
#X obj 21 349 *~ 0.25;
#X obj 473 128 s \$0-width;
#X obj 516 107 s \$0-decay;
#X obj 557 87 s \$0-cutoff;
#X obj 106 87 r \$0-width;
#X obj 188 89 r \$0-decay;
#X obj 264 90 r \$0-cutoff;
#X obj 92 181 karpluck~;
#X obj 175 203 karpluck~;
#X obj 241 224 karpluck~;
#X obj 309 233 karpluck~;
#X obj 374 264 karpluck~;
#X text 334 112 comment;
#X text 73 343 scale the output down by approx 12dB to avoid clipping
;
#X connect 0 0 11 0;
#X connect 1 0 20 0;
#X connect 2 0 21 0;
#X connect 3 0 22 0;
#X connect 4 0 23 0;
#X connect 5 0 24 0;
#X connect 6 0 14 0;
#X connect 7 0 15 0;
#X connect 8 0 16 0;
#X connect 11 0 13 0;
#X connect 13 0 12 0;
#X connect 17 0 11 1;
#X connect 17 0 20 1;
#X connect 17 0 21 1;
#X connect 17 0 22 1;
#X connect 17 0 23 1;
#X connect 17 0 24 1;
#X connect 18 0 11 2;
#X connect 18 0 20 2;
#X connect 18 0 21 2;
#X connect 18 0 22 2;
#X connect 18 0 23 2;
#X connect 18 0 24 2;
#X connect 19 0 11 3;
#X connect 19 0 20 3;
#X connect 19 0 22 3;
#X connect 19 0 21 3;
#X connect 19 0 23 3;
#X connect 19 0 24 3;
#X connect 20 0 13 0;
#X connect 21 0 13 0;
#X connect 22 0 13 0;
#X connect 23 0 13 0;
#X connect 24 0 13 0;
#X restore 329 281 pd plucked_instrument;
#X obj 411 118 hsl 180 15 1 250 0 0 empty \$0-strum_speed_ctrl strum_speed
-2 -8 1 10 -262144 -1 -1 503 1;
#X obj 334 118 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 786 117 loadbang;
#X msg 781 147 0.995;
#X msg 824 147 5700;
#X obj 751 241 s \$0-width_ctrl;
#X obj 781 217 s \$0-decay_ctrl;
#X obj 824 196 s \$0-cutoff_ctrl;
#X text 83 112 Click here to start strummer -->;
#X msg 751 147 8;
#X obj 857 173 s \$0-strum_speed_ctrl;
#X msg 864 148 8;
#X obj 329 342 outlet~;
#X connect 0 0 4 0;
#X connect 0 1 4 1;
#X connect 0 2 4 2;
#X connect 0 3 4 3;
#X connect 0 4 4 4;
#X connect 0 5 4 5;
#X connect 1 0 4 6;
#X connect 2 0 4 7;
#X connect 3 0 4 8;
#X connect 4 0 17 0;
#X connect 5 0 0 1;
#X connect 6 0 0 0;
#X connect 7 0 14 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 7 0 16 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 14 0 10 0;
#X connect 16 0 15 0;
#X restore 516 291 pd karplus_strong;
#X text 494 270 "Guitar" String model;
#X obj 516 315 throw~ hamilr4_audio_1;
#X obj 908 603 s bartoa_mute;
#X obj 919 580 s bartoa_solo;
#X obj 928 548 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 908 548 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X connect 7 0 9 0;
#X connect 8 0 12 0;
#X connect 10 0 11 0;
#X connect 12 0 10 0;
#X connect 17 0 19 0;
#X connect 17 1 20 0;
#X connect 18 0 19 0;
#X connect 18 1 20 0;
#X connect 21 0 17 0;
#X connect 22 0 23 1;
#X connect 22 0 21 1;
#X connect 23 0 18 0;
#X connect 24 0 21 0;
#X connect 25 0 23 0;
#X connect 31 0 33 0;
#X connect 36 0 35 0;
#X connect 37 0 34 0;