randomlp.ny

;nyquist plug-in
;version 1
;type process
;name "Random low pass filter..."
;action "Playing around with your low pass cutoff knob..."
;info "Random low pass filter by David R. Sky"

;control maxspeed "Max filter sweep speed" real "hz" 0.20 0.01 10.00
;control factor "Filter depth factor" int "factor" 20 1 300
;control freq "Maximum cutoff frequency" real "Hz" 2000 20 5000

;; Random low pass filter by David R. Sky September 2004
;; 
;; Note the lower the maxspeed frequency, 
;; the higher factor must be to hear a result.
;; Factor can also be used to increase 
;; or decrease the depth of the effect.
;; (Factor and maxspeed are inversely proportional.)
;; Freq in this plug-in is the maximum cutoff frequency
;; of the randomly-modulated low pass filter.

(defun ransiglog (freq factor maxspeed)

(mult freq (lp (mult factor (lp (noise) maxspeed))
(mult 0.5 maxspeed))))

(lp s (ransiglog freq factor maxspeed))