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


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

(println @bd)





(def width 1440)
(def height 980)
(def width 1920)
(def height 1200)
(def server (atom nil))
(def tr (seq->stream (cycle-between 1 1 16 0.1 0.1)))

