martse.pd

#N canvas 656 102 757 668 12;
#X obj 12 420 outlet~;
#X obj 18 13 inlet~;
#X obj 70 13 inlet;
#X obj 85 420 outlet;
#X obj 221 18 receive martse_tempo;
#X obj 245 57 receive martse_control;
#X obj 221 104 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 246 92 list prepend set;
#X obj 246 116 list trim;
#X msg 245 149 1 2 3 4 5 6 7;
#X obj 450 62 unpack f f f f f f f;
#X floatatom 467 198 5 0 0 0 - - -;
#X floatatom 491 176 5 0 0 0 - - -;
#X floatatom 510 155 5 0 0 0 - - -;
#X floatatom 530 132 5 0 0 0 - - -;
#X floatatom 559 201 5 0 0 0 - - -;
#X floatatom 587 178 5 0 0 0 - - -;
#X floatatom 609 151 5 0 0 0 - - -;
#X obj 21 193 random 1000;
#X obj 21 217 + 40;
#X obj 22 303 osc~;
#X obj 21 364 *~;
#X msg 54 330 0;
#X floatatom 21 262 5 0 0 0 - - -;
#N canvas 1084 173 528 361 (subpatch) 0;
#X array array1_martse 20 float 3;
#A 0 -0.50693 -0.163435 0 0.0637123 0 -0.00276816 -0.00276995 -0.324101
-0.191136 -0.102493 -0.0969533 -0.0969529 -0.0969533 0 0 0 0 0 0 0
;
#X coords 0 1 20 -1 160 140 1 0 0;
#X restore 166 343 graph;
#X text 170 495 I wanted to transcribe a song to play \, but I wasn't
sure how to do it;
#X obj 149 277 loadbang;
#X text 139 223 ROB - need to initialize your volume \; use loadbang
to send a bang at the start of the patch (when it is loaded);
#X obj 8 515 throw~ martse_audio_1;
#X msg 100 329 1;
#X text 368 357 60 - middle c;
#X msg 372 388 \; array1_martse 0 60 61 62 63 64 65;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 18 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 11 0;
#X connect 10 1 12 0;
#X connect 10 2 13 0;
#X connect 10 3 14 0;
#X connect 10 4 15 0;
#X connect 10 5 16 0;
#X connect 10 6 17 0;
#X connect 18 0 19 0;
#X connect 19 0 23 0;
#X connect 20 0 21 0;
#X connect 21 0 0 0;
#X connect 21 0 28 0;
#X connect 22 0 21 1;
#X connect 23 0 20 0;
#X connect 26 0 29 0;
#X connect 29 0 21 1;