view projects/heavy/pd/hello-midi/bela_pgmin.pd @ 291:46c12546664f

Added example Heavy/Midi patch

#N canvas 623 197 587 546 10;
#X obj 73 413 outlet;
#X obj 174 411 outlet;
#X obj 106 304 spigot;
#X obj 197 126 loadbang;
#X obj 197 175 \$1;
#X obj 146 196 == \$1;
#X obj 139 281 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 163 229 ||;
#X obj 197 199 == 0;
#X obj 197 151 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 89 111 unpack f f;
#X obj 106 332 unpack f f;
#X text 52 436 program number;
#X text 182 432 channel;
#X text 193 281 If (channel==\$1 || \$1==0);
#X text 167 45 emulates pgmin except it always has 2 outlets and requires
the input parameters to be explicitely set. Set them to 0 to avoid
filtering;
#X text 262 132 It'd be nicer with [t l l] but have to compensate for
the fact that it is not supported by heavy;
#X obj 77 183 pack f f;
#X floatatom 72 355 5 0 0 0 - - -, f 5;
#X obj 63 379 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 150 361 5 0 0 0 - - -, f 5;
#X obj 141 385 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 91 63 s pgmin;
#X obj 93 87 r pgmin;
#X obj 89 42 r bela_pgmin;
#X connect 2 0 11 0;
#X connect 3 0 9 0;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 6 0 2 1;
#X connect 7 0 6 0;
#X connect 8 0 7 1;
#X connect 9 0 4 0;
#X connect 10 0 17 0;
#X connect 10 1 5 0;
#X connect 10 1 17 1;
#X connect 11 0 0 0;
#X connect 11 0 18 0;
#X connect 11 1 1 0;
#X connect 11 1 20 0;
#X connect 17 0 2 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 23 0 10 0;
#X connect 24 0 22 0;