 (defn draw [state]
   (q/background [ 1 128 0]
 
-                (bassdrum [state]))
+  (bassdrum [state]))
   (.sendScreen @server)
   )
 


;(remove-event-handler ::keyboard-handler)

(println @bd)







(defn update [state]
    {
   :beat @bbeat
   :bd @bd
