Mercurial > hg > beaglert

comparison examples/08-PureData/hello-midi/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 8fcfbfb32aa0
children
comparison
equal deleted inserted replaced
525:1ca196e35105 531:ddb86944e138
1 #N canvas 69 182 1020 452 10; 1 #N canvas 69 182 885 820 10;
2 #N canvas 0 23 450 278 (subpatch) 0; 2 #N canvas 0 23 450 278 (subpatch) 0;
3 #X array \$0-activeNotes 127 float 2; 3 #X array \$0-activeNotes 127 float 2;
4 #X coords 0 100 127 -1 200 140 1 0 0; 4 #X coords 0 100 127 -1 200 140 1 0 0;
5 #X restore 537 25 graph; 5 #X restore 568 210 graph;
6 #N canvas 89 91 450 300 resetArray 1; 6 #N canvas 89 91 329 192 resetArray 0;
7 #X obj 121 145 tabwrite \$0-activeNotes; 7 #X obj 121 145 tabwrite \$0-activeNotes;
8 #X msg 123 115 -0.5; 8 #X msg 123 115 -0.5;
9 #X obj 154 90 t b f; 9 #X obj 154 90 t b f;
10 #X msg 129 45 128; 10 #X msg 129 45 128;
11 #X obj 103 14 inlet; 11 #X obj 103 14 inlet;
15 #X connect 2 0 1 0; 15 #X connect 2 0 1 0;
16 #X connect 2 1 0 1; 16 #X connect 2 1 0 1;
17 #X connect 3 0 6 0; 17 #X connect 3 0 6 0;
18 #X connect 4 0 3 0; 18 #X connect 4 0 3 0;
19 #X connect 6 0 2 0; 19 #X connect 6 0 2 0;
20 #X restore 83 49 pd resetArray; 20 #X restore 776 236 pd resetArray;
21 #X obj 83 3 loadbang; 21 #X obj 776 210 loadbang;
22 #X obj 88 25 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 22 #X obj 176 542 maxArray \$0-activeNotes 128;
23 -1; 23 #X obj 320 683 f;
24 #X obj 39 188 maxArray \$0-activeNotes 128; 24 #X obj 176 591 >= 0;
25 #X obj 183 219 f; 25 #X floatatom 320 725 5 0 0 0 - - -, f 5;
26 #X obj 39 237 >= 0; 26 #X obj 176 616 select 1;
27 #X floatatom 148 313 5 0 0 0 - - -, f 5; 27 #X obj 209 261 f;
28 #X obj 70 262 select 1; 28 #X text 206 184 note;
29 #X obj 366 87 f; 29 #X text 266 190 velocity;
30 #X obj 426 60 f; 30 #X obj 242 261 > 0;
31 #X text 334 39 note; 31 #X obj 203 475 tabwrite \$0-activeNotes;
32 #X text 424 16 velocity; 32 #X obj 176 431 f;
33 #X obj 423 87 > 0; 33 #X obj 114 366 f;
34 #X obj 344 281 tabwrite \$0-activeNotes; 34 #X obj 141 366 + 1;
35 #X obj 330 207 f; 35 #X msg 129 344 -1;
36 #X floatatom 303 178 5 0 0 0 - - -, f 5; 36 #X msg 217 431 -0.5;
37 #X obj 265 163 f; 37 #X obj 209 291 spigot;
38 #X obj 304 150 + 1; 38 #X obj 311 291 spigot;
39 #X msg 277 130 -1; 39 #X obj 344 259 == 0;
40 #X msg 371 207 -0.5; 40 #X obj 311 316 t b f;
41 #X obj 400 116 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 41 #X obj 209 205 inlet;
42 1; 42 #X obj 268 206 inlet;
43 #X obj 367 137 spigot; 43 #X obj 320 754 outlet;
44 #X obj 447 134 spigot; 44 #X obj 176 517 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
45 #X obj 460 86 == 0; 45 -1 -1;
46 #X obj 470 109 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 46 #X obj 209 316 t b f;
47 1; 47 #X obj 176 454 t b f;
48 #X obj 434 163 t b f; 48 #X text 110 38 pass in velocity/note pairs (velocity first) and obtain
49 #X obj 337 60 inlet;
50 #X obj 426 32 inlet;
51 #X obj 148 350 outlet;
52 #X obj 275 89 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
53 -1;
54 #X obj 41 163 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
55 -1;
56 #X obj 363 172 t b f;
57 #X obj 334 240 t b f;
58 #X text 578 211 pass in velocity/note pairs (velocity first) and obtain
59 as an output the most recent note still active; 49 as an output the most recent note still active;
60 #X text 581 268 outlet 2 gate; 50 #X text 109 103 outlet 2 gate;
61 #X obj 330 366 outlet; 51 #X obj 507 754 outlet;
62 #X text 583 251 outlet 1 most recent note active (-1 otherwise); 52 #X text 109 77 outlet 1 most recent note active (-1 otherwise);
63 #X text 155 329 most recent note active; 53 #X text 358 726 most recent note active;
64 #X msg 338 338 0; 54 #X msg 507 726 0;
65 #X msg 378 339 1; 55 #X msg 537 727 1;
66 #X connect 2 0 3 0; 56 #X obj 268 228 t b f f;
67 #X connect 3 0 1 0; 57 #X obj 129 321 loadbang;
68 #X connect 3 0 19 0; 58 #X connect 2 0 1 0;
59 #X connect 3 0 5 0;
60 #X connect 3 1 4 1;
69 #X connect 4 0 6 0; 61 #X connect 4 0 6 0;
70 #X connect 4 1 5 1; 62 #X connect 4 0 34 0;
71 #X connect 5 0 7 0; 63 #X connect 5 0 7 0;
72 #X connect 5 0 40 0; 64 #X connect 6 0 24 0;
73 #X connect 6 0 8 0; 65 #X connect 7 0 4 0;
74 #X connect 7 0 29 0; 66 #X connect 7 1 33 0;
75 #X connect 8 0 5 0; 67 #X connect 8 0 18 0;
76 #X connect 8 1 39 0; 68 #X connect 8 0 19 0;
77 #X connect 9 0 22 0; 69 #X connect 11 0 18 1;
78 #X connect 9 0 23 0; 70 #X connect 13 0 27 0;
79 #X connect 10 0 13 0; 71 #X connect 14 0 15 0;
80 #X connect 10 0 24 0; 72 #X connect 15 0 14 1;
81 #X connect 13 0 21 0; 73 #X connect 15 0 13 1;
82 #X connect 15 0 33 0; 74 #X connect 16 0 14 1;
83 #X connect 16 0 15 1; 75 #X connect 17 0 27 0;
84 #X connect 17 0 18 0; 76 #X connect 18 0 26 0;
85 #X connect 18 0 16 0; 77 #X connect 19 0 21 0;
86 #X connect 18 0 17 1; 78 #X connect 20 0 19 1;
87 #X connect 19 0 17 1; 79 #X connect 21 0 17 0;
88 #X connect 20 0 33 0; 80 #X connect 21 1 12 1;
89 #X connect 21 0 22 1; 81 #X connect 22 0 8 0;
90 #X connect 22 0 32 0; 82 #X connect 23 0 35 0;
91 #X connect 23 0 26 0; 83 #X connect 25 0 3 0;
92 #X connect 24 0 25 0; 84 #X connect 26 0 13 0;
93 #X connect 25 0 23 1; 85 #X connect 26 1 12 1;
94 #X connect 26 0 20 0; 86 #X connect 27 0 25 0;
95 #X connect 26 1 14 1; 87 #X connect 27 1 12 0;
96 #X connect 27 0 9 0; 88 #X connect 33 0 30 0;
97 #X connect 28 0 10 0; 89 #X connect 34 0 30 0;
98 #X connect 28 0 30 0; 90 #X connect 35 0 14 0;
99 #X connect 30 0 17 0; 91 #X connect 35 1 11 0;
100 #X connect 31 0 4 0; 92 #X connect 35 2 20 0;
101 #X connect 32 0 15 0; 93 #X connect 36 0 16 0;
102 #X connect 32 1 14 1;
103 #X connect 33 0 31 0;
104 #X connect 33 1 14 0;
105 #X connect 39 0 36 0;
106 #X connect 40 0 36 0;