view examples/08-PureData/hello-midi/mono.pd @ 556:ce391098f321 prerelease tip

THIS PROJECT HAS MOVED TO https://github.com/BelaPlatform/bela

#N canvas 69 182 885 820 10;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-activeNotes 127 float 2;
#X coords 0 100 127 -1 200 140 1 0 0;
#X restore 568 210 graph;
#N canvas 89 91 329 192 resetArray 0;
#X obj 121 145 tabwrite \$0-activeNotes;
#X msg 123 115 -0.5;
#X obj 154 90 t b f;
#X msg 129 45 128;
#X obj 103 14 inlet;
#X text 212 71 countto;
#X obj 153 69 countTo;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 0 1;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 6 0 2 0;
#X restore 776 236 pd resetArray;
#X obj 776 210 loadbang;
#X obj 176 542 maxArray \$0-activeNotes 128;
#X obj 320 683 f;
#X obj 176 591 >= 0;
#X floatatom 320 725 5 0 0 0 - - -, f 5;
#X obj 176 616 select 1;
#X obj 209 261 f;
#X text 206 184 note;
#X text 266 190 velocity;
#X obj 242 261 > 0;
#X obj 203 475 tabwrite \$0-activeNotes;
#X obj 176 431 f;
#X obj 114 366 f;
#X obj 141 366 + 1;
#X msg 129 344 -1;
#X msg 217 431 -0.5;
#X obj 209 291 spigot;
#X obj 311 291 spigot;
#X obj 344 259 == 0;
#X obj 311 316 t b f;
#X obj 209 205 inlet;
#X obj 268 206 inlet;
#X obj 320 754 outlet;
#X obj 176 517 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 209 316 t b f;
#X obj 176 454 t b f;
#X text 110 38 pass in velocity/note pairs (velocity first) and obtain
as an output the most recent note still active;
#X text 109 103 outlet 2 gate;
#X obj 507 754 outlet;
#X text 109 77 outlet 1 most recent note active (-1 otherwise);
#X text 358 726 most recent note active;
#X msg 507 726 0;
#X msg 537 727 1;
#X obj 268 228 t b f f;
#X obj 129 321 loadbang;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 3 1 4 1;
#X connect 4 0 6 0;
#X connect 4 0 34 0;
#X connect 5 0 7 0;
#X connect 6 0 24 0;
#X connect 7 0 4 0;
#X connect 7 1 33 0;
#X connect 8 0 18 0;
#X connect 8 0 19 0;
#X connect 11 0 18 1;
#X connect 13 0 27 0;
#X connect 14 0 15 0;
#X connect 15 0 14 1;
#X connect 15 0 13 1;
#X connect 16 0 14 1;
#X connect 17 0 27 0;
#X connect 18 0 26 0;
#X connect 19 0 21 0;
#X connect 20 0 19 1;
#X connect 21 0 17 0;
#X connect 21 1 12 1;
#X connect 22 0 8 0;
#X connect 23 0 35 0;
#X connect 25 0 3 0;
#X connect 26 0 13 0;
#X connect 26 1 12 1;
#X connect 27 0 25 0;
#X connect 27 1 12 0;
#X connect 33 0 30 0;
#X connect 34 0 30 0;
#X connect 35 0 14 0;
#X connect 35 1 11 0;
#X connect 35 2 20 0;
#X connect 36 0 16 0;