Just playing around with stuff from the Overtone wiki. An endless minor blues.

minblues.clj

; Just playing around with stuff from the overtone wiki.

; An endless minor blues.

(use 'overtone.live)
(use 'overtone.inst.sampled-piano)


(defn play-chord [a-chord]
  (doseq [note a-chord] (sampled-piano note)))

(defonce metro (metronome 60))

(metro)

(defn chord-progression-beat [m beat-num]
    (at (m (+ 0 beat-num)) (play-chord (chord :C4 :minor7)))
    (at (m (+ 2 beat-num)) (play-chord (chord :Eb4 :major7)))
    (at (m (+ 4 beat-num)) (play-chord (chord :D4 :m7-5)))
    (at (m (+ 6 beat-num)) (play-chord (chord :G3 :7+5-9)))
    (at (m (+ 8 beat-num)) (play-chord (chord :C4 :minor7)))
    (at (m (+ 12 beat-num)) (play-chord (chord :G3 :m7-5)))
    (at (m (+ 14 beat-num)) (play-chord (chord :C4 :7+5-9)))
    (at (m (+ 16 beat-num)) (play-chord (chord :F4 :minor7)))
    (at (m (+ 20 beat-num)) (play-chord (chord :F4 :minor7)))
    (at (m (+ 24 beat-num)) (play-chord (chord :C4 :minor7)))
    (at (m (+ 28 beat-num)) (play-chord (chord :C4 :minor7)))
    (at (m (+ 32 beat-num)) (play-chord (chord :Ab3 :7)))
    (at (m (+ 36 beat-num)) (play-chord (chord :G3 :7+5-9)))
    (at (m (+ 40 beat-num)) (play-chord (chord :C4 :minor7)))
    (at (m (+ 42 beat-num)) (play-chord (chord :Eb4 :major7)))
    (at (m (+ 44 beat-num)) (play-chord (chord :D4 :m7-5)))
    (at (m (+ 46 beat-num)) (play-chord (chord :G3 :7+5-9)))
    (apply-at (m (+ 48 beat-num)) chord-progression-beat m (+ 48 beat-num) [])

)

(chord-progression-beat metro (metro))