     * Overtone
 "
   (:use overtone.live)
-  (:require [codemash.graphs :as graph]
-            [codemash.art :as art]
+  (:require [codemash.art :as art]
             [codemash.voice :as voice]))
 
 (use 'overtone.live)

(buffer-write! bass-notes-b    (take 128 (cycle (map note bass-score))))
(buffer-write! bass-notes-b    (take 128 (cycle (map #(+ -12 (note %)) score))))

(buffer-write! score-b    (take 128 (cycle (map #(+ 0 ( note %)) score))))
(buffer-write! duration-b (take 128 (cycle duration)))

(ctl root-trigger :rate 100)

        src (mix [saw1 saw2 sin1 sin2])
        env (env-gen:ar (env-asr) trig)
        src (lpf:ar src)
        src (free-verb :in src :mix 0.33 :room 0.5 :damp 0.5)]
    (out out-bus (* amp [src src]))))

(def w  (woody-beep :duration-bus duration-b :beat-count-bus beat-count-bus :offset-bus score-b :amp 5))

;;(kill woody-beep)
(ctl w :damp 1)
(ctl w :room 0.5)

(def ps (deep-saw 100 :duration-bus bass-duration-b :beat-count-bus beat-count-bus :offset-bus bass-notes-b :amp 0.8))

