 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;Hardware (External devices);;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(do
-  (println art/hardware)
-  (voice/hardware))
+(do (println art/hardware) (voice/hardware))
 
 (midi-connected-devices)
 

(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)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

                     :sequencer kick-sequencer-buffer))))

(buffer-write! kick-sequencer-buffer [1 0 0 0 0 1 0 0])

(defonce tom-sequencer-buffer (buffer 8))
(defonce tom-s (load-sample (str sample-root "tom.aif")))
