   (:use [overtone.live])
   (:use [overtunes.instruments.organ-cornet])
 )
+
+(def starting-section [
+  (chord :Eb3 :major)
+  (chord :Eb3 :major)
+  (chord :C3  :minor7)
+  (chord :C3  :minor7)
+  (chord :Eb3 :major)
+  (chord :Eb3 :major)
+  (chord :C3  :minor7)
+  (chord :C3  :minor7)
+])
 
 (def middle-section [
   (chord :G3  :minor)

  (chord :Bb3 :major)
])

(defn play-chord [notes duration] ( do 
  (defn play-note [note] (organ-cornet note (/ duration 1000)))
  (mix 
    (map play-note (map midi->hz notes))
  )
))

(def metro (metronome 200))
(defn beat-length [metro] (- (metro 1) (metro 0))) 

(defn play-progression [progression metro start] ( do

))

(defn play [] ( 
  (play-progression
    (concat
      starting-section
      middle-section
      variation-section
    )
    metro
    (metro)
  )
))
