           (poly/clear m)
           (start-samples))))
 
-(reset-samples!)
-
 (defn toggle
   "Invert the vol from 1 to 0 or 0 to 1"
   [vol]

    (dorun (map #(do (ctl loop-synth :rate (reset! rate* %)) (Thread/sleep 35)) vals))))


;;(tempo-slide 1.5)

                                 new-samp (assoc samp :vol new-vol)]
                             (ctl id :vol new-vol)
                             (assoc playing-samples n new-samp)))))

(defn trigger
  "Invert the volume for the loop corresponding to the given x y coords. Also
