 
 (definst buzz [freq 110 vol 1.0]
   (-> (saw freq)
-      (+ (sin-osc (* 0.51 freq)))
+      (+ (sin-osc (* 0.505 freq)))
       (rlpf (* 3 440) 1/9)
-      (* (env-gen (perc 0.01 0.5) :action FREE))
+      (* (env-gen (perc 0.01 0.3) :action FREE))
       (* vol master-volume)))
 
 (definst sing [freq 110 dur 1.0 vol 1.0]


(def track
  (->>
    (champernowne/word 16 0)
    (split-by 15)
    (map arrange)
    sequentially
    (where :pitch (comp temperament/equal scale/A scale/minor))
    (where :pitch scale/lower)
    (where :time (bpm 120))
    (where :duration (bpm 120))))

(comment
            

            [leipzig.temperament :as temperament]
            [kolmogorov-music.champernowne :as champernowne]))

(def master-volume 0.03)

; Instruments
;(defonce sweep-bus (audio-bus))
