Mercurial > hg > beaglert
view projects/heavy/pd/hello-midi/hv_notein.pd @ 198:62f6269f4b3e
Added support for MidiIn to heavy (with example patch and subpatches).
author | Giulio Moro <giuliomoro@yahoo.it> |
---|---|
date | Fri, 05 Feb 2016 06:17:35 +0000 |
parents | |
children |
line wrap: on
line source
#N canvas 730 58 629 685 10; #X obj 84 -361 outlet; #X obj 155 -367 outlet; #X obj 131 -658 unpack f f f; #X obj 211 -370 outlet; #X obj 133 -477 spigot; #X obj 258 -661 loadbang; #X obj 224 -606 \$1; #X obj 173 -585 == \$1; #X obj 166 -500 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 133 -450 unpack f f f; #X obj 190 -552 ||; #X obj 224 -582 == 0; #X obj 258 -636 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X text 150 -777 Emulates notein \, except number of outlets is fixed. ; #X text 82 -343 notenumber; #X text 151 -353 velocity; #X text 210 -356 channel; #X text 219 -531 If (inputChannel==\$1 || \$1==0); #X msg 50 -758 123 46 3; #X obj 105 -610 pack f f f; #X msg 8 -739 123 46 2; #X obj 72 -414 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 74 -432 5 0 0 0 - - -; #X obj 135 -394 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 137 -412 5 0 0 0 - - -; #X obj 188 -391 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 190 -409 5 0 0 0 - - -; #X obj 121 -730 s notein; #X obj 130 -693 r notein; #X obj 125 -758 r hv_notein; #X connect 2 0 19 0; #X connect 2 1 19 1; #X connect 2 2 7 0; #X connect 2 2 19 2; #X connect 4 0 9 0; #X connect 5 0 12 0; #X connect 6 0 11 0; #X connect 7 0 10 0; #X connect 8 0 4 1; #X connect 9 0 0 0; #X connect 9 0 22 0; #X connect 9 1 1 0; #X connect 9 1 24 0; #X connect 9 2 3 0; #X connect 9 2 26 0; #X connect 10 0 8 0; #X connect 11 0 10 1; #X connect 12 0 6 0; #X connect 18 0 27 0; #X connect 19 0 4 0; #X connect 20 0 27 0; #X connect 22 0 21 0; #X connect 24 0 23 0; #X connect 26 0 25 0; #X connect 28 0 2 0; #X connect 29 0 27 0;