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

; 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)]

;   over the specified lag time
; - used to smooth out control signals
(demo 10
  (* 0.2 (saw (lag:kr
                     (mouse-x 80 10000) ; frequency value
                     3))))             ; lag time

; Lag Up Down
; - allows for different up and down lag times
(demo 10
  (* 0.2 (saw (lag-ud:kr
                     (mouse-x 80 10000) ; frequency value
                     4 2))))             ; lag time

