 (spacey)
 (kill spacey)
 
-;; Improv
-
-(defonce clap-sequencer-buffer (buffer 8))
-(def claps
-  (doall
-   (for [x (range 8)] (mono-sequencer [:tail beats-g] :buf clap2 :beat-num x
-                                      :sequencer clap-sequencer-buffer))))
-
-(buffer-write! clap-sequencer-buffer [1 0 0 0 0 0 0 0])
-
-(defonce clap1-sequencer-buffer (buffer 8))
-(def claps
-  (doall
-   (for [x (range 8)] (mono-sequencer [:tail beats-g] :buf clap :beat-num x
-                                      :sequencer clap1-sequencer-buffer))))
-
-(buffer-write! clap1-sequencer-buffer [0 0 0 0 0 0 0 1])
-
-
 ;(stop)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(def duration   [1/7])

(def score (concat
            (map #(+ -5  (note %)) score)
            (map #(+ -5  (note %)) score)
            (map #(+ -10 (note %)) score)
            (map #(+ -5  (note %)) score)
            (map #(+ -1  (note %)) score)))

(buffer-write! bass-duration-b (take 128 (cycle [(/ 1 3.5)])))
(buffer-write! bass-notes-b    (take 128 (cycle (map note bass-score))))
(buffer-write! bass-notes-b    (take 128 (cycle (map #(+ -12 (note %)) score))))

;;;;;;;;;;;;;;;
;;Instruments;;
;;;;;;;;;;;;;;;
(do (println art/instrument) (voice/instruments))

;;Sampled
(comment (require '[overtone.inst.sampled-piano :as s-piano]))
