Mercurial > hg > beaglert
annotate examples/08-PureData/hello-midi/mono.pd @ 531:ddb86944e138 prerelease
cleaned up all pd examples (and removed some). added polysynth and vangelisiser to instruments examples
author | chnrx <chris.heinrichs@gmail.com> |
---|---|
date | Thu, 23 Jun 2016 20:40:05 +0100 |
parents | 8fcfbfb32aa0 |
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; |