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;