 (init-latchbell-mod (:rate @latchbell-arg))
 (defn rand-latchbell []
   (let [dur (/ 60.0 (sequencer-metro :bpm))]
-        (latchbell :rate (:rate @latchbell-arg) :amp (:amp @latchbell-arg) :time-scale-max (:max @latchbell-arg))))
+    (latchbell :rate (:rate @latchbell-arg) :amp (:amp @latchbell-arg) :time-scale-max (:max @latchbell-arg))))
 
 (def fn-beats {ambi-rand [_]
                ;;ambi-rand (vec (repeat 16 1))

  (let [idx (Math/floor (* x (count logistics-scale)))
        note (nth logistics-scale idx)
        freq (midi->hz note)
        dur (* 2/8 (/ 60.0 (metro :bpm)))
        next-beat (+ 2/8 beat)
        next-x (* logistics-r x (- 1 x))] ;; x = r * x * (1 - x)
    (if (< 0 (rand-int 3))
      (at (metro beat)
          (fmchord01 :freq freq :dur dur :amp 1)))
    (apply-by (metro next-beat) #'logistics-loop [metro next-beat next-x])))

;; (logistics-loop sequencer-metro (sequencer-metro) 0.1)
;; (stop)

(volume (/ 25 127))


  (init-latchbell-mod (:rate @latchbell-arg))
  (swap! *beats assoc laserbeam [d _ _ [d d] (vec (repeat 64 0.8)) _ _ d _ _ d _ b _ _ [d d d]])
  (swap! *beats assoc laserbeam [_])
  (swap! *beats assoc latchbell [a _ a _ a _ a _ a _ a _ a _ a _])
  (swap! *beats assoc latchbell [_])
  (swap! *beats assoc laserbeam [d _ _ _ b _ _ d _ _ d _ b _ _ d])
