diff options
Diffstat (limited to 'sfruit/midi-stream2notes.pd')
-rw-r--r-- | sfruit/midi-stream2notes.pd | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/sfruit/midi-stream2notes.pd b/sfruit/midi-stream2notes.pd new file mode 100644 index 0000000..874c138 --- /dev/null +++ b/sfruit/midi-stream2notes.pd @@ -0,0 +1,71 @@ +#N canvas 173 60 491 669 10; +#X obj 109 443 list-find; +#X obj 108 163 unpack f f; +#X obj 108 186 swap; +#X text 173 163 note \, vel; +#X obj 136 358 list-value-extend \$0-notes; +#X obj 109 266 f; +#X obj 109 233 sel 0; +#X obj 136 334 list append; +#X obj 136 266 list prepend; +#X text 213 268 note \, vel; +#X text 207 335 note \, vel \, time-on; +#X obj 109 516 list-extract 0 3; +#X obj 109 490 list-value \$0-notes; +#X obj 136 420 list-value \$0-notes; +#X obj 109 399 t a b; +#X obj 202 540 list-value \$0-notes; +#X obj 109 585 list append; +#X obj 108 39 inlet note vel; +#X obj 323 41 inlet time; +#X obj 199 312 r \$0-time; +#X obj 172 562 r \$0-time; +#X obj 323 76 s \$0-time; +#X obj 109 629 outlet note vel timeon timeoff; +#N canvas 748 370 257 276 ignore-dupes 0; +#X obj 42 26 inlet; +#X obj 42 144 list-find; +#X obj 42 68 unpack f f; +#X obj 93 166 sel 0; +#X obj 93 190 list; +#X obj 42 47 t a a; +#X obj 42 100 t a b; +#X obj 69 121 list-value \$0-notes; +#X obj 93 215 outlet; +#X connect 0 0 5 0; +#X connect 1 1 3 0; +#X connect 2 0 6 0; +#X connect 3 0 4 0; +#X connect 4 0 8 0; +#X connect 5 0 2 0; +#X connect 5 1 4 1; +#X connect 6 0 1 0; +#X connect 6 1 7 0; +#X connect 7 0 1 1; +#X restore 136 288 pd ignore-dupes; +#X obj 109 464 t b a; +#X connect 0 0 24 0; +#X connect 1 0 2 0; +#X connect 1 1 2 1; +#X connect 2 0 6 0; +#X connect 2 1 5 1; +#X connect 2 1 8 1; +#X connect 5 0 14 0; +#X connect 6 0 5 0; +#X connect 6 1 8 0; +#X connect 7 0 4 0; +#X connect 8 0 23 0; +#X connect 11 0 16 0; +#X connect 11 1 15 0; +#X connect 12 0 11 0; +#X connect 13 0 0 1; +#X connect 14 0 0 0; +#X connect 14 1 13 0; +#X connect 16 0 22 0; +#X connect 17 0 1 0; +#X connect 18 0 21 0; +#X connect 19 0 7 1; +#X connect 20 0 16 1; +#X connect 23 0 7 0; +#X connect 24 0 12 0; +#X connect 24 1 11 1; |