         snare (clip2 snare 1)
        beat (* beat-vol (+ kick snare))
         ]
-    (+ snd beat)))
+    (* amp (+ (pan2 snd shape) beat))))
 
 (def m (poly/init "/dev/tty.usbserial-m64-0790"))
 ;;(def m beatbox.core/m)

                  2 :deci-man
                  3 :tan-man
                  4 :beat-vol})

(defn toggle-fx
  [x y]

        [clojure.core.match :only [match]]
        [polynome.core :as poly]))

(defonce dub-vol (atom 1))

(definst dubstep [note 40 wob 2 hi-man 0 lo-man 0 sweep-man 0 deci-man 0 tan-man 0 shape 0 sweep-max-freq 3000 hi-man-max 1000 lo-man-max 500 beat-vol 0 amp 1]
  (let [bpm 300
        shape (select shape [(lf-tri wob) (lf-saw wob)])
        sweep (lin-exp shape -1 1 40 sweep-max-freq)
