diff options
| author | Jake Zerrer <him@jakezerrer.com> | 2025-11-05 13:29:12 -0500 |
|---|---|---|
| committer | Jake Zerrer <him@jakezerrer.com> | 2025-11-05 14:07:14 -0500 |
| commit | 4ae6bfb0746fc22fd48ad3a9f37ee50fa6ad0bb9 (patch) | |
| tree | 1b130cda0eb50ed0751e92e9a813232446d7af46 /src/midi.clj | |
| parent | bc14d6a631a6305ae1647c7e45f98af35930052b (diff) | |
WIP composing note bits
Diffstat (limited to 'src/midi.clj')
| -rw-r--r-- | src/midi.clj | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/midi.clj b/src/midi.clj index bfe075e..6aace8f 100644 --- a/src/midi.clj +++ b/src/midi.clj @@ -153,7 +153,7 @@ (fn [d] (with-tx d (fn [f] - (m/reduce {} nil (flow-handler f)))))))) + (m/reduce prn nil (flow-handler f)))))))) (defn echo "Echo test." @@ -233,6 +233,18 @@ [>messages] (m/group-by #(.getChannel ^ShortMessage %) >messages)) +(defn |notes + [>messages] + (m/group-by #(.getData1 ^ShortMessage %) >messages + #_ + (m/ap + (let [^ShortMessage v (m/?< >messages)] + (println "V" v) + (if (#{ShortMessage/NOTE_ON ShortMessage/NOTE_OFF} (.getCommand v)) + v + (m/amb)))))) + + #_(defn >ch-stream [>device ch] (m/cp (m/?< (second (get >device ch))))) |