diff options
Diffstat (limited to 'src/unheard/midi.clj')
| -rw-r--r-- | src/unheard/midi.clj | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/src/unheard/midi.clj b/src/unheard/midi.clj index 1e135a2..e3e65d2 100644 --- a/src/unheard/midi.clj +++ b/src/unheard/midi.clj @@ -191,39 +191,6 @@ ;; CoreMidiSource is TX Device ;; CoreMidiDestination is RX Device -#_(defn >midi-messages->ch-stream - [>midi-messages] - (m/signal - (m/ap - (let [device (new-device)] - (m/amb= device - (do - (let [v (m/?< >midi-messages)] - (cond (instance? ShortMessage v) - (let [channel (.getChannel ^ShortMessage v) - command (.getCommand ^ShortMessage v) - data-1 (.getData1 ^ShortMessage v)] - (cond (= command ShortMessage/NOTE_ON) - (swap! (first (get device channel)) conj data-1) - (= command ShortMessage/NOTE_OFF) - (swap! (first (get device channel)) disj data-1))) - :else :other)) - (m/amb))))))) -(defn >midi-messages->ch-stream - [>midi-messages] - (m/ap - (let [device (atom #{}) - v (m/?< >midi-messages)] - (cond (instance? ShortMessage v) - (let [channel (.getChannel ^ShortMessage v) - command (.getCommand ^ShortMessage v) - data-1 (.getData1 ^ShortMessage v)] - (cond (= command ShortMessage/NOTE_ON) - (swap! device conj data-1) - (= command ShortMessage/NOTE_OFF) - (swap! device disj data-1))) - :else (m/amb))))) - (defn |short-messages "Filter down to midi short messages" [>messages] |