Mercurial > hg > beaglert

annotate examples/08-PureData/hello-midi/mono.pd @ 532:53ce8eac833c prerelease

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge
author chnrx <chris.heinrichs@gmail.com>
date Thu, 23 Jun 2016 20:41:22 +0100 (2016-06-23)
parents ddb86944e138
children
rev   line source
chris@531 1 #N canvas 69 182 885 820 10;
robert@464 2 #N canvas 0 23 450 278 (subpatch) 0;
robert@464 3 #X array \$0-activeNotes 127 float 2;
robert@464 4 #X coords 0 100 127 -1 200 140 1 0 0;
chris@531 5 #X restore 568 210 graph;
chris@531 6 #N canvas 89 91 329 192 resetArray 0;
robert@464 7 #X obj 121 145 tabwrite \$0-activeNotes;
robert@464 8 #X msg 123 115 -0.5;
robert@464 9 #X obj 154 90 t b f;
robert@464 10 #X msg 129 45 128;
robert@464 11 #X obj 103 14 inlet;
robert@464 12 #X text 212 71 countto;
robert@464 13 #X obj 153 69 countTo;
robert@464 14 #X connect 1 0 0 0;
robert@464 15 #X connect 2 0 1 0;
robert@464 16 #X connect 2 1 0 1;
robert@464 17 #X connect 3 0 6 0;
robert@464 18 #X connect 4 0 3 0;
robert@464 19 #X connect 6 0 2 0;
chris@531 20 #X restore 776 236 pd resetArray;
chris@531 21 #X obj 776 210 loadbang;
chris@531 22 #X obj 176 542 maxArray \$0-activeNotes 128;
chris@531 23 #X obj 320 683 f;
chris@531 24 #X obj 176 591 >= 0;
chris@531 25 #X floatatom 320 725 5 0 0 0 - - -, f 5;
chris@531 26 #X obj 176 616 select 1;
chris@531 27 #X obj 209 261 f;
chris@531 28 #X text 206 184 note;
chris@531 29 #X text 266 190 velocity;
chris@531 30 #X obj 242 261 > 0;
chris@531 31 #X obj 203 475 tabwrite \$0-activeNotes;
chris@531 32 #X obj 176 431 f;
chris@531 33 #X obj 114 366 f;
chris@531 34 #X obj 141 366 + 1;
chris@531 35 #X msg 129 344 -1;
chris@531 36 #X msg 217 431 -0.5;
chris@531 37 #X obj 209 291 spigot;
chris@531 38 #X obj 311 291 spigot;
chris@531 39 #X obj 344 259 == 0;
chris@531 40 #X obj 311 316 t b f;
chris@531 41 #X obj 209 205 inlet;
chris@531 42 #X obj 268 206 inlet;
chris@531 43 #X obj 320 754 outlet;
chris@531 44 #X obj 176 517 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
chris@531 45 -1 -1;
chris@531 46 #X obj 209 316 t b f;
chris@531 47 #X obj 176 454 t b f;
chris@531 48 #X text 110 38 pass in velocity/note pairs (velocity first) and obtain
robert@464 49 as an output the most recent note still active;
chris@531 50 #X text 109 103 outlet 2 gate;
chris@531 51 #X obj 507 754 outlet;
chris@531 52 #X text 109 77 outlet 1 most recent note active (-1 otherwise);
chris@531 53 #X text 358 726 most recent note active;
chris@531 54 #X msg 507 726 0;
chris@531 55 #X msg 537 727 1;
chris@531 56 #X obj 268 228 t b f f;
chris@531 57 #X obj 129 321 loadbang;
chris@531 58 #X connect 2 0 1 0;
chris@531 59 #X connect 3 0 5 0;
chris@531 60 #X connect 3 1 4 1;
robert@464 61 #X connect 4 0 6 0;
chris@531 62 #X connect 4 0 34 0;
robert@464 63 #X connect 5 0 7 0;
chris@531 64 #X connect 6 0 24 0;
chris@531 65 #X connect 7 0 4 0;
chris@531 66 #X connect 7 1 33 0;
chris@531 67 #X connect 8 0 18 0;
chris@531 68 #X connect 8 0 19 0;
chris@531 69 #X connect 11 0 18 1;
chris@531 70 #X connect 13 0 27 0;
chris@531 71 #X connect 14 0 15 0;
chris@531 72 #X connect 15 0 14 1;
chris@531 73 #X connect 15 0 13 1;
chris@531 74 #X connect 16 0 14 1;
chris@531 75 #X connect 17 0 27 0;
chris@531 76 #X connect 18 0 26 0;
chris@531 77 #X connect 19 0 21 0;
chris@531 78 #X connect 20 0 19 1;
chris@531 79 #X connect 21 0 17 0;
chris@531 80 #X connect 21 1 12 1;
chris@531 81 #X connect 22 0 8 0;
chris@531 82 #X connect 23 0 35 0;
chris@531 83 #X connect 25 0 3 0;
chris@531 84 #X connect 26 0 13 0;
chris@531 85 #X connect 26 1 12 1;
chris@531 86 #X connect 27 0 25 0;
chris@531 87 #X connect 27 1 12 0;
chris@531 88 #X connect 33 0 30 0;
chris@531 89 #X connect 34 0 30 0;
chris@531 90 #X connect 35 0 14 0;
chris@531 91 #X connect 35 1 11 0;
chris@531 92 #X connect 35 2 20 0;
chris@531 93 #X connect 36 0 16 0;