               -80 (live/ctl dubs :note 42 :chord-vol 0 :wob4-vol 1 :wob-vol 1.5)
               "No Zone"))))))
 
-  ;(cond
-    ;(not (leap/hands? frame)) (do (live/ctl dubs :note 50 :wobble 1))
-    ;(leap/single-hand? frame) (do (live/ctl dubs :note 32 :wobble 4))
-    ;:else (do (live/ctl dubs :note 62 :wobble 8))))
+;(cond
+;(not (leap/hands? frame)) (do (live/ctl dubs :note 50 :wobble 1))
+;(leap/single-hand? frame) (do (live/ctl dubs :note 32 :wobble 4))
+;:else (do (live/ctl dubs :note 62 :wobble 8))))
 
 (defn -main [& args]
   (let [dubs (popular/dubstep 34 120 4)
         listener (leap/listener :frame #(process-frame (:frame %) dubs)
                                 :default #(println "Toggling" (:state %) "for listener:" (:listener %)))
         [controller _] (leap/controller listener)]
-;    (read-line)
-;    (swap! my-rgb (fn [x] [0 0 1]))
-;    (read-line)
-;    (swap! my-rgb (fn [x] [1 0 0]))
-;    (read-line)
-;    (swap! my-rgb (fn [x] [0 1 1]))
+    ;    (read-line)
+    ;    (swap! my-rgb (fn [x] [0 0 1]))
+    ;    (read-line)
+    ;    (swap! my-rgb (fn [x] [1 0 0]))
+    ;    (read-line)
+    ;    (swap! my-rgb (fn [x] [0 1 1]))
     (println "Press Enter to quit")
     (read-line)
     (leap/remove-listener! controller listener)))


(defn process-frame [frame dubs]
  (do (cond
       (not (leap/hands? frame)) 
        (do (swap! my-rgb (fn [x] [0 0 1]))
            (live/ctl dubs :wob-vol 0)
            (live/ctl dubs :wob4-vol 0)
            (live/ctl dubs :chord-vol 0))
       (leap/single-hand? frame)
        (let [low-hand (leap/lowest-hand frame)
              pos (hand/palm-position low-hand)
              x (.getX pos)

              475 (live/ctl dubs :wobble 16)
              "No Zone")


            (condp > (- x1 x2)
              -700 "No Zone"
              -400 (live/ctl dubs :note 34 :chord-vol 0 :wob4-vol 1 :wob-vol 1.5)
