Move scratch.clj to dev

1 files changed, 27 insertions, 0 deletions

diff --git a/dev/scratch.clj b/dev/scratch.clj
new file mode 100644
index 0000000..9459c81
--- /dev/null
+++ b/dev/scratch.clj
@@ -0,0 +1,27 @@
+(ns scratch
+  (:require [unheard.midi :as midi]
+            [unheard.midi.percussion :refer [kick snare]]
+            [unheard.clock :refer [clock]]
+            [unheard.theory :refer [note poly]]
+            [missionary.core :as m]))
+
+#_(print-all-midi-devices)
+
+(def midi-keyboard  "CoreMIDI4J - Minilab3 MIDI")
+
+
+(def run
+  (midi/<bus midi-keyboard
+             (fn [v]
+               (m/ap
+                 ;; 2 is the number of message types, e.g. :key
+                (let [[t f] (m/?> 2 (midi/keyboard v))]
+                  [t (rest (m/?< f))])))))
+
+#_
+(def cancel
+  (run prn prn))
+
+#_
+(cancel)
+