diff options
Diffstat (limited to 'src/unheard/midi.clj')
| -rw-r--r-- | src/unheard/midi.clj | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/unheard/midi.clj b/src/unheard/midi.clj index d47e5b1..a44c01b 100644 --- a/src/unheard/midi.clj +++ b/src/unheard/midi.clj @@ -279,23 +279,6 @@ :else result))))))) -(defn test-msg [cmd ch d1 d2] - (ShortMessage. cmd ch d1 d2)) - -(comment - (into [] - (transduce - short-message->notes - conj - [] - (conj - (map (fn [[cmd d1]] (test-msg cmd 0 d1 9)) - [[ShortMessage/NOTE_ON 1] - [ShortMessage/CONTROL_CHANGE 1] - [ShortMessage/NOTE_ON 2] - [ShortMessage/NOTE_OFF 2] - [ShortMessage/NOTE_OFF 1]]))))) - ;; TODO: Move this logic into bus fn (defn short-messages [>device-name] |