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

  (ctl dubstep :note 30)
  (stop)
  )

        snare (clip2 snare 1)
       beat (* beat-vol (+ kick snare))
        ]
    (* amp (+ (pan2 snd shape) beat))))

(def m (poly/init "/dev/tty.usbserial-m64-0790"))
;;(def m beatbox.core/m)
