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


;(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)))

