         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)

  (ctl dubstep :note 30)
  (stop)
  )

    (ctl dubstep  :wob wob)))

(poly/on-press m ::foo (fn [x y s]
                         (match [x y]
                           [0 7] (toggle-vol)
                           [0 _] (toggle-fx x y)
                           [_ _] (modulate-pitch-wob x y))))

(dubstep)
;;(stop)
