houchl.pd

#N canvas 603 251 1040 618 12;
#N canvas 0 50 450 250 (subpatch) 0;
#X array melody 16 float 3;
#A 0 74 86 86 74 86 74 74 84 74 74 82 74 84 74 77 74;
#X coords 0 120 16 0 200 140 1 0 0;
#X restore 281 144 graph;
#X floatatom 37 241 5 0 0 0 - - -;
#X floatatom 37 305 5 0 0 0 - - -;
#X obj 37 67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X floatatom 104 65 5 0 0 0 - - -;
#X obj 37 107 metro 1000;
#X msg 94 129 0;
#X obj 37 162 f;
#X obj 92 161 + 1;
#X obj 37 334 mtof;
#X floatatom 37 373 5 0 0 0 - - -;
#X obj 152 406 line~;
#X obj 38 470 *~;
#X floatatom 37 187 5 0 0 0 - - -;
#X msg 211 359 0 50;
#X obj 37 417 osc~ 440;
#X obj 38 26 inlet~;
#X obj 108 30 inlet;
#X obj 37 580 outlet~;
#X obj 111 577 outlet;
#X msg 152 359 1.7 60;
#X msg 283 320 \; melody 0 74 86 86 74 86 74 74 84 74 74 82 74 84 74
77 74 89;
#N canvas 0 50 450 250 (subpatch) 0;
#X array melody2 40 float 3;
#A 0 85 78 78 85 78 78 85 78 86 78 85 78 78 85 78 78 85 78 86 78 84
77 77 84 77 77 84 77 85 77 84 77 77 84 77 77 84 77 85 77;
#X coords 0 110 40 0 200 140 1 0 0;
#X restore 579 142 graph;
#X obj 37 275 tabread melody2;
#X msg 281 377 \; melody2 0 85 78 78 85 78 78 85 78 86 78 85 78 78
85 78 78 85 78 86 78 84 77 77 84 77 77 84 77 85 77 84 77 77 84 77 77
84 77 85 77;
#X obj 37 215 % 40;
#X connect 1 0 23 0;
#X connect 2 0 9 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 8 0;
#X connect 7 0 13 0;
#X connect 8 0 7 1;
#X connect 9 0 10 0;
#X connect 10 0 15 0;
#X connect 11 0 12 1;
#X connect 12 0 18 0;
#X connect 13 0 25 0;
#X connect 14 0 11 0;
#X connect 15 0 12 0;
#X connect 20 0 11 0;
#X connect 23 0 2 0;
#X connect 25 0 1 0;