Mercurial > hg > beaglert

annotate examples/10-Instruments/midi-poly-synth/mono.pd @ 531:ddb86944e138 prerelease

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
children
rev   line source
chris@531 1 #N canvas 69 182 1020 452 10;
chris@531 2 #N canvas 0 23 450 278 (subpatch) 0;
chris@531 3 #X array \$0-activeNotes 127 float 2;
chris@531 4 #X coords 0 100 127 -1 200 140 1 0 0;
chris@531 5 #X restore 537 25 graph;
chris@531 6 #N canvas 89 91 450 300 resetArray 1;
chris@531 7 #X obj 121 145 tabwrite \$0-activeNotes;
chris@531 8 #X msg 123 115 -0.5;
chris@531 9 #X obj 154 90 t b f;
chris@531 10 #X msg 129 45 128;
chris@531 11 #X obj 103 14 inlet;
chris@531 12 #X text 212 71 countto;
chris@531 13 #X obj 153 69 countTo;
chris@531 14 #X connect 1 0 0 0;
chris@531 15 #X connect 2 0 1 0;
chris@531 16 #X connect 2 1 0 1;
chris@531 17 #X connect 3 0 6 0;
chris@531 18 #X connect 4 0 3 0;
chris@531 19 #X connect 6 0 2 0;
chris@531 20 #X restore 83 49 pd resetArray;
chris@531 21 #X obj 83 3 loadbang;
chris@531 22 #X obj 88 25 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
chris@531 23 -1;
chris@531 24 #X obj 39 188 maxArray \$0-activeNotes 128;
chris@531 25 #X obj 183 219 f;
chris@531 26 #X obj 39 237 >= 0;
chris@531 27 #X floatatom 148 313 5 0 0 0 - - -, f 5;
chris@531 28 #X obj 70 262 select 1;
chris@531 29 #X obj 366 87 f;
chris@531 30 #X obj 426 60 f;
chris@531 31 #X text 334 39 note;
chris@531 32 #X text 424 16 velocity;
chris@531 33 #X obj 423 87 > 0;
chris@531 34 #X obj 344 281 tabwrite \$0-activeNotes;
chris@531 35 #X obj 330 207 f;
chris@531 36 #X floatatom 303 178 5 0 0 0 - - -, f 5;
chris@531 37 #X obj 265 163 f;
chris@531 38 #X obj 304 150 + 1;
chris@531 39 #X msg 277 130 -1;
chris@531 40 #X msg 371 207 -0.5;
chris@531 41 #X obj 400 116 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
chris@531 42 1;
chris@531 43 #X obj 367 137 spigot;
chris@531 44 #X obj 447 134 spigot;
chris@531 45 #X obj 460 86 == 0;
chris@531 46 #X obj 470 109 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
chris@531 47 1;
chris@531 48 #X obj 434 163 t b f;
chris@531 49 #X obj 337 60 inlet;
chris@531 50 #X obj 426 32 inlet;
chris@531 51 #X obj 148 350 outlet;
chris@531 52 #X obj 275 89 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
chris@531 53 -1;
chris@531 54 #X obj 41 163 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
chris@531 55 -1;
chris@531 56 #X obj 363 172 t b f;
chris@531 57 #X obj 334 240 t b f;
chris@531 58 #X text 578 211 pass in velocity/note pairs (velocity first) and obtain
chris@531 59 as an output the most recent note still active;
chris@531 60 #X text 581 268 outlet 2 gate;
chris@531 61 #X obj 330 366 outlet;
chris@531 62 #X text 583 251 outlet 1 most recent note active (-1 otherwise);
chris@531 63 #X text 155 329 most recent note active;
chris@531 64 #X msg 338 338 0;
chris@531 65 #X msg 378 339 1;
chris@531 66 #X connect 2 0 3 0;
chris@531 67 #X connect 3 0 1 0;
chris@531 68 #X connect 3 0 19 0;
chris@531 69 #X connect 4 0 6 0;
chris@531 70 #X connect 4 1 5 1;
chris@531 71 #X connect 5 0 7 0;
chris@531 72 #X connect 5 0 40 0;
chris@531 73 #X connect 6 0 8 0;
chris@531 74 #X connect 7 0 29 0;
chris@531 75 #X connect 8 0 5 0;
chris@531 76 #X connect 8 1 39 0;
chris@531 77 #X connect 9 0 22 0;
chris@531 78 #X connect 9 0 23 0;
chris@531 79 #X connect 10 0 13 0;
chris@531 80 #X connect 10 0 24 0;
chris@531 81 #X connect 13 0 21 0;
chris@531 82 #X connect 15 0 33 0;
chris@531 83 #X connect 16 0 15 1;
chris@531 84 #X connect 17 0 18 0;
chris@531 85 #X connect 18 0 16 0;
chris@531 86 #X connect 18 0 17 1;
chris@531 87 #X connect 19 0 17 1;
chris@531 88 #X connect 20 0 33 0;
chris@531 89 #X connect 21 0 22 1;
chris@531 90 #X connect 22 0 32 0;
chris@531 91 #X connect 23 0 26 0;
chris@531 92 #X connect 24 0 25 0;
chris@531 93 #X connect 25 0 23 1;
chris@531 94 #X connect 26 0 20 0;
chris@531 95 #X connect 26 1 14 1;
chris@531 96 #X connect 27 0 9 0;
chris@531 97 #X connect 28 0 10 0;
chris@531 98 #X connect 28 0 30 0;
chris@531 99 #X connect 30 0 17 0;
chris@531 100 #X connect 31 0 4 0;
chris@531 101 #X connect 32 0 15 0;
chris@531 102 #X connect 32 1 14 1;
chris@531 103 #X connect 33 0 31 0;
chris@531 104 #X connect 33 1 14 0;
chris@531 105 #X connect 39 0 36 0;
chris@531 106 #X connect 40 0 36 0;