First chorus of Giant Steps solo by Overtone

giant-steps.clj

; TODO
; Incorporate changes
; Convert to concert pitch
; Convert to correct octave

(use 'overtone.live)

(definst beep [note 60 vol 0.5]
  (let [freq (midicps note)
        src (sin-osc freq)
        env (env-gen (perc ) :action FREE)]
    (* vol src env)))

(def first-chorus 
  ["Ab2" "F2" "Db2" "Bb1" "E2" "F#2" "G#2" "B2" 
   "A2" "E2" "C#2" "G1" "D2" "Bb1" "Ab1" "G1" "F1" 
   "G1" "A1" "Bb1" "C2" "D2" "E2" "G2" "F#2" "D2" 
   "B1" "A1" "G#1" "F2" "E2" "D2" "C#2" "E2" "A2"
   "C#3" "E2" "G2" "Bb2" "D3" "F2" "G2" "A2" "C3" 
   "Gb2" "Bb2" "C3" "Eb3" "C3" nil "Bb2" "Ab2" 
   nil nil nil nil "C3" "B2" "Bb2" "A2" "G2" "F2"
   "E2" "D2" "C2" "Bb2" "A2" "E2" "G2" "F2" "E2"
   "G2" "F#2" "D2" "B1" "F#1" "A1" "F#1" "G#1" 
   "F2" "E2" "D2" "C#2" "B1" "A1" "B1" "C#2" 
   "E2" "F2" "Eb2" "Db2" "C2" nil "Ab1" "Bb1" 
   "C2" "Db2" "Eb2" "F2" "Ab2" "C3" "B2" "Bb2" 
   "A2" "G2" nil nil nil "Bb2" "A2" "G2" "E2" "F2" 
   "G2" nil "C3" "F3" "C3" nil nil nil nil "C3" "Db3" 
   "C3" nil nil "Ab2"])

(let [t (+ 1000 (now))] 
  (doseq [[i n] (map-indexed vector (map note first-chorus))]
    (when n (at (+ t (* 100 i)) (beep (+ 36 n))))))

Howdy. Just FYI, final "full" solo data ended up here: https://github.com/daveray/yardbird
Happy Thanksgiving!