(import (sosc)
        (rsc3)
        (prefix (rsc3 arf) a:))

(define analog-bubbles
  (let* ((o (a:mul-add (a:lf-saw (a:mce2 8 7.23) 0) 3 80))
         (f (a:mul-add (a:lf-saw 0.4 0) 24 o))
         (s (a:mul (a:sin-osc (a:kr (a:midi-cps f)) 0) 0.05)))
    (a:out 0 (a:comb-n s 0.2 0.2 4))))

(audition (a:build analog-bubbles))

#|
~analogBubbles = {
  o = LFSaw.kr([8,7.23], 0) * 3 + 80
; f = LFSaw.kr(0.4, 0) * 24 + o
; s = SinOsc.ar(f.midicps, 0) * 0.1
; CombN.ar(s, 0.2, 0.2, 4)
}

analogBubbles =
  let { s = sinOsc AR (midicps f) 0 * 0.1
      ; f = lfSaw KR 0.4 0 * 24 + o
      ; o = lfSaw KR (MCE [8, 7.23]) 0 * 3 + 80 }
  in combN s 0.2 0.2 4

(define analog-bubbles
  (let* ((o (mul-add (lf-saw kr (mce2 8 7.23) 0) 3 80))
         (f (mul-add (lf-saw kr 0.4 0) 24 o))
         (s (mul (sin-osc ar (midi-cps f) 0) 0.1)))
    (comb-n s 0.2 0.2 4)))
|#

(define t0
  (a:mul (a:sin-osc 440 0) 0.1))

(a:build t0)

(define t1
  (a:out 0 (a:mul (a:sin-osc 440 0) 0.1)))

(audition (a:build t1))

(define t2
  (a:out 0 (a:mul (a:sin-osc (a:kr (a:mouse-x 40 400 0 0.1)) 0) 0.1)))

(audition (a:build t2))

(define t3
  (a:out 0 (a:mul (a:sin-osc (a:mce2 (a:kr (a:mouse-x 40 400 0 0.1))
                                     440)
                             0)
                  0.25)))

(audition (a:build t3))