 (demo 10
   (let [f (mouse-y 300 15000)]
     (* (sin-osc f) 0.1 (amp-comp f 300))))
-)

; Linear to exponential
; - convert from a linear range to an exponential range
(demo 10
  (let [freq (lin-exp:kr (mouse-x 0.1 1)
                   0 1                ; linear range
                   10 10000)]         ; exponential range
  (* 0.3 (saw freq))))

; Ramp
; - like lag, but transitions linearly
(demo 10
  (* 0.2 (saw (ramp:kr
                     (mouse-x 80 10000) ; frequency value
                     3))))             ; lag time


; amplitude compensation
; - to account for higher pitches seeming louder
; - move the mouse up and down
; first without
(demo 10
  (let [f (mouse-y 300 15000)]
