(ns midi-gen.core
  (:require [overtone.midi :as m]
            [overtone.live :as ot]
            [overtone.at-at :as at-at]))

(def bpm 150)
(def midi-pool (at-at/mk-pool))
(def midi-out (first (ot/midi-connected-receivers)))
(def metro (ot/metronome bpm))

(defn looper [beat]
  (at-at/at (metro beat) #(m/midi-note midi-out (ot/note :c#2) 100 100 0) midi-pool)
  (at-at/at (metro (+ 0.50 beat)) #(m/midi-note midi-out (ot/note :f#2) 100 100 0) midi-pool)
  (ot/apply-by (metro (inc beat)) #'looper (inc beat) []))

(comment
  (looper (metro))
  (ot/stop))