Merge branch 'master' of https://scm.cri.ensmp.fr/git/Faustine
[Faustine.git] / interpretor / preprocessor / faust-0.9.47mr3 / examples / faust-stk / pd-patches / midi-in.pd
1 #N canvas 555 193 650 564 10;
2 #X obj 331 8 notein;
3 #X obj 336 353 pack f f f;
4 #X obj 394 292 / 127;
5 #X obj 336 384 outlet;
6 #X obj 16 92 ctlin 123;
7 #X obj 154 92 inlet;
8 #X obj 204 200 list split 3;
9 #X obj 204 242 makenote;
10 #X obj 204 269 pack f f;
11 #X obj 336 322 poly \$1 1;
12 #X obj 50 27 tgl 15 0 \$0-led-1 \$0-led-1 empty 0 -6 0 8 -262144 -1
13 -1 0 1;
14 #X obj 67 27 tgl 15 0 \$0-led-2 \$0-led-2 empty 0 -6 0 8 -262144 -1
15 -1 0 1;
16 #X obj 84 27 tgl 15 0 \$0-led-3 \$0-led-3 empty 0 -6 0 8 -262144 -1
17 -1 0 1;
18 #X obj 101 27 tgl 15 0 \$0-led-4 \$0-led-4 empty 0 -6 0 8 -262144 -1
19 -1 0 1;
20 #X obj 260 385 s \$0-leds;
21 #X obj 471 291 unpack f f f;
22 #X obj 550 323 > 0;
23 #X obj 471 262 r \$0-leds;
24 #X obj 471 358 makefilename \$0-led-%d;
25 #X obj 471 385 pack s f;
26 #X msg 471 413 \; \$1 \$2;
27 #X text 470 234 LED logic;
28 #X obj 118 27 tgl 15 0 \$0-led-5 \$0-led-5 empty 0 -6 0 8 -262144 -1
29 -1 0 1;
30 #X obj 135 27 tgl 15 0 \$0-led-6 \$0-led-6 empty 0 -6 0 8 -262144 -1
31 -1 0 1;
32 #X obj 152 27 tgl 15 0 \$0-led-7 \$0-led-7 empty 0 -6 0 8 -262144 -1
33 -1 0 1;
34 #X obj 169 27 tgl 15 0 \$0-led-8 \$0-led-8 empty 0 -6 0 8 -262144 -1
35 -1 0 1;
36 #X obj 217 3 tgl 15 0 \$0-toggle \$0-toggle empty 0 -6 0 8 -262144
37 -1 -1 1 1;
38 #X obj 154 124 spigot;
39 #X obj 244 8 r \$0-toggle;
40 #X obj 336 190 spigot;
41 #X msg 400 83 stop;
42 #X obj 540 456 loadbang;
43 #X obj 244 56 sel 0;
44 #X obj 197 3 bng 15 250 50 0 \$0-notes-off \$0-notes-off empty 0 -6
45 0 8 -262144 -1 -1;
46 #X obj 540 503 s \$0-toggle;
47 #X msg 540 479 1;
48 #X obj 16 265 s \$0-notes-off;
49 #X obj 400 9 r \$0-notes-off;
50 #X msg 244 85 bang;
51 #X obj 401 384 outlet;
52 #X obj 161 3 nbx 2 14 0 16 0 0 \$0-chan \$0-chan empty -15 6 0 10 -262144
53 -1 -1 0 256;
54 #X obj 521 9 r \$0-chan;
55 #X obj 274 134 expr $f1 && (($f2==$f3) || ($f3==0));
56 #X obj 318 83 t f b;
57 #X obj 154 164 route stop note;
58 #X text 18 420 MIDI input logic. Handles MIDI note-on/off messages
59 and the all-notes off controller. Velocity values are normalized to
60 the 0-1 range. MIDI input can be restricted to one MIDI channel. Through
61 the inlet \, you can also pass in MIDI style messages \, either note/velocity
62 or note/velocity/duration (use a "stop" message to emulate all-notes-off).
63 Other (control) messages are simply passed through to the second outlet.
64 The creation argument sets the number of voices (8 voices max).;
65 #X obj 16 307 loadbang;
66 #X obj 16 328 f \$2;
67 #X obj 16 349 s \$0-chan;
68 #X connect 0 0 43 0;
69 #X connect 0 1 2 0;
70 #X connect 0 2 42 1;
71 #X connect 1 0 3 0;
72 #X connect 1 0 14 0;
73 #X connect 2 0 9 1;
74 #X connect 4 0 36 0;
75 #X connect 5 0 27 0;
76 #X connect 6 0 7 0;
77 #X connect 6 2 9 0;
78 #X connect 7 0 8 0;
79 #X connect 7 1 8 1;
80 #X connect 8 0 9 0;
81 #X connect 9 0 1 0;
82 #X connect 9 1 1 1;
83 #X connect 9 2 1 2;
84 #X connect 15 0 18 0;
85 #X connect 15 2 16 0;
86 #X connect 16 0 19 1;
87 #X connect 17 0 15 0;
88 #X connect 18 0 19 0;
89 #X connect 19 0 20 0;
90 #X connect 27 0 44 0;
91 #X connect 28 0 27 1;
92 #X connect 28 0 32 0;
93 #X connect 28 0 42 0;
94 #X connect 29 0 9 0;
95 #X connect 30 0 9 0;
96 #X connect 31 0 35 0;
97 #X connect 32 0 38 0;
98 #X connect 35 0 34 0;
99 #X connect 37 0 30 0;
100 #X connect 38 0 36 0;
101 #X connect 41 0 42 2;
102 #X connect 41 0 30 0;
103 #X connect 42 0 29 1;
104 #X connect 43 0 29 0;
105 #X connect 43 1 42 0;
106 #X connect 44 0 36 0;
107 #X connect 44 1 6 0;
108 #X connect 44 2 39 0;
109 #X connect 46 0 47 0;
110 #X connect 47 0 48 0;
111 #X coords 0 -1 1 1 235 45 1 0 0;