 (defn laserplayer [beat]
   (let [dur (/ 60.0 (metro :bpm))]      ; 15bars
     (at (metro beat)
-        (laserbeam :pan (- (rand 2.0) 1.0) :freq (+ (rand-int 1000) 12000) :dur 0.25))
+        (laserbeam :pan (- (rand 2.0) 1.0) :freq (+ (rand-int 1000) 100) :dur 0.25))
     (at (metro (+ beat 0.25))
-        (laserbeam :pan (- (rand 2.0) 1.0) :freq (+ (rand-int 1000) 12000) :dur 0.25))
+        (laserbeam :pan (- (rand 2.0) 1.0) :freq (+ (rand-int 1000) 100) :dur 0.25))
     (at (metro (+ beat 0.5))
-        (laserbeam :pan (- (rand 2.0) 1.0) :freq (+ (rand-int 1000) 12000) :dur 0.25))
+        (laserbeam :pan (- (rand 2.0) 1.0) :freq (+ (rand-int 1000) 100) :dur 0.25))
     (at (metro (+ beat 0.75))
-        (laserbeam :pan (- (rand 2.0) 1.0) :freq (+ (rand-int 1000) 12000) :dur 0.25))
+        (laserbeam :pan (- (rand 2.0) 1.0) :freq (+ (rand-int 1000) 100) :dur 0.25))
     (apply-by (metro (inc beat)) #'laserplayer (inc beat) [])
     ))
 

        (latchbell :rate (:rate @latchbell-arg) :amp (:amp @latchbell-arg) :time-scale-max (:max @latchbell-arg)))
    (apply-by (metro (inc beat)) #'latchbellplayer (inc beat) [])
    ))

;; (init-latchbell-mod (:rate @latchbell-arg))
;; (latchbellplayer (metro))
;; (stop)

;; (def dirty-kick (freesound 777))
;; (dirty-kick)
;; (def kick (sample (freesound-path 2086)))
;; (kick)
;; (def close-hihat (sample-player (sample (freesound-path 802))))


;; (stop)

(def latchbell-arg (atom {:rate 100 :amp 0.4 :max 5}))

(defn latchbellplayer [beat]
  (let [dur (/ 60.0 (metro :bpm))]
