blob: 9459c818fda8a5105bc9396ae754523ea16ff754 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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)
|
