             [leipzig.temperament :as temperament]
             [kolmogorov-music.champernowne :as champernowne]))
 
-(def master-volume 0.05)
+(def master-volume 0.03)
 
 ; Instruments
 ;(defonce sweep-bus (audio-bus))


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

(definst sing [freq 110 dur 1.0 vol 1.0]


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

(comment
            
