            (mouse-y 0.01 0.5)))
 
 
-; Clip 
+; Clip
 ; - limit the amplitude with hi and low thresholds
 (demo 10
   (clip (* (sin-osc 440) 0.4)

; effect the filter is having.
; (scope)

; Lowpass 
(demo 10
  (lpf (* 0.5 (saw 440)) 
       (mouse-x 10 10000))) ; cutoff frequency

; Highpass
(demo 10
  (hpf (* 0.5 (saw 200)) 
       (mouse-x 100 10000))) ; cutoff frequency
  


; Bandpass
; - only let a band of frequencies pass through
(demo 10
  (bpf (* 0.5 (saw 200)) 
       (mouse-x 100 10000) ; center frequency
       (mouse-y 0 1)))     ; rq => bandwidth/cutoff

; Band reject
; - the inverse of the bandpass
(demo 10
  (brf (* 0.5 (saw 200)) 
       (mouse-x 100 10000) ; center frequency
       (mouse-y 0 1)))     ; rq => bandwidth/cutoff


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